Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CARRY-ON en 4 Abril 2006, 23:29 pm


Título: como detengo un timer
Publicado por: CARRY-ON en 4 Abril 2006, 23:29 pm
lo tengo para que se eejcute un enter pero despues sigue ejecutandose cada 2 segundos como hago para que se detenga y se ejecute solo una ves?

Título: Re: como detengo un timer
Publicado por: Cicklow en 4 Abril 2006, 23:33 pm
Timer1.Enabled=False

Eso lo que hace es desabilitar el timer, si lo keres avilitar:
Timer1.Enabled=True

Saludos!

Título: Re: como detengo un timer
Publicado por: CARRY-ON en 4 Abril 2006, 23:37 pm

Private Sub Form_Load()
Shell "C:\WINDOWS\system32\rasphone.exe"
End Sub


Private Sub Timer1_Timer()
On Error GoTo ERROR:

SendKeys "{enter}"

ERROR:





End Sub







me refiero a ese codigo es que se ejecuta mas de una ves y quiero que se ejecute solo una ves  :huh:

Título: Re: como detengo un timer
Publicado por: Cicklow en 4 Abril 2006, 23:44 pm
si te entiendo, pero te falto al app.activate... que koloke en el otro code mio....

para parlo tendras que hacer esto:
Despues de esto...(agregale el app.activate)
Código:
SendKeys "{enter}"
End




Título: Re: como detengo un timer
Publicado por: CARRY-ON en 4 Abril 2006, 23:50 pm
pero pa que eso si ya funciona bien solo que acada rato da enter y ejecuta y te conecta y desconecta acada rato sabes como detener el timer de otra forma

Título: Re: como detengo un timer
Publicado por: kakinets en 5 Abril 2006, 00:10 am
prueva haci:
Código:
Private Sub Form_Load()
Shell "C:\WINDOWS\system32\rasphone.exe"
SendKeys "{enter}"
End Sub

Título: Re: como detengo un timer
Publicado por: CARRY-ON en 5 Abril 2006, 00:12 am
no funciona ya la havia provado no manda los enter

Título: Re: como detengo un timer
Publicado por: kakinets en 5 Abril 2006, 00:31 am
que hase la funcion "app.activate" ¿supongo que es una funcion NO?

Título: Re: como detengo un timer
Publicado por: Cicklow en 5 Abril 2006, 01:08 am
Ok complikemolas mejor!!! jejeje mientras mas complicado mejor:

lo que are sera conectarlo a internet y verificar con otro timer, lo que haremos es ver si estas conectado a internet, de se haci lo que hacemos es salir de los timers!!!

Código:
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long


Private Sub Timer1_Timer()
On Error GoTo ERROR:
 SendKeys "{enter}"
Error:
End Sub

Private Sub Timer2_Timer() 'Cada un segundo!!!!
 If InternetAttemptConnect(ByVal 0&) = 0 Then
  'Se Conecto a internet
  Timer1.Enabled=False
  Timer2.Enabled=False
  End ' por si keremos salir!!!!!
 End If
End Sub

es cuestion de ingeniarcelas!!! y usar google o:http://allapi.net/apilist/InternetAttemptConnect.shtml

Título: Re: como detengo un timer
Publicado por: [VolkS] en 5 Abril 2006, 06:43 am
Código:
Private Sub Timer1_Timer()
On Error GoTo ERROR:
SendKeys "{enter}"
Timer1.enabled = False
Error:
End Sub

Listo :P

Título: Re: como detengo un timer
Publicado por: Cicklow en 5 Abril 2006, 16:08 pm
Cita de: [VolkS] en  5 Abril 2006, 06:43 am
Código:
Private Sub Timer1_Timer()
On Error GoTo ERROR:
SendKeys "{enter}"
Timer1.enabled = False
Error:
End Sub

Listo :P

Tenes un problema con esto, que el timer se cortara no importa si ya se activo internet!!!, osea si en dos segundos de ejecutar el programa no se conecto a internet no se conecta mas!


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines