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
Autor
En línea
