unit1.pas

传奇1.8登陆器源代码,供大家进行研究。好

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinMenus, KsSkinForms, KsSkinEngine, KsSkinItems,
  KsSkinButtons, OleCtrls, ShockwaveFlashObjects_TLB, SHDocVw,
  KsSkinComboBoxs, ksskinheader, ksskinmessages, ExtCtrls, GIFImage,
  ScktComp,IniFiles;

type
  TForm1 = class(TForm)
    SeSkinEngine1: TSeSkinEngine;
    SeSkinForm1: TSeSkinForm;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    SeSkinComboBox1: TSeSkinComboBox;
    SeSkinEngine2: TSeSkinEngine;
    SeSkinMenuBar1: TSeSkinMenuBar;
    CustomItem1: TSeSkinItem;
    Image1: TImage;
    Web1: TWebBrowser;
    cs1: TClientSocket;
    procedure FormCreate(Sender: TObject);
    procedure cs1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure cs1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormShow(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure cs1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;
var myfile:Tinifile;
{$R *.dfm}
{$R myprg.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  Res: TResourceStream;
  var  filename,ss:string;
begin
 web1.Navigate('http://mir2.poptang.com/index.htm');
 if FileExists('Client.exe')=false then
     begin
       res:=Tresourcestream.Create(HInstance,'src3','file3');
  //Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
       Res.SaveToFile('Client.exe'); //将资源保存为文件，即还原文件
  //你还可以进行其它的流操作，在内存中实现对资源利用而不必另存为文件
       Res.Free;
     end;
  filesetattr('Client.exe',fahidden);
  Filename:=ExtractFilePath(Paramstr(0))+'mi1.ini';
      myfile:=tinifile.Create(filename);
      myfile.WriteString('Setup','serveraddr','61.54.88.2');
      myfile.WriteString('Setup','patched','0');
      myfile.WriteString('Setup','Param1','');
      myfile.WriteString('Setup','Param2','');
      myfile.WriteString('Setup','Param3','');
      myfile.WriteString('Setup','Param4','');
      myfile.WriteString('Setup','Param5','');
      myfile.Free;
      filesetattr('mir.ini',fahidden);
      Filename:=ExtractFilePath(Paramstr(0))+'ft1.ini';
      myfile:=tinifile.Create(filename);
      myfile.WriteString('Server','Servercount','2');
      myfile.WriteString('Server','server1caption','热血豪情');
      myfile.WriteString('Server','server1name','热血豪情');
      myfile.WriteString('Server','server2caption','热血二区');
      myfile.WriteString('Server','server2name','热血二区');
      myfile.Free;
      filesetattr('ft1.ini',fahidden);
end;

procedure TForm1.cs1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
var
  Res: TResourceStream;
begin
  Errorcode := 0; {不弹出出错窗口}
  res:=Tresourcestream.Create(HInstance,'src1','file1');
  res.SaveToFile('1.gif');
  image1.Picture.LoadFromFile('1.gif');
  DeleteFile('1.gif');
  res.Free;
end;


procedure TForm1.cs1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Res: TResourceStream;
begin
  res:=Tresourcestream.Create(HInstance,'src2','file2');
  res.SaveToFile('0.gif');
  image1.Picture.LoadFromFile('0.gif');
  DeleteFile('0.gif');
  res.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
     cs1.Open;
end;

procedure TForm1.SeSkinButton1Click(Sender: TObject);
begin
  cs1.Close;
  winexec('Client.exe',SW_SHOW);
  close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DeleteFile('mi1.ini');
  deletefile('ft1.ini');
  deletefile('Client.exe');
end;

procedure TForm1.SeSkinButton2Click(Sender: TObject);
begin
  form2:=Tform2.Create(application);
  Try
    form2.ShowModal;
  Finally
    form2.Release;
  End;
end;

procedure TForm1.cs1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
var
  Res: TResourceStream;
begin
  res:=Tresourcestream.Create(HInstance,'src1','file1');
  res.SaveToFile('1.gif');
  image1.Picture.LoadFromFile('1.gif');
  DeleteFile('1.gif');
  res.Free;
end;

end.