Título: AYUDA con programa de Chat en VB6 Publicado por: Mat-Cas en 2 Octubre 2008, 04:46 am 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. Título: Re: AYUDA con programa de Chat en VB6 Publicado por: krackwar en 2 Octubre 2008, 04:53 am Supongo que agregaste el winsock y todas las cosas los textbox los botones y todito:P
Título: Re: AYUDA con programa de Chat en VB6 Publicado por: APOKLIPTICO en 2 Octubre 2008, 05:06 am Cuando pongas codigo fuente, usa los tags de
Código: Título: Re: AYUDA con programa de Chat en VB6 Publicado por: Mat-Cas en 2 Octubre 2008, 05:26 am perdon era una pavada y asta solucionado....
voy a ver q pasa con el server .... y les aviso |