Tuesday, 27 December 2011

RC Proxy Grabber

Di sini saya nak share satu tools dengan korang semua, tools ne biasa-biasa saja iaitu RC Proxy Grabber . Tools ini dibuat menggunakan Visual Studio. Source Code tools ne dari sorang kawan saya iaitu Phiber_Optik...




Sapa nak try guna benda ne pastikan dah install NET Framework 4 kat PC...

Download Link : http://www.mediafire.com/?ujf362ip32h1qnr

Virus Total Report 1/43 : https://www.virustotal.com/file-scan/report.html?id=07e0bb78ced5fe35bbfce0e01072b53d292e61e0f96d9c046b398289e853cf46-1324974387

Source Codenya :

Anda boleh ambil dan Edit semula... :D

Imports System.Text.RegularExpressions

Public Class Form1
    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
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Dim myFile As String = SaveFileDialog1.FileName
        Dim myWriter As New IO.StreamWriter(myFile)
        For Each myItem As ListViewItem In ListView1.Items
            myWriter.WriteLine(myItem.Text & myItem.SubItems(1).Text & ":" & myItem.SubItems(2).Text)
        Next
        myWriter.Close()
    End Sub

    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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SaveFileDialog1.ShowDialog()
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListView1.Items.Clear()
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form2.Show()
    End Sub

End Class

No comments: