|
|

楼主 |
发表于 2013-5-22 07:43:07
|
显示全部楼层
重庆市重庆市
[e]
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 post地址, 文本型
.局部变量 post数据, 文本型
.局部变量 返回文本, 文本型
post地址 = “http://service.cq.10086.cn/app”
' http://service.cq.10086.cn/app?service=page/svcquery.RetrievePassword&listener=initPage&subSysCode=E003
post数据 = “service=direct%2F1%2Fsvcquery.RetrievePassword%2F%24Form&sp=S0&Form0=%24FormConditional%2Cbsubmit%2C%24FormConditional%240&%24FormConditional=T&%24FormConditional%240=F&TELNUM=” + 删首尾空 (编辑框1.内容) + “&USERNAME=” + 编码_URL编码_GBK (编辑框2.内容) + “&CERTID=” + 编辑框3.内容 + “&bsubmit=%C8%B7+%B6%A8&SERVICE_FLAG=”
' service=direct%2F1%2Fsvcquery.RetrievePassword%2F%24Form&sp=S0&Form0=%24FormConditional%2Cbsubmit%2C%24FormConditional%240&%24FormConditional=T&%24FormConditional%240=F&TELNUM=13452975730&USERNAME=%BD%AD%BC%D1%D2%A3&CERTID=50022119930313245X&bsubmit=%C8%B7+%B6%A8&SERVICE_FLAG=
返回文本 = 到文本 (网页_访问 (post地址, 1, , , post数据, , ))
.如果 (倒找文本 (返回文本, “您变更【服务密码】业务成功”, , 假) ≠ -1)
信息框 (“修改成功!”, 0, )
.否则
信息框 (“修改失败!”, 0, )
.如果结束
调试输出 (post数据)
调试输出 (post地址)
调试输出 (返回文本)
[/e] |
|