arkadaslar bi sorum olacak api ile msn kişi listesini web ortamımda alabilirmiyiz alabilirsek nasıl alcaz benim için programlanma devrelerini yakarım yanmiş devrelerimi bi tarafına sokarım :)

bilnen yok mu? benim için programlanma devrelerini yakarım yanmiş devrelerimi bi tarafına sokarım :)

delphi

bide ben booyle bi zamagingolar buldumbunları nasıl calıstırabilirimProject ->import type library TYPELIB_1. tlb install sırayla TYPELIB_7. tlb e kadar bütün dosyaları import edin. Not : 5 te hata leri yaparsanız hatayı giderebilirsiniz. MSN Durumunu Değiştirme uses MessengerAPI_TLB; procedure TForm1. Button3Click ; begin MessengerAPI_TLB. CoMessenger. Create. MyStatus := MISTATUS_//; end; Kullanılabilir Durumlar : MISTATUS_ONLINE MISTATUS_BE_RIGHT_BACK MISTATUS_BUSY MISTATUS_AWAY MISTATUS_ON_THE_PHONE MISTATUS_OUT_TO_LUNCH MISTATUS_INVISIBLE MISTATUS_OFFLINE MISTATUS_LOCAL_FINDING_SERVER MISTATUS_LOCAL_CONNECTING_TO_SERVER MISTATUS_LOCAL_SYNCHRONIZING_WITH_SERVER MISTATUS_LOCAL_DISCONNECTING_FROM_SERVER Bağlı Kullanıcının Bilgilerini Alma uses MessengerAPI_TLB; procedure TForm1. Button3Click ; var MyFriendlyName: String; MySigninName: String; NumberOfEmails: Integer; ReceivedFilesDir: String; Status: String; Messenger: IMessenger3; begin //Create the IMessenger component. Messenger := MessengerAPI_TLB. CoMessenger. Create; //Assign the correct values to the variables we created. MyFriendlyName := Messenger. Get_MyFriendlyName; MySigninName := Messenger. Get_MySigninName; NumberOfEmails := Messenger. UnreadEmailCount ; case Messenger. MyStatus of MISTATUS_ONLINE: Status := "Çevimişi"; MISTATUS_INVISIBLE: Status := "Çevrim Dışı"; MISTATUS_BUSY: Status := "Meşgul"; MISTATUS_BE_RIGHT_BACK: Status := "Hemen Dnecek"; MISTATUS_IDLE: Status := "Meşgul"; MISTATUS_AWAY: Status := "Dışarıda"; MISTATUS_ON_THE_PHONE: Status := "Telefonda"; MISTATUS_OUT_TO_LUNCH: Status := "ğle Yemeğinde"; end; memo1. clear; memo1. lines. add ; memo1. lines. add ; memo1. lines. add("Mail Sayısı : "+inttostr ; memo1. lines. add ; memo1. lines. add ; end; Konuşma Penceresi Açma uses MessengerAPI_TLB; var User: String; begin MessengerAPI_TLB. CoMessenger. Create. InstantMessage ; //mail adresi end; Kullanıcı İleti Geçmişini Grüntüleme uses MessengerAPI_TLB; procedure TForm1. Button5Click ; var User: String; Messenger: IMessenger3; MsgrIMWindow: ImessengerConversationWnd; begin memo2. Clear; Messenger := MessengerAPI_TLB. CoMessenger. Create; MsgrIMWindow:=IMessengerConversationWnd(Messenger. InstantMessage ; Memo2. Lines. add ; end; Msn Api Olaylarını Kullanma http://www.tycooneden.com/delphi/MessengerAPIEvents. zip -> Adresinden MessengerAPIEvents Componentini indirerek yükleyin. Kontak Listesini Alma uses MessengerAPI_TLB; procedure TForm1. Button6Click ; var msnContacts : IMessengerContacts; msnContact : IMessengerContact; SignInList, FriendlyNameList: TStringList; n : Integer; begin msnContacts := IMessengerContacts ; SignInList := TStringList. Create; FriendlyNameList := TStringList. Create; for n := 0 to msnContacts. Count - 1 do begin msnContact := IMessengerContact(msnContacts. Item ; SignInList. Add ; FriendlyNameList. Add ; end; SigninList. Free; FriendlyNameList. Free; end; eger bunları calıstırabilirsem manik bi fikirim varayrica bu ne kodunet ortamımda calıstırabilirmiyim acep benim için programlanma devrelerini yakarım yanmiş devrelerimi bi tarafına sokarım :)