• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

NuGuN

[VB6] Ver contactos do Messenger - How To

20 mensagens neste tópico

Trago-vos aqui um pequeno código que tem como objectivo(caso tenham o Messenger instalado) carregar para uma ListBox todos os vosso contactos B)

On Error GoTo Fim
Dim w As Variant
Dim ConTacto As Variant

Set w = CreateObject("Messenger.UIAutomation")

For Each ConTacto In w.MyContacts
    List1.AddItem ConTacto.SigninName
Next
Exit Sub
Fim:
MsgBox "Ocorreu um erro durante o proceço!", vbCritical, "Error"
End

Basta colocar esse código num evento de um botão ou no Form_Load, e aicionarem uma ListBox.

Para mais informações -> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winmessenger/winmessenger/overview/lockandkey.asp

http://forums.microsoft.com/msdn/showforum.aspx?forumid=112&siteid=1

Alguma duvida, ja sabem  :P

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem,.. assim de repente fiz copy/past e não deu.

"Ocorreu um erro durante o proceço!"
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só é suposto dar erro se não tiveres o Messenger instalado ou se acontecer outra coisa qualquer durate a execução B)

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tenho-o instalado e ligado, pode ter alguma coisa a ver com as versões?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já não estou a perceber

LOL

O programa não te dá os contactos e não dá erro? É issu que esta a acontecer?

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Dhuuu!!! é pá, esquece. Funciona na prefeição!

edit:

É assim, passo a esplicar: É no que dá fazer as coisas á pressa sem ler. Obviamente que aquilo dava erro pq eu não coloquei a listbox1 no programa.  :wallbash:

5 estrelas!

Já levas-te com um "Aplaudir post "  B)

Há mais cenas para usar deste tipo (Interação MSN/VB6) ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

hehe

Tambem ouve uma falha da minha parte, esquecime de dizer que se tinha de adicionar uma ListBox, mas tambem como o código é pequenito...

Há mais cenas para usar deste tipo (Interação MSN/VB6) ?

Há pois, eu pessoalmente só conheço mais estas "interacção":

If ConTacto.SigninName = "Mail_que_se_quer@ah_e_tal.com" Then
       ....
End If

Caso queiras um e-mail especifoco utilizas o código de cima.

If ConTacto.Status <> 1 Then
       ...
End If

Se quiseres ver se o contacto esta OnLine utilizas este código.

Dim iMsn As Variant
Dim w As Variant
Set w = CreateObject("Messenger.UIAutomation")
Set iMsn = w.InstantMessage("Mail_que_se_quer@ah_e_tal.com")

Com este ultimo abres uma janela de conversação com o contacto escolhido, neste caso Mail_que_se_quer@ah_e_tal.com.

Caso tentes abriri uma conversação com um contacto que esteja OffLine o mais provavel é dar erro por issu junta este código ao que verefica se o contacto esta OnLine  B)

E com o que aqui esta ja se conssegue fazer um programa engraçado  :P

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu ainda sou iniciante nisto e aconteceu-me o mesmo que ao d_pintassilgo mas eu coloquei uma listbox e nada, continuo com o erro...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Dizme que erro te dá.

cumps

Ocorreu um erro durante o proceço!

Simplesmente isto B)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nesse caso já pode ser outra coisa, pode ter a ver com a versão do Messenger ou ate do windows, mas sinseramente não te sei dizer ao certo o que poderá ser  B)

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

....,mas n sera: processo em x d proceço?? :P

Podes esplicar melhor, é que nao percebi :(

LOL

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Existe alguma maneira de fazer um programa que apenas procure por um certo e determinado e-mail e caso esteja online, abrir uma janela de conversação (caso não ele manda uma msgbox triste)?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas tipo, existe alguma maneira de registar o evento de um certo e-mail entrar no messenger, e depois usar o código para abrir uma janela de conversação com ele?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É possivel que exista, eu não sei como. Mas "aldrabando" um pouco podes com um ciclo ir varrendo a lista de contactos e verificando o estado actual do contacto que queres.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem, isto já não tem resposta à algum tempo, mas cá vai...

É simples: há alguma forma de poder alterar o nosso nick do msn?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora