SA-MP + Minecraft Serverlister

Imports System.Text.RegularExpressions
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wcl As New Net.WebClient
        wcl.Credentials = New Net.NetworkCredential("", "")
        RichTextBox1.Text = wcl.DownloadString("")
        RichTextBox6.Text = wcl.DownloadString("")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wcl As New Net.WebClient
        ProgressBar1.Value = 10
        wcl.Credentials = New Net.NetworkCredential("", "")
        ProgressBar1.Value = 35
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar1.Value = 65
        wcl.UploadString("", MaskedTextBox2.Text & ":" & vbNewLine & MaskedTextBox1.Text & vbNewLine & RichTextBox1.Text)
        ProgressBar1.Value = 85
        wcl.UploadString("" & MaskedTextBox1.Text & ".txt", RichTextBox3.Text)
        ProgressBar1.Value = 100
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar1.Value = 0
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim wcl As New Net.WebClient
        ProgressBar4.Value = 10
        wcl.Credentials = New Net.NetworkCredential("", "")
        ProgressBar4.Value = 35
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar4.Value = 65
        wcl.UploadString("", MaskedTextBox9.Text & ":" & vbNewLine & MaskedTextBox10.Text & vbNewLine & RichTextBox6.Text)
        ProgressBar4.Value = 85
        wcl.UploadString("" & MaskedTextBox10.Text & ".txt", RichTextBox4.Text)
        ProgressBar4.Value = 100
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar4.Value = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim wcl As New Net.WebClient
        ProgressBar2.Value = 10
        wcl.Credentials = New Net.NetworkCredential("", "")
        ProgressBar2.Value = 35
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar2.Value = 45
        RichTextBox1.Text = Regex.Replace(RichTextBox1.Text, MaskedTextBox3.Text & ":", vbCrLf)
        wcl.UploadString("", RichTextBox1.Text)
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar2.Value = 65
        RichTextBox1.Text = Regex.Replace(RichTextBox1.Text, MaskedTextBox4.Text, vbCrLf)
        wcl.UploadString("", RichTextBox1.Text)
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar2.Value = 85
        wcl.UploadString("", RichTextBox1.Text)
        ProgressBar2.Value = 100
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar2.Value = 0
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim wcl As New Net.WebClient
        ProgressBar3.Value = 10
        wcl.Credentials = New Net.NetworkCredential("", "")
        ProgressBar3.Value = 35
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar3.Value = 45
        RichTextBox6.Text = Regex.Replace(RichTextBox6.Text, MaskedTextBox3.Text & ":", vbCrLf)
        wcl.UploadString("", RichTextBox1.Text)
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar3.Value = 65
        RichTextBox6.Text = Regex.Replace(RichTextBox6.Text, MaskedTextBox4.Text, vbCrLf)
        wcl.UploadString("", RichTextBox1.Text)
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar3.Value = 85
        wcl.UploadString("", RichTextBox1.Text)
        ProgressBar3.Value = 100
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar3.Value = 0
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim wcl As New Net.WebClient
        ProgressBar5.Value = 10
        wcl.Credentials = New Net.NetworkCredential("", "")
        ProgressBar5.Value = 45
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar5.Value = 100
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar5.Value = 0
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim wcl As New Net.WebClient
        ProgressBar6.Value = 10
        wcl.Credentials = New Net.NetworkCredential("", "")
        ProgressBar6.Value = 45
        RichTextBox6.Text = wcl.DownloadString("")
        ProgressBar6.Value = 100
        RichTextBox1.Text = wcl.DownloadString("")
        ProgressBar6.Value = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim wcl As New Net.WebClient
        wcl.Credentials = New Net.NetworkCredential("", "")
        RichTextBox2.Text = wcl.DownloadString("" & MaskedTextBox5.Text & ".txt")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim wcl As New Net.WebClient
        wcl.Credentials = New Net.NetworkCredential("", "")
        RichTextBox5.Text = wcl.DownloadString("" & MaskedTextBox6.Text & ".txt")
    End Sub
End Class