como detengo un timer

[CARRY-ON]

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?

[Cicklow]

Timer1.Enabled=False

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

Saludos!

[CARRY-ON]

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 

[Cicklow]

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 [Seleccionar] Expandir

SendKeys "{enter}"
End

[CARRY-ON]

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

[kakinets]

prueva haci:

Código [Seleccionar] Expandir

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

[CARRY-ON]

no funciona ya la havia provado no manda los enter

[kakinets]

que hase la funcion "app.activate" ¿supongo que es una funcion NO?

[Cicklow]

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 [Seleccionar] Expandir


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

[[VolkS]]

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
On Error GoTo ERROR:
SendKeys "{enter}"
Timer1.enabled = False
Error:
End Sub

Listo