Browse: Home / WP：用QQ滔滔插件，做博客公告

WP：用QQ滔滔插件，做博客公告

By 砼砼 on 2009 年 08 月 14 日

怎么说呢？微博这玩儿，在国内做的好没用的，要有后台，而且还要后台特别硬的那种

看看，风里来雨里去的，麻花腾的东西虽然不怎么样，但稳定啊～对吧

不就是没有API么，咱自己写，不能站外发信息？咱自己构建POST的header和cookies

对吧，只要别他妈挂了，不管你缺什么，咱有那勤劳的双手啊

logo太丑了，先把logo去掉，只留一个公告吧，呵呵

代码很简单都是拼凑的，汗，小改了一下，不过改的比较丑陋。。。。



<?php

/**

* 滔滔公告～

* 来自 Denis http://fairyfish.net/2008/08/02/taobao/

* taotao($num=1)

*

* @since 0.1

*/



if(!class_exists('http_fetch')){

 function http_fetch($url) {

  if(function_exists('curl_init')) {

   $curl = curl_init($url);

   curl_setopt($curl, CURLOPT_RETURNTRANSFER, TRUE);

   $rtrn = curl_exec($curl);

   curl_close($curl);

  } else {

   $rtrn = file_get_contents($url);

  } 

  return $rtrn;

 }

}

function taotao($num=10){

 $qq = "156888120";//这里填你的QQ号

 $taotao_sr = array('网页', 'QQ机器人', 'QQ空间', 'QQ签名', '短信', '手机上网', 'MSN机器人', 'MSN签名', '手机QQ', '彩信', '订阅', "", 'QQ状态');

 $url = "http://www.taotao.com/cgi-bin/msgMgr?type=3&num=$num&qq=$qq";

 $result = http_fetch($url);

 $xml = simplexml_load_string($result);

 $md = $xml->info->md;

$taotao_string = '';     

    foreach ($md->ml as $ml){ 

        $taotao_string .= '<span style="display:block">'.(string)$ml->cn.' '.LJ($ml->t).' 通过 '.$taotao_sr[(string)$ml->sr].'</span>'; 

    } 

$taotao_string .= '';

 return  $taotao_string;

}

function LJ($t='') {

    $imt_taotao_t_array=explode(",",$t);

    if (count($imt_taotao_t_array) < 2) {

        return "";

    }

    $n = $imt_taotao_t_array[0];

    $v = $imt_taotao_t_array[1];

    $s = '';

    if ($n == 1) {

        $s = '约 ' .$v. ' 秒前';

    } else if ($n == 2) {

        $s = '约 ' .$v. ' 分钟前';

    } else if ($n == 3) {

        $s = '约 ' .$v. ' 小时前';

    } else if ($n == 4) {

        $s = '约 1 天前';

    } else if ($n == 5) {

        $s = '约 3 天前';

    } else if ($n == 6) {

        $s = '约 1 周前';

    } else if ($n == 7) {

        $s = $v;

    }

    return $s;

}

function imt_taotao(){

 global $hybrid_settings;

 $default_avatar='';

 if ( $hybrid_settings['default_avatar'] ){

  $default_avatar = esc_url( $hybrid_settings['default_avatar'] );

 }

 $imt_taotao_string = '';

 $imt_taotao_string .= '<div id=imt-wisdom>';

 $imt_taotao_string .='<div>';

 $imt_taotao_string .= get_avatar( get_bloginfo('admin_email'), '50', $default_avatar, get_bloginfo( 'description ' ));

 $imt_taotao_string .='</div>';

 $imt_taotao_string .='<div>';

 $imt_taotao_string .='<div>';

 $imt_taotao_string .='<div>'.taotao(1).'</div>';

 $imt_taotao_string .='</div>';

 $imt_taotao_string .='</div>';

 $imt_taotao_string .='</div>';

 echo $imt_taotao_string;

}

?>

直接用

imt_taotao();

调用就可以了，演示见顶部。对于我的主题也就是Hybrid来说，我使用的

add_action( 'hybrid_header', 'imt_taotao');

CSS我就不提供了，那东西更加的丑陋～

Update @  2009-08-17 15:25:43

新加了ASP，不用因为我的机器上老装不上IIS，手里又没支持aSP的服务器，不过大概就是那样，有错估计也是语法错误

http://tossp.com/wp-plug-rolling-with-qq-do-blog-bulletins.html#comment-4228 

Posted in , | Tagged , , , | 16 Responses

Burn after reading » Now you're done reading. What's next?

小时候,一直以为自己的咪咪是蚊子叮的,每天洗完澡以后就拿着盒万金油在搽,希望它可以早日康复,直到念大班的时候，我放弃了。 http://t.qq.com/tosspig

相关推荐

日志信息

如需转载烦请添加以下信息: 本文内容转载自砼砼's blog[http://TossP.com].
如喜欢这篇文章或者本站,建议您RSS订阅本站,以及时地获取更多精彩内容!

可以通过订阅Comments RSS 2.0 feed，一直不断的跟踪这篇日志的的评论~
欢迎您点击发表评论参与这篇日志的讨论，如果您需要引用或者转载此文，请确保让我知道，并建议使用trackback将转载信息通知到本页面。

16 responses to “WP：用QQ滔滔插件，做博客公告”

  1. 回复TA 托尔·银月
    托尔·银月 2009 年 08 月 14 日 at 17:50 |

    沙发！！！我靠！！！！

  2. 回复TA 小T
    小T 2009 年 08 月 14 日 at 21:22 |

    砼砼，就是技术强，爱折腾

  3. 回复TA 小T
    小T 2009 年 08 月 14 日 at 21:23 |

    PS：评论很炫呀，什么时候也出个教程。。

  4. 回复TA derek
    derek 2009 年 08 月 14 日 at 21:56 |

    手工牛人，赞一个

  5. 回复TA 砼砼
    砼砼 2009 年 08 月 15 日 at 02:00 |

    @托尔·银月:真快啊
    @小T:本来昨天就打算写的，太晚了，没写，今天又弄了滔滔，没时间写，呵呵，估计明天写
    @derek:纯手工制作啊～

  6. 回复TA zwwooooo
    zwwooooo 2009 年 08 月 15 日 at 22:39 |

    啊……撞‘章’了……早知早点来你这，我就不写那文章了……

  7. 回复TA zwwooooo
    zwwooooo 2009 年 08 月 15 日 at 22:59 |

    你这个方法好啊，我的相当山寨+偷工减料！

  8. 回复TA 砼砼
    砼砼 2009 年 08 月 15 日 at 23:46 |

    @zwwooooo:没撞啊，你用的是是js啊，节约服务器资源，我是节约的客服端资源，呵呵 :o nepudency:

  9. 回复TA zwwooooo
    zwwooooo 2009 年 08 月 16 日 at 00:18 |

    @砼砼:那就是各有各的长处了？哈哈

    啊，对了，你那个 @ 是怎样实现的？主题自带？插件？手工修改主题？

  10. 回复TA 砼砼
    砼砼 2009 年 08 月 16 日 at 10:37 |

    @zwwooooo:直接写的JS :shock:

  11. 回复TA 卢松松
    卢松松 2009 年 08 月 16 日 at 11:07 |

    求助，用asp怎么做 zblog系统

  12. 回复TA 砼砼
    砼砼 2009 年 08 月 17 日 at 15:09 |

    @卢松松:好久没写asp了，我这边没法调试，你看看

    <%
    'on error resume next
    url = "http://www.taotao.com/cgi-bin/msgMgr?type=3&num=1&qq=156888120"'这里填写你的QQ号
    Set http=Server.CreateObject("MSXML2.XMLHTTP")'Msxml2.XMLHTTP Microsoft.XMLHTTP MSXML2.ServerXMLHTTP
    http.Open "GET",url,false
    http.send
    Set xml=Server.CreateObject("Microsoft.XMLDOM")
    xml.Async=true
    xml.ValidateOnParse=False
    xml.Load(http.ResponseXML)

    If xml.ReadyState>2 Then
     if xml.parseError.errorCode <> 0 then
     response.write "错误：读取数据失败"
     response.write xml.parseerror.errorcode
     response.write xml.parseerror.reason
     response.End()
     end if

     dim taotao_string,taotao_Array
     taotao_string=""
     taotao_Array = Array("网页", "QQ机器人", "QQ空间", "QQ签名", "短信", "手机上网", "MSN机器人", "MSN签名", "手机QQ", "彩信", "订阅", "", "QQ状态")

     Set ml=xml.getElementsByTagName("ml")
     if isnull(xml.getElementsByTagName("ml") ) then
      response.Write("读取失败")
      response.End()
     else
      For i=0 To (ml.Length-1)
       Set taotao_cn=ml.Item(i).getElementsByTagName("cn")
       Set taotao_t=ml.Item(i).getElementsByTagName("t")
       Set taotao_sr=ml.Item(i).getElementsByTagName("sr")
       Response.write(taotao_cn)
       taotao_string =taotao_string + "<span style=""display:block"">"&taotao_cn.text&" 通过 "&imt_LJ(taotao_t.Text)&taotao_Array(taotao_sr.Text)&"</span>"
      Next
     end if
     response.write taotao_string
    End If
    Set http=Nothing
    Set xml=Nothing

    Function imt_LJ(taotao_t)
        Set imt_taotao_t_array=Split(",",taotao_t)
        Set n = imt_taotao_t_array(0)
        Set v = imt_taotao_t_array(0)
        taotao_t = ""
     Select Case n
      case "1"
       taotao_t = "约 " & v & " 秒前"
      case "2"
       taotao_t = "约 " & v & " 分钟前"
      case "3"
       taotao_t = "约 " & v & " 小时前"
      case "4"
       taotao_t = "约 1 天前"
      case "5"
       taotao_t = "约 3 天前"
      case "6"
       taotao_t = "约 1 周前"
      case "7"
       taotao_t = v
     End Select
     imt_LJ=taotao_t
    End Function
    %>
  13. 回复TA mytion
    mytion 2009 年 08 月 18 日 at 08:23 |

    内牛满面，终于找到啦哈！之前本来想用滔滔的做一个公告的，但是滔滔的官方提供的超级难看，于是放弃。看到十二少折腾了这个方法貌似非常好啊！

  14. 回复TA mytion
    mytion 2009 年 08 月 18 日 at 10:57 |

    该死提示调用非法函数，被yo2给禁用啦！

  15. 回复TA 砼砼
    砼砼 2009 年 08 月 19 日 at 23:36 |

    @mytion:可怜的孩子

  16. 回复TA xiao3
    xiao3 2010 年 01 月 22 日 at 12:06 |

    我想知道怎么用Twitter的，而且最好是只显示内容，其他的什么发表时间啊～那些都不要！

Leave a Reply

无觅相关文章插件，快速提升流量