تعديل هذا الكود - نسخة قابلة للطباعة

كود :
Imports System.Web

Imports System.Net

Imports System.IO

Imports System.Text



Public Class Form1

    Sub login(ByVal email As String, ByVal password As String)

        If txtUserName.Text = String.Empty AndAlso txtPass.Text = String.Empty Then

            MsgBox("Put your email & password", 0, "Input data")

        Else

            Dim postData As String = "email=" & email & "&pass=" & password & ""

            Dim tempcookies As New CookieContainer

            Dim encoding As New UTF8Encoding

            Dim byteData As Byte() = encoding.GetBytes(postData)

            Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://login.uid.me/?site=2newsyu&ref=http://newsyu.at.ua/"), HttpWebRequest)

            postreq.Method = "POST"

            postreq.KeepAlive = True

            postreq.CookieContainer = tempcookies

            postreq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b6pre) Gecko/20100903 Firefox/4.0b6pre"

            postreq.ContentType = "application/x-www-form-urlencoded"

            postreq.Referer = "http://login.uid.me/?site=2newsyu&ref=http://newsyu.at.ua/"

            postreq.ContentLength = byteData.Length

            Dim postreqstream As Stream = postreq.GetRequestStream()

            postreqstream.Write(byteData, 0, byteData.Length)

            postreqstream.Close()

            Dim postresponse As HttpWebResponse

            postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)

            tempcookies.Add(postresponse.Cookies)

            Dim logincookie

            logincookie = tempcookies

            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

            Dim thepage As String = postreqreader.ReadToEnd

            If thepage.Contains("Incorrect email/password combination") = True Then

                MsgBox("Incorrect email/password combination", 0, "Login error!")

            Else

                MsgBox("Logged in", 0, "Success!")

            End If

            If thepage.Contains("You have exceeded the number of invalid login attempts that we allow for your account") = True Then

                MsgBox("You have exceeded the number of invalid login attempts", 0, "Max number of wrong logins")

            End If

        End If

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        login(txtUserName.Text, "12312332112123")

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        login(txtUserName.Text, txtPass.Text)

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Start()

    End Sub

End Class