易代码

主程序：

.版本 2
.支持库 spec

.子程序 _按钮_登录_被单击
.局部变量 url, 文本型
.局部变量 返回文本, 文本型
.局部变量 cookie1, 文本型

url ＝ “https://passport.shangxueba.com/user/userlogin.aspx?url=https%3a%2f%2fwww.shangxueba.com%2f”
返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (url, 1, “__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=” ＋ __VIEWSTATE ＋ “&__EVENTVALIDATION=” ＋ __EVENTVALIDATION ＋ “&txtName=18047156415&txtPassword=WOCAIbupa958&txtVerifycode=” ＋ 编辑框_验证码.内容 ＋ “&hidcode=&hidflag=1&Button1=”, cookie, cookie1, #登录Header, , 真, , , 真, )))
调试输出 (返回文本)
调试输出 (cookie)
编辑框1.内容 ＝ 返回文本

url ＝ “https://passport.shangxueba.com/user/userloginfinsh.aspx?url=https%3a%2f%2fwww.shangxueba.com%2f%3f_ts” ＋ 时间_到文本 ()
返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (url, 0, , cookie, , #登录成功Header, , 真, , , , )))
调试输出 (返回文本)
编辑框1.内容 ＝ 返回文本

常量表：

.版本 2

.常量 header, “<文本长度: 280>”
.常量 成功, “<文本长度: 12>”
.常量 header1, “<文本长度: 485>”
.常量 常量1, “<文本长度: 2685>”
.常量 删除, “<文本长度: 9>”
.常量 替换1, “<文本长度: 14>”
.常量 替换2, “<文本长度: 14>”
.常量 header2, “<文本长度: 512>”
.常量 时间空格, “<文本长度: 1>”
.常量 课程header, “<文本长度: 632>”
.常量 createTime, “<文本长度: 14>”
.常量 lockFlag, “<文本长度: 12>”
.常量 updateTime, “<文本长度: 14>”
.常量 userBindingType, “<文本长度: 19>”
.常量 图片网址, “<文本长度: 35>”
.常量 imageUrl, “<文本长度: 12>”
.常量 pcImageUrl, “<文本长度: 14>”
.常量 userName, “<文本长度: 12>”
.常量 userSex, “<文本长度: 11>”
.常量 登录积分, “<文本长度: 15>”
.常量 修改资料积分, “<文本长度: 15>”
.常量 练习积分, “<文本长度: 15>”
.常量 学课程积分, “<文本长度: 15>”
.常量 今日总积分, “<文本长度: 15>”
.常量 总积分, “<文本长度: 10>”
.常量 测试文本, “<文本长度: 1094>”
.常量 userName登录, “<文本长度: 12>”
.常量 最高分, “<文本长度: 13>”
.常量 逗号, “<文本长度: 1>”

自定义数据类型表：

.版本 2

.数据类型 账号信息
.成员 账号, 文本型
.成员 密码, 文本型

DLL命令定义表：

.版本 2

.DLL命令 _菜单置标题栏, , “SkinH_EL.dll”, “SkinH_SetTitleMenuBar”, , 在窗口标题栏定义菜单，成功返回0。说明:WIN7系统下不可与SkinH_SetAero()函数同时使用
.参数 窗口句柄, 整数型, , 欲换肤的窗口句柄
.参数 是否启用, 整数型, , 是否启用标题菜单栏；0停用，1启用
.参数 菜单高度, 整数型, , 0为默认；一般设置为22或10；根据需要设置
.参数 顶部偏移, 整数型, , 顶部偏移
.参数 右部偏移, 整数型, , 右部偏移

.DLL命令 _加载皮肤, 整数型, “SkinH_EL.dll”, “SkinH_AttachEx”, 公开, 加载指定的皮肤，成功返回0,失败返回非0
.参数 皮肤路径, 文本型, , 皮肤文件路径
.参数 皮肤口令, 文本型, , 皮肤密钥