Breadcrumbs

[lesan101]

Ahhhh.. Faebook updater complete : )

Code: Select all

Option Explicit On
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login").InvokeMember("click")
        Label2.Visible = True
        Me.Height = 377
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://login.facebook.com/login.php?login_")
        Button2.Enabled = False
        Button3.Enabled = False
        Button1.Enabled = False
        TextBox3.Enabled = False
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        TextBox4.Text = WebBrowser1.Url.AbsolutePath
        If TextBox4.Text.Contains("attempt=1") Then
            MsgBox("wrong password")
        End If
        If TextBox4.Text.Contains("home.php") Then
            Label1.Text = WebBrowser1.Document.GetElementById("navAccountName").InnerText
            TextBox1.Visible = False
            TextBox2.Visible = False
            Button1.Visible = False
            PictureBox1.Visible = True
            TextBox3.Enabled = True
            Label5.Visible = False
            Label4.Visible = False
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("status").SetAttribute("value", TextBox3.Text)
        WebBrowser1.Document.GetElementById("status").InvokeMember("focus")
        Button3.Enabled = True
    End Sub
    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Facebookshare As HtmlElementCollection = WebBrowser1.Document.All
        For Each lesanElement As HtmlElement In Facebookshare
            If lesanElement.GetAttribute("value") = "Share" Then
                lesanElement.InvokeMember("click")
            End If
        Next
        MsgBox("Status message Successful", MsgBoxStyle.DefaultButton1, "DONE")
        If MsgBoxResult.Ok Then
            Me.Close()
        End If
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        MsgBox("Login to facebook." + vbNewLine + "Write your status message." + vbNewLine + "Press Enter Status" + vbNewLine + "Press Share", MsgBoxStyle.DefaultButton1, "Help Box")
    End Sub
    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Form2.Show()
    End Sub
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        If TextBox3.Text = "" Then
            Button2.Enabled = False
        Else
            Button2.Enabled = True
        End If
    End Sub
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text = "" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub
End Class

[Axel]

so what is this doing ?

[lesan101]

so what is this doing ?

Correction: so what does this do?

It updates your facebook status. but i made a program out of it. : )

[Brown]

Awsome!

[GoodGuy17]

HEY! I USED THIS, AND LOGGED INTO FACEBOOK TODAY, AND IT SAID MY ACCOUNT WAS USED FROM SOMEWHERE. I know this was a coincidence. DO USE. You can take the code down now, I checked it.

[lesan101]

dude. are you kidding me -___-

fml, i'll upload code now

[Livengood]

HEY! I USED THIS, AND LOGGED INTO FACEBOOK TODAY, AND IT SAID MY ACCOUNT WAS USED FROM SOMEWHERE. I don't know if this was a coincidence, but I think NOT! DO NOT USE.

lol what?

[Codex]

Very easy to do, but good job cooll;
This isn't the best way because what if facebook changes like the id's and stuff like that, it will not work.

[Lewis]

haha, I doubt it sends him the email, But yeah. though i'm not one that uses programs to puplish status's. Unless you could make this for my phone :P

[NecroPhis]

nice pogram
thanx