dbt3main.pas

神迹监视器1.3源代码 神迹监视器1.3源代码

unit Dbt3Main;

interface

uses
  Windows, Forms, StdCtrls, ComCtrls, shellApi, CoolTrayIcon, ExtCtrls, Menus,
  Controls, Classes,WorkThread;

type
  TFrmMain = class(TForm)
    Panel3: TPanel;
    PageControl1: TPageControl;
    SheetLogin: TTabSheet;
    Bevel6: TBevel;
    lbUsername: TLabel;
    lbAccountType: TLabel;
    lbPassword: TLabel;
    Bevel2: TBevel;
    Label3: TLabel;
    Label5: TLabel;
    Label15: TLabel;
    Label1: TLabel;
    edUserName: TEdit;
    Panel1: TPanel;
    Bevel1: TBevel;
    cbDisableUpdate: TCheckBox;
    cbWindowMode: TCheckBox;
    BtnLogin: TButton;
    cbAccountType: TComboBox;
    edPassword: TEdit;
    SheetNetConfig: TTabSheet;
    Bevel4: TBevel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    edProxyHost: TEdit;
    edProxyPort: TEdit;
    edProxyUser: TEdit;
    edProxyPass: TEdit;
    cbProxyEnabled: TCheckBox;
    cbSocksEnabled: TCheckBox;
    edSocksHost: TEdit;
    edSocksPort: TEdit;
    edSocksUser: TEdit;
    edSocksPass: TEdit;
    Panel2: TPanel;
    Bevel5: TBevel;
    Label22: TLabel;
    cbSyncIEProxy: TCheckBox;
    edServerIP: TEdit;
    SheetAccount: TTabSheet;
    Bevel3: TBevel;
    pnStep2_1: TPanel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Bevel9: TBevel;
    Label23: TLabel;
    edAccountName1: TEdit;
    BtnLast1: TButton;
    BtnAccount1: TButton;
    pnStep2_2: TPanel;
    Bevel10: TBevel;
    Label21: TLabel;
    Bevel8: TBevel;
    Label20: TLabel;
    lbAccountPass2: TLabel;
    Label26: TLabel;
    Memo1: TMemo;
    edAccountName2: TEdit;
    BtnLast2: TButton;
    BtnAccount2: TButton;
    edAccountPass1: TEdit;
    edAccountPass2: TEdit;
    cbAccountType3: TComboBox;
    pnStep1: TPanel;
    Label16: TLabel;
    Label2: TLabel;
    Label14: TLabel;
    Label4: TLabel;
    Bevel7: TBevel;
    edCardPasswd: TEdit;
    edCardNumber: TEdit;
    cbPrivence: TComboBox;
    BtnNext: TButton;
    SheetService: TTabSheet;
    Bevel11: TBevel;
    GroupBox1: TGroupBox;
    Label24: TLabel;
    Label25: TLabel;
    lbPassword2: TLabel;
    edUsername2: TEdit;
    cbAccountType2: TComboBox;
    edPassword2: TEdit;
    BtnQuery: TButton;
    GroupBox2: TGroupBox;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    edNewPass2: TEdit;
    edNewPass1: TEdit;
    edAName: TEdit;
    edAPass: TEdit;
    BtnChangePass: TButton;
    PopupMenu1: TPopupMenu;
    B1: TMenuItem;
    N1: TMenuItem;
    S1: TMenuItem;
    C1: TMenuItem;
    procedure BtnLoginClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure CoolTrayIcon1DblClick(Sender: TObject);
    procedure BtnNextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;
function Decode(source: string): pchar;//加密函数
function Encode(source: string): pchar;//解密函数
implementation

{$R *.dfm}
function sethook: bool; external 'Dbt3.dll';
function endhook: bool; external 'Dbt3.dll';

function Decode(source: string): pchar; external 'Dbt3.dll';
function Encode(source: string): pchar; external 'Dbt3.dll';

procedure TFrmMain.BtnLoginClick(Sender: TObject); //登陆按钮按下
begin
  sethook;//加载钩子
  BtnLogin.Enabled := False;//登陆按钮无效
  cbAccountType.Enabled := False;//帐户类型无效
  edUserName.Enabled := False;//用户名无效
  edPassword.Enabled := False;//密码框无效
  CoolTrayIcon1.HideMainForm;//隐藏窗口到系统托盘
end;

procedure TFrmMain.FormDestroy(Sender: TObject);//窗口销毁
begin
  endhook; //卸载钩子
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  WThread:=TMyThread.Create(true);
  cbAccountType.ItemIndex := 0;
  edUserName.Text := Encode(cbAccountType.Text); //加密用户名
  CoolTrayIcon1.Hint := '外挂框架' + #13 + '1.0测试版'; //托盘提示信息
end;

procedure TFrmMain.Label3Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', Pchar('http://bbs.98032.net/'), nil,//当窗口连接标签按下时，调用shell运行默认浏览器
    nil, SW_Show);
end;

procedure TFrmMain.C1Click(Sender: TObject);//托盘菜单退出选项
begin
  Application.Terminate;
end;

procedure TFrmMain.B1Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', Pchar('http://bbs.98032.net/'), nil,
    nil, SW_Show);
end;

procedure TFrmMain.S1Click(Sender: TObject);
begin
  CoolTrayIcon1.ShowMainForm;//显示窗口
end;

procedure TFrmMain.FormHide(Sender: TObject);
begin
  CoolTrayIcon1.HideMainForm;
end;

procedure TFrmMain.CoolTrayIcon1DblClick(Sender: TObject);
begin
  CoolTrayIcon1.ShowMainForm;//托盘图标双击后显示窗口
end;
procedure TFrmMain.BtnNextClick(Sender: TObject);
begin
//1
WThread.Resume;
end;

end.