Pregunta relacionada con registro de WINDOWS

Iniciado por ToNy_EsP, 1 Junio 2009, 21:24 PM

0 Miembros y 1 Visitante están viendo este tema.

ToNy_EsP

Pues me gustaría saber que código hay que poner para que al arrancar ese form por primera vez en esa PC aparezca otro form (Form5), pero tras la primera ejecucion ya no aparezca mas (se quede como añadido en el registro o algo asi). De forma que si mete ese programa en otra PC y arranque por primera vez el programa tambien aparezca el form5 pero tras la primera ejecucion ya aparezca directamente el form1 (el form5 ya no aparece).

Sé que es modificando el registro y demás, pero como no sé mucho de VB pues pregunto aquí a expertos =). Ya busqué por Google y nada. También me descargué varios ejemplos de registros en recursosvisualbasic.com.ar pero sigo sin saber que código poner para realizar la acción explicada en el párrafo 1.

También me gustaría que ese código funcionase para Windows XP y Vista.

Muchas gracias de antemano.

Atte: ToNy_EsP

*Si pasas mucho tiempo pensando sobre una cosa, terminarás por no hacerla (Bruce Lee).

carlitrosss6

#1
Suponiendo que tus forms se llamen Form1 y Form5 hice este codigo,tambien suponiendo que Form5 es la que se muestra primero.

Hecho a la carrera,como se puede ver jaja..

La primera ejecuciòn mostrarà el Form5,las demàs mostrarà el Form1:



Dim WSC As Object

Private Sub Form_load() 'form5
On Error GoTo error

Set WSC = CreateObject("wscript.shell") 'crea una instancia de wscript



'si setup es 0,modificala con 1 (aqui me tiraria error,porque la clave Setup aun no existe,entonces se salta a "error" mas abajo)
If WSC.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Setup") = "0" Then
WSC.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Setup", "1"
 End If

'si setup es 1,oculta esta ventana y muestra la form1
If WSC.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Setup") = "1" Then Me.Hide: Form1.Show

error:
'la primera ejecucion siempre te tira aca
WSC.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Setup", "0"

End Sub



Esa clave "Setup" fue la que se me ocurrio en el momento,puedes cambiar tanto la ruta como el nombre de la clave si asi lo deseas.

Espero que sea lo que buscabas  ;D
Arriba Mèxico!!

ToNy_EsP

#2
INCREIBLE carlitrosss6!!!!!!!
Muchas gracias por tu interes  y tu esfuerzo, ahora mismo lo pruebo  ;-) ;-) ;-)

Un saludo y mil gracias.

Simplemente increbile, lo acabo de probar y me va del 10, muchas gracias!

*Si pasas mucho tiempo pensando sobre una cosa, terminarás por no hacerla (Bruce Lee).