Bot auto Update Status pesbuk

Bot (*robot) Auto update status Facebook dibuat dengan aplikasi kita sendiri. Dengan kata lain kita mengizinkan aplikasi untuk update status sebagai account kita.
Tentu sebelumnya kita membuta list kata yang akan di tampilkan sebagai status Facebook kita.
Kata² dapat dibuat sebanyak mungkin,akan  dipilih secara acak (random) tiap jamnya (atau tergantung setingan kita mau di update tiap berapa jam/menit/hari/bulan, dlsb).
Kita tidak perlu Online untuk update status, jadi irit pulsa,irit waktu, duit juga  donk..wakakak
*Tapi Ngomong² Facebook mau di jadiin apa kalau yang Onlen bot terus ….????

Alat dan Bahan : 

1. Hosting support php + perl + cron (beda server tidak masalah)
2. PHP-SDK Facebook + API key & Api Secret FB  *Lihat Post sebelumnya
3. Download PHP-SDK APPS Facebook
4. Source Exploiter/actions : update.php
5. Source remote : status.pl
6. PHP-SDK APPS FB dan Source update.php di upload (harus jadi satu server)
7. Source perl [remote] harus jadi satu dengan host yang support cron jobs.
8. Rasa berani mengelahkan kegagalan/kalo gagal coba lagi kalo ndak bisa tanya temen yang sudah bisa ^_^.
9. Siap mental kalo di benci temen yg gak suka Bot Facebook.
10. Berikut screenshotnya :

Bot Auto Update Status Facebook
Source update.php

<?
require_once '../sdk/facebook.php';
$appapikey = 'api+key+mu';
$appsecret = 'api+secretmu';
$facebook = new Facebook($appapikey, $appsecret);
if(!empty($_GET['status'])){
$statusbaru = $_GET['status'];
} else {
$statusbaru = "Auto update status by www.AgenDosa.com";
}
$cek_permisi = $facebook->api_client->users_hasAppPermission("status_update",xxx-uid-xxx);
$statnew = $facebook->api_client->users_setStatus(stripslashes($statusbaru),xxx-uid-xxx,false,true);
?>

Source status.pl

#!/usr/bin/perl
use IO::Socket;
use IO::Select;
use Socket;
@pesan = (
"Alhamdulillah%20yahh...bisa%20apdet%20pake%20bot....sesuatu%20banget...%23eaaa",
"Neper%20gip%20ap....",
"Asololeeee.....icikicik.....ehemmmm"
);
$len = @pesan;
my $katakita = @pesan[int rand($len)];
my $url = ("http://domainmu.com/update.php?status=$katakita");
my $status = query($url);
sub query($) {
my $url = $_[0];
$url =~ s/http:\/\///;
my $host  = $url;
my $query = $url;
my $page  = "";
$host  =~ s/href=\"?http:\/\///;
$host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~ s/$host//;
if ( $query eq "" ) { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}

Original Post by Agendosa.com