把下面代码另存为一个.htm文件就行了。
小图标：
大图标：
不用编程，得到一个用户QQ在线状态
简介： 把下面代码另存为一个.htm文件就行了。
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End Wi...
责任编辑：admin