Developer On Line - Latest Comments in Using Perl Against Facebook - Part I: Login

Re: Using Perl Against Facebook - Part I: Login

Jerome Laramie — Sat, 26 Jun 2010 17:03:52 -0000

Would be nice to see a Perl program that could login to your account, and create facebook fanpages.

Re: Using Perl Against Facebook - Part I: Login

ftumsh — Sun, 21 Feb 2010 17:53:38 -0000

that should be "incorrect"

Re: Using Perl Against Facebook - Part I: Login

ftumsh — Sun, 21 Feb 2010 17:52:20 -0000

Well, you are unable to connect to the server. Either the net connection is failing or the username/password is correct.

Re: Using Perl Against Facebook - Part I: Login

mark — Sun, 21 Feb 2010 01:38:54 -0000

why i use your script and got an error: 500 Connect failed: connect: Connection timed out; Connection timed out

Re: Using Perl Against Facebook - Part I: Login

ftumsh — Sun, 13 Dec 2009 16:43:40 -0000

#! /usr/bin/perl -w
use strict;
use diagnostics;

use HTTP::Cookies;
use LWP::UserAgent;

use Data::Dumper;

my $email; #stores our mail
my $password; #stores our password
my $user_agent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6';

$email = 'foo'; #read the login e-mail
$password='bar'; #read the password

chomp($email); #remove last line
chomp($password);

my %postLoginData; #necessary post data for login
$postLoginData{'email'}=$email;
$postLoginData{'pass'}=$password;
$postLoginData{'persistent'}=1;
$postLoginData{'login'}='Login';

#set the headers, let's make this a Firefox browser!
my @header = ('Referer'=>'http://www.facebook.com', 'User-Agent'=>$user_agent);

my $cookie_jar = HTTP::Cookies->new(file=>'fbkCookies.dat',autosave=>1, ignore_discard=>1);

my $ua = LWP::UserAgent->new; #init browser
$ua->cookie_jar($cookie_jar);

$ua->get('http://www.facebook.com/log..., @header);

#here we actually login!
my $r = $ua->post('https://login.facebook.com/..., \%postLoginData, @header);

# print 'Content: '.$r->decoded_content;

#was login successful?
if($r->content =~ /Incorrect Email/) {
print "Login Failed...Quitting..\n";
}
else {
print "..and we are in!";
#let's go to the homepage
$r = $ua->get('http://www.facebook.com/hom...
}

Re: Using Perl Against Facebook - Part I: Login

Sophie Vierra — Tue, 24 Nov 2009 12:53:35 -0000

Hi,
I am Programmer with Chessboss.com. Chessboss.com is absolutely FREE chess server where you can play chess,create your own tournament with players online. No Gambling and explicit talk. This website is purely meant to increase the fan-base of chess and for entertainment. I Need your help to promote the FREE chess server around the world. I would like to be on your blog as i found it a useful and informative resource. By adding chessboss.com you will recognized and added as a top resource on our chess server. I really believe in FREE flow of information. I have included the code and title.

Please email me back with subject line of your URL for the featured resource code. This is to avoid spam and to make sure you get the award.

I hope you understand and co-operate with us.

Thank you,
Sophie Vierra
Programmer
www.chessboss.com.

Re: Using Perl Against Facebook - Part I: Login

Cuboidgraphix — Fri, 30 Oct 2009 16:06:45 -0000

Anybody has a complete script? I'm having problems with this one.

Re: Using Perl Against Facebook - Part I: Login

mark — Sat, 02 May 2009 00:48:29 -0000

Ive got one. I can login to facebook on multiple computers but, the one i use everyday now seems to have a virus preventing me logging into facebook. I attempt to login with my user id or my friends and it goes straight to "page cannot be displayed"

No AV or malware program has picked anything up. I have deleted some .exe and .dll to no avale

Re: Using Perl Against Facebook - Part I: Login

made. — Tue, 07 Apr 2009 08:54:24 -0000

Go to Part II and see the comments. You will get your answer there.

http://developeronline.blog...

Re: Using Perl Against Facebook - Part I: Login

erika — Tue, 07 Apr 2009 08:45:07 -0000

it always say "Incorrect Email/Password Combination
Facebook passwords are case sensitive. Please check your CAPS lock key. You may also try clearing your browser's cache and cookies by following these instructions."

even my password and email is correct...

Re: Using Perl Against Facebook - Part I: Login

erika — Tue, 07 Apr 2009 08:42:39 -0000

why i cant log in to facebook???

Re: Using Perl Against Facebook - Part I: Login

Just Another Perl Sub-Hacker — Mon, 16 Feb 2009 03:17:33 -0000

you can't ask $response for its "content" method because $response isn't getting set first.

You need to add "$response = " to the front of the first two $browser->get() and $browser->post() lines. (As a comparison, the last line, the GET of home.php, does it correctly.)

Re: Using Perl Against Facebook - Part I: Login

made. — Sat, 31 Jan 2009 21:37:41 -0000

Try the Part II at http://developeronline.blog...

See the comments section

Re: Using Perl Against Facebook - Part I: Login

Ali — Sat, 31 Jan 2009 17:54:29 -0000

me too .

Re: Using Perl Against Facebook - Part I: Login

smart — Sun, 25 Jan 2009 14:38:58 -0000

i need to login at facebook.com

Re: Using Perl Against Facebook - Part I: Login

Jayme — Wed, 31 Dec 2008 16:51:18 -0000

Is it possible to see the entire sample code that you mention above ?
"The final Perl script has about 500 lines of code and can send messages, retrieve inbox and chat among others! ?

Thanks for the help and have a Happy New year!

Re: Using Perl Against Facebook - Part I: Login

abay — Wed, 10 Dec 2008 16:17:49 -0000

i really want to get on this site

Re: Using Perl Against Facebook - Part I: Login

narasimha — Tue, 25 Nov 2008 10:43:11 -0000

Hi
thanks fr ur post.
can u tell me how to work with IE 7.0
and how to get the inf fr
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6';

Re: Using Perl Against Facebook - Part I: Login

panefsky — Wed, 19 Nov 2008 05:24:03 -0000

if your line 35 is
$response->content =~ /Incorrect Email/

then probably the $response variable is not initialized properly.
Did you install Crypt::SSLeay? This will enable https for Perl.

Re: Using Perl Against Facebook - Part I: Login

Wael — Wed, 19 Nov 2008 04:21:06 -0000

After figuring out how to download the additional packages and adding these two lines at the beginning of the script:
use HTTP::Cookies;
use LWP::UserAgent;

Now am getting a new error:
Can't call method "content" on an undefined value at C:\FB\script.pl line 35

Any ideas!?

Re: Using Perl Against Facebook - Part I: Login

panefsky — Wed, 19 Nov 2008 03:23:45 -0000

Ok, this is my bad. It was a weird typo:
WRONG is:
$postLoginData{'email')=$email;

CORRECT is
$postLoginData{'email'}=$email;

The curlies {} have to much

Re: Using Perl Against Facebook - Part I: Login

Wael — Wed, 19 Nov 2008 03:18:42 -0000

I'm getting the following errors:

syntax error at C:\FB\script.pl line 12, near "'email')"
Missing right curly or square bracket at C:\FB\script.pl line 40, at end of line

I downloaded ActivePerl and am trying the script
I might be doing smthg wrong coz am new to perl script.. I have knowledge in vb.net but couldnt find smthg similar written in vb.net