拦截其它程序的网络数据封包

• 
  private
  
  { Private declarations }
  
  public
  
  { Public declarations }
  
  end;
  
  var
  
  Form1: TForm1;
  
  InstallHook: function (SWindow: THandle):Boolean;stdcall;
  
  UnHook: procedure;stdcall;
  
  implementation

  {$R *.dfm}

  procedure TForm1.Button1Click(Sender: TObject);
  
  var
  
  ModuleHandle: THandle;
  
  TmpWndHandle: THandle;
  
  begin
  
  TmpWndHandle := 0;
  
  TmpWndHandle := FindWindow(nil, "目标窗口的标题");
  
  if not isWindow(TmpWndHandle) then
  
  begin
  
  MessageBox(self.Handle, "没有找到窗口", "!!!", MB_OK);
  
  exit;
  
  end;
  
  ModuleHandle := LoadLibrary("Hook.dll");
  
  @InstallHook := GetProcAddress(ModuleHandle, "InstallHook");
  
  @UnHook := GetProcAddress(ModuleHandle, "UnHook");
  
  if InstallHook(FindWindow(nil, "Untitled")) then
  
  ShowMessage("Hook OK");
  
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  
  begin
  
  UnHook
  
  end;

  end.

  （出处：急速软件下载学院）

• 上一页 [1] [2] [3] [4] [5] 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 拦截其它程序的网络数据封包 相关文章：
• ·网页挂马拦截防护性能大比拼
• ·谁是克星?4款网页木马拦截工具大比武
• ·C#+低级Windows API钩子拦截键盘输入
• ·如何防止被IE工具拦截导致无法弹出窗口
• ·三招八式教你拦截烦人的网上广告
• ·你的插件拦截智能吗？
• ·阻止QQ安全中心拦截将要传输的文件
• ·开启路由器的 TCP 拦截
• ·开启路由器的TCP拦截保护网络主机
• ·利用HOOK拦截封包原理
• 拦截其它程序的网络数据封包 相关软件
• ·太空拦截机之自由计划（Space Interceptor Project Freedom）免CD补丁
• ·拦截爱情记忆
• ·拦截淑女
• ·全能助手广告拦截专家V5.10
• ·3721上网助手之广告拦截专家V4.2 Build 01.18
• ·美机拍摄《王伟拦截美机的录像》

上一篇:用Delphi编写数据报存储控件(1)

下一篇:取得图片的透明区域

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐