[Tutoria]Facebook Spammer VB

[JokeBOx]

[COLOR="#FF0000"]OK first thing is first you may not copy this to any other forum with out asking me first !!![/COLOR]



Ok here is my Facebook spammer tut what you will need is

1) button
2) web browser
3) text box
4) timer

ok in button1 we want to put the code below this will open facebook

Code: [Select]

webBrowser1.Navigate("http://www.facebook.com")

timer1.start()
Now in timer1 we want you to ad this code to log you in

Code: [Select]

if webbrowser1.readystate = webbrowser1.readystate.complete then

WebBrowser1.Document.GetElementById("email").SetAttribute("Value", txtbox1.Text)
WebBrowser1.Document.GetElementById("pass").SetAttribute("Value", txtbox2.Text)

Dim Belement As HtmlElementCollection = WebBrowser1.Document.All

For Each webbutton As HtmlElement In Belement

If webbutton.GetAttribute("value") = "Log in" Then

webbutton.InvokeMember("click")

Timer2.start()

timer1.stop()

end if
Ok now it should be logging you in now to find out if the page is loaded and then start the spam post

in timer2 put the code bellow

Code: [Select]

if webbrowser1.readystate = webbrowser1.readystate.complete then

if  WebBrowser1.Document.GetElementById("pagelet_stream_header").inertext.contains("News Feed") then

Dim htmlElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("textarea")
 
For Each el As HtmlElement In htmlElements

If el.GetAttribute("name").Equals("xhpc_message") Then

el.SetAttribute("Value", txtbox3.Text)

Sendkeys.Send("{ENTER}")

End If

End If

End If
i have not tested this and just made it as i made this post with out having vb.net open or having any other tools open so if there are errors or anything please just post or tell me and i will look at them and fix then

note that this is basic and only uses the one account so will only spam the one wall i do have a more advanced version i made my self that uses proxys and diff acounts to multi spam but that will be posted in the future

I hope it all works ok and you like it is so please remember to rep me