网页POST操作，DX2登录。
.版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 返回提示, 文本型
.局部变量 返回文本, 文本型
论坛地址 ＝ “http://xyu2011.tk/” ' 小宇QQ：497593615 接收QQ空间刷留言，刷微博听众软件、代做DX2家族网站(风格：如残血、浪漫等家族社区的)
.如果真 (用户名编辑框.内容 ＝ “”)
状态条1.置文本 (0, “检测到用户名空白，请输入用户名”)
返回 ()
.如果真结束
.如果真 (密码编辑框.内容 ＝ “”)
状态条1.置文本 (0, “检测到用户名空白，请输入用户密码”)
返回 ()
.如果真结束
' 如果 (论坛.登陆 (论坛地址, 用户名编辑框.内容, 密码编辑框.内容, 返回提示) ＝ 真)
返回文本 ＝ 到文本 (读url (论坛地址 ＋ “member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1 ”, “POST”, “fastloginfield=username&username=” ＋ 编码_URL编码_GBK (用户名编辑框.内容) ＋ “&cookietime=2592000&password=” ＋ 编码_URL编码_GBK (密码编辑框.内容) ＋ “&quickforward=yes&handlekey=ls”))
返回文本 ＝ 到文本 (读url (论坛地址 ＋ “member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1 ”, “POST”, “fastloginfield=username&username=” ＋ 编码_URL编码_GBK (用户名编辑框.内容) ＋ “&cookietime=2592000&password=” ＋ 编码_URL编码_GBK (密码编辑框.内容) ＋ “&quickforward=yes&handlekey=ls”))
' UTF8的使用下面的。把下面 返回文本 前面的“ ' ”去掉。----上面的是GBK登陆的.，UTF8的要在..上面 返回文本 前加上“ ' ”
' UTF8的使用下面的。把下面 返回文本 前面的“ ' ”去掉。----上面的是GBK登陆的.，UTF8的要在..上面 返回文本 前加上“ ' ”
' 返回文本 ＝ UTF8转ANSI (读url (论坛地址 ＋ “member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1 ”, “POST”, “fastloginfield=username&username=” ＋ 用户名编辑框.内容 ＋ “&cookietime=2592000&password=” ＋ 密码编辑框.内容 ＋ “&quickforward=yes&handlekey=ls”))
' 返回文本 ＝ UTF8转ANSI (读url (论坛地址 ＋ “member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1 ”, “POST”, “fastloginfield=username&username=” ＋ 用户名编辑框.内容 ＋ “&cookietime=2592000&password=” ＋ 密码编辑框.内容 ＋ “&quickforward=yes&handlekey=ls”))
输出调试文本 (返回文本)
.如果 (寻找文本 (返回文本, “欢迎您回来，”, , 假) ＞ -1) ' 成功
返回提示 ＝ “欢迎您回来，” ＋ 取指定内容 (返回文本, “欢迎您回来，”, “'”)
uid ＝ 取指定内容 (返回文本, “uid':'”, “'”)
成功信息 ＝ 返回提示
状态条1.置文本 (0, “登录成功，正在载入界面，请稍候......”)
载入 (窗口1, , 假)
删除文件 (取运行目录 () ＋ “/COOKIE.ini”)
窗口1.可视 ＝ 真
_启动窗口.可视 ＝ 假
.否则
.如果 (寻找文本 (返回文本, “密码错误次数过多，”, , 假) ＞ -1) ' 失败
返回提示 ＝ 取指定内容 (返回文本, “errorhandle_ls('”, “'”)
状态条1.置文本 (0, 返回提示)
.否则
.如果 (寻找文本 (返回文本, “登录失败，您还可以尝试”, , 假) ＞ -1) ' 失败
返回提示 ＝ 取指定内容 (返回文本, “errorhandle_ls('”, “'”)
状态条1.置文本 (0, 返回提示)
.否则
状态条1.置文本 (0, “登录失败，请检测帐号密码是否正确”)
.如果结束
.如果结束
.如果结束
' 论坛.退出 ()