} // if
break;
} // if
} // for

return( $ret );
}
/* }}} */

/* {{{ sample:
echo tphp_qq_online( 80000800 );
}}} */

?>

注：以上为抛砖引玉，各位可以以此参照写出其他语言的版本；

附：不用程序，得到一个用户QQ在线状态(把下面代码另存为一个.htm文件即可)

<script language=vbscript>

Function GetURL(url)

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", url, False, "", ""

.Send

GetURL = .ResponseText

End With

Set Retrieval = Nothing

End Function

</script>

小图标:

<script language=vbscript>

Dim T,Start,Length,PicURL

T=GetURL("http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no=1924192")


Start=Instr(1,T,"ShowResult("+chr(34))

Start=Instr(Start,T,"http://")

Length=Instr(Start,T,chr(34)+","+chr(34))-Start

PicURL=Mid(T,Start,Length)

′document.write "<img src=http://www.webjx.com/htmldata/2005-07-06/′"&PicURL&"′>"

document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192
target=_blank title=QQ:1924192><img src="http://www.webjx.com/htmldata/2005-07-06/&PicURL&" width=16
height=16 border=0></a>"

</script>

大图标：

<script language=vbscript>

Dim T,Start,Length,PicURL

T=GetURL("http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192")


Start=Instr(1,T,"img height=32")

Start=Instr(Start,T,"http://")

Length=Instr(Start,T,chr(

上一页  [1] [2] [3] 下一页

在google里搜索更多PHP实现QQ挂机编程(2):取QQ在线状态

	Web www.51ec.org

上一篇信息学院： Windows环境下用Apache+PHP+MySql配置web服务器(菜鸟版)

下一篇信息学院： 使用php重新实现PHP脚本引擎内置函数