Start the software interface to detect whether there is a network connection-CodePudding

Form1, start the interface,

If have a network connection is detected, the jump straight to the from2

If no Internet connection is detected, the jump to from3

thank you

CodePudding user response:

 Declare Function InternetGetConnectedState Lib "wininet. DLL" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long 

· lpdwFlags 
[out] Pointer to an unsigned long integer variable where the connection description should be returned. This can be a combination of the following values: 

INTERNET_CONNECTION_CONFIGURED Local system has a valid connection to the Internet, but it may or may not be currently connected. 
INTERNET_CONNECTION_LAN Local system USES a Local area network to connect to the Internet, 
INTERNET_CONNECTION_MODEM Local system USES a modem to connect to the Internet, 
INTERNET_CONNECTION_MODEM_BUSY No longer informs. 
INTERNET_CONNECTION_OFFLINE Local system is in offline mode. 
INTERNET_CONNECTION_PROXY Local system USES a proxy server to connect to the Internet, 
INTERNET_RAS_INSTALLED Local system from the RAS installed. 

· dwReserved 
[in] Reserved. Must be set to zero. 

Returns TRUE if there is an Internet connection, or FALSE otherwise.

CodePudding user response:

Do not understand, wininet. DLL is what?

CodePudding user response:

reference 1st floor of123 response:

 Declare Function InternetGetConnectedState Lib "wininet. DLL" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long 

· lpdwFlags 
[out] Pointer to an unsigned long integer variable where the connection description should be returned. This can be a combination of the following values: 

INTERNET_CONNECTION_CONFIGURED Local system has a valid connection to the Internet, but it may or may not be currently connected. 
INTERNET_CONNECTION_LAN Local system USES a Local area network to connect to the Internet, 
INTERNET_CONNECTION_MODEM Local system USES a modem to connect to the Internet, 
INTERNET_CONNECTION_MODEM_BUSY No longer informs. 
INTERNET_CONNECTION_OFFLINE Local system is in offline mode. 
INTERNET_CONNECTION_PROXY Local system USES a proxy server to connect to the Internet, 
INTERNET_RAS_INSTALLED Local system from the RAS installed. 

· dwReserved 
[in] Reserved. Must be set to zero. 

Returns TRUE if there is an Internet connection, or FALSE otherwise.

The API looks like is not allowed

CodePudding user response:

Who has the better way?

CodePudding user response:

Private Sub InetLogin_StateChanged (ByVal State As an Integer) If the State=icResponseCompleted Then Dim StrIn As String. StrIn=InetLogin GetChunk (0, icString) If StrIn="ok" Then "log in successfully you can add the log in the success of the action in this me. Hideform2. Show MsgBox" login successfully, here you can add the landing after the success of action ", vbInformation Else MsgBox StrIn, vbInformation, "login failed" End If ElseIf State=icError Then MsgBox "network connection error" End IfEnd Sub

This code, after I joined the last End IfEnd Sub errors, I don't know where to modify?
If I want to switch to detect connection, jump to form3,

CodePudding user response:

 Private Declare Function InternetCheckConnection Lib "wininet. DLL" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long 

The Public Function isConnectInet () 
IsConnectInet=(InternetCheckConnection (" http://www.baidu.com ", & amp; H1, 0 & amp;) <> 0) 
End the Function

I use this method detects whether the network connection, and

CodePudding user response:

refer to 6th floor sysdzw response:

 Private Declare Function InternetCheckConnection Lib "wininet. DLL" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long 

The Public Function isConnectInet () 
IsConnectInet=(InternetCheckConnection (" http://www.baidu.com ", & amp; H1, 0 & amp;) <> 0) 
End the Function

I use this method to detect whether the network connection, and

I want is the effect of network, immediately jump to FORM2, detect network jump to FORM3

CodePudding user response:

refer to 7th floor zhail response:

Quote: refer to the sixth floor sysdzw response:

Private Declare Function InternetCheckConnection Lib "wininet. DLL" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

The Public Function isConnectInet ()
IsConnectInet=(InternetCheckConnection (" http://www.baidu.com ", & amp; H1, 0 & amp;) <> 0)
End the Function

I use this method to detect whether the network connection, and

I want is the effect of network, immediately jump to FORM2, jump to detect network FORM3

Then you can check in the timer, every 1 seconds to check once,nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull