|
发表于 2013-2-1 07:40:07
|
显示全部楼层
江苏省徐州市
[e]
.版本 2
.子程序 POST提交, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
.局部变量 formhash, 文本型
formhash = 文本_取出中间文本 (网页_取网页源码 (“http://bbs.lszj.tk/member.php?mod=logging&action=login”), “formhash=”, “'”)
输出调试文本 (formhash)
局_提交地址 = “http://bbs.lszj.tk/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=LisoK&inajax=1”
局_提交数据 = “formhash=” + formhash + “&referer=http%3A%2F%2Fbbs.lszj.tk%2Fforum.php&loginfield=username&username=wzj305&password=wzj018452&questionid=0&answer=&YXM_input_result=c13c7f95d689789bbb0b49258709af8c&YXM_level=32&YinXiangMa_response=2&YinXiangMa_pk=1472d99b08f38319956db41961328a18&YinXiangMa_challenge=a2380bf4de3db7e3e9d2090784b41373”
局_返回文本 = 到文本 (网页_访问 (局_提交地址, 1, 局_提交数据, )) ' 最后一个参数为返回的编码方式
.判断开始 (寻找文本 (局_返回文本, “输入你成功的关键字”, , 假) ≠ -1)
返回 (真)
.判断 (寻找文本 (局_返回文本, “输入你失败的关键字”, , 假) ≠ -1)
返回 (假)
.默认
输出调试文本 (局_返回文本) ' 如果前面2个没判断成功,把返回文件输出来
.判断结束
返回 (假)
[/e] |
|