View Full Version : اتصال کانکشن
aleas2
جمعه 11 اسفند 1391, 12:56 عصر
سلام خسته نباشید دوستان
با vb6 راهی هست چک کنه ببینه کانکشن vpn کانک هسته یا نه اگر کانک نیسته کانک بشه؟
m.4.r.m
جمعه 11 اسفند 1391, 14:17 عصر
با این کد تست میکنه به اینترنت وصلی هستی یا نه شاید به دردت خورد
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
جمعه 11 اسفند 1391, 14:24 عصر
با این تابع ببین میتونی کاری بکنی
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.