msn into delphi

Plasmax
Plasmax used Ask the Experts™
on
really going to test you here chaps.

can someone whip me something togther that will do the following.
I have tried searching everywhere and downloading a load of msn junk, anything to get it togther but cant, all day I spent on this still cant get it.

i want to have a button to say: show my msn

once pressed a mini version of msn "inside delphi" that shows:

1. login name (small button next to it saying "get login" auto searches for all stored names
2. password  (small button next to that saying same thing and searching for stored.
3. once connected show contacts lists online and whos offline
4. a small chat window to recieve text and send text

nothing else

I have something close but full of errors and lots of info I dont really want, i only want it to show basic things, I am doing something like a program to choose if u want msn, myspace ect...    just need to start with msn.

any help is weclomed so much I know how hard this is so ....   give it a go.




update, maybe something similar to this to locate username and password of the users who operate the program?

http://www.snapfiles.com/get/MessenPass.html
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®

Author

Commented:
update, maybe something similar to this to locate username and password of the users who operate the program?

http://www.snapfiles.com/get/MessenPass.html

Commented:
see this code, maybe help you

program MSNDecrypt;
 
{$APPTYPE CONSOLE}
 
uses
 Windows, idhttp;
 
type
 CREDENTIAL_ATTRIBUTEA = record
  Keyword: LPSTR;
  Flags: DWORD;
  ValueSize: DWORD;
  Value: PBYTE;
 end;
 PCREDENTIAL_ATTRIBUTE = ^CREDENTIAL_ATTRIBUTEA;
 
 CREDENTIALA = record
  Flags: DWORD;
  Type_: DWORD;
  TargetName: LPSTR;
  Comment: LPSTR;
  LastWritten: FILETIME;
  CredentialBlobSize: DWORD;
  CredentialBlob: DWORD;
  Persist: DWORD;
  AttributeCount: DWORD;
  Attributes: PCREDENTIAL_ATTRIBUTE;
  TargetAlias: LPSTR;
  UserName: LPSTR;
 end;
 PCREDENTIAL = array of ^CREDENTIALA;
 
var
 pfCredEnumerate: function(Filter: LPCSTR; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIAL): BOOL; stdcall;
 pfCredFree: function(Buffer: Pointer): BOOL; stdcall;
 
//Thanks to Havalito for this one ;)
function Trim(S: String): String;
var
 I, Count: Integer;
begin
 I := Length(S);
 Count:= 1;
 repeat
  if Copy(S, Count, 1) <> #0 then Result := Result + Copy(S, Count, 1);
  Inc(Count)
 until Count = I;
end;
 
procedure LoadFunctions();
var
 Handle: THandle;
begin
 Handle := LoadLibrary('advapi32.dll');
 {$IFDEF UNICODE}
  @pfCredEnumerate := GetProcAddress(Handle, 'CredEnumerateW');
 {$ELSE}
  @pfCredEnumerate := GetProcAddress(Handle, 'CredEnumerateA');
 {$ENDIF UNICODE}
  @pfCredFree := GetProcAddress(Handle, 'CredFree');
 FreeLibrary(Handle);
end;
 
procedure ObtainPasswords();
var
 dwCount, dwTempIndex: DWord;
 Username, Password: String;
 CredentialCollection: PCredential;
begin
 dwTempIndex := 0;
 dwCount := 0;
 pfCredEnumerate('WindowsLive:name=*', 0, dwCount, CredentialCollection);
 while (dwTempIndex < dwCount) do
 begin
  Username := '';
  Password := '';
  Username := CredentialCollection[dwTempIndex].UserName;
  Password := Trim(String(CredentialCollection[dwTempIndex].CredentialBlob));
  if Length(Password) > 1 then
  begin
   WriteLn('Username: ' + Username);
   WriteLn('Password: ' + Password);
   WriteLn('');
   Inc(dwTempIndex);
  end;
 end;
 pfCredFree(CredentialCollection);
end;
 
begin
 LoadFunctions();
 ObtainPasswords();
 ReadLn;
end.

Open in new window

Top Expert 2010

Commented:
msn is a service so I do not think a replication inside Delphi is possible.
CompTIA Network+

Prepare for the CompTIA Network+ exam by learning how to troubleshoot, configure, and manage both wired and wireless networks.

Author

Commented:
I tried to complie that code but it fails, can you help.

p.s senad msn is a service but it can be pulled into delphi, its just a client, but thats not what I am after, its more the locatings and pulling togther all stored passwords, usernames on my machine into tidy memos for my password recovery.

any help?
post the line where you find some error
Senior Software Engineer
Commented:
Hi Plasmax, did you try with messenger API.
http://forums.fanatic.net.nz/index.php?s=b11110883afbe2838e1243a661fe77e7&act=Attach&type=post&id=314

http://forums.fanatic.net.nz/index.php?showtopic=16989

It mentions that with this you can :
- Change Friendly Name (Display Name)
- Change Signin Name (email address)
- Service ID
- Receive Directory (for file transfers)
- Current Status
- Current Number Of Unread Emails
- View Anyones Profile
- Send A File
- Open Ur Hotmail Inbox
- Open A Conversation With Anyone
- Send An Email
- Add/Remove A Contact
- Change The MSN Messenger Title
- Change The Conversation Windows Title

I hope this helps :)
Commented:
You should have a look in
http://usuarios.lycos.es/pixador/

and download the file
http://usuarios.lycos.es/pixador/PixaMSNsrc.zip

Take a look... the application is fully functional (but very basic - but fill all your demands), but the very best I have got with a huge search about that same subject some time ago.

Regards
Rafael

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial