[gachboy]

سلام.از کجا بفهمیم که 100% کانکت شدیم؟
با سورس زیر میشه اینو فهمید :

کد:

Private Const INTERNET_CONNECTION_LAN As Long = &H2
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 Command_Click()
IsOffLine = InternetGetConnectedState(INTERNET_CONNECTION_MODEM_BUSY, 0&)
If IsOffLine = 1 Then
MsgBox "conected"
Else
MsgBox "not conected"
End If
End Sub

ولی بدی این سورس اینه که اگه مودم روشن کنی ولی اینترنت قطع باشه باز هم  پیغام کانکت بودن میده!
چجوری بفهمیم 100% به اینترنت وصل شدیم؟