usa un timer chabon.... poner el tiempo de intervalo y listo...
1000 = 1 segundo
500 = medio segundo
si 1000 = 1
2000 seria igual a que???
sl2
1000 = 1 segundo
500 = medio segundo
si 1000 = 1
2000 seria igual a que???
sl2
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
If chkRun.Value = 1 Then
'// Agrega el autorun
El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
ElseIf chkRun.Value = 0 Then
'// Saca el autorun
El_Objeto.RegDelete ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName)
End If
Set El_Objeto = Nothing