Question

请问VB判断本地连接的状态(1、本地连接断开；2、本地连接受限；3已连接上)?

Answer 1

给你一个最简单的
module1.bas

Public Declare Function InternetAttemptConnect Lib "wininet " _
(ByVal dwReserved As Long) As Long

Public Const ERROR_SUCCESS = 0

FORM1
Private Sub Command1_Click()
Dim dwResult As Long

' Attempts to make a Internet connection
dwResult = InternetAttemptConnect(0)

If dwResult = ERROR_SUCCESS Then
MsgBox "Attempts to make a internet connection is OK. ", vbInformation + vbOKOnly
Else
MsgBox "Attempts to make a internet connection is failed. ", vbCritical + vbOKOnly
End If
End Sub

追问

这样的判断只能判断网络断开与否啊，我想知道的是在局域网内判断本地连接的3种状态

追答

2、本地连接受限
这是什么状态？

追问

我就想知道怎么判断网络受限还是网络断开？