NuGuN Posted July 22, 2006 at 10:50 AM Report Share #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 Link to comment Share on other sites More sharing options...
David Pintassilgo Posted July 22, 2006 at 10:54 AM Report Share #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// Link to comment Share on other sites More sharing options...
NuGuN Posted July 22, 2006 at 10:57 AM Author Report Share #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 Link to comment Share on other sites More sharing options...
David Pintassilgo Posted July 22, 2006 at 10:58 AM Report Share #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// Link to comment Share on other sites More sharing options...
NuGuN Posted July 22, 2006 at 10:59 AM Author Report Share #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 Link to comment Share on other sites More sharing options...
David Pintassilgo Posted July 22, 2006 at 11:02 AM Report Share #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// Link to comment Share on other sites More sharing options...
NuGuN Posted July 22, 2006 at 11:22 AM Author Report Share #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 Link to comment Share on other sites More sharing options...
skin Posted July 22, 2006 at 01:12 PM Report Share #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 Link to comment Share on other sites More sharing options...
NuGuN Posted July 22, 2006 at 01:24 PM Author Report Share #39585 Posted July 22, 2006 at 01:24 PM Dizme que erro te dá. cumps Link to comment Share on other sites More sharing options...
skin Posted July 22, 2006 at 01:24 PM Report Share #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 Link to comment Share on other sites More sharing options...
NuGuN Posted July 22, 2006 at 02:05 PM Author Report Share #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 Link to comment Share on other sites More sharing options...
psiico Posted August 17, 2006 at 12:35 PM Report Share #44801 Posted August 17, 2006 at 12:35 PM da na boua....,mas n sera: processo em x d proceço?? 😛 Psiico // Portfolio Link to comment Share on other sites More sharing options...
NuGuN Posted August 17, 2006 at 12:39 PM Author Report Share #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 Link to comment Share on other sites More sharing options...
Saco Posted August 17, 2006 at 05:37 PM Report Share #44842 Posted August 17, 2006 at 05:37 PM proceço :O Link to comment Share on other sites More sharing options...
Ghetto_Smurf Posted October 24, 2006 at 10:46 AM Report Share #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)? Link to comment Share on other sites More sharing options...
NuGuN Posted October 24, 2006 at 08:03 PM Author Report Share #59850 Posted October 24, 2006 at 08:03 PM ... tens ai em cima o que queres Cumps Link to comment Share on other sites More sharing options...
Ghetto_Smurf Posted October 24, 2006 at 09:57 PM Report Share #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? Link to comment Share on other sites More sharing options...
NuGuN Posted November 13, 2006 at 09:18 PM Author Report Share #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 Link to comment Share on other sites More sharing options...
softklin Posted November 30, 2006 at 09:33 PM Report Share #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. Link to comment Share on other sites More sharing options...
NuGuN Posted November 30, 2006 at 09:44 PM Author Report Share #68027 Posted November 30, 2006 at 09:44 PM Tens aqui o que tu queres e mais algumas coisas 🙂 Cumps Link to comment Share on other sites More sharing options...
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