ayuda con este codigo!

[Sai-To]

saludso bueno en mi aplicacion Cliente server quiero hacer esto:

desde el cliente voy a enviar un mensaje desde un textbox al server! de esta forma:

CLIENTE

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim var As String
If Text1.Text = "" Then
    MsgBox ("Agrege un mensaje"), vbInformation, "Remote MSN Controler"
End If

var = Text1.Text
ws.SendData var
Text1.Text = ""
End Sub

Private Sub Command11_Click()
Form4.Show
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Label1.Caption = "Estado con Server: Desconectado"
ws.Close
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
Command3.Enabled = False
Command2.Enabled = True
Timer1.Enabled = True
Label1.Caption = "Estado con Server: Escuchando..."
ws.LocalPort = 1234
ws.Listen
End Sub

Private Sub Command4_Click()
List1.Clear
ws.SendData "ref"
End Sub

Private Sub Command7_Click()
Form3.Show
End Sub

Private Sub Command9_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = False
Command2.Enabled = False
If App.PrevInstance = True Then
End
End If
End Sub

Private Sub Label3_Click()
End
End Sub

Private Sub Label8_Click()
Me.WindowState = 1
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If ws.State = 7 Then
Label1.Caption = "Estado con Server: Conectado..."
End If

If Not ws.State = 7 Then
Label1.Caption = "Estado con server: Descon./Escuchando.."
ws.LocalPort = 1234
ws.Listen
End If
DoEvents

If ws.State = 2 Then
Label1.Caption = "Estado con server: Escuchando..."
End If

If ws.State = 0 Then
Label1.Caption = "Estado con server: Desconectado"
ws.Connect "127.0.0.1", 1234
End If
DoEvents
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim dato() As String
Dim datos As String
ws.GetData datos
If datos = "cont" Then
    dato = Split(cont, "|")
        For i = 1 To UBound(dato)
            List1.AddItem dato(i)
    Next
End If
End Sub

ahora envio eso que es el la variable texto con el texto luego:

SERVER

Código [Seleccionar] Expandir


Public WithEvents MSN As Messenger
Public WithEvents MSNN As MessengerAPI.Messenger

Private Sub Form_Load()
Timer1.Interval = 60000
Set MSN = New Messenger
Set MSNN = New MessengerAPI.Messenger
ws.Connect "127.0.0.1", 1234
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
GoTo fin
End If

If ws.State = 2 Then
GoTo fin
End If

If Not ws.State = 7 Then
ws.Close
ws.Connect "127.0.0.1", 1234
End If

fin:
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim user As IMessengerContact
Dim venta As IMessengerConversationWnd
Dim datos As String
Dim cont As String
ws.GetData datos

If datos = "ref" Then
For Each user In MSNN.MyContacts
    If user.Status = MISTATUS_ONLINE Or user.Status = BE_RIGHT_BACK Then
        cont = cont & user.SigninName & "|"
    End If
Next
End If
ws.SendData cont

If datos = Var Then
    For Each user In MSNN.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
            Set venta = MSN.InstantMessage(user.SigninName)
                SendKeys Var
                SendKeys "{ENTER}"
            venta.Close
            DoEvents
        End If
     Next
End If
Set venta = Nothing
End Sub


pero este code no me sirve, osea no pasa nada como lo puedo arreglar?:S

[krackwar]

pudiera hacer un copy paste del code del programa , para entender mejor

[seba123neo]

brache pega todo el codigo,con los eventos tambien,sino hay que adivinar donde esta escrito ese codigo,si en un boton o en donde..

[cassiani]

 Hola brache, por lo visto en este code y otros que has posteado, puedo inferir que tu NO pruebas lo que haces, a ver, te digo porque me parece...

Vuelves a cometer el mismo error una y otra vez ¿quien es texto? ¿Es una variable? no la veo declarada y con algún valor asignado y si es una cadena ¿donde están las comillas?

Como ya te dijeron los demás, coloca los eventos con la rutina completa, así es mas fácil localizar los errores...

Algo me dice que no haces uso del inigualable "Option Explicit" supongo que lo conoces y si es que se te olvida agregarlo, entonces configura el vb para que te lo asigne al abrir un form o un modulo, te vas a --> Menú --> Herramientas --> Opciones --> y chequeas la opción: Requerir declaración de variables, seguro eso te ayudara mas adelante... 

¡Saludos!

[Sai-To]

jaja hola chicos disculpen mi Ignorancia jeje bueno miren aqui les dejo el code COMPLETO voy a aclarar que el code no esta terminado todavia le falta..
Bueno a ver! en la de enviar el texto amigo cassiani lo que envio es una variable con el texto del text1.text en el! para que el server la resiva esa variable y valla listando los contactos y abra una ventana del contacto envie las cosas y cierre y asi hasta el ultimo contacto! ....

[seba123neo]

brache yo tengo un codigo aca para mandar a la pc cliente las direcciones de los contactos de la pc servidor.si esta logeada en el msn,si queres lo posteo,capas te sirva despues te la arreglas para meterlos en un listbox,es casi lo mismo...

saludos.

[Sai-To]

o amigo me parece genial... para ver en que fallo y como solucionarlo apra que no me pase mas! te lo agradeceria man! y disuclpa!

[seba123neo]

bueno aca subi el proyecto con el cliente y el server,es una boludez,lo unico que hace es listar en un listbox lo que vos querias,despues todo lo otro que queres hacer hacelo vos..

Listar Contactos MSN

saludos.