myini.pas

这是天翼外挂的源代码

unit myini;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IniFiles, StdCtrls;
var
  myipfile:TInifile;
  filename:string;
implementation

procedure myipini;

begin
  filename:=ExtractFilePath(paramstr(0))+'myip.ini';
  myipfile:=TInifile.Create(filename);
  myipfile.writestring('上海','果冻鸡','61.129.34.181');
  myipfile.writestring('上海','飞天猪','210.51.15.15');
  myipfile.writestring('上海','影武者','210.51.15.18');
  myipfile.writestring('上海','鸭战士','210.51.15.21');
  myipfile.writestring('上海','墨镜猫','210.51.15.25');
  myipfile.writestring('上海','多多熊','210.51.15.27');
  myipfile.writestring('上海','寄居蟹','210.51.15.30');
  myipfile.writestring('上海','大头鲨','210.51.15.33');
  myipfile.writestring('上海','小花猫','210.51.15.36');
  myipfile.writestring('广州','陆行鸡','210.51.15.39');
  myipfile.writestring('广州','武斗虎','210.51.15.38');
  myipfile.writestring('广州','海星人','61.242.97.195');
  myipfile.writestring('北京','多哈龙','210.22.194.5');
  myipfile.writestring('北京','火元素','61.135.150.188');
  myipfile.writestring('武汉','幽关兽','210.51.23.148');
  myipfile.writestring('成都','跳跳菇','210.51.23.148');
  myipfile.writestring('沈阳','苏奇亚','210.51.23.144');
  myipfile.writestring('沈阳','芙莉塔','210.51.23.158');
end;

function myreadini(fen:string;fuwu:string):string;
var
  str1:string;
begin
  str1:=myipfile.ReadString(fen,fuwu,'');
  result:=str1;
end;

procedure mysaveini;
var
mysavefile:TInifile;
savename:string;
begin
  savename:=ExtractFilePath(paramstr(0))+'mysave.ini';
  mysavefile:=TInifile.Create(savename);
  
end;


end.