buenas a todo el mundo. estoy comiendome la cabeza pero no consigo hacer una cosa ya qye tengo que pedir ayuda..
mi duda es..
tengo un listbox donde extraigo una lista de nombres desde un servidor.
ahora...
tengo un command buttom, pero tiene una accion
que quiero añadirla al listbox
por ejemplo, mandar un mensaje al nombre selecionado de la lista de ListBox
desde el boton Command button.. y mi duda es..
como se puede hacer eso chicos?
muchas gracias de antemano.
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
gracias draco, estoy haciendo un booter para yahoo, echarlo del messenger yahoo, pero el de la lista de listbox es de un chat, obtiene todos los ids del chat drakox gracias por atenderme
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
no se si conoces como funcionaria eso con el MSN,
pero aca te dejo el code que hice para este tipo de cosas.
'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
puedes agregarme? y decirme? te paso mi proyecto y me dices?, lo que abrir la coversacion,
si tengo el codigo pero.. lo del booter ..
tengo muchas opciones para mandar muchos privados con un gran de numero de paquetes.
ok,
te paso mi msn x IM,
y vere en que puedo ayudarte,
auqnue nunk use el messenger de yahoo
salu2