كود بسيط لمعرفة حالة الإتصال بالإنترنت

بسم الله الرحمن الرحيم

هذه طريقة سهلة وبسيط لمعرفة حالة الإتصال بالإنترنت

ضع الكود التالي في ال General

رموز PHP:
Option Explicit
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Function Online() As Boolean
Online = InternetGetConnectedState(0&, 0&)
End Function
والكود التالي في زر الامر


رموز PHP:
Private Sub Command1_Click()
MsgBox IIf(Online(), "أنت متصل بالإنترنت", "أنت غير متصل بالإنترنت"), vbInformation, "الحالة"
End Sub