|
注：以上为抛砖引玉，各位可以以此参照写出其他语言的版本；
附：不用程序，得到一个用户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>
phpma.com
小图标:
<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=′"&PicURL&"′>"
document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192
target=_blank title=QQ:1924192><img src="&PicURL&" width=16
height=16 border=0></a>"
</script>
大图标：phpma.com
<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(34)+" width=32")-Start
PicURL=Mid(T,Start,Length)
′document.write "<img src=′"&PicURL&"′>"
document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192
target=_blank title=QQ:1924192><img src="&PicURL&" width=32
height=32 border=0></a>"
</script>phpma.com
（阅读次数：）
共2页: 上一页 [1] 2 下一页
|
收藏
推荐
评论(0条)
