Jump to content

[VB6] Ver contactos do Messenger - How To


NuGuN
 Share

Recommended Posts

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

Link to comment
Share on other 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) ?

cool stuffs to check.

http://blog.zxcoders.com//

Link to comment
Share on other 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  😛

cumps

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.