Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <?php
- ##############config####################
- $bot['like'] = true;
- $bot['ck_k'] = true;
- $bot['ck_u'] = true;
- $bot['time'] = false;
- $bot['aces'] = "AAA*****"; // access_token (tanda kutip jangan dihapus)
- ########################################com_like($cl,$ck,$cu,$tm,$access_token)
- ##############By Me####################
- # BOT Facebook v 1.0cr 20/januari/2011
- #
- # Created by casper_kae
- # simple bot komment & like
- # thanks to balikita team
- #
- # mohon untuk tidak merubah tulisan ini untuk saling menghargai.
- # tunggu Versi bot berikutnya. :D salam
- #######################################
- com_like($bot['like'],$bot['ck_k'],$bot['ck_u'],$bot['time'],$bot['aces']);
- ###############komentar################
- function cmn($text,$ck,$cu){
- ##########umum
- $cmn_umum = array("AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jangan mengeluhkan hal-hal buruk yg datang dalam hidupmu. Tuhan tak pernah memberikannya, kamulah yg membiarkannya dating.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jangan pernah menyerah jika kamu masih ingin mencoba. Jangan biarkan penyesalan datang karena kamu selangkah lagi tuk menang.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jangan biarkan orang lain menghalangimu tuk mengejar impianmu. Tetap berjuang, dan percayalah, semua akan indah pada waktunya.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Doaku hari ini: Tuhan, jagalah hatiku agar aku bisa menyayangi. Semoga aku bisa menolong mereka yg membutuhkan aku.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Setiap manusia pasti pernah berbuat salah, namun selama kamu mau melepaskan masa lalu, kamu akan punya masa depan yang cerah.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Masalah terbesar wanita adl mengingat terlalu banyak, sdgkn masalah terbesar pria adl melupakan terlalu cepat.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Dlm cinta, jgn berdusta hanya karena kamu tak ingin dia terluka. Karena ketika dia temukan kebenaran, dia akan lebih menderita.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Suatu hubungan berakhir, karena salah satu hati terlalu sedikit mencintai, dan atau terlalu banyak.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jadi dirimu sendiri. Org akan menyukaimu apa adanya. Meski ada yg membenci karena alasan yg sama, tak berarti kamu hrs berubah.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Mereka tak peduli dari mana kamu memulainya. Mereka melihat dari bagaimana caramu mengakhirinya.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Mencintai seseorang berarti menjadikannya bagian dari dirimu. Itu sebabnya akan terasa sakit saat kehilangannya.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Kadang tak peduli betapa besar kamu mencintai seseorang, kamu harus melepasnya. Dia yg selalu di hatimu tapi tak di kehidupanmu.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jika seseorang yg istimewa di hatimu tak bisa mencintaimu ketika kamu menjadi dirimu sendiri, maka dia tidak istimewa.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat adalah dia yg tahu kekuranganmu, tapi menunjukkan kelebihanmu. Dia yg tahu ketakutanmu, tapi menunjukkan keberanianmu.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Ketika keadaan mengharuskan untuk menangis, tak usah berpura, menangislah. Tak semua air mata berarti lemah.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Mereka yang terus hidup penuh dengan kekerasan hati akan membawa kedalam kehidupan yang tidak mensejahterakan.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jgn hitung brp kali org menyakiti dan meninggalkanmu, tp brp kali kau menyakiti Tuhan dan Ia tdk prnh meninggalkanmu]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat adalah mereka yg tahu semua kekuranganmu, namun tetap memilih bersamamu ketika orang lain meninggalkanmu.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Tak peduli siapa yg buatmu patah hati atau berapa lama yg dibutuhkan tuk sembuh, kamu tak akan bisa melewatinya tanpa sahabat!]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat adalah dia yg tahu apa yg dia miliki ketika bersamamu, bukan dia yg menyadari siapa dirimu setelah dia kehilanganmu.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Saat kau membalas kebencian dgn amarah dan caci maki, saat itulah musuhmu menang.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jangan pernah sakiti sahabatmu, karena sahabat adalah cara Tuhan menunjukkan bahwa Dia tak ingin kamu sendirian jalani hidup.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Orang hadir di hidupmu karena sebuah alasan. Mereka berimu bahagia dan kecewa. Ada yg sesaat, tapi ada yg selamanya, SAHABATMU.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat bukan mereka yg menghampirimu ketika butuh, namun mereka yg tetap bersamamu ketika seluruh dunia menjauh.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat adalah mereka yg tahu bahwa ada sedih di matamu ketika seluruh dunia percaya dengan senyum di wajahmu.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Bersedih dengan orang yg tepat lebih baik daripada berbahagia dengan orang yg salah. Bijaklah dlm memilih sahabat.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Tak ada yg sempurna, sahabatpun pernah berbuat salah, tapi kamu selalu temukan sebuah alasan tuk maafkan mereka.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Indahnya persahabatan adalah saat kita memberi tak mengharapkan balasan. Ada tawa saat dalam kesedihan.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat itu seperti BINTANG, dia memang tak selalu terlihat, tapi kamu tahu dia selalu ada di sana.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Terlalu berharap akan menyakitimu, namun itu bukan alasan tuk menyesali diri. Ingat, sahabat selalu ada untukmu.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Kenalilah sahabat yang disamping kamu. Sahabat ialah yang mengulurkan pelukan ketika kamu terjatuh.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Sahabat adalah mereka yang mampu mengeluarkan kemampuan terbaik yg ada dalam diri kamu. Mereka yg selalu berimu semangat.]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Terkadang terasa pesimis,namun bangkitkanlah dengan bayangkan euforia yg nanti kalian raih]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Jangan pernah berfikir tidak akan pernah bisa mendaptkan dia,meraih cita-cita,dan segala hal yg kau inginkan]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Lelah! menyerah! Padahal kesuksesan sudah di depan mata]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Berusahalah terus jangan pantang menyerah seakan akan besok kau akan mendapatkan kebahagian tak terkira]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Semangatlah karena kau tahu esok akan menjadi kesuksesanmu]
- d[*_*]b
- Like_Back",
- "AutoBot hadir
- Menyukai statusmu <name>
- [autobot message: Kau takkan pernah tahu kesuksesan itu jikalau tak pernah mencoba dan hanya menyerah]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Mimpikan yang kau mau dan kejarlah impianmu itu]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Belajar memang melelahkan,namun lebih lelah nanti kelak jikalau saat ini tidak belajar]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Hidup ini penuh warna,kitalah yang harus berusaha mengisi tuk hidup penuh
- warna cerah]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Orang sukses takkan pernah mengeluh bagaimana kalau akan gagal,namun berusaha bagaimana untuk berhasil]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: lakukanlah yang terbaik dan anda akan dapat hasil yang terbaik pula]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: kesuksesan itu penuh tantangan,gagal sekali dua kali itu biasa,tetaplah konsisten dengan mimpi kita]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Hadapi masalah tnpa masalah agar masalah tidak mnjadi risalah kesalahan spanjang perjalanan ini]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Genggamlah bumi sblm bumi menggengam anda,pijaklah bumi sblm bumi memijak anda,maka perjuangkanlah hidup ini sblm anda memasuki perut bumi.]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: berlarilah sekencang mungkin,realisasikan lah target yg telah dicanangkan untuk hidup yg lebih baik]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: buka mata dan hati kalian,hidup satu kali ini manfaatkanlah secara bijaksana]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Agama sejati adalah hidup yg sesungguhnya, hidup dgn seluruh jiwa seseorang, dgn seluruh kebaikan dan kebajikan seseorang]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Waktu adalah keadilan yang menguji mereka yang bersalah]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Berusahalah untuk tidak menjadi manusia yang berhasil tapi berusahalah menjadi manusia yang berguna]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Jika dunia ini persinggahan, mengapa tidak kita banyakkan bekalan utk meneruskan perjalanan! Krn kita cuma ada satu persinggahan]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Niat adalah ukuran dlm menilai benarnya suatu perbuatan, jika niat benar maka perbuatan itu benar dan jika niat buruk, maka perbuatan itu buruk]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Jangan takut utk mengambil satu langkah besar bila mmg itu diperlukan, anda takkan bisa meloncati sebuah jurang, dgn dua lompatan kecil]
- d[*_*]b
- Like_Back",
- "ijin berbagi like and comment <name>
- [autobot message: Kekawatiran seperti kursi goyang. Memberimu sesuatu untuk dilakukan tetapi tidak membawamu kemanapun]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Cinta itu seperti angin, kamu tidak dapat melihatnya tetapi dapat merasakannya.]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Setiap orang punya momen buruk. Tapi apakah kita harus melupakan semua momen baik karena itu!]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Otak dapat mengambil nasihat, tapi tidak hati, dan cinta, tidak memiliki geografi, tidak mengenal batas.]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Dengan keberanian kita akan berusaha lebih dari pada tanpa keberanian. Tanpa usaha kita ngk akan bisa sampai tujuan sama sekali]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Kalau tidak pernah berani tersesat, maka kalian tidak akan pernah menemukan jalan baru]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Belajarlah untuk berpikir besar, tapi berlatihlah untuk bahagia dengan hal- hal kecil
- Hidup biarlah berbakti, walaupun tidak dipuji]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Orang yang berhati-hati tidak akan meminum racun, meskipun punya penawarnya]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Banyak orang gagal karena terlalu percaya kepada sukses usahanya yang pertama]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Kita berdoa kalau kesusahan dan membutuhkan sesuatu, mestinya kita juga berdoa dalam kegembiraan besar dan saat rezeki melimpah]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Jika kmu ingin SELAMAT pada pertarungan zaman sekarang, kmu harus YAKIN pada dirimu sendiri]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Banyak orang di dunia yg terlalu banyak mengamati kesehatannya, sehingga mereka tidak sempat menikmatinya]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Semakin Anda memahami lebih banyak tentang dunia di sekitar Anda, semakin bergairah dan penasaran terhadap kenyataan hidup dalam hidup Anda]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Rasa ingin tahu adalah awal dari sebuah petualangan]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Keburukan bukan utk diperbaiki tapi dihilangkan, sedangkan kekurangan bukan utk dihilangkan tapi utk diperbaiki]
- d[*_*]b
- Like_Back",
- "ijin berbagi koment okey <name> ,,
- [autobot message: Diri kita menunjukkan apa yg sering kali kita lakukan. Jadi, kebaikan bukanlah sebuah tindakan melainkan kebiasaan]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Seorang pemimpin mampu bertahan lama karena kata-katanya berharga dan bisa dipegang]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Kemiskinan tidak boleh dibuat menjadi alat mata pencaharian bagi orang-orang malas]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Emas diuji dengan api, wanita diuji dengan emas dan lelaki diuji dengan wanita]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Tahukan Anda tujuan hidup Anda! PERJELASLAH tujuan hidup Anda, maka akan jelas nasib Anda]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Menghadiahkan PUJIAN kepada orang disekitar anda adalah awal investasi KEBAHAGIAAN Anda]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: salah satu ciri orang pandai adalah mampu memanfaatkan mimpinya menjadi hal yg lebih berguna untuk orang lain]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Orang yang paling aku sukai adalah dia yang menunjukkan kesalahanku]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Dalam kepala kaum wanita ada kekurangan, tetapi dalam hati mereka ada kelebihan]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Di puji jauh lebih bahaya dibanding di caci, karena pujian akan menimbulkan kemunafikan]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Di balik setiap pria sukses selalu ada wanita yang luar biasa]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Sahabat sejati ibarat dua buah tangan, yang satu membersihkan yang lainnya.]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Ingatlah bahwa kmu mungkin dapat dikenal dari apa yg kmu buat, namun kmu hanya akan dicintai dari apa yg kmu beri]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Jadilah orang yg pemaaf,justru jangan pernah menjadi orang yg selalu di maafkan]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Apabila kita takut gagal, itu berarti kita telah membatasi kemampuan kita]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Kita mencintai se*-orang bukan krn dia sempurna, tapi utk belajar dan saling memahami serta melengkapi ketidaksempurnaan kita.]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Harta akan habis digunakan tanpa ilmu, tapi sebaliknya ilmu akan berkembang jika digunakan]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Kasih dan kepercayaan akan menghilangkan kekhawatiran, kecemasan dan keresahan dalam hidup]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Semakin keras Anda bekerja semakin sukarlah Anda menyerah]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Biarkan Imajinasimu terus bergerak maju,tapi jgn sampe akhlakmu bergerak mundur hingga pudarnya keimananmu]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Jangan mencari kawan yg membuat Anda merasa nyaman, tetapi carilah kawan yg memaksa Anda terus berkembang]
- d[*_*]b
- Like_Back",
- "aku like yah statusmu <name> ,,
- [autobot message: Tragedi terhebat dalam hidup ini adalah kematian dari diri seseorang yg sesungguhnya masih hidup]
- d[*_*]b
- Like_Back",
- );
- ##########kondisi
- $comment = array(
- array(
- array("sepi",
- "pada kemana",
- "pada kmn",
- ),
- array("Nih Udag aQ ramein <name>. hhe",
- "Meski sepi JEMPOL ku masih setia di status <name>.hhe",
- "He'eh ni penghuni FB pada tidur kali. tapi JEMPOL ku slalu hadir buat status <name>",
- )
- ),
- array(
- array("semoga",
- "moga",
- "amin",
- ),
- array("Amin <name>.. Skalian like this juga ah. biar tambah exsis. hhe",
- "Mang knape <name>.?",
- "He'eh ni penghuni FB pada tidur kali. tapi JEMPOL ku slalu hadir buat status <name>",
- )
- ),
- array(
- array("jancok",
- " asu ",
- " raimu ",
- " matamu ",
- " bangsat ",
- ),
- array("Wew. <name> lagi marah tetep Q kasi LIKE dah. hhe",
- "ada apa dengan mu <name> kok marah amat..? wkwkwkwk",
- "Robot versi gaul buat ademin kamu <name>. wkwkwkwk",
- "Meski marah. tetep hadir aja dah n like this. :D",
- )
- ),
- array(
- array("lapar",
- " ewul ",
- " luwe ",
- "laper",
- " krucuk",
- ),
- array("Ni makanan buanyak disini. mau a <name>..? hhe",
- "sama <name> klaparan nih. nyindir.com. wkwkwkwk",
- )
- ),
- array(
- array("askum",
- "asalam",
- "assalam",
- "mekum",
- "laikum",
- ),
- array("Waalaikumsalam warahmatullahi wabarakatuh. <name> hihi",
- "Waskum",
- )
- ),
- array(
- array("pamid",
- "off dulu",
- "ngantuk",
- "bobok",
- "tidur",
- ),
- array("lho aq ditinggal <name> wkwkwkwk",
- "wew. masi jam sgini <name> mo kmana.?",
- "Walah kmana <name>..?",
- "Ditinggal dah ane. hhe.",
- )
- ),
- );
- $komentar = '';
- $cr_kondisi=false;
- foreach($comment as $cx){
- foreach($cx[0] as $ct){
- if(ereg($ct,$text)){
- $cr_kondisi=true;
- $komentar = $cx[1][rand(0,count($cx[1]) - 1)];
- }
- }
- }
- if($cr_kondisi==true && $ck==true){
- return $komentar;
- }else{
- if($cu==true){ return $cmn_umum[rand(0,count($cmn_umum) - 1)]; }
- }
- }
- #######################################
- function com_like($cl,$ck,$cu,$tm,$access_token){
- $beranda = json_decode(httphit("https://graph.facebook.com/me/home?fields=id,from,type,message&limit=100000&access_token=".$access_token))->data;
- $saya_cr = json_decode(httphit("https://graph.facebook.com/me?access_token=".$access_token));
- if($beranda){
- foreach($beranda as $cr_post){
- if(!ereg($saya_cr->id,$cr_post->id)){
- $log_cr = simlog($cr_post->id);
- if($log_cr==true){
- if($ck==true){
- $url_ck = cmn($cr_post->message,$ck,$cu);
- $url_ck = str_replace("<name>",$cr_post->from->name,$url_ck);
- if($tm==true){ $url_ck = $url_ck.wkthit(); }
- $url_ck = urlencode($url_ck);
- if($ck==false OR $cu==false){
- httphit("https://api.facebook.com/method/stream.addComment?post_id=".$cr_post->id."&comment=".$url_ck."&access_token=".$access_token);
- }
- if($cl==true){
- httphit("https://api.facebook.com/method/stream.addLike?post_id=".$cr_post->id."&access_token=".$access_token);
- }
- }
- }
- }
- }
- }
- }
- #######################################
- function httphit($url){
- return file_get_contents($url);
- }
- function wkthit(){
- $ent="
- ";
- $hari=gmdate("D", time()+60*60*7);
- if((gmdate("D", time()+60*60*7))=="Sun"){ $hari="Minggu"; }
- if((gmdate("D", time()+60*60*7))=="Mon"){ $hari="Senin"; }
- if((gmdate("D", time()+60*60*7))=="Tue"){ $hari="Selasa"; }
- if((gmdate("D", time()+60*60*7))=="Wed"){ $hari="Rabu"; }
- if((gmdate("D", time()+60*60*7))=="Thu"){ $hari="Kamis"; }
- if((gmdate("D", time()+60*60*7))=="Fri"){ $hari="Jum'at"; }
- if((gmdate("D", time()+60*60*7))=="Sat"){ $hari="Sabtu"; }
- $jam="Jam : ".gmdate("g:i a", time()+60*60*7);
- return $ent.$ent."[ ".$jam." ][ ".$hari." ][ Tgl : ".gmdate("j/m/Y", time()+60*60*7)." ]";
- }
- function simlog($cr_id) {
- $fname = "cr_log.txt";
- $lihatiplist=fopen ($fname, "rb");
- $text='';
- if($lihatiplist){
- $spasipol = "";
- do {
- $barislistip = fread($lihatiplist, 512);
- if(strlen($barislistip) == 0){ break; }
- $spasipol .= $barislistip;
- } while(true);
- fclose ($lihatiplist);
- for ($i = 1; $i <= 10; $i++) {$spasipol = str_replace(" ","",$spasipol);}
- $text=$text.$spasipol;
- }else{$text="";}
- if(ereg($cr_id,$text)){
- return false;
- }else{
- $text = $text.$cr_id;
- $w_file=@fopen($fname,"w") or bberr();
- if($w_file) {
- @fputs($w_file,$text);
- @fclose($w_file);
- }
- return true;
- }
- }
- ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement