登陆器制作
.版本 2
.程序集 窗口程序集1
.程序集变量 目录, 文本型
.程序集变量 私服IP, 文本型, , "0"
.子程序 __启动窗口_创建完毕
组合框1.加入项目 (“私服1区”, )
加入成员 (私服IP, “192.168.1.1”)
组合框1.加入项目 (“私服2区”, )
加入成员 (私服IP, “192.168.1.2”)
组合框1.加入项目 (“私服3区”, )
加入成员 (私服IP, “192.168.1.3”)
目录 , 取运行目录 ()
.如果真 (假 , 文件是否存在 (目录 , “\map\0.map”))
信息框 (“请把登陆器放在传奇目录下运行”, 64, “传奇登陆器”)
结束 ()
.如果真结束
.子程序 _按钮1_被单击
.局部变量 选中索引
选中索引 , 组合框1.现行选中项
.如果真 (-1 ? 选中索引)
写配置项 (目录 , “\ftp.ini”, “Server”, “ServerCount”, “1”)
写配置项 (目录 , “\ftp.ini”, “Server”, “server1caption”, 组合框1.取项目文本 (选中索引))
写配置项 (目录 , “\ftp.ini”, “Server”, “server1name”, 组合框1.取项目文本 (选中索引))
选中索引 , 选中索引 , 1
写配置项 (目录 , “\mir.ini”, “setup”, “FontName”, “楷体”)
写配置项 (目录 , “\mir.ini”, “setup”, “ServerAddr”, 私服IP [选中索引])
写配置项 (目录 , “\mirsetup.ini”, “setup”, “FontName”, “楷体”)
写配置项 (目录 , “\mirsetup.ini”, “setup”, “ServerAddr”, 私服IP [选中索引])
运行 (目录 , “\MirClient.dat”, 假, )
.如果真结束
.子程序 _按钮2_被单击
' 写配置项 (目录 , “\111.ini”, “setup”, “FontName”, “楷体”)
销毁 ()