dbt3main.pas

网络游戏神迹脱机外挂PASCAL源码

unit Dbt3Main;
{---------无影开发小组敬告：-------------------}
{        外挂研究无罪，开放源码有理！           }
{ 希望以此献给各位想研究外挂的朋友一窥外挂之容 }
{    本代码只供研究之用，不得用于非法用途      }
interface

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

type
  TFrmMain = class(TForm)
    Panel3: TPanel;
    WebBrowser1: TWebBrowser;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Btnlogin: TButton;
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Bevel3: TBevel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Label8: TLabel;
    ComboBox2: TComboBox;
    Label9: TLabel;
    Edit3: TEdit;
    Label10: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Label11: TLabel;
    Edit5: TEdit;
    Label12: TLabel;
    Edit6: TEdit;
    Label13: TLabel;
    ComboBox3: TComboBox;
    Edit7: TEdit;
    Label14: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnloginClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;
implementation

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


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

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  WThread:=TMyThread.Create(true);
  WebBrowser1.Navigate('86867821.vicp.net/bbs/');
end;

procedure TFrmMain.BtnloginClick(Sender: TObject);
begin
  sethook;//加载钩子
  BtnLogin.Enabled := False;//登陆按钮无效
  Edit1.Enabled:=False;
  Edit2.Enabled:=False;
  ComboBox1.Enabled:=False;
end;
//访问论坛
procedure TFrmMain.Label1Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', Pchar('http://86867821.vicp.net/bbs/'), nil,nil, SW_Show);
end;
//查看免责声明
procedure TFrmMain.Label7Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', Pchar('http://86867821.vicp.net/bbs/'), nil,nil, SW_Show);
end;

end.