FearOfTheDark^
06-01-2012, 02:41 AM
OK first thing is first you may not copy this to any other forum with out asking me first and with out a link back to this page or my profile on here !!
Ok here is my Facebook spammer tut what you will need is
1 button
1 web browser
3 text box
2 timer
ok in button1 we want to put the code below this will open facebook
webBrowser1.Navigate("http://www.facebook.com")
timer1.start()
Now in timer1 we want you to ad this code to log you in
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
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
Ok here is my Facebook spammer tut what you will need is
1 button
1 web browser
3 text box
2 timer
ok in button1 we want to put the code below this will open facebook
webBrowser1.Navigate("http://www.facebook.com")
timer1.start()
Now in timer1 we want you to ad this code to log you in
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
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