 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
B470-Killer
Novato
Registrado: Sábado, 24 de Mai de 2008
Mensagens: 3
|
 Enviada: Sáb Mai 24, 2008 7:01 pm Assunto: [EDITADO] Pegar contatos do MSN. |
 |
|
| Moderadores Active-Delphi escreveu: |
Tópico editado por Joemil.
Motivo: Regras do Fórum.
MOTIVO DA EDIÇÃO
Veja o item n. 1 das regras do forum
|
E ai Galera bom uma Duvida Terrivél no Delphi seguinte.
Estou com um projetinho meu um gerenciador de E-mail eu queria saber como Pegar as lista de contato do MSN .
EXEMPLO:
Coloca no Form um ListBox e um Button quando eu clika no Button Cujo o nome vai ser "Pegar Email" quero que list todos os Email que tem no MSN da Pessoa e esses Email vá para o List Box parece facil? Pois bem pesquisei,pesquisei mas não achei sobre o assunto mais pelo que eu sei tem que usar a API do MSN coisa que Tambem Não entendi. Bom ai fica minha duvida alguem conssegue fazer uma aplicação assim? se consseguir vai me ajuda e muito vo postar aqui um Source de um Worm. que tem essa API mais o foda e saber Usar ela.
Estava tentando assim mais ele Não lista nada.
| Código: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, registry, MessengerAPI_TLB, WinInet, Winsock, IdTCPClient, IdMessageClient, IdSMTP,
AppEvnts, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
LV: TListView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
function IsConnected: Boolean;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
SignInList, FriendlyNameList: TStringList;
n : Integer;
lista : string;
Reg: TRegistry;
msnContacts : IMessengerContacts;
msnContact : IMessengerContact;
Arquivo : TextFile;
NumberOfEmails: Integer;
MyFriendlyName: String;
MySigninName: String;
Messenger: IMessenger3;
implementation
{$R *.dfm}
function TForm1.IsConnected: Boolean;
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes : DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
If InternetGetConnectedState(@dwConnectionTypes,0) then
Result := True
else
Result := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
L : TListItem;
begin
if not IsConnected then
Exit;
try
Messenger := MessengerAPI_TLB.CoMessenger.Create; // Aqui ele abre o MSN
MyFriendlyName := Messenger.Get_MyFriendlyName; //Pega seu No,e
MySigninName := Messenger.Get_MySigninName; // Seu E-Mail Algo Assim
NumberOfEmails := Messenger.UnreadEmailCount[0]; // Numeros de E-Mail da Sua Lista
lista := MySigninName + #13#10 + #13#10; // Lista
msnContacts := IMessengerContacts(MessengerAPI_TLB.CoMessenger.Create.MyContacts); //Cata os E-mails
SignInList := TStringList.Create; // Daki pra baixo tu troca por LV
FriendlyNameList := TStringList.Create;
l := LV.Items.Add;
for n := 0 to msnContacts.Count - 1 do
begin
msnContact := IMessengerContact(msnContacts.Item(n));
L.SubItems.Add(msnContact.SigninName);
L.SubItems.Add(msnContact.FriendlyName);
lista := lista + msnContact.SigninName + #13#10;
end
finally
ShowMessage('Listado =D');
end;
end;
end. |
Download do SOURCE WormList.rar (216.61 KB)
MSN- Killer-root@hotmail.com |
|
| Voltar ao Topo |
|
 |
Tchock
Colaborador
Registrado: Domingo, 18 de Julho de 2004
Mensagens: 1242
|
| Enviada: Sáb Mai 24, 2008 7:47 pm Assunto: |
|
|
vc esta querendo fazer um msn no delphi?
eu so esta querendo listar os contatos que vc tem...
[/img] |
|
| Voltar ao Topo |
|
|
B470-Killer
Novato
Registrado: Sábado, 24 de Mai de 2008
Mensagens: 3
|
| Enviada: Sáb Mai 24, 2008 8:53 pm Assunto: |
|
|
Isso eu quero Listar todos os contato do MSN num listBox mais ta dificel vio.... ja tentei e tentei o geito e vim pedir ajuda aqui.
Poe sera que niwguem sabe  |
|
| Voltar ao Topo |
|
|
B470-Killer
Novato
Registrado: Sábado, 24 de Mai de 2008
Mensagens: 3
|
| Enviada: Dom Mai 25, 2008 10:20 pm Assunto: |
|
|
| Poe galera sera que nowguem vai me ajuda......... Tava precissando |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
