mainform.pas

这是千年外挂的源代码

{ $HDR$}
{**********************************************************************}
{ Unit archived using Team Coherence                                   }
{ Team Coherence is Copyright 2002 by Quality Software Components      }
{                                                                      }
{ For further information / comments, visit our WEB site at            }
{ http://www.TeamCoherence.com                                         }
{**********************************************************************}
{}
{ $Log:  23294: mainform.pas
{
{   Rev 1.1    25/10/2004 22:50:26  ANeillans    Version: 9.0.17
{ Verified
}
{
{   Rev 1.0    12/09/2003 22:27:10  ANeillans
{ Initial Checkin
}
{
  Demo Name:  Telnet Client
  Created By: Unknown
          On: 27/10/2002

  Notes:
    Telnet Client Demo.

  Version History:
    None

  Tested:
   Indy 9:
     D5:     Untested
     D6:     Untested
     D7:     25th Oct 2004 by Andy Neillans
}
unit mainform;

interface

uses
  Windows, Messages,  Controls, Forms, Dialogs, ComCtrls, StdCtrls,
  SysUtils, Classes,  gamecode,  ExtCtrls,datamanage,gamepacket,
  jpeg,myfun,  Buttons, Menus, RVStyle, RVScroll, RichView,MapInfo,
  Graphics, inifiles, OBThread,  WinSkinData, RzTray, IdTCPServer,
  D7ScktComp, IdBaseComponent, IdComponent, Grids;


type
  Tmainfrm = class(TForm)
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    answer: TTimer;
    Timer2: TTimer;
    crcrun: TTimer;
    Timer3: TTimer;
    GroupBox1: TGroupBox;
    baseskill: TPageControl;
    goodsshow: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    TabSheet16: TTabSheet;
    GroupBox2: TGroupBox;
    goodsview: TListView;
    baseView: TListView;
    onegestView: TListView;
    twogestView: TListView;
    threegestView: TListView;
    palmwindView: TListView;
    skillView: TListView;
    listView9: TListView;
    basicattribe: TListView;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    Image1: TImage;
    Bevel1: TBevel;
    TabSheet3: TTabSheet;
    GroupBox3: TGroupBox;
    yuanqi0: TEdit;
    yuanqi1: TEdit;
    Label4: TLabel;
    neigong0: TEdit;
    neigong1: TEdit;
    Label5: TLabel;
    waigong0: TEdit;
    waigong1: TEdit;
    Label6: TLabel;
    wugong0: TEdit;
    wugong1: TEdit;
    Label7: TLabel;
    life0: TEdit;
    life1: TEdit;
    Label8: TLabel;
    lowerlife0: TEdit;
    lowerlife1: TEdit;
    Label9: TLabel;
    CheckBox1: TCheckBox;
    Edit2: TEdit;
    Label10: TLabel;
    Shape1: TShape;
    TabSheet4: TTabSheet;
    Button2: TButton;
    Memo1: TMemo;
    LabeledEdit1: TLabeledEdit;
    CheckBox4: TCheckBox;
    lblServer: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox2: TCheckBox;
    myserver1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Label15: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    savesd: TListBox;
    TabSheet5: TTabSheet;
    Label16: TLabel;
    TabSheet6: TTabSheet;
    RVStyle1: TRVStyle;
    GroupBox5: TGroupBox;
    skilledit5: TEdit;
    skilledit4: TEdit;
    skilledit3: TEdit;
    skilledit1: TEdit;
    skilledit2: TEdit;
    datum1: TEdit;
    datum2: TEdit;
    datum3: TEdit;
    datum4: TEdit;
    datumnum1: TEdit;
    datumnum2: TEdit;
    datumnum3: TEdit;
    datumnum4: TEdit;
    cyclenum: TEdit;
    GroupBox6: TGroupBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Label18: TLabel;
    ComboBox3: TComboBox;
    ListBox1: TListBox;
    Edit5: TEdit;
    Button3: TButton;
    facebox1: TComboBox;
    Button4: TButton;
    Edit10: TEdit;
    ComboBox4: TComboBox;
    Edit12: TEdit;
    CheckBox7: TCheckBox;
    Timer4: TTimer;
    GroupBox7: TGroupBox;
    Label19: TLabel;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    ComboBox5: TComboBox;
    ListBox2: TListBox;
    Edit14: TEdit;
    Button6: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    PopupMenu2: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N13: TMenuItem;
    PageControl2: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet7: TTabSheet;
    RichView1: TRichView;
    MainMenu1: TMainMenu;
    N14: TMenuItem;
    Edit1: TEdit;
    CheckBox10: TCheckBox;
    StatusBar1: TStatusBar;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    usegest1: TEdit;
    usegest2: TEdit;
    usegest3: TEdit;
    CheckBox3: TCheckBox;
    Edit6: TEdit;
    CheckBox11: TCheckBox;
    Edit13: TEdit;
    Button1: TButton;
    Button5: TButton;
    RichView2: TRichView;
    PopupMenu3: TPopupMenu;
    N15: TMenuItem;
    goodsget: TComboBox;
    ComboBox7: TComboBox;
    CheckBox15: TCheckBox;
    N16: TMenuItem;
    TabSheet14: TTabSheet;
    RichView3: TRichView;
    TabSheet15: TTabSheet;
    RichView4: TRichView;
    datum5: TEdit;
    ComboBox8: TComboBox;
    Edit11: TEdit;
    CheckBox16: TCheckBox;
    N51: TMenuItem;
    N17: TMenuItem;
    Label17: TLabel;
    Panel2: TPanel;
    tradelist: TListBox;
    sellername: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit7: TEdit;
    Panel1: TPanel;
    Edit15: TEdit;
    CheckBox12: TCheckBox;
    ComboBox6: TComboBox;
    CheckBox14: TCheckBox;
    TabSheet17: TTabSheet;
    Panel3: TPanel;
    ListView1: TListView;
    Label20: TLabel;
    ComboBox9: TComboBox;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    Button7: TButton;
    Button8: TButton;
    CheckBox17: TCheckBox;
    Edit16: TEdit;
    CheckBox18: TCheckBox;
    Panel4: TPanel;
    Edit17: TEdit;
    CheckBox19: TCheckBox;
    OBThread1: TOBThread;
    OBThread2: TOBThread;
    Bevel2: TBevel;
    CheckBox13: TCheckBox;
    others: TCheckBox;
    zhitiao: TCheckBox;
    menpai: TCheckBox;
    nahan: TCheckBox;
    gonggao: TCheckBox;
    Panel5: TPanel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    SkinData1: TSkinData;
    RzTrayIcon1: TRzTrayIcon;
    IdTCPServer: TIdTCPServer;
    Edit18: TEdit;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    Button9: TButton;
    N18: TMenuItem;
    OBThread3: TOBThread;
    ClientSocket1: TClientSocket;
    OBThread4: TOBThread;
    fblist: TListBox;
    CheckBox22: TCheckBox;
    OBThread5: TOBThread;
    CheckBox23: TCheckBox;
    gooddrug: TLabeledEdit;
    N19: TMenuItem;
    Edit19: TEdit;
    CheckBox24: TCheckBox;
    ComboBox10: TComboBox;

    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure crcrunTimer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure basicattribeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure goodsviewClick(Sender: TObject);
    procedure onegestViewClick(Sender: TObject);
    procedure baseViewClick(Sender: TObject);
    procedure twogestViewClick(Sender: TObject);
    procedure palmwindViewClick(Sender: TObject);
    procedure threegestViewClick(Sender: TObject);
    procedure goodsviewDblClick(Sender: TObject);
    procedure onegestViewDblClick(Sender: TObject);
    procedure baseViewDblClick(Sender: TObject);
    procedure twogestViewDblClick(Sender: TObject);
    procedure palmwindViewDblClick(Sender: TObject);
    procedure threegestViewDblClick(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure skillViewClick(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure ListBox2DblClick(Sender: TObject);
    procedure answerTimer(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure myserver1Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);