Vb.Net ProxyList Kaynak Kodları

CL4Y3R' Alıntı:

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:

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]

Genişletmek için tıkla ...