لمن لديه الجواب ... كيف استطيع ان

[maxim90_ru]

اقطع الاتصال بالانترنت من الفيجوال بيسيك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
ارجوكم طلب ضروري لانهاء برنامجي :smailes51:

[الفرعون المحترف]

اخي الحيبيب
حياك الله الكل سوف يساعدك
لكن في المكان الصحيح

[(li) صقر (li)]

إن شاء الله الكود التالي يساعد , وهو لمعرفة الحالة (متصل , غير متصل) ولقطع ولطلب الاتصال :

'اضف 3 زر امر
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_UNATTENDE D, 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


أرجو أن ينال رضاك
أرجو الرد

شكراً

والسلام....