[elgokr]

(15-09-18, 09:01 PM)حسن الغزي كتب : السلام عليكم
الاستاذ الفاضل الجوكر
اريد ان يعطي البرنامج رساله عندما يكون النت مقطوع

لعمل تحقق من الانترنت متصل ام لا

كل ما عليك فعله هو التالى

فى البداية قم باضافة سطر الـ Function 

كود :

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

ثم قم باستخدام الكود التالى

كود :

If InternetGetConnectedState(0, 0) = 1 Then
   MsgBox "متصل بالانترنت"
Else
   MsgBox "غير متصل بالانترنت"
End If

طبعاً بدلاً من الرسالة

يمكنك وضع الكود الذى تريده

تحياتى لك

وتمنياتى لك التوفيق