本帖最后由 .個朲綉√ 于 2011-4-5 13:28 编辑
我用_FileWriteLog把源码写入到记事本里,源码也没有错,
可是$subNo为什么用msgbox出来是空白的,啥也没有。。。。
但是我再把源码再复制到正则里测试,能识别帐务停机
$oHTTP.Open("GET", "http://sh.ct10000.com/v3/curAccountZq.do?method=userInfo&menuid=3&canAdd2Tool=canAdd2Tool&zq=zq", False)
$oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer", "http://sh.ct10000.com/v3/AccountManageZqAction.do?method=init&zq=zq")
$oHTTP.Send()
$Log_txt = $oHTTP.responseText
_FileWriteLog(@ScriptDir & "\源码.log",$Log_txt)
$subNo = StringRegExp($Log_txt, '(?s)状态:.+?([^\x00-\xff]+)', 1)
MsgBox(0,"1",$subNo)
|