Red de conocimiento informático - Problemas con los teléfonos móviles - vb LAN chat, por favor ayúdame~

vb LAN chat, por favor ayúdame~

Un programa de chat simple

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