Codigo Cliente:
Código
Private Sub Command1_Click() On Error GoTo ssig: With Winsock1: .Close .RemotePort = Val(Text2.Text) .RemoteHost = Text1.Text .Connect End With If Winsock1.State <> 7 Then Caption = "Desconectado" Else Caption = "Conectado" Exit Sub ssig: MsgBox Err.Description, vbCritical + vbOKOnly, Err.Source Err.Clear End If End Sub Private Sub Command3_Click() Text3.Text = Text3.Text & vbCrLf & "-->" & Text4.Text Winsock1.SendData "Cliente --> " & Text4.Text End Sub Private Sub Form_Load() Form2.Hide Command3.Enabled = False End Sub Private Sub PaneldeControl_Click() Form2.Show End Sub Private Sub Salir_Click() End End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command3_Click End Sub Private Sub Winsock1_Close() Caption = "Desconectado" Command3.Enabled = False End Sub Private Sub Winsock1_connect() Caption = "Conectado" Command3.Enabled = True End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim datos As String Winsock1.GetData datos, vbString Text3 = Text3 & vbCrLf & datos End Sub Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Caption = "Error" Err.Clear End Sub
Codigo Servidor:
Código
Option Explicit Dim WithEvents Winsock1 As CSocketMaster Private Sub Command1_Click() Text1.Text = Text1.Text & vbCrLf & "-->" & Text2.Text Winsock1.SendData "Servidor --> " & Text2.Text End Sub Private Sub Form_Load() Set Winsock1 = New CSocketMaster With Winsock1 .CloseSck .LocalPort = 4576 .Listen End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1_Click End Sub Private Sub Winsock1_CloseSck() Caption = "Desconectado" End Sub Private Sub Winsock1_Connect() Caption = "Conectado" End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.CloseSck Winsock1.Accept requestID If Winsock1.State <> 7 Then: Caption = "Desconectado": Else: Caption = "Conectado" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim datos As String Winsock1.GetData datos, vbString Text1 = Text1 & vbCrLf & datos End Sub Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Caption = "Error" End Sub Private Sub Text1_Change(): Text1.SelStart = Len(Text1.Text): End Sub
Muchas Gracias por atender mi problema
Que tengan un buen dia!