PLURK BOT 範例

這是一個以 自由時報即時新聞 為基礎建立的 php plurk bot 範例
會貼出最新的10條新聞




注意
要把程式內的 12345 及 67890 替換為你 PLURK 的登入帳號及密碼
且須用到 cURL 模組
請確認你的環境是否有支援。

1. <?
2. header('Content-type:text/html; charset=utf-8');
3. set_time_limit(300);
4. define('NICKNAME', '12345'); //12345 => 改為你的 PLURK ID
5. define('PASSWORD', '67890'); //67890 => 改為你的 PLURK PASSWORD
6. define('USER_ID', getuserid(NICKNAME));
8. // login plurk ===========================================================
9.     $ch = curl_init();
10.     curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
11.     curl_setopt($ch, CURLOPT_COOKIEJAR, 'plurk_cookie.txt');
12.     curl_setopt($ch, CURLOPT_URL, 'http://www.plurk.com/Users/login');
13.     curl_setopt($ch, CURLOPT_POSTFIELDS, 'nick_name='.NICKNAME.'&password='.PASSWORD);
14.     curl_exec($ch);
15.     curl_close($ch);
16. //=========================================================================  
18. $message = '**Libertytimes** Live News';
19. plurk($message);
21. $url = "http://iservice.libertytimes.com.tw/liveNews/list2.php";
22. $baseurl = "http://iservice.libertytimes.com.tw/liveNews/";
23. $contents = download($url);
25. preg_match_all('/<li>(.*?)<\/li>/s',$contents,$match);
26. if ($match[0]){
27.     $plurkid = getplurkid();
28.     for ($i=0;$i<10;$i++){
29.         sleep(5);
30.         $out = $match[0][$i];
31.         $link = tinyurl(preg_replace('/(.*?)<a href=\"(.*?)\"(.*)/s',"$baseurl$2",$out));
32.         $out = preg_replace('/(.*?)<a href=\"(.*?)\" target=_blank>(.*?)<\/a><\/span>(.*?)<\/li>/s',"$link ($3) $4",$out);
33.         replurk($out,$plurkid);  
34.     }
35. }
37. function download($url){
38.     $ch = curl_init();
39.     curl_setopt($ch,CURLOPT_USERAGENT,'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; Maxthon; .NET CLR 1.1.4322; .NET CLR 2.0.50727)');
40.     curl_setopt($ch,CURLOPT_URL,$url);
41.     curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
42.     $contents = curl_exec($ch);
43.     curl_close($ch);
44.     return $contents;
45. }
47. function getuserid(){
48.     $url= 'http://www.plurk.com/'.NICKNAME;
49.     $fid = download($url);
50.     preg_match('/user_id\": (.*?)\,/s',$fid,$matches);
51.     $u_id = $matches[1];
52.     return($u_id);
53. }
55. function tinyurl($url){
56.     return(trim(download('http://tinyurl.com/api-create.php?url='.$url)));
57. }
58.  
59. function plurk($message){
60.   // plurk
61.     $ch = curl_init();
62.     curl_setopt($ch, CURLOPT_COOKIEFILE, 'plurk_cookie.txt');
63.     curl_setopt($ch, CURLOPT_URL, 'http://www.plurk.com/TimeLine/addPlurk');
64.     curl_setopt($ch, CURLOPT_POSTFIELDS, 'qualifier=gives&content='.urlencode($message).'&lang=tr_ch&no_comments=0&uid='.USER_ID);
65.     curl_exec($ch);
66.     curl_close($ch);
67. }
69. function replurk($message,$plurk_id){
70.   // replurk
71.   $ch = curl_init();
72.   curl_setopt($ch, CURLOPT_COOKIEFILE, 'plurk_cookie.txt');
73.   curl_setopt($ch, CURLOPT_URL, 'http://www.plurk.com/Responses/add');
74.   curl_setopt($ch, CURLOPT_POSTFIELDS, 'posted='.$update.'&qualifier=gives&content='.urlencode($message).'&p_uid='.USER_ID.'&plurk_id='.$plurk_id.'&lang=tr_ch&no_comments=0&uid='.USER_ID);
75.   curl_exec($ch);
76.   curl_close($ch);
77. } 
79. function getplurkid(){
80. //get plurk id
81.     sleep(2);
82.     $url   = 'http://www.plurk.com/'.NICKNAME.'.xml';
83.     $plurk = download($url);
84.     preg_match('/<id>tag:plurk.com\;(.*?)\;(.*?)</s',$plurk,$pid);
85.     $plurk_id = $pid[2];
86.     return($plurk_id);
87. }
88. ?>

結果如下：



當然，你可再搭配排程軟體定時發佈新聞。


.