传奇登陆器

啊冲

.版本 2
.支持库 iext

.程序集 窗口程序集3

.子程序 _按钮2_被单击

载入 (帐号注册, , 真)

.子程序 _按钮4_被单击

载入 (添加, , 真)

.子程序 _按钮3_被单击

载入 (密码修改, , 真)

.子程序 _按钮5_被单击

销毁 ()


.子程序 _时钟1_周期事件

.如果 (透明标签1.左边 ＋ 透明标签1.宽度 ＝ 0)
    透明标签1.左边 ＝ 画板1.宽度
.否则

.如果结束
透明标签1.左边 ＝ 透明标签1.左边 － 1


.子程序 _组合框1_列表项被选择
.局部变量 服务器测试, 整数型

服务器测试 ＝ 组合框1.现行选中项
.如果 (客户1.连接 (到文本 (读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “serverip” ＋ 到文本 (服务器测试), )), 7000) ＝ 真)
    透明标签3.标题 ＝ “开放中”
    连接 ＝ 真
    客户1.断开连接 ()
.否则
    透明标签3.标题 ＝ “关闭中”
    连接 ＝ 假
.如果结束


.子程序 _按钮1_被单击

服务器组 ＝ 组合框1.现行选中项
.如果 (组合框1.现行选中项 ＝ 0 或 连接 ＝ 假)
    信息框 (“你没选择需要登陆的服务器，或者当前服务器维护中。”, 0 ＋ #警告图标, “警告：”)
.否则
    .判断开始 (文件是否存在 (取运行目录 () ＋ “\xyx.dat”) ＝ 真 且 文件是否存在 (取运行目录 () ＋ “\MClient.dll”) ＝ 真)

    .默认
        写到文件 (取运行目录 () ＋ “\xyx.dat”, #xyx)
        写到文件 (取运行目录 () ＋ “\MClient.dll”, #dll)
        置文件属性 (取运行目录 () ＋ “\xyx.dat”, 2)
        置文件属性 (取运行目录 () ＋ “\MClient.dll”, 2)
        写配置项 (取运行目录 () ＋ “\ftp.ini”, “Server”, “server1caption”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “server” ＋ 到文本 (服务器组), ))
        写配置项 (取运行目录 () ＋ “\ftp.ini”, “Server”, “server1name”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “server” ＋ 到文本 (服务器组), ))
        写配置项 (取运行目录 () ＋ “\mir.ini”, “setup”, “ServerAddr”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “serverip” ＋ 到文本 (服务器组), ))
        写配置项 (取运行目录 () ＋ “\mirsetup.ini”, “setup”, “ServerAddr”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “serverip” ＋ 到文本 (服务器组), ))
        运行 (取运行目录 () ＋ “\xyx.dat”, 假, )
        销毁 ()
        _启动窗口.销毁 ()
    .判断结束
    写配置项 (取运行目录 () ＋ “\ftp.ini”, “Server”, “server1caption”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “server” ＋ 到文本 (服务器组), ))
    写配置项 (取运行目录 () ＋ “\ftp.ini”, “Server”, “server1name”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “server” ＋ 到文本 (服务器组), ))
    写配置项 (取运行目录 () ＋ “\mir.ini”, “setup”, “ServerAddr”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “serverip” ＋ 到文本 (服务器组), ))
    写配置项 (取运行目录 () ＋ “\mirsetup.ini”, “setup”, “ServerAddr”, 读配置项 (取运行目录 () ＋ “\server.ini”, “server”, “serverip” ＋ 到文本 (服务器组), ))
    运行 (取运行目录 () ＋ “\xyx.dat”, 假, )
    销毁 ()
    _启动窗口.销毁 ()
.如果结束


.子程序 _透明标签3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型



.子程序 _按钮6_被单击

执行 (, 域名 ＋ “gg/8866566.exe”, , )

http://yunpan.cn/QXYqrDsZMXsCC