Automatically login into your facebook and scroll through your feed

Have you ever wondered if there was a automated bot that automatically logged in to your Facebook account and scrolled down for you…? Here a simple script that logs in to Facebook and srolls down for you.

@echo off
for /l %%n in (1, 1 ,1) do echo Set IE = CreateObject("InternetExplorer.Application") >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo set WshShell = WScript.CreateObject("WScript.Shell")  >> %temp%\login.vbs 
for /l %%n in (1, 1 ,1) do echo IE.Navigate "http://www.facebook.com/login.php"  >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo IE.Visible = True  >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo Wscript.Sleep 6000  >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo IE.Document.All.Item("email").Value = "your_email"  >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo IE.Document.All.Item("pass").Value = "your_password"  >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo WshShell.AppActivate "IE"  >> %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo WshShell.SendKeys "{ENTER}" >> %temp%\login.vbs
start %temp%\login.vbs
timeout 15 >nul
del %temp%\login.vbs
for /l %%n in (1, 1 ,1) do echo Set wshshell = wscript.CreateObject("WScript.Shell") >> scroll.vbs
for /l %%n in (1, 1 ,1) do echo wshshell.sendkeys "{PGDN}" >> scroll.vbs
:loop
start scroll.vbs
timeout 3 >nul
goto loop

Steps to setup login bot:

• Create a new text document on your desktop.
• Rename “new text document” to “AnyName.bat” (The .txt extension must be replaced by .bat)
• Copy above script to the text file.
• Replace “your_email” with your Facebook username.
• Replace “your_password” with your Facebook login password.
• Note : Don’t remove quotation marks around password and username
• Save it and run.

Instructions:

• “timeout 3” on second last line of code is waiting time between two scrolls in unit of seconds. Change it if you want to.
• Just close Command Prompt window to stop scrolling.
  

Error:

If your Facebook account is already logged in, it will give the following error.

Just click on OK. The bot will continue scrolling.

It needs email and password input field to proceed, which are absent in case of already logged in. That’s why it gives that error.

How this bot works:

When you run above code, it generate following vbs script in file login.vbs in temp directory which logs in to Facebook account.

Set IE = CreateObject("InternetExplorer.Application") 
set WshShell = WScript.CreateObject("WScript.Shell")   
IE.Navigate "http://www.facebook.com/login.php"  
IE.Visible = True  
Wscript.Sleep 6000  
IE.Document.All.Item("email").Value = "your_email"  
IE.Document.All.Item("pass").Value = "your_password"  
WshShell.AppActivate "IE"  
WshShell.SendKeys "{ENTER}" 

After successful Facebook login, it deletes the login.vbs file.

Then it creates the folloing vbs script in scroll.vbs file that performs the job of scrolling.

Set wshshell = wscript.CreateObject("WScript.Shell") 
wshshell.sendkeys "{PGDN}" 

Then it executes the scroll.vbs file again and again until the Command Promp application is closed.

For more details : Programming with VBScript

Create similar login bot for other websites:

Let’s create login bot for Twitter as an example

Step 1 : Open Twitter login page in google chrome(Recommended)

Step 2 : Replace login page URL “http://www.facebook.com/login.php” in the code with login page URL or Twitter (.https://www.twitter.com/) or any other website you’re making bot for.

Step 3 : Right-click on Email field and find the value of “name=” in highlighted area.

Step 4 : In the code, in 7th line, replace “email” with current value of name, which is same in case of Twitter, “email”.

Step 5 : Go back to Twitter login page and right-click on Password input field.

Step 6 : Repeating same procedure, find “name=” value of password which is “password” in case of Twitter

Step 7 : In 8th line of the code, replace “pass” with new value, “password”

Step 8 : Save the code, run the file and sit back…

FOR MORE LIKE OUR FACEBOOK PAGE OR JOIN OUR FACEBOOK GROUP                                                                    WHITE HATS