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?
Timer1.Enabled=False
Eso lo que hace es desabilitar el timer, si lo keres avilitar:
Timer1.Enabled=True
Saludos!
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:
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)
SendKeys "{enter}"
End
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
prueva haci:
Private Sub Form_Load()
Shell "C:\WINDOWS\system32\rasphone.exe"
SendKeys "{enter}"
End Sub
no funciona ya la havia provado no manda los enter
que hase la funcion "app.activate" ¿supongo que es una funcion NO?
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!!!
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
Private Sub Timer1_Timer()
On Error GoTo ERROR:
SendKeys "{enter}"
Timer1.enabled = False
Error:
End Sub
Listo :P
Cita de: [VolkS] en 5 Abril 2006, 06:43 AM
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!