PROTOCOLO UDP

Proyecto comprimido pulsar aquí

‘Declaración de la variable TEXTO

Dim TEXTO As String

‘Funcion inicial Form_load

Private Sub Form_Load()

Text3.Text = Winsock1.LocalIP

Text4.Text = 3456

Text5.Text = Winsock1.LocalIP

Text6.Text = 3457

Winsock1.Protocol = sckUDPProtocol

End Sub

‘Botón Activar

Private Sub Command2_Click()

Winsock1.LocalPort = CStr(Text4.Text)

Winsock1.RemoteHost = Text5.Text

Winsock1.RemotePort = Text6.Text

Winsock1.Bind (Winsock1.LocalPort)

End Sub

‘Función Data Arrival

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData TEXTO

Text1.Text = Text1.Text + vbCrLf + TEXTO

Me.BackColor = vbGreen

End Sub

‘Botón Enviar

Private Sub Command1_Click()

Winsock1.SendData Text2.Text

Text1.Text = Text1.Text + vbCrLf + Text2.Text

End Sub

‘Función sensible al cambio de contenido en el texto para volver al color inicial del formulario

Private Sub Text2_Change()

Me.BackColor = Command1.BackColor

End Sub