Api İle Msn Kişi Listesi Almak ??? Web 2
-
arkadaslar bi sorum olacak
api ile msn kişi listesini web ortamımda alabilirmiyiz
alabilirsek nasıl alcaz
-
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=
-
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
-
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
-
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 varayrica bu ne kodu
net ortamımda calıstırabilirmiyim acep
-
bilnen yok mu?
-
delphi