❶ 魔域登录器制作方法
易语言源码：
.版本 2
.子程序 _按钮1_被单击
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Oem”, “Id”, “2010” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “AccountSetup”, “Type”, “1” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “ServerInfo”, “URL”, “http://” ＋ IP地址 ＋ “:9527/server.txt”)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “ServerStatus”, “Link”, “http://” ＋ IP地址 ＋ “:9527/OnlineStatus_tx.txt”)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “ExitLink”, “Address”, 官方网站 ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “VipLink”, “URL”, “http://games.qq.com/tencent/moy/pay/” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Header”, “GroupAmount”, “1”)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Header”, “Group1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Group1”, “ServerAmount”, “1” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Group1”, “Server1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Group1”, “Ip1”, IP地址 ＋ “:” ＋ 登陆端口)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Group1”, “Pic1”, “Server1”)
写配置项 (取运行目录 () ＋ “\ini\oem.ini”, “Group1”, “ServerName1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Oem”, “Id”, “2010” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “AccountSetup”, “Type”, “1” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “ServerInfo”, “URL”, “http://” ＋ IP地址 ＋ “:9527/server.txt”)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “ServerStatus”, “Link”, “http://” ＋ IP地址 ＋ “:9527/OnlineStatus_tx.txt”)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “ExitLink”, “Address”, 官方网站 ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “VipLink”, “URL”, “http://games.qq.com/tencent/moy/pay/” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Header”, “GroupAmount”, “1”)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Header”, “Group1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Group1”, “ServerAmount”, “1” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Group1”, “Server1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Group1”, “Ip1”, IP地址 ＋ “:” ＋ 登陆端口)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Group1”, “Pic1”, “Server1”)
写配置项 (取运行目录 () ＋ “\ini\oem.dat”, “Group1”, “ServerName1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\server.dat”, “Header”, “GroupAmount”, “1”)
写配置项 (取运行目录 () ＋ “\server.dat”, “Header”, “Group1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\server.dat”, “Group1”, “ServerAmount”, “1” ＋ #换行符)
写配置项 (取运行目录 () ＋ “\server.dat”, “Group1”, “Server1”, 游戏名字)
写配置项 (取运行目录 () ＋ “\server.dat”, “Group1”, “Ip1”, IP地址 ＋ “:” ＋ 登陆端口)
写配置项 (取运行目录 () ＋ “\server.dat”, “Group1”, “Pic1”, “Server1”)
写配置项 (取运行目录 () ＋ “\server.dat”, “Group1”, “ServerName1”, 游戏名字)
运行 (取运行目录 () ＋ “\soul.exe blacknull”, 假, )
delphi源码：
procere TForm1.Image8Click(Sender: TObject);
begin
myinifile:=Tinifile.Create('.\ini\Oem.ini');
myinifile.WriteString('Oem','Id','2010'+#13+#10);
myinifile.WriteString('AccountSetup','Type','1'+#13+#10);
myinifile.WriteString('ServerInfo','URL','http://91.my.com');
myinifile.WriteString('ServerStatus','Link','http://91.my.com');
myinifile.WriteString('ExitLink','Address',''+#13+#10);
myinifile.WriteString('VipLink','URL','http://91.my.com'+#13+#10);
myinifile.WriteString('Header','GroupAmount','1');
myinifile.WriteString('Header','Group1',ok.Strings[1]);
myinifile.WriteString('Group1','ServerAmount','1'+#13+#10);
myinifile.WriteString('Group1','Server1',ok.Strings[1]);
myinifile.WriteString('Group1','Ip1',ok.Strings[2]+':'+ok.Strings[3]);
myinifile.WriteString('Group1','Pic1','Server1');
myinifile.WriteString('Group1','ServerName1',ok.Strings[1]);
myinifile:=Tinifile.Create('.\ini\Oem.dat');
myinifile.WriteString('Oem','Id','2010'+#13+#10);
myinifile.WriteString('AccountSetup','Type','1'+#13+#10);
myinifile.WriteString('ServerInfo','URL','http://91.my.com');
myinifile.WriteString('ServerStatus','Link','http://91.my.com');
myinifile.WriteString('ExitLink','Address',''+#13+#10);
myinifile.WriteString('VipLink','URL','http://91.my.com'+#13+#10);
myinifile.WriteString('Header','GroupAmount','1');
myinifile.WriteString('Header','Group1',ok.Strings[1]);
myinifile.WriteString('Group1','ServerAmount','1'+#13+#10);
myinifile.WriteString('Group1','Server1',ok.Strings[1]);
myinifile.WriteString('Group1','Ip1',ok.Strings[2]+':'+ok.Strings[3]);
myinifile.WriteString('Group1','Pic1','Server1');
myinifile.WriteString('Group1','ServerName1',ok.Strings[1]);
shellexecute(handle,'open','.\soul.exe','blacknull',nil,sw_shownormal);
end；
上面的做个只登陆游戏足够了。具体使用你自己在修改一下。