More on this category »
Searching...

bot auto update status facebook

2/28/2012

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 :





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

0 komentar:

Poskan Komentar

Komentar dengan baik

Diberdayakan oleh Blogger.