不用编程得到一个用户在线状态的

文章来源：丹阳文学网 | 2021-10-29

把下面代码另存为一个.htm文件就行了。lt;script language=vbscriptgt;

Function GetURL(url)

Set Retrieval = CreateObject(\"LHTTP\")

With Retrieval

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

.Send

GetURL = .ResponseText

End With

Set Retrieval = Nothing

End Function

lt;/scriptgt;

小图标：

lt;script language=vbscriptgt;

Dim T,Start,Length,PicURL

T=GetURL(\"

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

Start=Instr(Start,T,\"

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

回家一看成分表 PicURL=Mid(T,Start,Length)

\'\'ite \"lt;img src=\'\'\"PicURL\"\'\'gt;\"

ite \"lt;a href= target=_blank title=:gt;lt;img src=\"PicURL\" width=16 height=16 border=0gt;lt;/agt;\"

lt;/scriptgt;

lt;brgt;

大图标：

lt;script language=vbscriptgt;

Dim T,Start,Length,PicURL

T=GetURL(\"

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

Start=Instr(Start,T,\"

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

PicURL=Mid(T,Start,Length)

\'\'ite \"lt;img src=\'\'\"PicURL\"\'\'gt;\"

ite \"lt;a href= target=_blank title=:gt;lt;img src=\"PicURL\" width=32 height=32 border=0gt;lt;/agt;\"

lt;/scriptgt;