现在我有:
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
但是在我的ListBox中写了所有(ip + url),我需要写一个IP + URL以防万一工作,现在写它们即使没有
Ex:real ip:7.7.7.7 false ip:1.1.1.1
我写在ip列表7.7.7.7 1.1.1.1
我的ListBox shellsloadedtext wirte 7.7.7.7/sql.db和1.1.1.1/sql.db
帮帮我
答案 0 :(得分:0)
这有帮助吗?
Dim sUrl As String = ips.Items(urlchk) & urlstring
web.DownloadString(sUrl)
yourListBox.Items.Add(sUrl)
参考: