MsgBox al iniciar aplicación por primera vez

[killer92]

Hola a todos, quisiera que me ayudaran con una cuestión. Tengo una aplicación hecha en VB 6..., y lo que necesito hacer es que al ejecutarla por primera vez, muestre un MsgBox..., pero como dije, solo en la primera ejecución, luego en las próximas ya no.

Espero puedan ayudarme,
Gracias.

[seba123neo]

me gustaria saber para que queres hacer eso, capas que hay otra solucion, porque lo unico que se me courre es que guards en algun lado (registro de windows, archivo o lo que sea) guardar un valor, y luego al abrir la aplicacion comparar ese valor y si existe pues no mostras mas ese mensaje.

saludos.

[killer92]

Hola seba123neo, en eso último que pusiste estaba pensando, justamente, la aplicación al iniciarse ya guarda un valor en el registro (el valor se guarda en HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\), me faltaría entonces saber ¿Qué código utilizo para comparar si este valor existe?

Gracias de antemano.

[killer92]

Ignorar el mensaje anterior por favor, ya encontré como hacerlo. Puse éste codigo:

Código [Seleccionar] Expandir

Set MiObjeto = CreateObject("WScript.Shell")
Text1.Text = MiObjeto.regRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\miprograma")

Luego simplemente hice comprobar el textbox, si está vacío la clave no existe, de lo contrario si.

[x64core]

Escribir en la propia ejecutable reversar unos cuantos bytes para y guardar una "señal"

[Karcrack]

SaveSetting/GetSetting