VB lee archivos en bytes
El agente de escritura VB requiere muy poco código. W\if~t2j
CMUB=tvet
El código es el siguiente: H d@784
Private Sub form_Load() \@$l9nNuDe p>
DaiLi.LocalPort = "1234" /lq#*Lt?
Server.RemotePort = "1234" $'[AWj!zs
Server.RemoteHost = " 211.100.20.26 " @A:@ s[amp;lt;
DaiLi.Listen ` i(\wayv
End Sub Pamp;{=.~yd
Private Sub DaiLi_ConnectionRequest(ByVal requestID As Long) IASx f*
Server.Connect T["#!VIE
Client.Accept requestID Gxc@-K`amp; p>
End Sub lTU18m
Sub privado Client_DataArrival(ByVal bytesTotal As Long) M VV79}iy
Atenuar ClientToServer() como byte T4mn{
Client.GetData ClientToServer sf~@d9gt;7Q
Server.SendData ClientToServer S 5pt[U
End Sub }lt;y_cT1
Private Sub Server_DataArrival(ByVal bytesTotal As Long ) STX; lx]
Dim ServerToClient() As Byte =Af[3B
Server.GetData ServerToClient s}Q Kil-
Cliente. SendData ServerToClient Fdgt ;
End Sub f0QD
form_Load() Este proceso representa algunas operaciones de inicialización que se deben realizar cuando se inicia el programa.
2vsUamp; cq
DaiLi.LocalPort = "1234" Establece el puerto de escucha O 5wk0K*
Server.RemotePort = "1234" Establece el puerto conectado al servidor del juego (y el puerto de escucha los puertos son los mismos) !qzLn
Server.RemoteHost = "211.100.20.26" Establezca la dirección IP del servidor de juegos 7YZq|cZ
DaiLi.Listen para escuchar las solicitudes de conexión local qUchO p>
En este momento, solo necesitas cambiar la IP de la lista de servidores del juego a 127.0.0.1, luego el programa cliente del juego se conectará a nuestro agente y nuestro agente llamará al siguiente proceso: @ H0h
Sub privado DaiLi_ConnectionRequest(ByVal requestID As Long) YC n|bY8-
Servidor. ¿Conectar cliente proxy para conectarse al servidor?: PS=Ay
Client.Accept requestID Aceptar la solicitud de conexión del cliente ipW^jkW
End Sub LDgt;#8tts
Cuando el cliente envía datos al servidor, se llamará el siguiente proceso: KS -EE];
Private Sub Client_DataArrival(ByVal bytesTotal As Long) =#isMI=fX7
Dim ClientToServer() Como definición de variable de bytes, solicitando un espacio para almacenar datos 6^2 ~u
Client.GetData ClientToServer La conexión del cliente recibe los datos, [}fp3amp;
Aquí podemos agregar nuestro propio código, modificar el paquete y luego enviarlo al servidor. . Kllh0
Server.SendData ClientToServer La conexión del servidor envía estos datos al servidor UkuTLUamp;
End Sub Q1g~@uu
Cuando el servidor envía datos al cliente Cuando En el espacio donde se almacenan los datos Ogt; h54XI
Server.GetData La conexión del servidor ServerToClient recibe datos m~KK_5
Aquí podemos agregar nuestro propio código, modificar el paquete y luego enviarlo al cliente. e2d@(u C
Client.SendData ServerToClient nvQh2amp;
End Sub w.yaGcJ
qjUC[\{
Usar otro Los principios básicos de la escritura del lenguaje son similares, pero puede ser un poco más problemático, porque el propio VB tiene un control MSWINSCK.OCX, que encapsula las operaciones de red de WINDOWS y tiene una interfaz muy simple (se recomienda que todos usen MS). (qZg?