delphi2007 教程

问错地方,   Winsock   是开发者用，你这种属于   hacking   ,   找钩子函数相关资料

我找了个例程,可是我读不出来,你能帮我看下吗?  
  QQ   11231221  
 

function   MyRecv(s:   TSocket;   var   Buf;   len,   flags:   Integer):   Integer;   stdcall;  
  var  
      dwSize:   cardinal;  
  begin  
      //这儿进行接收的数据处理  
      //我的问题是在这里怎样得到获取的封包?  
      //调用直正的Recv函数  
      WriteProcessMemory(ProcessHandle,   AddRecv,   @OldProc[1],   8,   dwSize);  
      Result   :=   OldRecv(S,   Buf,   len,   flags);  
      JmpCode.Address   :=   @MyRecv;  
      WriteProcessMemory(ProcessHandle,   AddRecv,   @JmpCode,   8,   dwSize);  
  end;

你这个是   hook   了原socket   的   recv   函数后,   你先处理后交还   recv

我可以在哪里进行怎样的处理?  
  我想得到获取的相关信息  
 

这方面用到的人不多,   不过关心的人多,   google   上一找   hook，钩子,   多了像米,   找找去吧,   一般作项目&产品的人知道,   没作过,   so,   有高人回当然最好啦

呵呵,谢谢!  
 

没有相关高手给我指导下吗？

http://www.csdn.net/develop/article/22/22765.shtm

呵呵，有没有人可以给个能用的源代码呀！  
  只要能获得封包，再加100分

呵呵，我就要可以自己解决问题了，呵呵！