NuGuN Posted July 22, 2006 at 10:50 AM Report #39555 Posted July 22, 2006 at 10:50 AM 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 Posted July 22, 2006 at 10:54 AM Report #39556 Posted July 22, 2006 at 10:54 AM Bem,.. assim de repente fiz copy/past e não deu. "Ocorreu um erro durante o proceço!" cool stuffs to check. http://blog.zxcoders.com//
NuGuN Posted July 22, 2006 at 10:57 AM Author Report #39558 Posted July 22, 2006 at 10:57 AM 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 Posted July 22, 2006 at 10:58 AM Report #39559 Posted July 22, 2006 at 10:58 AM Tenho-o instalado e ligado, pode ter alguma coisa a ver com as versões? cool stuffs to check. http://blog.zxcoders.com//
NuGuN Posted July 22, 2006 at 10:59 AM Author Report #39560 Posted July 22, 2006 at 10:59 AM 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 Posted July 22, 2006 at 11:02 AM Report #39562 Posted July 22, 2006 at 11:02 AM 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) ? cool stuffs to check. http://blog.zxcoders.com//
NuGuN Posted July 22, 2006 at 11:22 AM Author Report #39565 Posted July 22, 2006 at 11:22 AM 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 Posted July 22, 2006 at 01:12 PM Report #39576 Posted July 22, 2006 at 01:12 PM 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... Our lives begin to end the day we become silent about things that matter - Martin Luther King
NuGuN Posted July 22, 2006 at 01:24 PM Author Report #39585 Posted July 22, 2006 at 01:24 PM Dizme que erro te dá. cumps
skin Posted July 22, 2006 at 01:24 PM Report #39586 Posted July 22, 2006 at 01:24 PM Dizme que erro te dá. cumps Ocorreu um erro durante o proceço! Simplesmente isto B) Our lives begin to end the day we become silent about things that matter - Martin Luther King
NuGuN Posted July 22, 2006 at 02:05 PM Author Report #39591 Posted July 22, 2006 at 02:05 PM 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 Posted August 17, 2006 at 12:35 PM Report #44801 Posted August 17, 2006 at 12:35 PM da na boua....,mas n sera: processo em x d proceço?? 😛 Psiico // Portfolio
NuGuN Posted August 17, 2006 at 12:39 PM Author Report #44802 Posted August 17, 2006 at 12:39 PM ....,mas n sera: processo em x d proceço?? 😛 Podes esplicar melhor, é que nao percebi 😞 LOL Cumps
Ghetto_Smurf Posted October 24, 2006 at 10:46 AM Report #59757 Posted October 24, 2006 at 10:46 AM 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 Posted October 24, 2006 at 08:03 PM Author Report #59850 Posted October 24, 2006 at 08:03 PM ... tens ai em cima o que queres Cumps
Ghetto_Smurf Posted October 24, 2006 at 09:57 PM Report #59881 Posted October 24, 2006 at 09:57 PM 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 Posted November 13, 2006 at 09:18 PM Author Report #64171 Posted November 13, 2006 at 09:18 PM É 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 Posted November 30, 2006 at 09:33 PM Report #68025 Posted November 30, 2006 at 09:33 PM Bem, isto já não tem resposta à algum tempo, mas cá vai... É simples: há alguma forma de poder alterar o nosso nick do msn? Nick antigo: softclean | Tens um projeto? | Wiki P@P Ajuda a comunidade! Se encontrares algo de errado, usa a opção "Denunciar" por baixo de cada post.
NuGuN Posted November 30, 2006 at 09:44 PM Author Report #68027 Posted November 30, 2006 at 09:44 PM Tens aqui o que tu queres e mais algumas coisas 🙂 Cumps
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now