[VB6] Ver contactos do Messenger - How To

[NuGuN]

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  😛

cumps

[David Pintassilgo]

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

"Ocorreu um erro durante o proceço!"

[NuGuN]

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

cumps

[David Pintassilgo]

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

[NuGuN]

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

[David Pintassilgo]

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. 

5 estrelas!

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

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

[NuGuN]

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  😛

cumps

[skin]

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

[NuGuN]

Dizme que erro te dá.

cumps

[skin]

Dizme que erro te dá.

cumps

Ocorreu um erro durante o proceço!

Simplesmente isto B)

[NuGuN]

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

[psiico]

da na boua....,mas n sera: processo em x d proceço?? 😛

[NuGuN]

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

Podes esplicar melhor, é que nao percebi 😞

LOL

Cumps

[Saco]

proceço

:O

[Ghetto_Smurf]

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)?

[NuGuN]

... tens ai em cima o que queres

Cumps

[Ghetto_Smurf]

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?

[NuGuN]

É 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

[softklin]

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

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

[NuGuN]

Tens aqui o que tu queres e mais algumas coisas  🙂

Cumps