Comment savoir si un modem USB est connecté ?

"The only way to learn is be aware and hold on tight."

"The only way to learn is be aware and hold on tight."

Option Explicit 
'
'-> détermine si le système est connecté à internet
Private Declare Function InetIsOffline Lib "url.dll" _ 
                        (ByVal dwFlags As Long) As Long 
'
'
Private Sub Form_Load() 
    MsgBox "Connection établie?" & vbCrLf & Not CBool(InetIsOffline(0&)) 
    Unload Me 
End Sub

Coloration syntaxique automatique [AFCK]
       

++
PCPT   [AFCK]

"The only way to learn is be aware and hold on tight."