VB网络编程问题——怎么判断与URL是否连接成功

来源：百度知道 编辑：UC知道 时间：2024/07/05 22:29:06
比如给出一个域名：www.XXX.com 然后进行连接，不用下载源码或显示出来Web页面而直接判断，在一个Label上显示出连接成功或不成功，如果连接成功再连接下一个URL，比如www.XXX.com/mp3.html，并在一个Label上显示出来状态
快点吧，在线等~~~~~

假如你的网址已放入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

学习了