Question

VB 编程 网络是否畅通》？

，我想编写一个这样的程序
思路是这样的，

软件一运行，开始ping www.qq.com ，然后，ping不的通，就一直没声音，
一旦ping 通，程序就发出声音或者播放MP3。。告诉我可以上网了

请问如何编写，写出全部代码，应该不是很复杂，我属于初学者，很多不懂。谢谢

Answer 1

假如你的网址已放入list1中，则下面代码就可以连续判断各网址的连接情况：

Private Sub Command1_Click()
Dim WebAddress, OBJWMIService, OBJStatus, colPings
Dim i As Integer
For i = 0 To List1.ListCount - 1
WebAddress = List1.List(i)
If WebAddress <> "" Then
Set OBJWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colPings = OBJWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" & WebAddress & "'")
For Each OBJStatus In colPings
If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
Label1 = "网络连接失败！"
Else
Label1 = "连接成功！"
End If
Next
End If
Next
End Sub