hola he estado probando apis, mas precisamente InternetGetConnectedState para detectar si existe conexion a internet...
la siguiente funcion nos dice si hay conexion a internet o no, si hay conecta, si no hay muestra un msgbox...
Public Function CheckStatusConn() As Boolean
Dim flags As Long
Dim result As Boolean
result = InternetGetConnectedState(flags, 0)
If result Then
Conectar
Else
MsgBox "lo siento"
End If
If flags And INTERNET_CONNECTION_MODEM Then Print "Connection Via Modem"
If flags And INTERNET_CONNECTION_LAN Then Print "Connecion Via LAN"
If flags And INTERNET_CONNECTION_PROXY Then Print "Connection uses a Proxy"
If flags And INTERNET_CONNECTION_MODEM_BUSY Then Print "Connection Via Modem but modem is busy"
End Function
supongamos k konectar tiene:
Public Sub Conectar()
WS.Close
WS.RemoteHost = Servidor
WS.RemotePort = Puerto
WS.Connect
End Sub
y a su vez la funcion CheckStatusConn() es ejecutada en el load del form:
Private Sub Form_Load()
CheckStatusConn
End Sub
ahora lo que quiero yo es que el programa chekee, a cada 30 segundos mas o menos si existe conexion a internet, y si existe que salte a la funcion conectar .. pk asi como lo hice lo chekea solo una vez y no conectara mas si no existe conexion de un principio, me expliko? alguna idea?
Mostrar Temas
