Visual Basic 6 - connessione adsl e VB6

Salve, siccome ho una linea adsl che si disconnette circa una volta al giorno, e quando lo fa non me ne accorgo subito, vorrei un programmino in VB che mi avvisi quando il pc non è più connesso.
E' possibile?
Grazie.

Non è il metodo migliore, cmq potresti mettere un webbrowser provarlo a farlo andare x es. su google ogni tot di sec, se si carica la pagina allora ok altrimenti no...

Oppure potresti provare con inet scaricando il sorgente di google, se si scarica ok altrimenti no...

C'è un modo più sempliece..
dichiarazioni da inserire in un modulo

Public Declare Function InternetGetConnectedState _
  Lib "wininet" (ByRef dwflags As Long, _
  ByVal dwReserved As Long) As Long

Public Const CONNECT_LAN As Long = &H2
Public Const CONNECT_MODEM As Long = &H1
Public Const CONNECT_PROXY As Long = &H4
Public Const CONNECT_OFFLINE As Long = &H20
Public Const CONNECT_CONFIGURED As Long = &H40

funzioni

Public Function IsConnected(Optional ByRef sConnType As String) As Boolean

  Dim dwflags As Long
  Dim WebTest As Boolean

  sConnType = ""
  bConnected = InternetGetConnectedState(dwflags, 0&)

  Select Case bConnected
    Case dwflags And CONNECT_LAN:
      sConnType = "LAN"
    Case dwflags And CONNECT_MODEM:
      sConnType = "Modem"
    Case dwflags And CONNECT_PROXY:
      sConnType = "Proxy"
    Case dwflags And CONNECT_OFFLINE:
      sConnType = "Offline"
    Case dwflags And CONNECT_CONFIGURED:
      sConnType = "Configured"
    Case Else:
      sConnType = "Remote"
  End Select

  IsConnected = bConnected

End Function

command 1

Private Sub command1_click
Dim sMsg As String
  Dim sConnType As String

  If IsConnected(sConnType) Then
    sMsg = "Sei connesso ad Internet tramite " & sConnType & "."
  Else
    sMsg = "Non sei connesso ad Internet."
  End If

  MsgBox sMsg, vbOKOnly, "Stato della connessione Internet"

End Sub

Questo ti dice se sei connesso ad internet e come sei connesso..Ovviamente te lo personalizzi come vuoi.. magari metti un timer che lo controlla in automatico. Spero di esserti stato utile!!