Mensajes

Tengo esto y me da error:

Cliente:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
CD.ShowOpen
CD.Filter = "Solo |.exe *.exe"
WS.Close
WS.RemoteHost = "127.0.0.1"
WS.RemotePort = "1234"
WS.Connect
MsgBox ("Enviar")
Dim datitos As String
datitos = Text1.Text
WS.SendData datitos
End Sub

Private Sub WS_Connect()
Label1.Caption = "Conexion establecida"
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
   
    WS.GetData dat, vbString
   
End Sub
Servidor

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
WS.Close
WS.LocalPort = "1234"
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
  If WS.State <> sckClosed Then
        WS.Close ' close
    End If

    WS.Accept requestID
End Sub

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

    WS.GetData dat
    Text1.Text = dat
End Sub

Si en el cliente quito lo de sendata no me da error. :S

Pero lo que no se es como para enviar y recibir datos.

Bueno, quiero programar un cliente y un servidor, con un winsock en cada programa y cuando inicie el servidor envie "hola" al cliente, todo en un mismo PC es decir los 2 programas tienen que estar en un mismo PC.

1- Es decir el cliente esta conectado y cuando el servidor se abra le envie la palabra "hola" al cliente y que el cliente lo escriba en un text.


Gracias.

Esto rula?

ElseIf GetAsyncKeyState(AscW13) <> 0 Then
Text1.Text = Text1.Text + vbNewLine

OK, pero me gustaria envez  de poner las letras poner su codigo ascii

El timer mas o menos a que intervalo lo pongo?

Bueno, en un programa lo escondo en la barra de tareas y necesito que todo lo que se teclee en el teclado se guarde en el Text1.Text

pero que no se teclee delante del programa es decir, = esquibes en el msn: Hola pues en el text se tiene que escribir Hola

¿Alguien sabe como? xd

Yo solo queria como hacerlo, es para fomentarlo en otros proyecots con otras formas.

Bueno, quiero hacer esto para eso pongo el ejemplo tan sencillo:

en un modulo tengo:

Código (vb) [Seleccionar] Expandir

Public Function Mensaje()
Msgbox()
End Function

y en el form

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Mensaje("jaja")
End Sub


Entonces deberia de salir un msgbox con el texto jaja , se que el codigo esta mal hecho pongo este ejemplo para que sepais mas o menos como se hace, ahora.......
¿Como se hace? Gracias

Me dice lo mismo out of memory

y me señala:

    Set MSN = New MessengerAPI.Messenger