I did this in response to this thread here:
https://hackforums.net/showthread.php?tid=2649418
It's just a small little function to parse IP's from HMA's shitty semi-obfuscated web source.
![[Image: M2LvN.png]](https://i.imgur.com/M2LvN.png)
Enjoy guys.
https://hackforums.net/showthread.php?tid=2649418
It's just a small little function to parse IP's from HMA's shitty semi-obfuscated web source.
![[Image: M2LvN.png]](https://i.imgur.com/M2LvN.png)
Code
#Region "GetProxies Function"
Shared Sub Get50Proxies()
Dim ts As String = String.Empty
Dim t As String = String.Empty
ProxyList.Clear()
Dim s As String = wc.DownloadString("http://hidemyass.com/proxy-list/").Replace("<td rel", "ʘ")
For i As Integer = 1 To 50
ts = Split(s, "class=""updatets")(i).Split("ʘ")(0)
t = String.Empty
For ip As Integer = 1 To (System.Text.RegularExpressions.Regex.Matches(ts, "<div").Count + System.Text.RegularExpressions.Regex.Matches(ts, "<span").Count + System.Text.RegularExpressions.Regex.Matches(ts, "<td").Count) * 2 + 1
If Not Split(ts.Replace(" ", ""), "<")(ip).Split(">")(0).Contains(":none") And Not String.IsNullOrEmpty(Split(ts.Replace(" ", ""), ">")(ip + 1).Split("<")(0).Replace(".", String.Empty).Replace(Chr(10), String.Empty).Replace(Chr(9), String.Empty)) Then
t &= Split(ts.Replace(" ", ""), ">")(ip + 1).Split("<")(0).Replace(".", "").TrimStart(Chr(10)) & "."
End If
Next
t = t.TrimEnd(".")
t = t.Insert(t.LastIndexOf(".") + 1, ":")
t = t.Remove(t.LastIndexOf("."), 1)
MsgBox(t)
ProxyList.Add(t)
Next
End Sub
#End RegionEnjoy guys.




![[Image: wyEbCMi.png]](https://i.imgur.com/wyEbCMi.png)

![[Image: kixHQQg.jpg]](https://i.imgur.com/kixHQQg.jpg)