unit2.pas

这是天翼外挂的源代码

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ToolWin, Menus, XPMenu, StdCtrls,qsocket2,
  OleCtrls, SHDocVw, BusinessSkinForm, bsDialogs, bsSkinCtrls,
  bsSkinBoxCtrls,myini, ImgList, bsSkinData, bsSkinTabs, Mask,winsock,
  CoolTrayIcon, TextTrayIcon,queue;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Bevel2: TBevel;
    GroupBox2: TGroupBox;
    Bevel1: TBevel;
    Bevel3: TBevel;
    GroupBox4: TGroupBox;
    Bevel4: TBevel;
    Memo1: TMemo;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    ImageList1: TImageList;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton2: TbsSkinXFormButton;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    TextTrayIcon1: TTextTrayIcon;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N13: TMenuItem;
    Edit7: TEdit;
    bsSkinComboBox2: TbsSkinComboBox;
    Button1: TButton;
    StaticText1: TStaticText;
    bsSkinTabSheet5: TbsSkinTabSheet;
    StaticText2: TStaticText;
    bsSkinComboBox3: TbsSkinComboBox;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    Edit8: TEdit;
    Edit9: TEdit;
    Button2: TButton;
    Button3: TButton;
    XPMenu1: TXPMenu;
    WebBrowser1: TWebBrowser;
    bsSkinComboBox1: TbsSkinComboBox;
    N3: TMenuItem;
    Timer1: TTimer;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    ListBox4: TListBox;
    bsSkinPageControl2: TbsSkinPageControl;
    bsSkinTabSheet6: TbsSkinTabSheet;
    bsSkinTabSheet7: TbsSkinTabSheet;
    bsSkinTabSheet8: TbsSkinTabSheet;
    bsSkinTabSheet9: TbsSkinTabSheet;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure bsSkinComboBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  ID:string; //帐号
  pass:string;//密码
  query:Tqueue;
implementation

uses Unit1,gamemain,DePacket,unit4, Unit3,recvmessage,sendmessage,packetstruct,
packetstruct1;

{$R *.dfm}
var
  game:TGamemain;
procedure TForm2.N2Click(Sender: TObject);
begin
  form1:=Tform1.Create(nil);
  form1.Show;
  form2.Enabled:=false;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  query:=Tqueue.Create;
  game:=TGamemain.Create;
  N11.Enabled:=false;
  N13.Enabled:=true;
  creatlist;
  creatlist1;
  creatlist2;
  Memo1.Clear;
  Memo2.Clear;
  Memo3.Clear;
  Memo4.Clear;
  Memo5.Clear;
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  b:integer;
begin
  query.Destroy;
  game.Destroy;
  b:=messagedlg('是否退出',mtconfirmation,[mbYes, mbNo],0);
  if  b=mrYes  then
    begin
    StopNet(Fsock);
    exit;
    end
  else
    Action:=caNone;

end;

procedure TForm2.N5Click(Sender: TObject);
begin
 form2.Button1.Enabled:=true;
 bsSkinComboBox2.Items.Clear;
 statusbar1.Panels[0].Text:='人物等级';
 StopNet(Fsock);
 //StopNet(game.Fsock1);
 form2.N5.Enabled:=false;
 form4.Release;
 form2.Memo2.Lines.Add('退出游戏');
end;

procedure TForm2.N6Click(Sender: TObject);
begin
  form2.Close;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
  form3:=Tform3.Create(nil);
  form3.Show;
  n8.Enabled:=false;
end;

procedure TForm2.bsSkinXFormButton1Click(Sender: TObject);
begin
  Memo1.Clear;
end;

procedure TForm2.bsSkinXFormButton2Click(Sender: TObject);
var
  s4,s5:string;
  j,i:integer;
begin
  if Edit1.Text<>'' then
    begin
      if  bsSkinComboBox1.Text='公聊'then
        begin
          s4:=edit1.Text;
          j:=strlen(pchar(s4));
          j:=j+1;
          pulichar(Fsock,pchar(s4),j);
          Edit1.Clear;
        end;

       if  bsSkinComboBox1.Text='私聊'then
          begin
            s4:=edit1.Text;
            s5:=edit7.Text;
            j:=strlen(pchar(s4));
            i:=strlen(pchar(s5));
            privatechar(Fsock,pchar(s5),pchar(s4),i,j);
            Edit1.Clear;
          end;
      end;
end;



procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s4,s5:string;
  j,i:integer;
begin
  if key=#13 then
    if Edit1.Text<>'' then
    begin
      if  bsSkinComboBox1.Text='公聊'then
        begin
          s4:=edit1.Text;
          j:=strlen(pchar(s4));
          j:=j+1;
          pulichar(Fsock,pchar(s4),j);
          Edit1.Clear;
        end;

       if  bsSkinComboBox1.Text='私聊'then
          begin
            s4:=edit1.Text;
            s5:=edit7.Text;
            j:=strlen(pchar(s4));
            i:=strlen(pchar(s5));
            privatechar(Fsock,pchar(s5),pchar(s4),i,j);
            Edit1.Clear;
          end;
    end;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
  N13.Enabled:=true;
  N11.Enabled:=false;
  Showwindow(self.Handle,SW_SHOWNA);
end;

procedure TForm2.N13Click(Sender: TObject);
begin
  N11.Enabled:=true;
  N13.Enabled:=false;
  Showwindow(self.Handle,SW_HIDE);
end;

procedure TForm2.bsSkinComboBox2Change(Sender: TObject);
begin
  if bsSkinComboBox2.Text=M1 then StatusBar1.Panels[0].Text:='人物等级:'+inttostr(h1);
  if bsSkinComboBox2.Text=M2 then StatusBar1.Panels[0].Text:='人物等级:'+inttostr(h2);
  if bsSkinComboBox2.Text=M3 then StatusBar1.Panels[0].Text:='人物等级:'+inttostr(h3);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
   form2.Memo2.Lines.Add('开始游戏');
    game.startgame;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  form4:=Tform4.Create(nil);
  form4.Show;
  form2.N5.Enabled:=true;
  game.selcetloga;
end;

procedure TForm2.Button3Click(Sender: TObject);//帐号和密码
begin
  bsSkinComboBox2.Items.Clear;
  ID:=edit8.Text;
  pass:=edit9.Text;
  game.longin(pchar(ID),pchar(pass));
end;

procedure TForm2.N3Click(Sender: TObject);
begin
  Showwindow(form3.Handle,SW_SHOWNA);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  send_7(Fsock);
end;

end.