Hola, hace un tiempo, he estado intentando crear un chat, en vb6, pero resulta que siempre la primera linea de este codigo" Private Sub cmdListen_Click() " me tiraba un error, este es el codigo:

Código:

Private Sub cmdListen_Click()
If socket.Enabled = True Then
socket.Close
End If
socket.LocalPort = "55"
socket.Listen
cmdSend.Enabled = True
txtlog = txtlog & "[Servidor] - Servidor de Chat Iniciando en Puerto: " & socket.LocalPort & vbCrLf
End Sub

El codigo entero es este_

Código:

Private Sub cmdListen_Click()
If socket.Enabled = True Then
socket.Close
End If
socket.LocalPort = "55"
socket.Listen
cmdSend.Enabled = True
txtlog = txtlog & "[Servidor] - Servidor de Chat Iniciando en Puerto: " & socket.LocalPort & vbCrLf
End Sub

Private Sub cmdSend_Click()
If txtsend = "" Then
Else
socket.SendData txtsend
txtsend = ""
End If
End Sub

Private Sub Form_Load()
cmdSend.Enabled = False
End Sub

Private Sub socket_ConnectionRequest(ByVal requestID As Long)
If socket.State <> sckClosed Then
socket.Close
Else
End If
socket.Accept requestID
txtlog = txtlog & "[Servidor] Cliente conectado desde la Ip: " & socket.RemoteHostIP
End Sub

Private Sub socket_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
socket.GetData datos
txtlog = txtlog & "[Text1.Text] - " & datos & vbCrLf
End Sub

Y esta es la imagen de mi proyecto:



De ante mano muchas gracias.

PD: Excelente Foro

Eh, en la linea:

Código:

Private Sub cmdListen_Click()
If socket.Enabled = True Then
socket.Close
End If

Me he equivocado, en realidad en mi proyecto, va:

Código:

Private Sub cmdListen_Click()
socket.Close

Asi esta en mi proyecto, y asi tambien me tira error, creo que es el 424, pero no estoy seguro

Lo del error te pasa por que el control Winsock no lo has renombrado a "socket". Por eso te tira el error. Tambien decirte que antes de enviar por el socket algo, tienes que cerrarlo con socket.Close

Código:

Private Sub cmdSend_Click()
If txtsend = "" Then
Else
socket.Close
socket.SendData txtsend
txtsend = ""
End If
End Sub

Esto no es un cerrado fisico del socket pero te asegura errores de envio. Es decir: que por pener close no pierdes la conexion que tenga hecho el socket con el remoto. Un saludo.

Quise decir que te asegura NO tener errores en el envio por uso del socket para otros menesteres.

Perdona que hoy estoy algo espeso y no ando bien tirando de memoria. Olvida lo que te dije del .Close. Eso era rapa el aceptado del requestID y eso lo tienes correctamente puesto en el codigo.

Voy apor cafe cargado