Sapa nak try guna benda ne pastikan dah install NET Framework 4 kat PC...
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
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:
Post a Comment