كيفية قطع الاتصال بالانترنت+كيفية معرفة الاشتراك

هذا الكود لفصل الإتصال بالإنترنت

Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved_ As Long) As Long

Function HangUp()
InternetAutodialHangup 0&
End Function

والمثال التالي لفحص حالة الإنترنت

أما بخصوص الإشتراكات الموجوده في الجهاز فحاليا لايحضرني شيء لكن إن شاءالله عندما اجد الحل سوف أوضعه هنا

Check for Internet Connection.zip

مشكور وما قصرت وإن شاء الله أن محضر مفاجأة حلوة بإذن الله تعالى

شكراً

سؤال عزيزي ولكن كيف استخدم الكود جربته وما قطع الانترنت وهذا هو الكود

Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved_ As Long) As Long

Private Sub Command1_Click()
x = HangUp
End Sub

Function HangUp()
InternetAutodialHangup 0&
End Function