Cara Membuat Bot Auto Update Status Facebook

Devilzboy Blog  - Cara membuat Bot auto update status , sekarang lagi marak – marak nya nih yang mengunakan Bot .Mulai dari Bot autolike status facebook , Bot auto like fans page , atau mungkin yang lagi hot-hot nya Bot Auto follower  twitter di postingan yang kali ini gw mau share cara membuat Bot Auto update status facebook , ini diperuntukan buat lo yang suka ngeksis di facebook , udah tau kan a pa itu Bot auto update status facebook , gw yakin pasti udah pada tau , kalo belum tau sih cari tau sendiri sana lo , ngahahahaha . karena gw ngakbisa nulis artikel panjang-panjang jadi lansung aja step by step dan resep nya  :

• Siapkan akun facebook
• Klik di sini untuk ijinkan aplikasi KLIK SINI 
• PHP SDK dari facebook , Download sini 
• Hosting Support PHP + Cronjob
• Source code di bawah ini

Buat sebuah file bernama update.php dengan isi nya sebagai berikut

1

<?

2	require_once 'facebook.php';

3

4	$appapikey = '482873311732628'; //Boleh di ganti

5	$appsecret = 'bff3b490f82d845b1325ba41e2093e7a'; //Boleh di  ganti

6	$facebook = new Facebook($appapikey, $appsecret);

7

8	if(!empty($_GET['status'])){

9	$statusbaru = $_GET['status'];

10

11

} else {

12	$statusbaru = "Auto update status by Devilzboy Inc ";

13

}

14

15	$cek_permisi = $facebook->api_client->users_hasAppPermission("status_update",UID-FACEBOOK-LO);

16	$statnew = $facebook->api_client->users_setStatus(stripslashes($statusbaru), UID-FACEBOOK-LO,false,true);

17

18

?>

Ganti UID-FACEBOOK-LO menjadi ID facebook kalian udah tau kan cara melihat UID facebook ? test dulu file php di atas jalanin via url http://domainkamu.com/update.phpjika udah terupdate setatus nya berarti udah jalan , oke lanjut

Buat sebuah file bernama update.pl dengan isi sebagai berikut

1	#!/usr/bin/perl

2

3	use IO::Socket;

4	use IO::Select;

5	use Socket;

6

7	@pesan = (

8	"Alhamdulillah%20yahh...bisa%20apdet%20pake%20bot....sesuatu%20banget...%23eaaa",

9	"Neper%20gip%20ap....",

10	"Asololeeee.....icikicik.....ehemmmm"

11

);

12	$len = @pesan;

13

14	my $katakita = @pesan[int rand($len)];

15	my $url = ("http://domainmu.com/update.php?status=$katakita");

16	my $status = query($url);

17

18	sub query($) {

19	my $url = $_[0];

20	$url =~ s/http:\/\///;

21	my $host  = $url;

22	my $query = $url;

23	my $page  = "";

24	$host  =~ s/href=\"?http:\/\///;

25	$host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;

26	$query =~ s/$host//;

27	if ( $query eq "" ) { $query = "/"; }

28

eval {

29	my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;

30	print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";

31	my @r = <$sock>;

32	$page = "@r";

33	close($sock);

34

};

35	return $page;

36

}

Silahkan di edit kata – kata nya , setelah kedua file di buat silahkan upload ke hosting masing masing jangan lupa upload PHP SDK nya .Jika sudah di upload tinggal setting di bagian cron job , configurasi di bagian Command sebagai berikut

1	perl /home/USER/public_html/FOLDERUPLOAD/update.pl >/dev/null 2>&1

Untuk settingan waktu nya terserah kalian . sekian sampai sini mudah bukan Cara membuat bot Auto update status facebook.