1,488
社区成员
发帖
与我相关
我的任务
分享
Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Timer1_Timer()
Dim Ret As Long
InternetGetConnectedState Ret, 0&
'show the result
If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Label1.Caption = Else Label1.Caption = "您没有连接到Internet!"
If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Label2.Caption = "您正在通过局域网连接至Internet"
If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Label2.Caption = "您正在通过调制解调器连接至Internet"
If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Label2.Caption = "您正在通过代理服务器连接至Internet"
If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Label3.Caption = "远程访问服务已开启" Else Label3.Caption = "远程访问服务没有开启!"
End Sub