MSN 7 için titreim gnderen programalıntıdır Public WithEvents msn As MessengerAPI. MessengerPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" As LongPrivate Declare Function SendNudge Lib "user32" Alias "SendMessageA" As Long 'can also be used to send a msgPrivate Sub cmd_sendnudge_Click If List1. Text = "" Then 'if no contact selected on list then tell the userMsgBox "Pick a contact first"Else 'if there is a contact selected thenIMWindowHWnd& = FindWindow 'find the convo windowSendNudge IMWindowHWnd&, &H111, &H2B1, 0& 'use the sendnudge function End IfEnd SubPrivate Sub Form_Load Set msn = New MessengerAPI. Messenger ' set msn as msnAPIDim msncontact As IMessengerContact 'contact stuffDim msncontacts As IMessengerContactsSet msncontacts = msn. MyContactsFor Each msncontact In msncontacts 'start to add all the contact to the listList1. AddItem NextEnd SubBylede titresim atlyo.. The king is bleeding.

abi karşımdaki lavuğun pc sini heykırlayabilecekmiyim bunlanderlerse sana ve sen de bunun msn de şu an kullanabildiğin zelliklerden 1 cm bile farkı yok dersen olmaz şimdi.:)))))))senın anlattıklarından anladıgım kadarıyla yenı bır msn arayuzu olusturmak oluyor kısısel ve arayuz de degılde wındowsu mouse yerıne calıstırdan kontrol etmek gıbı bır sey oluyor tabı bu kodlara da kıcını yırtarak yazdıgın ve normal msndekı ozellıklerın dısına cıkamadıgın cevapları alıyorsun... Aşk, Tanrı"nın Nefesini Hissetmektir!

vay be gver uykusu gelmiş hemen karşılık yazan bebeydi ne oldu Agrasif miyim neyim?

aslında dediğin bir bakıma doğru msn zelliklerinin dışına çıkamazsın ama senin hayal gücün oranında şyleki bir timer içine koyacağın durum kodları ile sürekli online offline olabilir karşı tarafta üst üste şu kullanıcı online oldu penceresi çıkartabilirsin olmadı şu kadar aralıkta nickini değiştiren program yazarsın oda olmadı winamptaki şarkı ismi değiştikçe nickin değişir yada gene bi timer bi buton bi text box ile karşı tarafa msj flood çekersin yani olay aslında senin hayal gücünle alakalı ama genel oalrak bakarsan evet msnin verdiği zellliklerin pekde dışına çıkamazsın You think the game is over? It has just begun ;)

Bu arada kodları yazınca şifre geliyo sanmayıkn :))) bu kodlarla bilgisayardaki windows messengeri ynetebilirsiniz denemedim ama belki msnyide onun apilerini ekleyerrek ynetebilirsiniz.. The king is bleeding.

Çok güzel bir kaynak. İşime yarayacak. Bu arada merak edenler varsa bu kodlar visual basic için :) Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

enteresan msn inde anasini belliceniz. bu arada ir2 eywallah otur msn 9 a basla felan :)) Bedenin BAKİRE olmasi onemli degil, Yeterki ruhun OROSPU olmasin!!!

:arahman bunu yazdı: yaw bunlar planet source alıntı :) bende de var a. q ya alıntı yaz bali la yazdım ya en tepeye kocaman :) ii ikincisinede yazim bari.. Grmedim abi kızma : Agrasif miyim neyim?

yaw bunlar planet source alıntı :) bende de var a. q ya alıntı yaz bali Agrasif miyim neyim?

kodlar güzel ama byle kod yazmışın eline bişey geçmez yani... oturup msn9 protocolünü çzüceksin... bu arada gelen mesajlaır falan almak için msn objesini Private WithEvents MSN As MsgrObject olarak açın... bunu yazan vb falan bilmio

:yaw bunlar planet source alıntı :) bende de var a. q ya alıntı yaz bali la yazdım ya en tepeye kocaman :) ii ikincisinede yazim bari.. The king is bleeding.

kaynak aslnda cok guzel. biraz oynama biraz gelistirmeye calisirsan cok guzel seyler yapabilirsin. gercekten paylasimin icin tesekkur ederim... tamam peki hersey guzel yasamdaki gunler gecici dostlar neki hersey ayni umutsa yalan yani bitebilir yani gorebilir seni bugun allah yani dogabilir icinde melek yada seni gorebilir bu gece seytan yani dogabilir icinde iblis

İlk nce şunu sliyim alıntıdır!! Snorstorm tarafından yazılmıstır.. Güzel diye alıntıladım baya işe yarayan bi olay.. --BLÜM 1-- Bu kodlar ile messenger a hükmedebilirsiniz ;)ilk olarak projemize messenger ı eklememiz gerek. " Projects > Preferences... "menüsünden aşağıdakileri ekleyelim... Messenger Type Library Messenger API Type Library (C:\Program Files\Messenger\msmsgs. exe\3) Messenger AddIns Type Library (C:\Program Files\Messenger\msmsgs. exe\4) Messenger Private Type Library (C:\Program Files\Messenger\msmsgs. exe\2) daha sonra formumuzun genaral - decleration kısmınaPrivate MSN As New MsgrObjectPrivate MSNAPI As New MessengerAPI. Messengerkodlarımızı ekliyelim... artık kod yazarak messenger hesabımızdan online olmaya hazırız. MESSENGER HESABIMIZDAN OTURUM AÇMAİlk olarak formumuza 2 adet text box ve 2 adet command nesnesi ekliyelim.///text1 : Mail adresimiz için text2 : şifremiz içincommand1 : Oturum açmak içincommand2 : Oturum kapamak için\\\command1 butonunun click olayına şu kodları yazıyoruz :On Error Resume NextMSN. Logon Text1. Text, Text2. Text, MSN. Services. PrimaryServicecommand2 butonunun click olayına şu kodları yazıyoruz :On Error Resume NextMSN. Logoff2. bir msn iniz varsa programda kullandığınız mail hesabını listenize ekleyerek oturumun açılmış olduğunu grebilirsiniz ;)arkası yarın... --BLÜM 2--Bu kodlar ile messenger a hükmedebilirsiniz ;) Messenger ı kullanabilmek için ilk olarak messenger apilerini projemize ekliyelim MSN deki Nickimizi DeğiştirelimFormumuza;1 adet Label 1 adet TextBox 1 adet CommandButton ekliyelim ve aşağıdaki kodları yazalım : Private MSN As New MsgrObjectPrivate Sub cmdChangeNickName_Click If MSN. LocalState = MSTATE_OFFLINE ThenMsgBox "You are not Signed In"ElseMSN. Services. PrimaryService. FriendlyName = txtNewNickName. TexttxtNewNickName. Text = ""End IfEnd Sub MSN deki Durumumuzu DeğiştirelimFormumuza;7 adet OptionButton . ve aşağıdaki kodları yazalım : Private MSN As New MsgrObjectPrivate Sub Form_Load Select Case MSN. LocalStateCase MSTATE_ONLINEoptOnline. Value = TrueCase MSTATE_BUSYoptBusy. Value = TrueCase MSTATE_BE_RIGHT_BACKoptBeRightBack. Value = TrueCase MSTATE_AWAYoptAway. Value = TrueCase MSTATE_ON_THE_PHONEoptOnThePhone. Value = TrueCase MSTATE_OUT_TO_LUNCHoptOutToLunch. Value = TrueCase MSTATE_INVISIBLEoptAppearOffline. Value = TrueEnd SelectEnd SubPrivate Sub optAppearOffline_Click MSN. LocalState = MSTATE_INVISIBLEEnd SubPrivate Sub optAway_Click MSN. LocalState = MSTATE_AWAYEnd SubPrivate Sub optBeRightBack_Click MSN. LocalState = MSTATE_BE_RIGHT_BACKEnd SubPrivate Sub optBusy_Click MSN. LocalState = MSTATE_BUSYEnd SubPrivate Sub optOnline_Click MSN. LocalState = MSTATE_ONLINEEnd SubPrivate Sub optOnThePhone_Click MSN. LocalState = MSTATE_ON_THE_PHONEEnd SubPrivate Sub optOutToLunch_Click MSN. LocalState = MSTATE_OUT_TO_LUNCHEnd Sub Açıklama : MSN. LocalState bizim msn imizin durumunun gsterildiği bi kod parçasıdır. Burda bulunan değerler ;MSTATE_AWAY MSTATE_BE_RIGHT_BACK MSTATE_BUSY MSTATE_IDLE MSTATE_INVISIBLE MSTATE_LOCAL_CONNECTING_TO_SERVER MSTATE_LOCAL_DISCONNECTING_FROM_SERVER MSTATE_LOCAL_FINDING_SERVER MSTATE_LOCAL_SYNCHRONIZING_WITH_SERVER MSTATE_OFFLINE MSTATE_ON_THE_PHONE MSTATE_ONLINE MSTATE_OUT_TO_LUNCH MSTATE_UNKNOWN 'dır. Listemizdeki Kullanıcıları Grelim Formumuza;2 adet Label 2 adet ListBox 1 adet CommandButton ekliyelim ve aşağıdaki kodları yazalım : Private MSN As New MsgrObjectPrivate Sub RefreshList lstOfflineContacts. Visible = FalselstOnlineContacts. Visible = FalseDim User As IMsgrUserlstOnlineContacts. ClearlstOfflineContacts. ClearFor Each User In MSN. List If User. State = MSTATE_OFFLINE ThenlstOfflineContacts. AddItem ElselstOnlineContacts. AddItem End IfNextlstOfflineContacts. Visible = TruelstOnlineContacts. Visible = TrueEnd SubPrivate Sub cmdRefreshList_Click If MSN. LocalState <> MSTATE_OFFLINE Then RefreshListEnd SubPrivate Sub Form_Load cmdRefreshList_ClickEnd Sub Açıklama : Formumuz yüklenirken msn listemizdeki kullanıcıları listbox nesnesine eklicek... Listemdeki Kullanıcılar! Ben Burdayım! Formumuza;1 adet Label 1 adet ListBox 2 adet CommandButton ekliyelim ve aşağıdaki kodları yazalım : Private MSN As New MsgrObjectPrivate Sub RefreshList lstOnlineContacts. Visible = FalseDim User As IMsgrUserlstOnlineContacts. ClearFor Each User In MSN. List If User. State <> MSTATE_OFFLINE Then lstOnlineContacts. AddItem NextlstOnlineContacts. Visible = TrueEnd SubPrivate Sub cmdRefreshList_Click If MSN. LocalState <> MSTATE_OFFLINE Then RefreshListEnd SubPrivate Sub cmdSendIM_Click Dim User As IMsgrUserDim bstrMsgHeader As StringDim bstrMsgText As StringIf MSN. LocalState = MSTATE_OFFLINE ThenMsgBox "Oturumunuz Açık Değil!"ElseIf MSN. LocalState = MSTATE_INVISIBLE ThenMsgBox "Durumunuzu Değiştirmeniz Gerekiyor!"ElseSet User = MSN. CreateUser bstrMsgText = InputBox ", Me. Left, Me. Top)User. SendText bstrMsgHeader, bstrMsgText, MMSGTYPE_NO_RESULTMsgBox "Mesajınız " & User. EmailAddress & " 'a " & bstrMsgText & " olarak iletildi."End IfEnd IfEnd SubPrivate Sub Form_Load cmdRefreshList_ClickEnd Sub Açıklama : lstOnlineContacts da seçilen olan kişiye mesajımız gnderilecektir... The king is bleeding.

:vay be gver uykusu gelmiş hemen karşılık yazan bebeydi ne oldu sie. olm senin msn neydi lan admin@masterhacking. org ekle istiyosan neyse zele girmeyekk Abi biri planetsource kodlarını upload etcekti etsinde bütyün msn ile ilgili şeyler vardır orda herhalde.. The king is bleeding.