Esse codigo abaixo funciona quase normal, quando esta conectado a internet ele verifica certinho conectado, quando vc desconecta da internet aparece também conectado...... e quando eu desconecto o cabo de rede ou desligo o modem ele aparece desconectado, preciso de uma boa dica.....
Dim Response As String
Dim Start As Single, Tmr As Single
Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
Private Const CONNECT_LAN As Long = &H2
Private Const CONNECT_MODEM As Long = &H1
Private Const CONNECT_PROXY As Long = &H4
Private Const CONNECT_OFFLINE As Long = &H20
Private Const CONNECT_CONFIGURED As Long = &H40
Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
Dim dwflags As Long
Dim WebTest As Boolean
ConnType = ""
WebTest = InternetGetConnectedState(dwflags, 0&)
Select Case WebTest
Case dwflags And CONNECT_LAN: ConnType = "LAN"
Case dwflags And CONNECT_MODEM: ConnType = "Modem"
Case dwflags And CONNECT_PROXY: ConnType = "Proxy"
Case dwflags And CONNECT_OFFLINE: ConnType = "Offline"
Case dwflags And CONNECT_CONFIGURED: ConnType = "Configurada"
Case dwflags And CONNECT_RAS: ConnType = "Remota"
End Select
IsWebConnected = WebTest
End Function
Private Sub Form_Load()
Dim msg As String
If IsWebConnected(msg) Then
text1.text = "Conectado"
else
text1.text = "desconectado"
End If
End Sub
