Ir para o conteúdo
NuGuN

[VB6] Ver contactos do Messenger - How To

Mensagens Recomendadas

NuGuN    2
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  :P

cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
David Pintassilgo    5
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.  :wallbash:

5 estrelas!

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

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
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  :P

cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ghetto_Smurf    0
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)?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ghetto_Smurf    0
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?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade