CL4Y3R
Özel Üye
Evet Arkadaşlar Şimdi Sizlere
ProxyList Projesinin Kaynak Kodlarını Paylaşıcağım
Buyrun Yapımına Geçelim
Bunları Formunuza Ekleyin
[hide]
1 Adet ListView
8 adet sütun ekleyin sütuların adlarını
,ip,port,code,ülke,anonimlik,google,https,sonkontrol yapın
1 Adet Progressbar
2 Adet buton
1 Adet combobox
formun en üstüne eklencek kodlar
Imports Microsoft.VisualBasic.CompilerServices
Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Text
Buyrun Kodlar:
Kodlara Göre İtemlerin adını düzenleyin
Alıntıdır
[/hide]
ProxyList Projesinin Kaynak Kodlarını Paylaşıcağım
Buyrun Yapımına Geçelim
Bunları Formunuza Ekleyin
[hide]
1 Adet ListView
8 adet sütun ekleyin sütuların adlarını
,ip,port,code,ülke,anonimlik,google,https,sonkontrol yapın
1 Adet Progressbar
2 Adet buton
1 Adet combobox
formun en üstüne eklencek kodlar
Imports Microsoft.VisualBasic.CompilerServices
Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Text
Buyrun Kodlar:
Kod:
Public Class FrmMain
Sub New()
InitializeComponent()
CB_Aliamento.SelectedIndex = 2
End Sub
Private Sub Sucessfully(S As Object, e As DownloadDataCompletedEventArgs)
Dim IResult As String = (New UTF8Encoding).GetString(e.Result)
Dim Pitter As String = "<tr><td>([^<]*)</td><td>([^<]*)</td><td>([^<]*)</td><td>([^<]*)</td><td>([^<]*)</td><td>([^<]*)</td><td>([^<]*)</td><td>([^<]*)</td></tr>"
LvProxy.BeginUpdate()
For Each O As Match In New Regex(Pitter).Matches(IResult)
Dim itemArray As New ListViewItem
itemArray.UseItemStyleForSubItems = False
itemArray.Text = O.Groups(1).Value
itemArray.SubItems.Add(O.Groups(2).Value)
itemArray.SubItems.Add(O.Groups(3).Value)
itemArray.SubItems.Add(O.Groups(4).Value)
itemArray.SubItems.Add(CH(O.Groups(5).Value))
If O.Groups(6).Value = "yes" Then
itemArray.SubItems.Add("Sim").ForeColor = Color.Green
Else
itemArray.SubItems.Add("Não").ForeColor = Color.Red
End If
If O.Groups(7).Value = "yes" Then
itemArray.SubItems.Add("Sim").ForeColor = Color.Green
Else
itemArray.SubItems.Add("Não").ForeColor = Color.Red
End If
itemArray.SubItems.Add(CHECK(O.Groups(8).Value))
If FragsST.Images.ContainsKey(O.Groups(3).Value & ".png") = True Then
itemArray.ImageIndex = FragsST.Images.IndexOfKey(O.Groups(3).Value & ".png")
Else
itemArray.ImageIndex = FragsST.Images.IndexOfKey("--.png")
End If
LvProxy.Items.Add(itemArray)
Next
LvProxy.Refresh()
LvProxy.EndUpdate()
btn_Baixar.Enabled = True
btn_Salvar.Enabled = True
End Sub
Private Sub Progress(S As Object, e As DownloadProgressChangedEventArgs)
On Error Resume Next
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub LvProxy_DoubleClick(sender As Object, e As EventArgs) Handles LvProxy.DoubleClick
Clipboard.SetText((LvProxy.SelectedItems.Item(0).Text & ":" & LvProxy.SelectedItems.Item(0).SubItems.Item(1).Text))
MsgBox("Proxy Copied!", MsgBoxStyle.Information, "Informações")
End Sub
Private Sub btn_indir_Click(sender As Object, e As EventArgs) Handles btn_indir.Click
Try
Application.DoEvents()
btn_Baixar.Enabled = False
btn_Salvar.Enabled = False
LvProxy.Items.Clear()
Using I As New WebClient
AddHandler I.DownloadDataCompleted, AddressOf Sucessfully
AddHandler I.DownloadProgressChanged, AddressOf Progress
I.DownloadDataAsync(New Uri("http://free-proxy-list.net/"))
End Using
Catch ex As Exception
MsgBox(ex.Message)
btn_Baixar.Enabled = True
btn_Salvar.Enabled = True
End Try
End Sub
Private Function CHECK(ByVal TEXTO As String) As String
If TEXTO.Contains("seconds ago") Then
Return TEXTO.Replace("seconds ago", "Segundos Atrás")
ElseIf TEXTO.Contains("hour") And TEXTO.Contains("minute ago") Then
Return TEXTO.Replace("hour", "Hora").Replace("minute ago", "Minuto Atrás")
ElseIf TEXTO.Contains("hour") And TEXTO.Contains("minutes ago") Then
Return TEXTO.Replace("hour", "Hora").Replace("minutes ago", "Minutos Atrás")
ElseIf TEXTO.Contains("minute ago") Then
Return TEXTO.Replace("minute ago", "Minuto Atrás")
ElseIf TEXTO.Contains("minutes ago") Then
Return TEXTO.Replace("minutes ago", "Minutos Atrás")
ElseIf TEXTO.Contains("hour ago") Then
Return TEXTO.Replace("hour ago", "Hora Atrás")
Else
Return TEXTO
End If
End Function
Private Function CH(ByVal TEXTO As String) As String
If TEXTO.Contains("anonymous") Then
Return "Anonymous"
ElseIf TEXTO.Contains("elite proxy") Then
Return "Elite Proxy"
ElseIf TEXTO.Contains("transparent") Then
Return "Transparente"
Else
Return TEXTO
End If
End Function
Private Sub btn_kurtar_Click(sender As Object, e As EventArgs) Handles btn_kurtar.Click
Try
If LvProxy.Items.Count = Nothing Then
Exit Sub
End If
Dim ID As New SaveFileDialog
ID.Title = "SALVA PROXY"
ID.Filter = "ARQUIVO TXT (*.txt)|*.txt|TODOS ARQUIVOS (*.*)|*.*"
ID.FileName = "Proxy"
If ID.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim I As New StreamWriter(ID.FileName)
For Each P As ListViewItem In LvProxy.Items
I.WriteLine(P.Text & ":" & P.SubItems(1).Text)
Next
I.Close()
MsgBox("Proxy : " & LvProxy.Items.Count & vbCrLf & "Local : " & ID.FileName, MsgBoxStyle.Information, "Informações")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CB_Aliamento.SelectedIndexChanged
If CB_Aliamento.SelectedIndex = 0 Then
LvProxy.Sorting = SortOrder.Ascending
ElseIf CB_Aliamento.SelectedIndex = 1 Then
LvProxy.Sorting = SortOrder.Descending
ElseIf CB_Aliamento.SelectedIndex = 2 Then
LvProxy.Sorting = SortOrder.None
End If
End Sub
End Class
Kodlara Göre İtemlerin adını düzenleyin
Alıntıdır
[/hide]