Question

魔域登录器制作方法

本人玩单机的所以想做个不更新的简单登录器，望高手指点~

Answer 1

　　易语言源码：

　　.版本 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源码：
　　procedure 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；

　　上面的做个只登陆游戏足够了。具体使用你自己在修改一下。

Answer 2

到网上下个登入器生成器，自己去配置