猴岛POST登录

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 sjs, 文本型

子程序_获取验证码 ()
sjs ＝ 文本_取随机数字 (4, )
图片框1.图片 ＝ 网页_访问 (“https://user.zixia.com/class/CAP/codeshow.php?sid=” ＋ sjs, 0, , , , , , , , , )

.子程序 _按钮1_被单击
.局部变量 提交信息, 文本型
.局部变量 提交地址, 文本型
.局部变量 返回信息, 文本型

提交地址 ＝ “https://user.zixia.com/index.php?app=login&forward=https://bbs.houdao.com”
提交信息 ＝ “lgt=1&username=” ＋ 编辑框1.内容 ＋ “&password=” ＋ 编辑框2.内容 ＋ “&idcode=” ＋ 编辑框3.内容 ＋ “&forward=https%3A%2F%2Fbbs.houdao.com&logincd=&app=checklogin”
返回信息 ＝ 到文本 (网页_访问_对象 (提交地址, 1, 提交信息, , , , , , , , , , , , ))
返回信息 ＝ 文本_取出中间文本 (返回信息, #zj1, #zj2, , )
调试输出 (返回信息)
.如果 (返回信息 ＝ “”)
    信息框 (“登录成功”, 0, , )
.否则
    信息框 (返回信息, 0, , )
.如果结束


.子程序 子程序_获取验证码
.局部变量 sjs, 文本型

sjs ＝ 文本_取随机数字 (4, )
图片框1.图片 ＝ 网页_访问 (“https://user.zixia.com/class/CAP/codeshow.php?sid=” ＋ sjs, 0, , , , , , , , , )

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

子程序_获取验证码 ()

@隔壁张大哥