اتصال به اينترنت

[son_games]

سلام دوستان.
ميخواستم بدونم چگونه ميشه فهميد كه به اينترنت وصل هستيم يا نه؟
اگه هم ميشه روش Disconnect شدن اينترنت رو بگيد.
ممنون.

[alih110]

این کد برای فهمیدن وصل بود یا نبودن به اینترنت



Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
Private Const INTERNET_RAS_INSTALLED As Long = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
If InternetGetConnectedState(&H2, 0&) = 0 Then
MsgBox "you are offline", vbExclamation
Else
MsgBox "you are online", vbInformation
End If
End Sub

[son_games]

براي Disconnect شدن كسي دستوري نداره؟

[alih110]

اینم کد دیسکانکت شدن .


http://barnamenevis.org/forum/showpost.php?p=770472&postcount=108

[majidas2006]

من تمام کد های سایت رو تست کردم واسه من همیشه میگه online
میگه با LAN کانکتم وقتی که offline ام
چطور؟