چک کردن اتصال به اینترنت

[microprolog-p96s]

سلام

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

ممنون

[microprolog-p96s]

درود

کسی نیست که جوابی بهم بده ؟

[amirzazadeh]

اين كد رو امتحان كنيد:

Option Explicit

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255


Private Sub CheckConnection()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
MsgBox "You are connected to Internet via " & sConnType, vbInformation, "J & R Excel Solutions"
Else
MsgBox "You are not connected to internet", vbInformation, "J & R Excel Solutions"
End If
End Sub

[amirzazadeh]

سلام
اين نمونه قدرت تشخيص ارتباط از طريق مودم LAN و پروكسي رو داره:

Option Compare Database
Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" ( _
ByRef lpdwFlags As Long, _
ByVal lpszConnectionName As String, _
ByVal dwNameLen As Long, _
ByVal dwReserved As Long) As Long

'Local system uses a modem to connect to the Internet.
Private Const INTERNET_CONNECTION_MODEM As Long = &H1
'Local system uses a LAN to connect to the Internet.
Private Const INTERNET_CONNECTION_LAN As Long = &H2
'Local system uses a proxy server to connect to the Internet.
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
'The following API functions are used

Function IsConnected() As Boolean

Dim Stat As Long

IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)

If IsConnected And INTERNET_CONNECTION_LAN Then
MsgBox "Lan Connection"
ElseIf IsConnected And INTERNET_CONNECTION_MODEM Then
MsgBox "Modem Connection"
ElseIf IsConnected And INTERNET_CONNECTION_PROXY Then
MsgBox "Proxy"
Else
MsgBox "Not Connected"
End If
End Function
.....................
موفق باشيد

[microprolog-p96s]

از همه دوستان تشکر میکنم

این هم کدی که خودم پیدا کردم ، خدمت دوستان


Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Form_Load()
Dim CResult As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "conection ERROR", vbCritical, "ERROR"
'Unload Me
Else
MsgBox "conection SUCCESSFUL", vbInformation, "SUCCESSFUL"
' Unload Me
End If
End Sub
این کد را بر روی OnLoad فرم قرار دهید .