pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 6 oct. 2003 à 23:16
Utilise cette api : InetIsOffline
'declarations
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
Private Sub Form_Load()
'InetIsOffline retourne 0 si connecter!!
MsgBox "est te vous connecter a internet? " + CStr(CBool(Not (InetIsOffline(0)))), vbInformation
End Sub