Script PHP Auto Reply Inbox Facebook (Membalas Inbox FB Secara Otomatis)

Script Membalas Pesan Facebook Otomatis - Nah bagi kalian yang repot dan gak ada waktu buat membales pesan facebook kalian secara 1 per 1 maka hari ini saya hadirkan sebuah script untuk anda yang berguna untuk membalas pesan facebook secara otomatis, tinggal masukin akses token dan buat cron job. Dah selesai ...

Ini script nya bro digunakan dengan bijak ea :

Untuk akses token nya gunakan akses token BlackBerry dengan ditambahkan permission Read_Mailbox

<?php

$access_token='CAAA...................'; //+ perms = read_mailbox
$jam=array('01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','00',);
$sapa=array('Met Dini Hari ','Met Dini Hari ','Met Dini Hari ','Met Dini Hari ','Met Pagi ','Met Pagi ','Met Pagi ','Met Pagi ','Met Pagi ','Met Jelang Siang ','Met Siang ','Met Siang ','Met Siang ','Met Siang ','Met Sore ','Met Sore ','Met Petang ','Met Petang ','Met Malem ','Met Malem ','Met Malem ','Met Malem ','Met Malem ','Met Malem ','Met Malem ',);
$ucapan = gmdate('H',time()+7*3600);
$ucapan = str_replace($jam,$sapa,$ucapan);

$me=json_decode(auto('https://graph.facebook.com/me?access_token='.$access_token),true);
$in=json_decode(auto('https://graph.facebook.com/me/inbox?access_token='.$access_token.'&fields=id,to,unread,unseen'),true);

if(file_exists('in_log')){
   $inlog = json_encode(file('in_log'));
   }else{
   $inlog='';
   }

if(file_exists('c_log')){
   $clog = json_encode(file('c_log'));
   }else{
   $clog='';
   }

for($i=1;$i<=count($in[data]);$i++){
   if($in[data][$i-1][to][data][0][id] == $me[id]){
       $from=$in[data][$i-1][to][data][1];
       }else{
       $from=$in[data][$i-1][to][data][0];
       } 
   $cm=json_decode(auto('https://graph.facebook.com/'.$in[data][$i-1][id].'/comments?access_token='.$access_token.'&limit=50&fields=id,message,from'),true);
   if(count($cm[data]) > '0'){
       for($n=1;$n<=count($cm[data]);$n++){
           if($cm[data][$n-1][from][id] != $me[id]){
                 if(!ereg($cm[data][$n-1][id],$clog)){
                    $logx = $cm[data][$n-1][id].'  ';
                    $logy = fopen('c_log','a');
                    fwrite($logy,$logx);
                    fclose($logy);
                         $ex_nam=explode(' ',$cm[data][$n-1][from][name]);
            $nama=$ex_nam[0];
            $kata=$cm[data][$n-1][message];
if(ereg('MAAF',$kata) || ereg('maaf',$kata) || ereg('Maaf',$kata)){
     $arr_mess = array(
        'jiah... pake maap segala',
        'ea.... g papa udah Dom² maafin ko... ntar Inbox lgi ea '.$nama.'.... ',
        'duh tiada maap bagimu '.$nama.'... gmana neh... :p',
        'yeeee enak aja minta maaf... Nyanyi dulu '.$nama.'... nang ning ning nang oooo.... 5X',
        'maaf... emang knapa '.$nama,
        'masama '.$nama.' Dom² jg minta maaf...',
       );
     }else{
if(ereg('ASSALAM',$kata) || ereg('Assalam',$kata) || ereg('Askum',$kata) || ereg('assalam',$kata) || ereg('askum',$kata) || ereg('ASKUM',$kata)){
     $arr_mess = array( 
    'Waalaikumsalam... :D',
    'kumcalam',
    'kumsayank... upzz kesleo... :D',
    'wasskum',
       );
  }else{
if(ereg('mandi',$kata) || ereg('pake celana',$kata) || ereg('mande',$kata)){
     $arr_mess = array(
         'idih... '.$nama.' parno',
         'mau donk jdi sabunya',
         'hihihik anuunya keliatan twuh',
         'lohh '.$nama.' mandi g ajak2',
         'mandi di kali anunya basah... tanpa Inbox '.$nama.' Anuku gelisah....',
         'tumben '.$nama.' mandi',
       );
  }else{
if(ereg('ROBOT',$kata) || ereg('robot',$kata) || ereg('bot',$kata) || ereg('BOT',$kata)){
     $arr_mess = array( 
     'botmu mantap '.$nama.' minta scriptnya dunk',
     'kmu robot koplak ea',
     'robot ko bisa kirim inbox si... gmana caranya',
     'ooooh jdi '.$nama.' robot toh... baru ngerrti saya...',
     $ucapan.' bot',
       );
  }else{
if(ereg('cinta',$kata) || ereg('love',$kata) || ereg('pacaran',$kata) || ereg('kekasih',$kata) || ereg('kangen',$kata) || ereg('kasmaran',$kata)){
     $arr_mess = array(
  'cinta itu glodak '.$nama.'',
'duh '.$nama.' makasih atas cintanya eaa',
'haddooooh '.$nama.' ngajak bercinta ',
'pokoknya mmmuaaaach '.$nama.'...',
'oooooo love ea '.$nama.'',
       );
  }else{
if(ereg('kenapa',$kata) || ereg('knapa',$kata) || ereg('knp',$kata) || ereg('kenapakah',$kata)){
     $arr_mess = array(
     'kenapa? au ach gelapz ',
     'kena sesuatu nich '.$nama,
      'ga knapa-napa... emang Majalah BuadTeLo... hehe pizzz',
      'kenapa ea '.$nama.' sek sek sek tak mikir',
      'Mo tau aja urusan robot',
      );
      }else{
if(ereg('mengapa',$kata) || ereg('mengpakah',$kata) || ereg('mgapa',$kata)){
      $arr_mess = array(
     'mengapa ea? sek sek sek tak mikir',
     'karena '.$nama.' telah mencuri hatiku xixixi',
     'Mo tau aja urusan robot',
     );
     }else{
if(ereg('haha',$kata) || ereg('hihi',$kata) || ereg('wkwk',$kata) || ereg('wakaka',$kata) || ereg('hehe',$kata) || ereg('xixi',$kata)){
     $arr_mess = array(
     'ngakak',
     'malah mrengez',
     'looohhh malah ktawa',
      'loooohhh bot nya ketawa hahaha',
      'gw serius say jgn ketawa dunkkkk... :p',
      'kok ktawa ada yg aneh ea',
      'wkwkwkwkwk juga',
      'udah2 jgan ktawa mulu... '.$nama.' botnya malu nih',
       );
      }else{
if(ereg('kemana',$kata) || ereg('kmana',$kata) || ereg('buru2',$kata) || ereg('ditinggal',$kata)){
      $arr_mess = array(
      'ea nih '.$nama.' botnya ngantuk... bye',
      'kemana kemana kemana.... assseeekk ting ting punya coey',
      'dah ngantuk gw',
      'byee....',
      'turru disek rek',
      'mo bobok aq... mo ikud',
      'ikud yuk '.$nama,
       );
      }else{
if(ereg('http',$kata)){
     $arr_mess=array(
     'Link apa tuh Gan',
     'Linknya boleh di klik ndak twuh ',
     );
     }else{
if(ereg('Keriting',$kata) || ereg('kriting',$kata) || ereg('Kriting',$kata) || ereg('Kesleo',$kata) || ereg('kriting',$kata) || ereg('kesleo',$kata)){
     $arr_mess=array(

'tenang '.$nama.' sini jarinya Q setrika wakakaka',
     'Uuuuu kacian keriting ea '.$nama.'... sama lok gitu',
     'mo di pijitin jarinya '.$nama.'',
     'besok jempolnya di bonding ea '.$nama.' :p',
     );
     }else{
$arr_mess=array(
'maap saya cuma robot '.$nama,
'sek sek sek bot nya mikir '.$nama,
'hadoh... Bot bingung '.$nama,
'hehehe kenapa '.$nama,
'boZ ge mandi neh '.$nama.' Jdi bot di tugasin bales inbok kmu',
'yaaaaaa BoZ Dom² minggat.... saya cuma Bot g erti pa pa',
'hehehehe :p',
);

}}}}}}}}}}}

$message=' :D '.$arr_mess[rand(0,count($arr_mess)-1)].' :D ';
               auto('https://graph.facebook.com/'.$from[id].'/inbox?access_token='.$access_token.'&message='.urlencode($message).'&subject='.urlencode($ucapan).'....&method=post');

echo '<br/>'.$cm[data][$n-1][from][name].' => '.$cm[data][$n-1][message].'<br/>Re => '.$message.'<br/>'; 
                }
           }
      } 
   }else{
   if(($in[data][$i-1][unseen] == '1' ) && ($in[data][$i-1][unread] == '1')){
       if(!ereg($in[data][$i-1][id],$inlog)){
           $logx = $in[data][$i-1][id].'  ';
           $logy = fopen('in_log','a');
               fwrite($logy,$logx);
               fclose($logy);
               $xnam = explode(' ',$from[name]);
               $nama = $xnam[0];
               $arr_mess = array(
                     ':) maaf '.$nama.' bos gi oflen kunjungi www.macanbola.com :)',
                     ':) da apa '.$nama.'...? maaf saya cuma bot ditugaskan untuk bales Inbox :)',
                     ':) duh '.$nama.' Bos saya lgi Off ne... :D di tunggu onlenya yakz  :)',
                     ':) duh sayang sekali '.$nama.'... saya cuma bot :/ gak ngerti apa apa :D tunggu boz onlen yak :) ',
                     );
               $message = $arr_mess[rand(0,count($arr_mess)-1)];
                auto('https://graph.facebook.com/'.$from[id].'/inbox?access_token='.$access_token.'&message='.urlencode($message).'&subject='.urlencode($ucapan).'....&method=post');
               echo'<hr/>To: '.$nama.' => '.$message.'<br/>';
            }
         }
    echo'<hr/>';
   }
}

function auto($url){
   $ch=curl_init();
   curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
   curl_setopt($ch,CURLOPT_URL,$url);
   $cx=curl_exec($ch);
  curl_close($ch);
  return($cx);
  }
?>

Oke gitu aja dah , kalo ada yang masih bingung silahkan PM facebook saya, kali aja bisa bantu

Link Facebook Admin

2 Responses to "Script PHP Auto Reply Inbox Facebook (Membalas Inbox FB Secara Otomatis)"

UnknownMarch 9, 2016 at 7:29 PM
kgak respon di pesan fb min
ToserbavIrtualNovember 6, 2016 at 3:10 PM

matur nuwuuuun makasih banyak mase..

Harap dibaca terlebih dahulu :
1. Silahkan Berkomentar yang Membangun/Membantu
2. Gunakan Bahasa Yang Baik Dan Benar
3. Jangan Membuat Onar/Menghina/Merendahkan!
4. Mohon Maaf Jika Komentarnya Tidak Dijawab Satu Persatu

Admin Sedang Online : Komentar Anda Akan Dibalas