Question

vb 检测网络是否断开

有一个Command1控件，Click后检测一次网络是否断开
断开则msgbox "网络已断开。"
没断开则msgbox "网络没有断开，自动断开！"
然后自动断开网络。
请大家给出代码谢谢

Answer 1

很简单，有单独的函数来判断：
If My.Computer.Network.IsAvailable = True Then
MsgBox("电脑已连接网络！.")
Else
MsgBox("电脑没有连接网络！.")
End If

Answer 2

Private Sub Command1_Click()
Dim OpenFile, i
CreateObject("wscript.shell").run "cmd /c ping www.baidu.com>nul 2>nul&&echo yes>""tmp""||echo no>""tmp""", 0, 1
Open App.Path & "\tmp" For Input As #1
Do Until EOF(1)
Line Input #1, i
DoEvents
OpenFile = OpenFile & i & NL
Loop
If Right(OpenFile, 2) = vbCrLf Then OpenFile = Left(OpenFile, Len(OpenFile) - 2)
Close #1
Kill "tmp"
Select Case OpenFile
Case "yes"
MsgBox "网络没有断开，自动断开！"
Shell "cmd /c ipconfig /release"
Case "no"
MsgBox "网络已断开。", 0
End Select
End Sub