Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: *Ghost* en 6 Agosto 2008, 19:22 pm


Título: Ayuda creando minichat
Publicado por: *Ghost* en 6 Agosto 2008, 19:22 pm
Hola gente de el hacker.net, necesito ayuda con un minichat que estoy desarrollando, com soy novato au, pues uso el control winsock y ya llevo esta parte del code programada, pero me saca error.... entocnes n ose que modificarle para que los datos de lo que yo escriban lleguen al serrvidor y viceversa.

Code del cliente

Código:
Private Sub cmdConnect_Click()
    
    With Wsk
         .Close
         .RemoteHost = TxIP
         .RemotePort = TxPort
         .Connect
    End With

End Sub

Private Sub cmdSend_Click()
    Wsk.SendData TxSend
End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
End Sub

Y aqui tengo el del server

Código:
Private Sub cmdClose_Click()
Wsk.Close
End Sub

Private Sub cmdListen_Click()
    With Wsk
         .Close
         .LocalPort = TxPort
         .Listen
    End With
    
End Sub

Private Sub cmdSend_Click()
    
    Wsk.SendData TxSend
   TxLog = TxLog & "Servidor : " & TxSend & vbCrLf
   TxSend = ""
    
End Sub

Private Sub Wsk_ConnectionRequest(ByVal requestID As Long)
Wsk.Close
Wsk.Accept requestID
End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
    TxLog = TxLog & "Client : " & dat & vbCrLf

End Sub

Espero que me puedan ayudar :) !

Título: Re: Ayuda creando minichat
Publicado por: aaronduran2 en 6 Agosto 2008, 19:27 pm
Hola. Para que llegue el mensaje del servidor al cliente, tienes que poner, por ejemplo:
Código
  1. MsgBox dat
  2.  
Esto iría debajo de:
Código
  1. Wsk.GetData dat, vbString
  2.  
Saludos.

Título: Re: Ayuda creando minichat
Publicado por: *Ghost* en 6 Agosto 2008, 19:31 pm
Mmm, no creo la idea es que llegue a un textbox, llamado TxLog , y ya tengo en una parte del code esto:

Código:
Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
End Sub

que se supone que es lo quer ecibe los datos

Título: Re: Ayuda creando minichat
Publicado por: aaronduran2 en 6 Agosto 2008, 19:36 pm
Pero aunque lleguen los datos, debes poder mostrarlos. Puedes utilizar el mismo código que pusiste en en el servidor:
Citar
Código
  1. TxLog = TxLog & "Client : " & dat & vbCrLf
  2.  

EDITADO: después de TxLog pon .Text

Saludos.

Título: Re: Ayuda creando minichat
Publicado por: BlackZeroX en 7 Agosto 2008, 05:09 am
Aca te dejo un Ejemplo: es lo mas sencillo que pude hacerlo ok...

Descargar Micro Chat (http://infra.110mb.com/VB/6/winsock/ejemplochat.zip)

aa cuando lo ejecutes solo debes estabecer primeramente el servidor y el cliente primero enciendes el servidor y despues conectas el cliente y veras que pasa saludos...


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines