Auto Update Status Facebook

Dulu waktu saya melihat status teman, saya suka bertanya-tanya, kenapa ya koq dia buat status setiap jam ? emang gak capek nulis status setiap sejam sekali? apa dia nggak tidur ??

Untuk mencari jawaban dari pertanyaan-pertanyaan itu, langsung saya tanya sama yang bersangkutan. Ternyata usut cari usut, dia menggunakan Robot Auto Update Status. Nah kok Robot bisa update status?

Dari situ saya mulai mencari dan menjelajahi om Google. Dari sekian banyak keyoword dan situs-situs yang saya buka, ketemulah dengan salah satu website yang membuat saya tertarik dengan artikelnya"tentu saja yang bersangkutan dengan Robot Auto Update Status Facebook" hehhehe.

Nah sekarang saya mau berbagi ne sama sobat sekalian. Bagaimana cara membuatnya. OK.... langsung cekidot aja deh :)
Yang perlu di persiapkan :
PHP SDK Facebook Download saja DISINI (versi lama)
Hostingan yang suport php, perl dan cron jobs timing
Script Update.php
<?
require_once '...directory/sdk/facebook.php';

$appapikey = 'api+key-mu';
$appsecret = 'api-secret-mu';
$facebook = new Facebook($appapikey, $appsecret);

if(!empty($_GET['status'])){
$statusbaru = $_GET['status'];

} else {
$statusbaru = "Auto update status by bot gaul";
}

$cek_permisi = $facebook->api_client->users_hasAppPermission("status_update",UID-FBMU);
$statnew = $facebook->api_client->users_setStatus(stripslashes($statusbaru),UID-FBMU,false,true);

?>
    4.  Script status.pl

#!/usr/bin/perl

use IO::Socket;
use IO::Select;
use Socket;

@pesan = (
"memang%20ganteng%20kalo%20update%20status%20pake%20bot",
);
$len = @pesan;

my $status_acak = @pesan[int rand($len)];
my $url = ("http://dc-net.tk/robot/status.php?status=$status_acak");
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.0rnHost: $hostrnAccept: */*rnUser-Agent: Mozilla/5.0rnrn";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}
Bahan-bahannya sudah siap semua. Sekarang cara penerapannya, cekidot lagi deh :
Upload PHP SDK Facebook ke hostingan anda (harus suport perl,php, corn jobs timing)
Kemudian pada script Update.php ganti "api+keymu" dan "api+secretmu" dengan kepunyaan sobat. kalo nggak punya  bisa pake punyanya www.agendosa.com 
$appapikey = 'a8be3e413467033ecbadfb9b7603df3a';
$appsecret = 'cefcccd8d8c0b2257308e2c306dce6c0';
Tetapi sebelumnya sobat semua harus melike atau mengklik aplikasinya terlebih dahulu Agen Dosa Facebook Lab   
          Pada tulisan berwana merah UID-FBMU silahkan ganti dengan kepunyaan sobat, bisa dilihat di graph.facebook.com/username

          Kemudian pada directory/sdk/facebook.php ganti dengan directory punya sobat. Ini merupakan tempat sobat menempatkan PHP SDK anda di hostingan.
    3. Setelah itu pada script status.pl ganti script yang berwarna merah my $url = ("http://dc- net.tk/robot/status.php?status=$status_acak");  ganti dengan url yang dimana anda meletakan update.php nya. Contoh : domainanda.com/update.php

Jika sudah selesai semua... sekarang coba jalankan update.php nya. Caranya tuliskan pada address bar domainanda.com/update.php kemudian enter. Jika tidak terjadi eror maka script update.php anda sukses.

Sekarang anda tinggal menyeting script status.pl di cron jobs anda.
Caranya cari cron jobs di hostingan anda kemudia klik, setelah itu setting command nya seperti ini :
perl /home/public_html/status.pl
Yang terpenting adalah peletakan command perl / karena ini merupakan exstensi untuk menjalan kan perl di cron jobs. dan dalam penulisan perl / harus di beri spasi antara perl dan / .
Untuk setting timingnya terserah sobat, karena tergantung selera masing-masing.

OK sekarang bot auto update status facebook kalian sudah jadi deh ... :))

Courtesy Of Agendosa.com Feat. d3t3ct1v3c0d3.blogspot.com