|

楼主 |
发表于 2013-7-23 08:55:55
|
显示全部楼层
山东省枣庄市
[e]
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 帐号, 文本型
.程序集变量 昵称, 文本型
.程序集变量 密码, 文本型
.程序集变量 安全密码, 文本型
.程序集变量 ***, 文本型
.程序集变量 名字, 文本型
.程序集变量 手机号, 文本型
.程序集变量 验证码, 文本型
.子程序 _按钮1_被单击
帐号 = 编辑框1.内容
昵称 = 编码_URL编码 (编辑框2.内容, , 真)
密码 = 编辑框3.内容
安全密码 = 编辑框4.内容
手机号 = 编辑框5.内容
名字 = 编码_URL编码 (编辑框6.内容, , 真)
验证码 = 编辑框7.内容
*** = 编辑框8.内容
POST提交 ()
.子程序 _窗口1_创建完毕
.子程序 POST提交, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
局_提交地址 = “http://www.0140.com/Register.aspx”
局_提交数据 = “__LASTFOCUS=&__VIEWSTATE=%2FwEPDwULLTE0NTMxMTgxMzhkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYBBQtidG5SZWdpc3Rlcg%3D%3D&__EVENTTARGET=&__EVENTARGUMENT=&txtAccounts=” + 帐号 + “&txtNickname=” + 昵称 + “&hfFaceID=100&ddlGender=0&txtLogonPass=” + 密码 + “&txtLogonPass2=” + 密码 + “&txtInsurePass1=” + 安全密码 + “&txtInsurePass2=” + 安全密码 + “&txtCompellation=&txtPassPortID=&txtCode=” + 验证码 + “&txtSpreader=®=true&chkAgree=on®=true&btnRegister.x=60&btnRegister.y=23”
调试输出 (局_提交数据)
局_返回文本 = 到文本 (网页_访问 (局_提交地址, 1, 局_提交数据, , , , , , , , )) ' 最后一个参数为返回的编码方式
输出调试文本 (编码_utf8到gb2312 (局_返回文本)) ' 如果前面2个没判断成功,把返回文件输出来
返回 (假)
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.图片 = 网页_验证码读取 (“http://www.0140.com/ValidateImage.aspx?r=” + 时间_取随机时间戳 ())
[/e] |
|