注：必须在破解密码之前在路由器的界面里面把能够通过星空极速上网的电脑的MAC地址复制到路由器里面，不然是不成功的，因为电信记住了原先上网拨号的MAC地址，而路由器另外又带一个MAC地址，所以先要复制一下才可用。

            下载前请注意，暂时只对数字密码进行了解密，字母+符号没有解密,如有需要，请先打10000号改数字密码后再用本软件破解

点击这里下载文件

unit unitHook;interfaceuses  Windows, Messages, Classes, SysUtils;type  //NtHook类相关类型  TNtJmpCode=packed record  //8字节    MovEax:Byte;    Addr:DWORD;    JmpCode:Word;    dwReserved:Byte;  end;  TNtHookClass=class(TObject)  private    hProcess:THandle;    NewAddr:TNtJmpCode;    OldAddr:array[0..7] of Byte;    ReadOK:Boolean;  public    BaseAddr:Pointer;    constructor Create(DllName,FuncName:string;NewFunc:Pointer);    destructor Destroy; override;    procedure Hook;    procedure UnHook;  end;implementation//==================================================//NtHOOK 类开始//==================================================constructor TNtHookClass.Create(DllName: string; FuncName: string;NewFunc:Pointer);var  DllModule:HMODULE;  dwReserved:DWORD;begin  //获取模块句柄  DllModule:=GetModuleHandle(PChar(DllName));  //如果得不到说明未被加载  if DllModule=0 then DllModule:=LoadLibrary(PChar(DllName));  //得到模块入口地址（基址）  BaseAddr:=Pointer(GetProcAddress(DllModule,PChar(FuncName)));  //获取当前进程句柄  hProcess:=GetCurrentProcess;  //指向新地址的指针  NewAddr.MovEax:=$B8;  NewAddr.Addr:=DWORD(NewFunc);  NewAddr.JmpCode:=$E0FF;  //保存原始地址  ReadOK:=ReadProcessMemory(hProcess,BaseAddr,@OldAddr,8,dwReserved);  //开始拦截  Hook;end;//释放对象destructor TNtHookClass.Destroy;begin  UnHook;  CloseHandle(hProcess);  inherited;end;//开始拦截procedure TNtHookClass.Hook;var  dwReserved:DWORD;begin  if (ReadOK=False) then Exit;  //写入新的地址  WriteProcessMemory(hProcess,BaseAddr,@NewAddr,8,dwReserved);end;//恢复拦截procedure TNtHookClass.UnHook;var  dwReserved:DWORD;begin  if (ReadOK=False) then Exit;  //恢复地址  WriteProcessMemory(hProcess,BaseAddr,@OldAddr,8,dwReserved);end;end.

至此，unitHook.pas的代码OK了，其中加了详细的注释，在此就不再多做解释。现在切换到Dll的代码页，写入以下代码：

library hookdll;uses  SysUtils, Windows,  Classes,  unitHook in 'unitHook.pas';{$R *.res}const  HOOK_MEM_FILENAME  =  'tmp.hkt';var  hhk: HHOOK;  Hook: array[0..3] of TNtHookClass;  //内存映射  MemFile: THandle;  startPid: PDWORD;   //保存PID{--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--}//拦截 MessageBoxAfunction NewMessageBoxA(_hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;type  TNewMessageBoxA = function (_hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;begin  lpText := PAnsiChar('已经被拦截 MessageBoxA');  Hook[0].UnHook;  Result := TNewMessageBoxA(Hook[0].BaseAddr)(_hWnd, lpText, lpCaption, uType);  Hook[0].Hook;end;//拦截 MessageBoxWfunction NewMessageBoxW(_hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;type  TNewMessageBoxW = function (_hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;begin  lpText := '已经被拦截 MessageBoxW';  Hook[2].UnHook;  Result := TNewMessageBoxW(Hook[2].BaseAddr)(_hWnd, lpText, lpCaption, uType);  Hook[2].Hook;end;//拦截 MessageBeepfunction NewMessageBeep(uType: UINT): BOOL; stdcall;type  TNewMessageBeep = function (uType: UINT): BOOL; stdcall;begin  Result := True;end;//拦截 OpenProcess , 防止关闭function NewOpenProcess(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwProcessId: DWORD): THandle; stdcall;type  TNewOpenProcess = function (dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwProcessId: DWORD): THandle; stdcall;begin  if startPid^ = dwProcessId then begin    result := 0;    Exit;  end;  Hook[3].UnHook;  Result := TNewOpenProcess(Hook[3].BaseAddr)(dwDesiredAccess, bInheritHandle, dwProcessId);  Hook[3].Hook;end;{--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--}//安装API Hookprocedure InitHook;begin  Hook[0] := TNtHookClass.Create('user32.dll', 'MessageBoxA', @NewMessageBoxA);  Hook[1] := TNtHookClass.Create('user32.dll', 'MessageBeep', @NewMessageBeep);  Hook[2] := TNtHookClass.Create('user32.dll', 'MessageBoxW', @NewMessageBoxW);  Hook[3] := TNtHookClass.Create('kernel32.dll', 'OpenProcess', @NewOpenProcess);end;//删除API Hookprocedure UninitHook;var  I: Integer;begin  for I := 0 to High(Hook) do  begin    FreeAndNil(Hook[I]);  end;end;{--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--}//内存映射共想procedure MemShared();begin  MemFile:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False, HOOK_MEM_FILENAME);   //打开内存映射文件  if MemFile = 0 then begin  //打开失败则衉c2建内存映射文件    MemFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,                              4, HOOK_MEM_FILENAME);  end;  if MemFile <> 0 then    //映射文件到变量    startPid := MapViewOfFile(MemFile,FILE_MAP_ALL_ACCESS,0,0,0);end;//传递消息function HookProc(nCode, wParam, lParam: Integer): Integer; stdcall;begin  Result := CallNextHookEx(hhk, nCode, wParam, lParam);end;//开始HOOKprocedure StartHook(pid: DWORD); stdcall;begin  startPid^ := pid;  hhk := SetWindowsHookEx(WH_CALLWNDPROC, HookProc, hInstance, 0);end;//结束HOOKprocedure EndHook; stdcall;begin  if hhk <> 0 then    UnhookWindowsHookEx(hhk);end;//环境处理procedure DllEntry(dwResaon: DWORD);begin  case dwResaon of    DLL_PROCESS_ATTACH: InitHook;   //DLL载入    DLL_PROCESS_DETACH: UninitHook; //DLL删除  end;end;exports  StartHook, EndHook;begin  MemShared;  { 分配DLL程序到 DllProc 变量 }  DllProc := @DllEntry;  { 调用DLL加载处理 }  DllEntry(DLL_PROCESS_ATTACH);end.

     这样，我们用来hook API 的 Dll 就完工了。 在Dll中，我们还使用到了内存映射，用来实现在拦截全局时的内存共享，如这个例子中需要保存调用此hook的进程句柄，以防止通过任务管理器关闭示例程序。

   编译生成 hookdll.dll 文件，就可以使用了。现在我们再来建立一个测试用的程序。

     如附图所示，画3个按钮，分别为"Hook"、"UnHook"、"MessageBox"，前两个用来安装和删除钩子，第三个用来显示一个消息框，你将会看到被Hook后的情况。测试工程的代码如下：

unit FMain;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TfrmMain = class(TForm)    btnHook: TButton;    btnUnhook: TButton;    Button1: TButton;    procedure btnHookClick(Sender: TObject);    procedure btnUnhookClick(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  frmMain: TfrmMain;  procedure StartHook(pid: DWORD); stdcall; external 'hookdll.dll';  procedure EndHook; stdcall; external 'hookdll.dll';implementation{$R *.dfm}procedure TfrmMain.btnHookClick(Sender: TObject);begin  StartHook(GetCurrentProcessId);end;procedure TfrmMain.btnUnhookClick(Sender: TObject);begin  EndHook;end;procedure TfrmMain.Button1Click(Sender: TObject);begin  MessageBox(0, 'abdfadfasdf', nil, 0);end;procedure TfrmMain.FormCreate(Sender: TObject);beginend;end.
 
    完成后运行，先不点击"hook"按钮，直接点击MessageBox，你会发现现在已经被拦截了。为什么我们还没有安装钩子就被拦截了呢？程序出错了吗？呵呵。当然没有出错。反过来看看DLL中的一处代码：
.............//环境处理procedure DllEntry(dwResaon: DWORD);begin  case dwResaon of    DLL_PROCESS_ATTACH: InitHook;   //DLL载入    DLL_PROCESS_DETACH: UninitHook; //DLL删除  end;end;............begin  MemShared;  { 分配DLL程序到 DllProc 变量 }  DllProc := @DllEntry;  { 调用DLL加载处理 }  DllEntry(DLL_PROCESS_ATTACH);end.
 
   可以看到，在DLL装入内存的时候其实就已经调用了InitHook，将要拦截的API拦截了。这时候看看任务管理器能不能关闭我们的程序，试一下就知道还可以，因为我们还没有调用StartHook来传入我们程序的PID，所以还可以被关闭。
  
   到此这篇文章就结束了， 本人从小语文没及过格（^_^），文章写的不太好，不过源代码都贴上了，有详细的注释，相信大家也能看明白。如果你发现有什么错误的地方，要记得告诉我哦！

   最后感谢 cxwr（菜新）大大的支持，能完成这篇文章少不了他的功劳。

下载地址 请使用迅雷下载

115网盘下载:http://u.115.com/file/f28c0e41e0

Delphi代码

//判断文件是否存在 FileExists   

var  

  f: string;   

begin  

  f := 'c:"temp"test.txt';   

  if not FileExists(f) then  

  begin  

   //如果文件不存在   

  end;   

end;   

--------------------------------------------------------------------------------   

//判断文件夹是否存在 DirectoryExists   

var  

  dir: string;   

begin  

  dir := 'c:"temp';   

  if not DirectoryExists(dir) then  

  begin  

   //如果文件夹不存在   

  end;   

end;   

--------------------------------------------------------------------------------   

//删除文件 DeleteFile; Windows.DeleteFile   

var  

  f: string;   

begin  

  f := 'c:"temp"test.txt';   

//DeleteFile(f);  //返回 Boolean   

//或者用系统API:   

  Windows.DeleteFile(PChar(f)); //返回 Boolean   

end;   

--------------------------------------------------------------------------------   

//删除文件夹 RemoveDir; RemoveDirectory   

var  

  dir: string;   

begin  

  dir := 'c:"temp';   

  RemoveDir(dir); //返回 Boolean   

//或者用系统 API:   

  RemoveDirectory(PChar(dir)); //返回 Boolean   

end;   

--------------------------------------------------------------------------------   

//获取当前文件夹 GetCurrentDir   

var  

  dir: string;   

begin  

  dir := GetCurrentDir;   

  ShowMessage(dir); //C:"Projects   

end;   

--------------------------------------------------------------------------------   

//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory   

var  

  dir: string;   

begin  

  dir := 'c:"temp';   

  if SetCurrentDir(dir) then  

    ShowMessage(GetCurrentDir); //c:"temp   

//或者   

  ChDir(dir); //无返回值   

//也可以使用API:   

  SetCurrentDirectory(PChar(Dir)); //返回 Boolean   

end;   

--------------------------------------------------------------------------------   

//获取指定驱动器的当前路径名 GetDir   

var  

  dir: string;   

  b: Byte;   

begin  

  b := 0;   

  GetDir(b,dir);   

  ShowMessage(dir); //   

//第一个参数: 1、2、3、4...分别对应: A、B、C、D...   

//0 是缺省驱动器   

end;   

--------------------------------------------------------------------------------   

//文件改名 RenameFile   

var  

  OldName,NewName: string;   

begin  

  OldName := 'c:"temp"Old.txt';   

  NewName := 'c:"temp"New.txt';   

  if RenameFile(OldName,NewName) then  

    ShowMessage('改名成功!');   

//也可以:   

  SetCurrentDir('c:"temp');   

  OldName := 'Old.txt';   

  NewName := 'New.txt';   

  if RenameFile(OldName,NewName) then  

    ShowMessage('改名成功!');   

//也可以:   

  SetCurrentDir('c:"temp');   

  OldName := 'Old.txt';   

  NewName := 'New.txt';   

  if RenameFile(OldName,NewName) then  

    ShowMessage('改名成功!');   

end;   

--------------------------------------------------------------------------------   

//建立文件夹 CreateDir; CreateDirectory; ForceDirectories   

var  

  dir: string;   

begin  

  dir := 'c:"temp"delphi';   

  if not DirectoryExists(dir) then  

    CreateDir(dir); //返回 Boolean   

//也可以直接用API:   

  CreateDirectory(PChar(dir),nil); //返回 Boolean   

//如果缺少上层目录将自动补齐:   

  dir := 'c:"temp"CodeGear"Delphi"2007"万一';   

  ForceDirectories(dir); //返回 Boolean   

end;   

--------------------------------------------------------------------------------   

//删除空文件夹 RemoveDir; RemoveDirectory   

var  

  dir: string;   

begin  

  dir := 'c:"temp"delphi';   

  RemoveDir(dir); //返回 Boolean   

//也可以直接用API:   

  RemoveDirectory(PChar(dir)); //返回 Boolean   

end;   

--------------------------------------------------------------------------------   

//建立新文件 FileCreate   

var  

  FileName: string;   

  i: Integer;   

begin  

  FileName := 'c:"temp"test.dat';   

  i := FileCreate(FileName);   

  if i>0 then  

    ShowMessage('新文件的句柄是: ' + IntToStr(i))   

  else  

    ShowMessage('创建失败!');   

end;   

--------------------------------------------------------------------------------   

//获取当前文件的版本号 GetFileVersion   

var  

  s: string;   

  i: Integer;   

begin  

  s := 'C:"WINDOWS"notepad.exe';   

  i := GetFileVersion(s); //如果没有版本号返回 -1   

  ShowMessage(IntToStr(i)); //327681 这是当前记事本的版本号(还应该再转换一下)   

end;   

--------------------------------------------------------------------------------   

//获取磁盘空间 DiskSize; DiskFree   

var  

  r: Real;   

  s: string;   

begin  

  r := DiskSize(3); //获取C:总空间, 单位是字节   

  r := r/1024/1024/1024;   

  Str(r:0:2,s); //格式为保留两位小数的字符串   

  s := 'C盘总空间是: ' + s + ' GB';   

  ShowMessage(s); //xx.xx GB   

  r := DiskFree(3); //获取C:可用空间   

  r := r/1024/1024/1024;   

  Str(r:0:2,s);   

  s := 'C盘可用空间是: ' + s + ' GB';   

  ShowMessage(s); //xx.xx GB   

end;   

//查找一个文件 FileSearch   

var  

  FileName,Dir,s: string;   

begin  

  FileName := 'notepad.exe';   

  Dir := 'c:"windows';   

  s := FileSearch(FileName,Dir);   

  if s<>'' then  

    ShowMessage(s) //c:"windows"notepad.exe   

  else  

    ShowMessage('没找到');   

end;   

--------------------------------------------------------------------------------   

//搜索文件 FindFirst; FindNext; FindClose   

var  

  sr: TSearchRec;    //定义 TSearchRec 结构变量   

  Attr: Integer;     //文件属性   

  s: string;         //要搜索的内容   

  List: TStringList; //存放搜索结果   

begin  

  s := 'c:"windows"*.txt';   

  Attr := faAnyFile;             //文件属性值faAnyFile表示是所有文件   

  List := TStringList.Create;    //List建立   

  if FindFirst(s,Attr,sr)=0 then //开始搜索,并给 sr 赋予信息, 返回0表示找到第一个   

  begin  

    repeat                       //如果有第一个就继续找   

      List.Add(sr.Name);         //用List记下结果   

    until(FindNext(sr)<>0);      //因为sr已经有了搜索信息, FindNext只要这一个参数, 返回0表示找到   

  end;   

  FindClose(sr);                 //需要结束搜索, 搜索是内含句柄的   

  ShowMessage(List.Text);        //显示搜索结果   

  List.Free;                     //释放List   

//更多注释:   

//TSearchRec 结构是内涵文件大小、名称、属性与时间等信息   

//TSearchRec 中的属性是一个整数值, 可能的值有:   

//faReadOnly  1   只读文件   

//faHidden    2   隐藏文件   

//faSysFile   4   系统文件   

//faVolumeID  8   卷标文件   

//faDirectory 16  目录文件   

//faArchive   32  归档文件   

//faSymLink   64  链接文件   

//faAnyFile   63  任意文件   

//s 的值也可以使用?通配符,好像只支持7个?, 如果没有条件就是*, 譬如: C:"*   

//实际使用中还应该在 repeat 中提些条件, 譬如判断如果是文件夹就递归搜索等等   

end;   

--------------------------------------------------------------------------------   

//读取与设置文件属性 FileGetAttr; FileSetAttr   

var  

  FileName: string;   

  Attr: Integer; //属性值是一个整数   

begin  

  FileName := 'c:"temp"Test.txt';   

  Attr := FileGetAttr(FileName);   

  ShowMessage(IntToStr(Attr)); //32, 存档文件   

//设置为隐藏和只读文件:   

  Attr := FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN;   

  if FileSetAttr(FileName,Attr)=0 then //返回0表示成功   

    ShowMessage('设置成功!');   

//属性可选值(有些用不着):   

//FILE_ATTRIBUTE_READONLY = 1; 只读   

//FILE_ATTRIBUTE_HIDDEN = 2; 隐藏   

//FILE_ATTRIBUTE_SYSTEM = 4; 系统   

//FILE_ATTRIBUTE_DIRECTORY = 16   

//FILE_ATTRIBUTE_ARCHIVE = 32; 存档   

//FILE_ATTRIBUTE_DEVICE = 64   

//FILE_ATTRIBUTE_NORMAL = 128; 一般   

//FILE_ATTRIBUTE_TEMPORARY = 256   

//FILE_ATTRIBUTE_SPARSE_FILE = 512   

//FILE_ATTRIBUTE_REPARSE_POINT = 1204   

//FILE_ATTRIBUTE_COMPRESSED = 2048; 压缩   

//FILE_ATTRIBUTE_OFFLINE = 4096   

//FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192; 不被索引   

//FILE_ATTRIBUTE_ENCRYPTED = 16384   

end;   

--------------------------------------------------------------------------------   

//获取文件的创建时间 FileAge; FileDateToDateTime   

var  

  FileName: string;   

  ti: Integer;   

  dt: TDateTime;   

begin  

  FileName := 'c:"temp"Test.txt';   

  ti := FileAge(FileName);   

  ShowMessage(IntToStr(ti)); //返回: 931951472, 需要转换   

  dt := FileDateToDateTime(ti); //转换   

  ShowMessage(DateTimeToStr(dt)); //2007-12-12 14:27:32   

end;  

所以,通过FindWindowEx 等方式来查找窗口貌似是行不通了,但是,我们还有一大杀器,通过Game Edit(CE5.6青色咖啡汉化版)来查找,如图,打开Game Edit打开QQ的进程,然后找你的QQ号码,一般会出现67个以上地址,哪个是的呢?

往下面拉,把那两个绿色的保存下来,退出QQ后再重新登录,再用gameedit打开QQ进程,那两个QQ号码一直没改变,说明这两个地址都可以,保存其中一个地址,然后打开我们的delphi,通过程序来获取.

首先,我们要查找QQ的窗口句柄

代码如下图

如图,获取了所有的QQ号码及Email帐号,呢称也能获取,代码稍后奉上.

  function EnumWndProc(AWnd: HWND; AlParam: LPARAM): Boolean; stdcall;var    szText: array[0..254] of char;    Hwind:THandle;    pid:DWORD;   Num, Byteread:Cardinal;   WName: array [0..36] of WideChar;   Item:TListItem;   t:Integer;    begin      if    GetWindowText(awnd, @szText, 255) > 0 then        if  (length(szText)>0) and (szText ='QQ2010') then        getWindowThreadProcessId(AWnd, @PID);     Hwind :=OpenProcess(PROCESS_ALL_ACCESS, false, pid);      if Hwind> 0 then      begin  ReadProcessMemory(Hwind, Pointer($31883598), @Num, 4, ByteRead);  ReadProcessMemory(Hwind,Pointer($00167604),@wname,36,Byteread);   t:=Form1.ListView1.Items.Count; item:=Form1.listview1.Items.Add; Item.Caption:=IntToStr(t); Item.SubItems.Add(IntToStr(Num)); if Pos('@',wname)>0 then Item.SubItems.Add(wname)  else Item.SubItems.Add('无'); end;closeHandle(Hwind);result:=True; end;procedure TForm1.Button1Click(Sender: TObject);begin    Form1.ListView1.Items.Clear;  EnumWindows(@EnumWndProc, 0);end;

点击这里下载文件