Autor
Código:
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Código:
Private Sub Timer1_Timer()
Verifica:
Dim Flag As Long
InternetGetConnectedState Flag, 0
Dim flags As Long
Dim result As Boolean
result = InternetGetConnectedState(flags, 0)
If result Then
Timer1.Enabled = False
Conectar
Else
Timer1.Enabled = True
GoTo Verifica
End If
End Sub
Código:
Private Sub WS_Close()
Timer1.Enabled = True
End Sub
Código:
Private Sub WS_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
If WS.State <> sckConnected Then
WS.Close
End If
End Sub
y la funcion Conectar bueno utiliza un un winsock llamado WS, creo que no es necesario ponerla aqui, la cosa es que cuando inicio windows normalmente, el timer se activa en el form_load y empieza a chequear todo el tiempo si existe conexion a internet, si conecto a internet todo bárbaro, salta a la funcion conectar pero si luego desconecto ya no vuelve mas a chequear para volverse a conectar d enuevo y asi.. a que se debe eso? que es lo que tengo querhacer para que por cualquier cosa que suceda error, o perdida de conexion vuelva a chequear para conectarse de nuevo?
gracias..
Código:
[code]
En línea
