vb 如何测试代理服务器是否可用
网上找的那个用inet的不能用，因为不管能用不能用都能检测到。。。我这里有个ip列表，如何逐个检测代理是否可用！！！最好给段代码！！谢谢！...
网上找的那个用inet的不能用，因为不管能用不能用都能检测到。。。
我这里有个ip列表，如何逐个检测代理是否可用！！！
最好给段代码！！谢谢！ 展开
我这里有个ip列表，如何逐个检测代理是否可用！！！
最好给段代码！！谢谢！ 展开
展开全部
Private Sub Command1_Click()
Dim OBJWMIService, colPings, OBJStatus
Dim i As Integer, WebAddress As String
WebAddress = "62.58.52.18" '请修改代理服务器地址
Set OBJWMIService = GetObject("winmgmts:\\.\root\cimv2")
If WebAddress <> "" Then
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
MsgBox "连接不通。。。"
Else
MsgBox "pinging [" & WebAddress & "] one time with " & OBJStatus.BufferSize & "bytes of data:" & Chr(10) & Chr(10) & "Reply from " & OBJStatus.ProtocolAddress & ": bytes=" & OBJStatus.BufferSize & " time=" & OBJStatus.ResponseTime & "ms TTL=" & OBJStatus.ResponseTimeToLive, , "连接成功！"
End If
Next
End If
Set OBJStatus = Nothing
Set colPings = Nothing
Set OBJWMIService = Nothing
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
云创
2023-07-25 广告
Web应用安全测试服务的费用因服务提供商、测试范围、测试复杂度、测试时间等因素而有所不同。以下是一些可能影响费用的因素：1. 服务提供商：不同的服务提供商可能有不同的定价模式和费用标准。一些大型的安全测试机构可能会收取较高的费用，而一些小型...
点击进入详情页
本回答由云创提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
