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
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
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
pudiera hacer un copy paste del code del programa , para entender mejor
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.. :P
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... :P
¡Saludos!
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! ;)....
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.
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!
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 (http://rapidshare.com/files/110642667/Chat.zip)
saludos.