Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2
Dim downloader As New WebClient
downloader.Encoding = Encoding.UTF8
Dim mystring As String = downloader.DownloadString("ONE LINK HERE" And "OTHER LINK HERE")
Dim myregex As String = "\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b:\d{2,5}"
Dim source As String = mystring
Dim findme As MatchCollection = Regex.Matches(source, myregex)
For Each mymatch As Match In findme
ListBox1.Items.Add(mymatch)
Next
在这里新建,抱歉格式化不好,我想做的就是同时从2个网址下载字符串而没有错误