[burkan]

سلام عليكم, شباب ابغي كود يغلق الاتصال بيكون في زر commend2 الموجود في جهازي ... وليس يغلق الااتصال من المودم مجرد يغلقه من جهازي أي عملية disconnect ...

ثم كود اخر بيكون في commend1 الاتصال اي connect

في حد يعرف ؟؟؟

او كود واحد بيعمل عملية reconnect

[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

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