Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Mostrar contatos do msn
4 participantes
Página 1 de 2
Página 1 de 2 • 1, 2
Mostrar contatos do msn
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:
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
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
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)
_________________
Re: Mostrar contatos do msn
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.
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.
_________________
Re: Mostrar contatos do msn
Muito legal xD, da pra mandar pros amigos e pegar os contatos deles KkKkK, ai é só mandar pro email usando a dll GoEmail.
Re: Mostrar contatos do msn
Paulo se você conseguir transformar isso aqui
- Código:
Dim msncontacts As MessengerAPI.IMessengerContacts = objMSN.MyContacts
Re: Mostrar contatos do msn
Esse também foi meu problema, eu não consegui transformar esse objeto.
_________________
Re: Mostrar contatos do msn
Ixii, também não sou bom no VB6, ele é todo bugado no windows 7. Se não tentava ajudar :/.
Re: Mostrar contatos do msn
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
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- Experiente
- Mensagens : 543
Créditos : 81
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Página 1 de 2 • 1, 2
Tópicos semelhantes
» Mostrar equipamento NPM 4.9.2
» HUD que mostrar a arma?
» 30s Mostrar um video
» Mostrar imagem da classe na HUD
» Mostrar Ícone + Variável:
» HUD que mostrar a arma?
» 30s Mostrar um video
» Mostrar imagem da classe na HUD
» Mostrar Ícone + Variável:
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
|
|