❶ 魔域登錄器製作方法
易語言源碼：
.版本 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；
上面的做個只登陸游戲足夠了。具體使用你自己在修改一下。