DX2登录易语言源码

网页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, “登录失败，请检测帐号密码是否正确”)
        .如果结束

    .如果结束

.如果结束
' 论坛.退出 ()