[3amo]

السلام عليكم ورحمة الله وبركاته
وجدت لك هذا الكود لعله يكون المطلوب
*الاتصال بالانترنيت وقطع الاتصال ومعرفة حالة الاتصال

كود :

Private Declare Function InternetAutodial Lib "wininet.dll" _(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long




Private Sub Command1_Click()
' لتعرف هل انت متصل ام لا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If


End Sub


Private Sub Command2_Click()
' لكي تتصل بالانترنيت تلقائيا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
MsgBox "You're Connected!", vbInformation
End If


End Sub


Private Sub Command3_Click()
'لقطع الاتصال
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If


End Sub

ارجوا لك التوفيق