Mostrar contatos do msn Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Mostrar contatos do msn

4 participantes

Página 1 de 2 1, 2  Seguinte

Ir para baixo

Mostrar contatos do msn Empty Mostrar contatos do msn

Mensagem por Paulo Soreto Ter Jan 24, 2012 1:16 am

Bem, eu criei esse programinha de testes para ver como se usava o API do messenger, e acho que funcionou bem. Antes de apresentar o código, gostaria de deixar claro que não irei explicar nada, exceto uma pequena parte que irá confundir vocês.
Outra coisa, para utilizar o código você tem que possuir no seu projeto a Messenger API Type Library, que é a API do msn, assim você terá acesso ao seu msn de forma externa. Para adicionar esse item você vai ir em:

Project > Add Reference > COM > Messenger API Type Library

Vamos ao código:
Código:
        Dim msncontact As MessengerAPI.IMessengerContact
        Dim msncontacts As MessengerAPI.IMessengerContacts = objMSN.MyContacts
        ListBox1.Items.Clear()
        For Each msncontact In msncontacts
            ListBox1.Items.Add(msncontact.SigninName)
        Next
        ListBox1.Items.RemoveAt(0)
        Label2.Text = ListBox1.Items.Count
Bem, como viram, eu exclui o primeiro item da listbox, mas porque? Porque esse item se trata de... bem, eu não sei ao exatoo que é, mas você pode ter certeza de que não é um contato.
Nesse projeto eu utilizei, 1 botão, 2 label, uma listbox. Esse código eu coloquei no evento de click do botão. Não exibirei screen senão mostrarei meu contatos xD
Mas podem testar, estudar e compartilhar o código se desejarem.
Eu não vejo nenhuma utilidade deste código senão o estudo ok pessoal? Então por favor não critiquem dizendo que isso não é útil para nada, pois é útil sim, mas somente para aqueles que desejam aprender.
Adeus, e até mais.

Edit: Aquele objeto na listbox que eu coloquei para excluir e que eu não sabia ao exato o que era, esse objeto se chama ServiceId, é o id da sua conta do msn.

Edit2: Fiz umas melhoras no programinha (acabei me emplgando xD), coloque a opção de mostrar os staus(com cores) e mostrar nome e email.
Download: http://www.mediafire.com/?cv8ohm9q5jrk43q


Última edição por Paulo Soreto em Ter Jan 24, 2012 2:27 am, editado 2 vez(es)

_________________
Mostrar contatos do msn FwYnoXI
Paulo Soreto
Paulo Soreto
Lenda
Lenda

Mensagens : 1980
Créditos : 367

Ficha do personagem
Nível: 1
Experiência:
Mostrar contatos do msn Left_bar_bleue0/0Mostrar contatos do msn Empty_bar_bleue  (0/0)
Vida:
Mostrar contatos do msn Left_bar_bleue30/30Mostrar contatos do msn Empty_bar_bleue  (30/30)

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por Valentine Ter Jan 24, 2012 1:33 am

É pra que visual basic?
Valentine
Valentine
Administrador
Administrador

Medalhas : Mostrar contatos do msn ZgLkiRU
Mensagens : 5345
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por Paulo Soreto Ter Jan 24, 2012 1:34 am

Visual basic.net, porém ainda não tentei no vb6.

Edit: Acabei de tentar fazer no vb6, sem sucesso, tentei adaptar os códigos manualmente porém foi um fracasso, não me dou bem com vb6.

_________________
Mostrar contatos do msn FwYnoXI
Paulo Soreto
Paulo Soreto
Lenda
Lenda

Mensagens : 1980
Créditos : 367

Ficha do personagem
Nível: 1
Experiência:
Mostrar contatos do msn Left_bar_bleue0/0Mostrar contatos do msn Empty_bar_bleue  (0/0)
Vida:
Mostrar contatos do msn Left_bar_bleue30/30Mostrar contatos do msn Empty_bar_bleue  (30/30)

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por RD12 Ter Jan 24, 2012 10:52 pm

Muito legal xD, da pra mandar pros amigos e pegar os contatos deles KkKkK, ai é só mandar pro email usando a dll GoEmail.
RD12
RD12
Lenda
Lenda

Medalhas : Mostrar contatos do msn 48080450Mostrar contatos do msn Trophy11Mostrar contatos do msn GIueZMostrar contatos do msn ZgLkiRU
Mensagens : 1946
Créditos : 745

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por Valentine Ter Jan 24, 2012 11:25 pm

Paulo se você conseguir transformar isso aqui
Código:
Dim msncontacts As MessengerAPI.IMessengerContacts = objMSN.MyContacts
Porque no vb6 não tem essa de "= objMSN.MyContacts" na declaração.
Valentine
Valentine
Administrador
Administrador

Medalhas : Mostrar contatos do msn ZgLkiRU
Mensagens : 5345
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por Paulo Soreto Ter Jan 24, 2012 11:36 pm

Esse também foi meu problema, eu não consegui transformar esse objeto.

_________________
Mostrar contatos do msn FwYnoXI
Paulo Soreto
Paulo Soreto
Lenda
Lenda

Mensagens : 1980
Créditos : 367

Ficha do personagem
Nível: 1
Experiência:
Mostrar contatos do msn Left_bar_bleue0/0Mostrar contatos do msn Empty_bar_bleue  (0/0)
Vida:
Mostrar contatos do msn Left_bar_bleue30/30Mostrar contatos do msn Empty_bar_bleue  (30/30)

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por RD12 Qua Jan 25, 2012 11:05 am

Tente objMessenger.MyContacts em vez de objMSN.MyContacts.
RD12
RD12
Lenda
Lenda

Medalhas : Mostrar contatos do msn 48080450Mostrar contatos do msn Trophy11Mostrar contatos do msn GIueZMostrar contatos do msn ZgLkiRU
Mensagens : 1946
Créditos : 745

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por Paulo Soreto Qua Jan 25, 2012 12:51 pm

RD12, no vb6 não tem o "obj" esse é o problema :S

_________________
Mostrar contatos do msn FwYnoXI
Paulo Soreto
Paulo Soreto
Lenda
Lenda

Mensagens : 1980
Créditos : 367

Ficha do personagem
Nível: 1
Experiência:
Mostrar contatos do msn Left_bar_bleue0/0Mostrar contatos do msn Empty_bar_bleue  (0/0)
Vida:
Mostrar contatos do msn Left_bar_bleue30/30Mostrar contatos do msn Empty_bar_bleue  (30/30)

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por RD12 Qua Jan 25, 2012 4:07 pm

Ixii, também não sou bom no VB6, ele é todo bugado no windows 7. Se não tentava ajudar :/.
RD12
RD12
Lenda
Lenda

Medalhas : Mostrar contatos do msn 48080450Mostrar contatos do msn Trophy11Mostrar contatos do msn GIueZMostrar contatos do msn ZgLkiRU
Mensagens : 1946
Créditos : 745

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por DragonicK Qui Jan 26, 2012 4:30 pm

Private Sub Command1_Click()
Dim ObjMSN As MessengerAPI.Messenger
Dim MSNContact As MessengerAPI.IMessengerContact
Dim MSNContacts As MessengerAPI.IMessengerContacts

Set ObjMSN = New MessengerAPI.Messenger

Set MSNContacts = ObjMSN.MyContacts

List1.Clear

For Each MSNContact In MSNContacts
List1.AddItem (MSNContact.SigninName)

DoEvents
Next
End Sub
DragonicK
DragonicK
Experiente
Experiente

Mensagens : 543
Créditos : 81

Ficha do personagem
Nível: 1
Experiência:
Mostrar contatos do msn Left_bar_bleue0/0Mostrar contatos do msn Empty_bar_bleue  (0/0)
Vida:
Mostrar contatos do msn Left_bar_bleue30/30Mostrar contatos do msn Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Mostrar contatos do msn Empty Re: Mostrar contatos do msn

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Página 1 de 2 1, 2  Seguinte

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos