DIV CSS 佈局教程網

 DIV+CSS佈局教程網 >> 網頁腳本 >> XML學習教程 >> XML詳解 >> 不用編程,得到一個用戶QQ在線狀態
不用編程,得到一個用戶QQ在線狀態
編輯:XML詳解     

把下面代碼另存為一個.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='"&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>


<br>
大圖標:
<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>

XML學習教程| jQuery入門知識| AJAX入門| Dreamweaver教程| Fireworks入門知識| SEO技巧| SEO優化集錦|
Copyright © DIV+CSS佈局教程網 All Rights Reserved