|
发表于 2016-3-22 06:11:19
|
显示全部楼层
四川省成都市
.版本 2
.支持库 internet
.支持库 spec
.子程序 __启动窗口_创建完毕
图片框1.图片 = HTTP读文件 (“http://12sky2.gxcw.com/api.php?op=checkcode&code_len=4&font_size=14&width=84&height=24&font_color=&background=”)
.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.图片 = HTTP读文件 (“http://12sky2.gxcw.com/api.php?op=checkcode&code_len=4&font_size=14&width=84&height=24&font_color=&background=”)
.子程序 _按钮1_被单击
.局部变量 提交数据, 文本型
.局部变量 提交地址, 文本型
.局部变量 返回文本, 文本型
提交地址 = “http://12sky2.gxcw.com/index.php?m=member&c=index&a=login”
提交数据 = “forward=http%3A%2F%2F12sky2.gxcw.com%2Findex.php%3Fm%3Dcontent%26c%3Dindex%26a%3Dlists%26catid%3D341&username=” + 编辑框_账号.内容 + “&password=” + 编辑框_密码.内容 + “&code=” + 编辑框_账号1.内容 + “&dosubmit=%CC%E1%BD%BB”
返回文本 = 到文本 (网页_访问 (提交地址, 1, 提交数据))
.如果真 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
标题 = “登陆成功”
.如果真结束
' 调试输出 (返回文本)
返回文本 = 到文本 (网页_访问 (“http://12sky2.gxcw.com/code/sign/sign”))
调试输出 (返回文本)
|
|