Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement