Proxy Scraper from hidemyass

Marcoluca56

Newbie
Joined
Apr 1, 2014
Messages
24
Reaction score
0
Hi guys!
I'm trying to make a proxy scraper that scrapes proxies from hidemyass site, and continues to scrape until there is no more proxies. Can someone help me, maybe with Regex? Thanks!
 
Sounds easy, I can program you a bot. Pm me if interested

EDIT: i can see you are unable to send pms. Then add me on skype :D
 
Last edited:
Anything else, can help me? Not with Imacros, but with Visual Basic o C
 
Just buy the lifetime subscription for their proxies delivered to your email everyday ... save lots of time
 
I have already made a scrapper that does this along with several other proxy sites please let me know if i can help you
 
i am using the following to scrape it

Code:
    Dim code As String = TextBox2.Text

        WebBrowser1.DocumentText = code
        WaitForPageLoad()
        'MsgBox("loaded")
        WebBrowser1.Document.ExecCommand("SelectAll", True, vbNull)

        WebBrowser1.Document.ExecCommand("Copy", False, vbNull)
        TextBox3.Text = Clipboard.GetText

        Dim shoot As String

        shoot = TextBox3.Text

        shoot = shoot.Replace$(vbCrLf, "")
        shoot = shoot.Replace$(" ", ":")
        shoot = shoot.Replace$("::::", ":")
        shoot = shoot.Replace$("socks4/5", "SOCKS")
        shoot = shoot.Replace$("HTTPS", "HTTNPS")

        shoot = shoot.Replace$("Saudi:Arabia", "Saudiarabia")
        shoot = shoot.Replace$("United:States", "Unitedstates")
        shoot = shoot.Replace$("Russian:Federation", "Russianfederation")
        shoot = shoot.Replace$("Moldova,:Republic:of", "Moldova")
        shoot = shoot.Replace$("Korea,:Republic:of", "Korea")
        shoot = shoot.Replace$("Czech:Republic", "Czech")
        shoot = shoot.Replace$("Viet:Nam", "Vietnam")
        shoot = shoot.Replace$("El:Salvador", "Elsalvador")
        shoot = shoot.Replace$("Netherlands:Antilles", "Netherlandsantilles")
        shoot = shoot.Replace$("Sri:Lanka", "Srilanka")

        shoot = shoot.Replace$("High:+KA", "Ka")


        TextBox3.Text = shoot
        'TextBox3.Text = WebBrowser1.Document.ActiveElement.InnerText
        code = TextBox3.Text
        Dim expression As New System.Text.RegularExpressions.Regex("[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,4}:[a-z]{0,5}:[A-Z]{1}[a-z]{0,18}:[A-Z]{0,6}:[A-Z]{0,1}[a-z]{0,6}")
        Dim mtac As MatchCollection = expression.Matches(code)

        For Each itemcode As Match In mtac

            ' Dim itemcode2 As String = itemcode
            hidemyass_listbox.Items.Add(itemcode)

        Next
 
Lol, u picked out the wrong site if you are a beginner. If you know Javascript well, you can crack their scrambler algorithm like I have done, other wise, better to scrape another proxy website, u know?
 
Back
Top