تشخیص اتصال به اینترنت

ميشه يه سورسي از اين برامون بزاري

نقل قول:

---

نوشته شده توسط salar2010

ميشه يه سورسي از اين برامون بزاري

---

اینم کد : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
Dim SFlags As Long
Dim Modem As Boolean
Modem = InternetGetConnectedState(SFlags And INTERNET_CONNECTION_MODEM, 0&)
If Modem = True Then
MsgBox "وصل است"
Else
MsgBox "وصل نیست"
End If
End Sub

---