|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
POST登录报 “您浏览的页面未找到-404-快乐赚”
变量 模式 = "POST"
变量 提交网址 = "快乐赚 /ajax.php"
变量 访问网址 = "快乐赚"
变量 提交数据= ""
变量 响应头 //引用返回响应头,提交失败则返回提交响应头,获取失败则返回获取响应头
变量 head = array("Accept" = "*/*")
变量 编码 = "gb2312"
//如是返回空,则失败,可以获取错误信息与响应头来判断哪儿出错了
//提交为空,获取地址不为空,不提交且忽略提交模式,则只操作获取网页且返回获取网页的响应头与获取网页的内容
//获取主页源码
变量 retpage = http提交请求扩展(模式,"",访问网址,提交数据,响应头,head,编码)
如果(null == retpage)
变量 error = getlasterror(1)
//打印错误信息与响应头
error = "错误信息: \n"& error & "\n响应头: \n"&响应头
调试输出(error)
否则
调试输出(retpage)
//获取tonken value..[a-z0-9]{32}\" value="fb1c6bbd807b1fba1eb46ac759998817"
变量 token临时 = 正则表达式匹配(retpage,"value..[a-z0-9]{32}\"",假,真)
调试输出(token临时)
变量 token = 正则表达式替换(token临时[0],"value..|\"","",真,真)
调试输出(token)
变量 随机="0."&随机数(10000000,99999999)&随机数(10000000,99999999)
调试输出(随机)
提交数据="act=login&tbUserAccount=“&账号&“tbUserPwd=”&密码&“tbCode=&re=http%3A//www .lezh uan.c om/&token="&token&"&key="&随机
结束
retpage = http提交请求扩展(模式,提交网址,"",提交数据,响应头,head,编码)
如果(null == retpage)
变量 error = getlasterror(1)
//打印错误信息与响应头
error = "错误信息: \n"& error & "\n响应头: \n"&响应头
调试输出(error)
否则
调试输出(retpage)
编辑框设置文本("编辑框0",retpage)
网页跳转("浏览器0",访问网址)
结束
|
|