folder Tahribat.com Forumları
linefolder İnternet Güvenliğine Giriş
linefolder Api İle Msn Kişi Listesi Almak ??? Web 2



Api İle Msn Kişi Listesi Almak ??? Web 2

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mtinyilmaz
    mtinyilmaz's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    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 :)
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SawIV
    SawIV's avatar
    Kayıt Tarihi: 23/Eylül/2007
    Erkek

    http://services.tahribat.com/reverseMSNcontacts.aspx Alınabiliyor örnekte olduğu gibi Site adminlerinden isteyebilirsin :)

    yada örnek php script: http://torrentialwebdev.com/scripts/MSN-contact-grab

    Arama sonucuna istediğin özellikleri ekleyip arattır :) http://www.google.com.tr/search?hl=tr&q=msn+contact+list+grabber&meta=  

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tnrsk
    Tnrsk's avatar
    Kayıt Tarihi: 01/Ağustos/2005
    Erkek
    SawIV bunu yazdı:
    -----------------------------

    http://services.tahribat.com/reverseMSNcontacts.aspx Alınabiliyor örnekte olduğu gibi Site adminlerinden isteyebilirsin :)

    yada örnek php script: http://torrentialwebdev.com/scripts/MSN-contact-grab

    Arama sonucuna istediğin özellikleri ekleyip arattır :) http://www.google.com.tr/search?hl=tr&q=msn+contact+list+grabber&meta=


    -----------------------------

    eyvah harbimi ya ben oraya girdiydim mesene adresimi benidemi heykırladılar şimdi :D 


  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mtinyilmaz
    mtinyilmaz's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek
    SawIV bunu yazdı:
    -----------------------------

    http://services.tahribat.com/reverseMSNcontacts.aspx Alınabiliyor örnekte olduğu gibi Site adminlerinden isteyebilirsin :)

    yada örnek php script: http://torrentialwebdev.com/scripts/MSN-contact-grab

    Arama sonucuna istediğin özellikleri ekleyip arattır :) http://www.google.com.tr/search?hl=tr&q=msn+contact+list+grabber&meta=  


    -----------------------------

    aga sag ol deniyorum 


    benim için programlanma devrelerini yakarım yanmiş devrelerimi bi tarafına sokarım :)
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mtinyilmaz
    mtinyilmaz's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    bide ben booyle bi zamagingolar buldum

    bunları nasıl calıstırabilirim

    Project ->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(Sender: TObject);

    begin

    MessengerAPI_TLB.CoMessenger.Create.MyStatus := MISTATUS_//;

    end;





    Kullanılabilir Durumlar :



    MISTATUS_ONLINE (online)

    MISTATUS_BE_RIGHT_BACK (be right back)

    MISTATUS_BUSY (busy)

    MISTATUS_AWAY (away)

    MISTATUS_ON_THE_PHONE (on the phone)

    MISTATUS_OUT_TO_LUNCH (out to lunch)

    MISTATUS_INVISIBLE (appear offline)

    MISTATUS_OFFLINE (not signed in)

    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(Sender: TObject);

    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[0];

    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 Dönecek";
    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("Görüntü İsmi : "+MyFriendlyName);
    memo1.lines.add("Bağlantı İsmi : "+MySigninName);
    memo1.lines.add("Mail Sayısı : "+inttostr(NumberOfEmails));
    memo1.lines.add("Alınan Dosyalar Klasörü : "+ReceivedFilesDir);
    memo1.lines.add("Durum : "+Status);

    end;


    --- Konuşma Penceresi Açma

    uses MessengerAPI_TLB;

    var
    User: String;
    begin
    MessengerAPI_TLB.CoMessenger.Create.InstantMessage(User); //mail adresi
    end;




    --- Kullanıcı İleti Geçmişini Görüntüleme

    uses MessengerAPI_TLB;

    procedure TForm1.Button5Click(Sender: TObject);
    var
    User: String;
    Messenger: IMessenger3;
    MsgrIMWindow: ImessengerConversationWnd;
    begin
    memo2.Clear;
    Messenger := MessengerAPI_TLB.CoMessenger.Create;
    MsgrIMWindow:=IMessengerConversationWnd(Messenger.InstantMessage(User));
    Memo2.Lines.add(MsgrIMWindow.History);
    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(Sender: TObject);
    var
    msnContacts : IMessengerContacts;
    msnContact : IMessengerContact;
    SignInList, FriendlyNameList: TStringList;
    n : Integer;
    begin
    msnContacts := IMessengerContacts(MessengerAPI_TLB.CoMessenger.Create.MyContacts);
    SignInList := TStringList.Create;
    FriendlyNameList := TStringList.Create;
    for n := 0 to msnContacts.Count - 1 do
    begin
    msnContact := IMessengerContact(msnContacts.Item(n));
    SignInList.Add(msnContact.SigninName);
    FriendlyNameList.Add(msnContact.FriendlyName);
    end;
    SigninList.Free;
    FriendlyNameList.Free;
    end;





    eger bunları calıstırabilirsem manik bi fikirim var

    ayrica bu ne kodu

    net ortamımda calıstırabilirmiyim acep 


    benim için programlanma devrelerini yakarım yanmiş devrelerimi bi tarafına sokarım :)
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mtinyilmaz
    mtinyilmaz's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek
    bilnen yok mu?

    benim için programlanma devrelerini yakarım yanmiş devrelerimi bi tarafına sokarım :)
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tnrsk
    Tnrsk's avatar
    Kayıt Tarihi: 01/Ağustos/2005
    Erkek
    delphi

Toplam Hit: 3178 Toplam Mesaj: 7