Código fuente de VB para interceptar y enviar paquetes

Material de referencia: Intercepción de paquetes de datos por parte de VB Hay muchas opiniones diferentes sobre el desarrollo de complementos de VB, especialmente API HOOK. De hecho, ¡VB no es menos generoso cuando se trata de complementos!

Todos los desarrolladores que han visitado MSDN saben que los ejemplos de vb vc c# vj son los mismos, ¡pero la sintaxis es diferente! ¡Esto significa que lo que puedes escribir en VC también se puede escribir en VB!

La API de VB para interceptar el código de paquete RAW SOCKET se proporciona a continuación. ¡No dudes en informarme!

Atenuar soc mientras sea largo, dwRc mientras dure

Atenuar RemoteAddr como sockaddr

Atenuar LocalAddr como sockaddr

Atenuar inBuffer, outBuffer como cadena

Atenuar byteRetainer como cadena

Atenuar byteRetainer como cadena

Atenuar byteRetainer como cadenaDim byteReturn As Long

Atenuar RetMsg como cadena

Dim strData como cadena

DimnReceived As Long

Const MAX_PACK_LEN = 4096

Dim keepRun como booleano

Dim asc( ) Como byte

Tipo privado TcpHeader 'typedef struct tcp_hdr //definir encabezado TCP

th_sport As Integer ';//puerto de origen de 16 bits

th_dport como Integer '; //puerto de destino de 16 bits

th_seq As Long '; //número de secuencia de 32 bits

th_ack As Long '; p>

th_lenres As Byte '; //longitud del encabezado de 4 bits/palabra reservada de 6 bits

th_flag As Byte '; //bit de bandera de 6 bits

th_win As Integer '; // tamaño de ventana de 16 bits

th_sum As Integer '; //suma de comprobación de 16 bits

th_urp As Integer ' //desplazamiento de datos de emergencia de 16 bits<; /p>

Tipo de finalización

. .......URL de origen:/zyq0ting/blog/item/ab10783eca88783b70cf6ceb.html.