Vb.net 检查IP和URL表单列表是否存在

现在我有：

Dim i As Integer  
  Dim web As New WebClient With {.Proxy = Nothing}
  'http://1.2.3.4/sql.db
   Dim attkstring As String = "/sql.db"
   i = 0
   Dim shellx As Integer = 0
   Dim sUrl As String = shells.Items(shellx) & attkstring
  For Each item In shells.Items
Try
    If web.OpenRead(sUrl) = True Then

    End If

Catch ex As Exception
End Try
  shellsloadedtext.Items.Add(sUrl)
  shellx += 1
Next

但是在我的列表框write all（ip+url）中，我需要写ip+url以防万一，现在即使没有ip+url也要写

例如：真实ip:7.7.7假ip:1.1.1

我写在ip列表7.7.7.7 1.1.1中

而我的列表框shellsloadedtext wirte 7.7.7.7/sql.db和1.1.1.1/sql.db

帮帮我试试这个：

Imports System.Net

Function UrlExists(destination As String) As Boolean

    Dim url As New Uri(destination)
    Dim request As WebRequest = WebRequest.Create(url)

    Try
        Using response As WebResponse = request.GetResponse
            Return True
        End Using
    Catch ex As Exception
        Return False
    End Try

End Function

---

OP正在使用HTTP请求检查资源可用性。您建议使用ping。你知道大多数防火墙，特别是在公司网络中，专门阻止ping请求吗？你怎么能说“大多数”防火墙？你在“大多数”地方工作过吗？我现在在一个公司网络中，我可以ping我喜欢的东西——也许是以有限的速率，但我仍然可以ping。我曾在一些非常大的地方工作过，但从未发现我不能ping，再说，他们的偏执管理员除了最基本的ICMP之外，没有阻止更多的协议？他没有提到躲在防火墙后面，所以我的答案是正确的。有比简单地拒绝ping更好的阻止ddos的方法。你刚刚回答了你的问题-你在一个公司网络中。用于隐藏内部资源。它不能阻止DDOS，它类似于一扇关闭的门。大多数人不会费心去尝试一扇关着的门，即使没有锁上。在任何情况下，如果OP使用HTTP，他们可能特别希望使用HTTP。这就像“我怎么开车？”，“很容易，坐公共汽车！”不，不是，更像是OP问的——我怎么开车。我用方向盘回答，你回来说‘事实上我知道有一辆汽车使用操纵杆，所以你的回答是错误的’。这是一个简单的问题，你在文章中没有相关信息的基础上做出了大量的假设。你现在太咄咄逼人了。相反，请花时间再次阅读问题标题，

检查IP**和URL**表单列表是否存在

，ping如何帮助检查URL的存在？在旁注中，您的意思可能是

如果web.OpenRead（item）=True则

，否则您的

sUrl

在循环中是常量值，因此，这个循环几乎没有任何意义。