用js實現QQ在線查詢功能
更新時間:2007年06月14日 00:00:00 作者:
這段程序的方法是利用XMLHTTP來讀取騰訊網站的相應HTML代碼獲取QQ的頭像,根據這個想法,我們還可以抓取很多其他網站的信息,如天氣預報、新聞等等。
<script language="JavaScript">
<!--
function getFaceImg(QQcode)
{
var Re=new RegExp("^[1-9]{1}\d+$","g");
if (!QQcode !Re.test(QQcode)) return;
var URL="http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="+QQcode;
var http=new ActiveXObject("Microsoft.XMLHTTP");
http.open("GET",URL,false,"","");
http.setRequestHeader("CONTENT-TYPE","text/html; Charset=gb2312");
http.send();
if (http.status!=200) return;
var webStr=http.responseText;
Re=new RegExp(""(http://img.tencent.com/face/[^"]+)"","ig");
if (Re.test(webStr))
return "<a ;
http=null;
}
document.write("我的QQ狀態(tài):"+getFaceImg("44723461"));
//-->
</script>
<script language="JavaScript">
<!--
function getFaceImg(QQcode)
{
var Re=new RegExp("^[1-9]{1}\d+$","g");
if (!QQcode !Re.test(QQcode)) return;
var URL="http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="+QQcode;
var http=new ActiveXObject("Microsoft.XMLHTTP");
http.open("GET",URL,false,"","");
http.setRequestHeader("CONTENT-TYPE","text/html; Charset=gb2312");
http.send();
if (http.status!=200) return;
var webStr=http.responseText;
Re=new RegExp(""(http://img.tencent.com/face/[^"]+)"","ig");
if (Re.test(webStr))
return "<a ;
http=null;
}
document.write("我的QQ狀態(tài):"+getFaceImg("44723461"));
//-->
</script>
相關文章
asp中通過addnew添加內容后取得當前文章的自遞增ID的方法
asp中使用addnew方法添加一條記錄后,我們經常使用取得自遞增的ID,而使用bookmark很容易實現這樣的功能。2011-01-01Access數據庫中“所有記錄中均未找到搜索關鍵字”的解決方法
這個是Access一個天生不足的表現,出現此錯誤是因為你的Access數據庫有錯誤了。2008-08-08服務端 VBScript 與 JScript 幾個相同特性的寫法與示例
服務端 VBScript 與 JScript 幾個相同特性的寫法與示例...2007-03-03