|
发表于 2014-11-10 19:20:18
|
显示全部楼层
贵州省贵阳市
本帖最后由 xiaoyu1986 于 2014-11-10 19:23 编辑
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 POST提交, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
.局部变量 VIEWSTATE, 文本型
.局部变量 VIEWSTATEGENERATOR, 文本型
.局部变量 EVENTVALIDATION, 文本型
.局部变量 网页源码, 文本型
网页源码 = 到文本 (网页_访问 (“http://21.24.4.77:8001/Default.aspx”))
' 调试输出 (网页源码)【在这个时候顺便也要输出cookie】
VIEWSTATE = 文本_取出中间文本 (网页源码, “__VIEWSTATE#引号+value=#引号”, “#引号 />”, )
EVENTVALIDATION = 文本_取出中间文本 (网页源码, “__EVENTVALIDATION #引号 +value= #引号”, #引号) 【这三个参数都调试输出看一下,取得对不对】
VIEWSTATEGENERATOR = 文本_取出中间文本 (网页源码, “__VIEWSTATEGENERATOR#引号+value=#引号”, “#引号 />”, )
局_提交数据 = “__VIEWSTATE=” + VIEWSTATE + “&__VIEWSTATEGENERATOR=” + VIEWSTATEGENERATOR + “&__EVENTVALIDATION=” + EVENTVALIDATION + “&ddlCustBr=0&tbCustNo=” + 编辑框3.内容 + “&tbCustIdNo=&tbDateBegin=” + 编辑框1.内容 + “&tbDateEnd=” + 编辑框2.内容 + “&ibSearch.x=43&ibSearch.y=19”
' 局_返回文本 = 到文本 (网页_访问 (局_提交地址, 1, 局_提交数据, , , )) ' 最后一个参数为返回的编码方式【这里提交的时候带上cookie和协议头!】
调试输出 (局_返回文本)
.判断开始 (寻找文本 (局_返回文本, “输入你成功的关键字”, , 假) ≠ -1)
返回 (真)
.判断 (寻找文本 (局_返回文本, “输入你失败的关键字”, , 假) ≠ -1)
返回 (假)
.默认
输出调试文本 (局_返回文本) ' 如果前面2个没判断成功,把返回文件输出来
.判断结束
返回 (假)
.子程序 _按钮1_被单击
POST提交 ()
需要注意的地方我用红的的字标明了,,你注意一下。。
|
|