Evet Arkadaslar Msnle ilgili Çalışma yapmak isteyenler Vereceğim kodları istedikleri gibi kullanabilirler araştırırsanız kendinnie basit bi msn programı bile yazabilirsiniz Msnle ilgili kişi ekleme kişi silme nick değiştirme meşgule fln alma çoğu şeyi burdan vereceğim Bunun için messenger apiyi kullanacagız 1- Projenize Messenger api type library ekleyin ve başlayalım İlk olarak her seferinde messengerapi. messenger yazmamak için bunu biraz kısaltacağız bunun içinde ilk olarak aşagıdaki kodu formun veya modülün en üstüne kopyalayın Kod: Public WithEvents msn As Messengerapi. Messenger Aşağıdaki Koduda Form_load olayına ekleyelim Kod: Set msn = New Messengerapi. Messenger Eğer boş bi projede çalışıyorsanız ilk işlemleri yaptıkdan sonra aşagıdaki gibi olması gerekir Kod: Public WithEvents msn As Messengerapi. Messenger Private Sub Form_Load Set msn = New Messengerapi. Messenger end sub Bunları Yaptıysanız Programlamaya başlamaya hazırız demektir Kişileri List Boxa Eklemek Bunun için bi tane Buton ve Listbox Ekleyin Butona bastığımızda listemizde tüm kişilerin adreslerini listboxa kopyalayacaktır. Bununle Msn kişi listesi Çalıcı yapabilirsiniz vb. şeyler. Kod: private sub command1_click dim msncontact as imessengercontact dim msncontacts as imessengercontacts set msncontacts = msn. mycontacts for each msncontact in msncontacts list1. additem next Msn Durmumuzu Değiştirmek Sadece bir adet buton eklemek yeterlidir Kod: private sub command1_click msn. mystatus = MISTATUS_AWAY end sub Statüsünüzü BRB, Busy, On the phone, Online etc.. olarakda deişebilirsiniz F2 ye basarak tüm durumları görüntüleyebilirsiniz Nickimizi Değiştirmek Bunun birçok yolu var ama biz basitçe sendkey kullanarak da değiştirebiliriz Sadece buton yeterli Kod: private sub command1_click msn. OptionsPages 0, MOPT_GENERAL_PAGE Pause 0.5 SendKeys "Nikinizi Buraya Yazın." Pause 0.5 SendKeys " " SendKeys " " Me. Show end sub Sub Pause Current = Timer Do While Timer - Current < Val DoEvents Loop End Sub Kişi Eklemek Yine sadece Buton eklemek yeterli Kod: private sub command1_click msn. AddContact 0, "adresburaya@hotmail.com" SendKeys " " Pause 1 SendKeys " " end sub Sub Pause Current = Timer Do While Timer - Current < Val DoEvents Loop End Sub Kişi Silmek Bu kodlada msnden adresini yazarak istedigimiz kişiyi silebiliyoruz. Bu kodu Geliştirirseniz İsteginize göre tüm msn listesini silen virüs bile yapabilirsiniz. Sadece Buton Yeterli Kod: private sub command1_click dim msncontact as imessengercontact dim msncontacts as imessengercontacts set msncontacts = msn. mycontacts Set MsgrContact = msn. GetContact Call MsgrContacts. Remove end sub Oturumu Kapatmak Kod: private sub command1_click msn. signout ' Basit Yine tek satırlık bi kod end sub Kişilere Yazı Göndermek Sadece Buton yeterli Kod: private sub command1_click Set MsnWindow = msn. InstantMessage ' opens window SendKeys "Vb-coder. org" 'göndereceginiz yazı buraya;) Pause 0.1 SendKeys " " SendKeys " " end sub ALıntı Değildir - Kodlarda ufak hatalar olabilir yazın yardım ederim \By Justice Crusades -

saolasın kardes valla harbıdende cok guzel bır paylasım saolasın emegıne saglık

çook saol çok işe yarar.. işime yarıcak.. tekrar saol

Eline sağlık

BeRduSh Kusura bakmayın arkadaşlar dalgınlıgıma geldi heralde... Konuyu açan arkadaş +92... Saygılar... Cih@

konuyu açan burak değilki

emegıne saglık..

Paylaşımın İçin Teşekürler. +K

Saol berknsta

sagol, tesekkur ederiz wardom ailesi olarak! -

Varda okdr kolay olmuor sanırım ama yapıldıgını biliorum Hook messenger, Hook winsock Retrieve messenger text fln die ararsan bişiler cıkıo ama programlamada iyi deilsen yapamazsın

msni çevrim dışı gösteren komutu bulamadım. Yardımcı olabilirmisiniz

bi sorum olacak bunun hepsini yaptımda bana karşı tarafın gönderdiği yazıyı görecek bi kod lazım. mesela karşı taraf "selam" yazdı onu messenger konuşma penceresi açılmadan görebileceğimiz bi kod varmı. msn bot için lazımda.

cok soğol justice

Teşekkürler brknesta kardeş... Saygılar... Realist

Justice berk deıl burak.. yada brknesta ltfn..

Harbiden hea adam adını söledi die teşekkür edionuz

Güzel paylaşım