.NET [HELP] Getting IP's from HideMyAss [Please?]

Code

Imports System.Text.RegularExpressions

Public Class scraper

    Dim Thread1 As System.Threading.Thread

    Private Sub GrabProxies()

  CheckForIllegalCrossThreadCalls = False

  Dim i As Integer = 1

  Do Until i = NumericUpDown1.Value + 1

    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://hidemyass.com/proxy-list/" + i.ToString)

    Dim response As System.Net.HttpWebResponse = request.GetResponse

    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

    Dim rssourcecode As String = sr.ReadToEnd

    Dim r As New System.Text.RegularExpressions.Regex("(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4})</span></td>\D+(\d{1,5})</td>\D+<img src=""\S+""\D+""flag"" /> (\w+)\D+\S+\D+(\d+%)\D+\S+\D+(\d+%)""\D+<td>(\w+)\D+"">(\w+)")

    Dim matches As MatchCollection = r.Matches(rssourcecode)

    For Each itemcode As Match In matches

    With ListView1.Items.Add("")

    .SubItems.Add(itemcode.Groups(1).Value)

    .SubItems.Add(itemcode.Groups(2).Value)

    .SubItems.Add(itemcode.Groups(3).Value)

    .SubItems.Add(itemcode.Groups(4).Value)

    .SubItems.Add(itemcode.Groups(5).Value)

    .SubItems.Add(itemcode.Groups(6).Value)

    .SubItems.Add(itemcode.Groups(7).Value)

    End With

    Next

    i = i + 1

  Loop



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Thread1 = New System.Threading.Thread(AddressOf GrabProxies)

  Thread1.Start()

    End Sub

Code

[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,4}

PHP Code



<?php 
<td><span><span class="244">118</span><div style="display:none">38</div>.96<span style="display:none">126</span><div style="display:none">83</div>.<span style="display: inline">8</span>.138</span></td>    
  <td>
3128</td>

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 Region

PHP Code



<?php 
Public Function grabProxy(ByVal source As String) As String()
  ' Credits: Soft2050
  Dim proxies = New List(Of String)()
  For Each m As Match In Regex.Matches(source, "<td><span>([\s\S]*?)(\d+)</td>")
    Dim port As String = m.Groups(2).Value
    Dim ip As String = m.Groups(1).Value
    ip = Regex.Replace(ip, "(<(div|span) style=""display:none"">\d+.*?>|<.*?>)", "").Trim()
    proxies.Add(String.Concat(ip, ":", port))
  Next
  Return proxies.ToArray()
    End Function

PHP Code



<?php 
Dim wc As New WebClient()

  Dim proxyList As String() = grabProxy(wc.DownloadString("http://hidemyass.com/proxy-list/"))

  Array.ForEach(proxyList, Sub(s)
     Console.WriteLine(s)
     End Sub)

  Console.ReadKey()