hola q tal...
la verdad hace muy mucho que no participo de un foro...pero ahora vuelvo..
bueno he encontrado el cod. fuente de un programa en vb6 de un chat simple, supuestamente ya estaba listo para compilar, pero como siempre me saltan errores..
codigo del cliente:
Private Sub bntConnect_Click()
On Error GoTo ErrSub
With Winsock1
.Close
.RemoteHost = txtIP
.RemotePort = txtPort
.Connect
End With
Exit Sub
ErrSub:
MsgBox "Error : " & Err.Description, vbCritical
End Sub
Private Sub bntSend_Click()
On Error GoTo ErrSub
Winsock1.SendData txtSend
txtLog = txtLog & "Cliente : " & txtSend & vbCrLf
txtSend = ""
Exit Sub
ErrSub:
MsgBox "Error : " & Err.Description
Winsock1_Close ' cierra la conexión
End Sub
Private Sub Winsock1_Close()
Winsock1.Close 'Cierra la conexión
txtLog = txtLog & "*** Desconectado" & vbCrLf
End Sub
Private Sub Winsock1_Connect()
txtLog = "Conectado a " & Winsock1.RemoteHostIP & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Winsock1.GetData dat, vbString
txtLog = txtLog & "Servidor : " & dat & vbCrLf
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)
txtLog = txtLog & "*** Error : " & Description & vbCrLf
Winsock1_Close
End Sub
cuando quiero compilarlo me salta error " error de compilacion no se encontro el metodo o el miembro de datos"
y automaticamente me selecciona lo siguiente:
With Winsock1
.Close
me pueden ayudar? nose que puede ser. gracias y saludos
PD: tengo windows vista, no se si eso influenciara.