جک کردن کانکشن اینترنت

[hno2005]

سلام دوستان

من کدی میخواهم که بتونم بفهمم آیا سیستمم به اینترنت وصل هست یا نه ؟ چندین کد رو تست کردم ولی با اینکه اینترنتم رو هم قطع کرده بودم ، میگفت وصلی . فکر کنم همینکه ببینه مثلا lan روشن هست ، میگه اینترنتت وصل .

اگه میشه کدی رو بهم بدید که اگه اینترنت وصل بود بهم بگه ؟

مرسی

[محسن واژدی]

سلام علیکم
APIی Offline اینکار را انجام میدهد اما این نیز در زمان قطع اینترنت چک Online بودن را True برمیگرداند

موفق باشید

[mhr548010]

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255
Dim Ret As Long

Private Sub Command1_Click()
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If (Ret = 1) And (sConnType <> "LAN") Then
MsgBox "Connected"
Else
MsgBox "Not Connected"
End If
End Sub

[majidas2006]

نه من الان offlinam ولی این میگه connected

[محسن واژدی]

نه من الان offlinam ولی این میگه connected

سلام عليكم
سورس پست 3 را بررسي كنيد

موفق باشيد

[soroosh_rhsld]

اینو تست کنید احتمالا کارت رو راه بندزه

71735