关于vb拦截网络封包

Question

各位大侠，请问怎样做到用vb拦截网络数据包呢？？本人已经对拦截recive的封包有一定的了解，可是对拦截send的网络封包，却毫无头绪，大家给我点思路和一些example号码？？（拦截我想发送出去的封包）

Answer 1

光用VB做,好像很难.我收集的资料显示,要拦截封包的路子有以下几条:
1、stab   wsock32.dll  ,自己做一个wsock32.dll有点不现实. 
  2、hook   api        ,这种方法我正在试验,是用delphi编译成dll,让VB来调用,可以实现send和recv都有响动,呵呵.
  3、raw   socket      '
  4、winpcap           '以下三种太难```````````````````````````````````````.
  5、spi   
  6、ndis              '这个是要扯到驱动程序编程,我记得有一个网站是专门讲驱动源码.可惜网址不记得了.

Answer 2

http://topic.csdn.net/t/20040709/07/3158404.html

Answer 3

'-----------------------------代码开始-------------------------------------------------- 
Declare   Function   bind   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   addr   As   SOCK_ADDR,   ByVal   namelen   As   Long)   As   Long 
Declare   Function   closesocket   Lib   "ws2_32.dll "   (ByVal   s   As   Long)   As   Long 
Declare   Function   connect   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   name   As   SOCK_ADDR,   ByVal   namelen   As   Integer)   As   Long 
Declare   Function   inet_addr   Lib   "ws2_32.dll "   (ByVal   cp   As   String)   As   Long 
Declare   Function   htons   Lib   "ws2_32.dll "   (ByVal   hostshort   As   Integer)   As   Integer 
Declare   Function   recv   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   buffer   As   Any,   ByVal   length   As   Long,   ByVal   flags   As   Long)   As   Long 
Declare   Function   send   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   buffer   As   Any,   ByVal   length   As   Long,   ByVal   flags   As   Long)   As   Long 
Declare   Function   shutdown   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   ByVal   how   As   Long)   As   Long 
Declare   Function   ioctlsocket   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   ByVal   v   As   Long,   ut   As   Long)   As   Long 
Declare   Function   socket   Lib   "ws2_32.dll "   (ByVal   af   As   Long,   ByVal   type_specification   As   Long,   ByVal   protocol   As   Long)   As   Long 
Declare   Function   WSACancelBlockingCall   Lib   "ws2_32.dll "   ()   As   Long 
Declare   Function   WSACleanup   Lib   "ws2_32.dll "   ()   As   Long 
Declare   Function   WSAGetLastError   Lib   "ws2_32.dll "   ()   As   Long 
Declare   Function   WSAStartup   Lib   "ws2_32.dll "   (ByVal   wVersionRequired   As   Integer,   wsData   As   WSA_DATA)   As   Long 
Declare   Function   WSASocketA   Lib   "ws2_32.dll "   (ByVal   af   As   Long,   ByVal   type1   As   Long,   ByVal   protocol   As   Long,   lpProtocolInfo   As   Long,   g   As   Long,   ByVal   dwFlags   As   Long) 
Declare   Function   WSAIoctl   Lib   "ws2_32.dll "   (ByVal   s   As   Long,   ByVal   dwIoControlCode   As   Long,   lpvInBuffer   As   Long,   ByVal   cbInBuffer   As   Long,   lpvOutBuffer   As   Long,   ByVal   cbOutBuffer   As   Long,   lpcbBytesReturned   As   Long,   lpOverlapped   As   Long,   lpCompletionRoutine   As   Long)   As   Long 
  Declare   Sub   CopyMemory   Lib   "kernel32 "   Alias   "RtlMoveMemory "   (Destination   As   Any,   Source   As   Any,   ByVal   length   As   Long) Public   Declare   Sub   Sleep   Lib   "kernel32 "   (ByVal   dwMilliseconds   As   Long) Public   Const   WSADESCRIPTION_LEN   =   256 
Public   Const   WSASYS_STATUS_LEN   =   128 Type   WSA_DATA 
        wVersion   As   Integer 
        wHighVersion   As   Integer 
        strDescription(WSADESCRIPTION_LEN   +   1)   As   Byte 
        strSystemStatus(WSASYS_STATUS_LEN   +   1)   As   Byte 
        iMaxSockets   As   Integer 
        iMaxUdpDg   As   Integer 
        lpVendorInfo   As   Long 
End   Type Type   IN_ADDR 
        S_addr   As   Long 
End   Type Type   SOCK_ADDR 
        sin_family   As   Integer 
        sin_port   As   Integer 
        sin_addr   As   IN_ADDR 
        sin_zero(0   To   7)   As   Byte 
End   Type 
Type   IPHeader 
        lenver   As   Byte 
        tos   As   Byte 
        len   As   Integer 
        ident   As   Integer 
        flags   As   Integer 
        ttl   As   Byte 
        proto   As   Byte 
        checksum   As   Integer 
        sourceIP   As   Long 
        destIP   As   Long 
End   Type 
        
Const   AF_INET   =   2 
Const   SOCK_RAW   =   3 
Const   IPPROTO_IP   =   0 
Const   IPPROTO_TCP   =   6 
Const   IPPROTO_UDP   =   17 
Const   MAX_PACK_LEN   =   65535 
Const   SOCKET_ERROR   =   -1& 
        
Private   mwsaData   As   WSA_DATA 
Private   m_hSocket   As   Long 
Private   msaLocalAddr   As   SOCK_ADDR Private   msaRemoteAddr   As   SOCK_ADDR 

Answer 4

Sub   Main() 
        Dim   nResult   As   Long 
        
        nResult   =   WSAStartup(&H202,   mwsaData) 
        If   nResult   <>   WSANOERROR   Then 
            MsgBox   "Error   en   WSAStartup " 
            Exit   Sub 
        End   If 
        
        m_hSocket   =   socket(AF_INET,   SOCK_RAW,   IPPROTO_IP) 
        If   (m_hSocket   =   INVALID_SOCKET)   Then 
              MsgBox   "Error   in   socket " 
              Exit   Sub 
        End   If 
        
        
        msaLocalAddr.sin_family   =   AF_INET 
        msaLocalAddr.sin_port   =   0 
        msaLocalAddr.sin_addr.S_addr   =   inet_addr( "192.168.0.102 ")   '这里需要你自己的网卡的IP地址 
        
        nResult   =   bind(m_hSocket,   msaLocalAddr,   Len(msaLocalAddr)) 
        If   (nResult   =   SOCKET_ERROR)   Then 
              MsgBox   "Error   in   bind " 
              Exit   Sub 
        End   If 
        
        Dim   InParamBuffer     As   Long 
        Dim   BytesRet     As   Long 
        BytesRet   =   0 
        InParamBuffer   =   1 
        nResult   =   ioctlsocket(m_hSocket,   &H98000001,   1) 
        If   nResult   <>   0   Then 
              MsgBox   "ioctlsocket " 
              Exit   Sub 
        End   If 
        
        
        Dim   strData   As   String 
        Dim   nReceived   As   Long 
        
        
        '截获来的数据放在BUFF里面 
        Dim   Buff(0   To   MAX_PACK_LEN)   As   Byte 
        Dim   IPH   As   IPHeader 
        
        Do   Until   False           '这个例子里，一直获取 
              DoEvents 
              nResult   =   recv(m_hSocket,   Buff(0),   MAX_PACK_LEN,   0) 
          '     Debug.Print   MAX_PACK_LEN 
            '   Debug.Print   Buff(0)   &   Buff(1) 
              If   nResult   =   SOCKET_ERROR   Then 
                      MsgBox   "Error   in   RecvData::recv " 
                      Exit   Do 
              End   If 
              CopyMemory   IPH,   Buff(0),   Len(IPH)           '为了访问方便 
              Select   Case   IPH.proto 
                          Case   IPPROTO_TCP 
                              'frmHookTcpip.Text1.SelText   =   HexIp2DotIp(IPH.sourceIP) 
                              'frmHookTcpip.Text1.SelText   =   "     ----->     " 
                              'frmHookTcpip.Text1.SelText   =   HexIp2DotIp(IPH.destIP) 
                              'frmHookTcpip.Text1.SelText   =   vbCrLf 
                          
                              Debug.Print   HexIp2DotIp(IPH.sourceIP)   &   "     ----->     "   &   HexIp2DotIp(IPH.destIP) 
                    Debug.Print   "LEN: "   &   IPH.len   &   "   LENVER: "   &   IPH.lenver 
                            Debug.Print   IPH.checksum 
                            Debug.Print   IPH.ident 
                            Debug.Print   IPH.tos 
                            Debug.Print   IPH.proto 
                            Debug.Print   IPH.flags 
                            Debug.Print   IPH.ttl 
                            
                            
              End   Select 
        Loop 
        
        nResult   =   shutdown(m_hSocket,   2) 
        nResult   =   closesocket(m_hSocket) 
        nResult   =   WSACancelBlockingCall 
        nResult   =   WSACleanup 
End   Sub 
Function   HexIp2DotIp(ByVal   ip   As   Long)   As   String 
        Dim   s   As   String,   p1   As   String,   p2   As   String,   p3   As   String,   p4   As   String 
        s   =   Right( "00000000 "   &   Hex(ip),   8) 
        p1   =   Val( "&h "   &   Mid(s,   1,   2)) 
        p2   =   Val( "&h "   &   Mid(s,   3,   2)) 
        p3   =   Val( "&h "   &   Mid(s,   5,   2)) 
        p4   =   Val( "&h "   &   Mid(s,   7,   2)) 
        HexIp2DotIp   =   p4   &   ". "   &   p3   &   ". "   &   p2   &   ". "   &   p1 
End   Function 
'-----------------------------代码结束-------------------------------------------------

Answer 5

VB可以收发数据包，但不能阻拦数据包的
一般都是用NDIS中间层驱动完成的，可以下载个DDK，里面的passthru就是很好的一个例子

Answer 6

要做成标准DLL写成消息HOOK
用Send()举例插入目标进程后通过LoadLibrary加载socket库
再找到你想HOOK的API地址,比如send()   
得到Send()在该目标进程中的send()涵数地址后,自己写一个与该涵数一样参数的涵数,
然后将你的涵数指什前面加一个字节E9(jmp).
然后保存Send()的前五个字节,然后将你刚才加了E9的涵数地址去改写Send()的首地址
这样,当然目标进程调用Send()的时候,数据和控制权就到你的代码里去了,进程间通信会了吧,把数据复制一份分回自己的进程后,再恢复Send(),帮它调用Send()将数据发出去.再改写首地址,如此这般...

Answer 7

hook   api的事情还是可以做的   
  至于dll的话需要一些处理   
  http://210.33.91.106/cy_filesxxx/vbsrc/VBAPIHooker.rar希望这个可以有用