اتصال کانکشن

[aleas2]

سلام خسته نباشید دوستان
با vb6 راهی هست چک کنه ببینه کانکشن vpn کانک هسته یا نه اگر کانک نیسته کانک بشه؟

[m.4.r.m]

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

Private Declare Function InternetGetConnectedState Lib "wininet" _
(ByRef dwFlags As Long, _
ByVal dwReserved As Long) As Long

Private Function AmICOnnected() As Long
Dim lReturn As Long
AmICOnnected = InternetGetConnectedState(lReturn, 0)
End Function

Private Sub cmdGo_Click()
If AmICOnnected = 1 Then
MsgBox "You are Connected"
Else
MsgBox "you are not connected"
End If

End Sub

[m.4.r.m]

با این تابع ببین میتونی کاری بکنی

Public Function CheckForNetwork(strResource As String, _
bolIsFolder As Boolean, _
Optional bolClear As Boolean = False) As Boolean
Static objFSO As Object

If bolClear Then Set objFSO = Nothing: Exit Function

If objFSO Is Nothing Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
End If
If bolIsFolder Then
CheckForNetwork = objFSO.FolderExists(strResource)
Else
CheckForNetwork = objFSO.FileExists(strResource)
End If
End Function