vb LAN chat, por favor ayúdame~
Controles requeridos por el programa: control Winsock, control CommandButton (nombre predeterminado), control TextBox (uno llamado txtMess, el otro llamado txtSend)
Programa El código es de la siguiente manera:
Private Sub Form_Load()
Atenuar mi cadena As
Winsock1.Protocol = sckUDPProtocol 'Establecer como rutina UDP
Winsock1.LocalPort = 10 'Configura el puerto de la computadora, el que quieras, pero deben ser iguales. /p>
Winsock1.RemotePort = 10
my = Winsock1.LocalIP 'Obtén tu propia dirección IP, esto no es lo que quieres
Winsock1. = my 'Esto debe configurarse con la dirección IP de la computadora de otra persona. Como usted es una computadora independiente, configúrela con la suya propia. Configúrelo en su propia dirección IP y envíese un mensaje
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'Ocurre al obtener datos
Dim Tmp As String
Winsock1.GetData Tmp, vbString 'Obtener datos
Tmp = "Dirección de la otra parte:" Winsock1.RemoteHost = "Mi dirección IP". Winsock1.RemoteHostIP "La voz es --gt;" Tmp
txtMess.Text = Tmp Chr$(13) Chr$( 10) txtMess.Text
End Sub
Private Sub Command1_Click() 'Enviar mensaje
Winsock1.SendData txtSend.Text
End Sub