Bot Chat

Langsung aja lah,,,, Cekidotttttttttttt...... :)

kali ini pake file *.pl ya bkan *.php :D

pl code :

#!/usr/bin/perl
use strict;
use utf8;
use AnyEvent;
use AnyEvent::XMPP::Client;
use AnyEvent::XMPP::IM::Message;
#
# Simple pl Fb Chat bot
# by casper_kae
# 16/8/2012
#
my $userid = 'USER ID KAMU';
my $pass   = 'PASSWORD KAMU';
my $server = "chat.facebook.com";
my $konek  = AnyEvent->condvar;
my $bot    = AnyEvent::XMPP::Client->new (debug => 0);
$bot->add_account ($userid,$pass,$server);
$bot->reg_cb(
    session_ready     => sub {
                my ($bot, $acc) = @_;
                $bot->set_presence("avaliable","online",10);
    },
    message     => sub {
                my ($bot, $acc, $msg) = @_;
                if($msg->body()=~ /^[\s]*$/){}else{
                    $msg->make_reply->add_body("Maaf saya lagi tidak ol.");
                    $msg->make_reply->send;
                }
    }
);
$bot->start;
$konek->wait;

Kalau yg ini sih gak usah pake CronJob :P
langsung di Upload aja di Hosting kamu

Judul: Bot Chat
Ditulis oleh Cyber Kage
Rating Blog: 5 dari 5
Votes Blog: 99 orang

Penulis : Cyber Kage ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Bot Chat ini dipublish oleh Cyber Kage pada hari Sabtu, 13 Oktober 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 2 komentar: di postingan Bot Chat