وضعیت اتصال شما به اینترنت

[roomezonline]

با این کد شما میتوانید تشخیص بدید که سیستم آنلاین هستش یا آفلاین

ابتدا یک فرم و یک تایمر به آن اضاف کنید ساخته و کدهای زیر را در آن وارد کنید

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM As Long = &H2
Function IsConnected() As Boolean
IsConnected = InternetGetConnectedState(INTERNET_CONNECTION_MODE M, 0&)
End Function




Private Sub Timer1_Timer()
If IsConnected = True Then
Text1.Text = "Connect"
Else
Text1.Text = "Dc"
End If

End Sub


با تشکر
مصطفی