Trate de subir el programa a un servidor pero se procucía un error
Codigo Cliente Chat:
Código
Private Sub Boton_Conexion_Click() On Error Resume Next WS.Close WS.Connect TxtIP.Text, 1066 End Sub Private Sub WS_Connect() SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")" End Sub Private Sub Boton_Desconexion_Click() WS.Close SB.Caption = "Estado - Desconectado (" & WS.RemoteHostIP & ")" End Sub Private Sub WS_Close() SB.Caption = " Estado - Cerrando Conexión (" & WS.RemoteHostIP & ")" & vbCrLf SB.Caption = "Estado - Esperando Conexión..." & vbCrLf WS.Listen End Sub Private Sub Command1_Click() WS.SendData Text2.Text End Sub
Codigo server chat
Código
Public WithEvents WS As CSocketMaster Private Sub Form_Load() Set WS = New CSocketMaster On Error Resume Next WS.LocalPort = 1066 WS.Listen End Sub Private Sub WS_onClose() WS.CloseSck WS.Listen End Sub Private Sub WS_onConnectionRequest(ByVal requestID As Long) WS.CloseSck WS.Accept requestID End Sub Private Sub WS_DataArrival(ByVal bytesTotal As Long) Temp = Text2.Text WS.GetData Temp
Eso es todo. Graciar por haber entrado para ayudarme con este problema.
Saludos y que tengan un buen día