en geçerli kaynak;http://forums.fanatic. net. nz/index. php?s=bd79315781af1aa3ab846843654c1f33&showforum=57

sen tüm kodu bizden istiyorsun biraz araştır, ir2 nin verdiği kaynağa falan bak yani yoksa ğrenemessin kendin çalışbol çalışmalar.. Buralar bizden sorulur... Ravage@tahribat.com

hayır tüm kodu değil benim istediğim sadece o an açık olan msn nin loglarını otamatik kaydetmek ve nette bu konu ile ilgili yazıya bile rastlayamadım. 01

sorun msn live messengerde olmasıymış yazışmaların log larını hiç kimse alamıyor herhalde microsoft live msn de nlem almış bunun için 01

arkadaşım, sen bizden tüm kodu istiyorsun ama olmazki ir2 arkadaşımız bir kaynak gstermis veya başka kaynakları kullanarak onu sen başaracaksın, biz kodu yazar ve sana verirsek sen nasıl ğreneceksin... bol çalışmalar, 01

Selam arkadaşlar içinizde msn yi vb ile kontrol eden oldumu?References'tan messenger content installer type library yi seçipPrivate Sub Form_Load Dim kk As New Messengerkk. OptionsPages 0, 3End Subbunu yapınca msn'nin bazı ayarlarını bu şekilde açtırabiliyorum ama benim istediğimotamatik olarak ileti geçmişini kaydettirebilmek. Yardımcı olursanız sevinirim teşekkürler 01

geliştirebilirsin ;)Private MSN As New MsgrObjectPrivate MSNAPI As New MessengerAPI. MessengerDim WithEvents msnobj As MsgrObjectAttribute msnobj. VB_VarHelpID = -1Private Sub cmdChangeNickName_Click If MSN. LocalState = MSTATE_OFFLINE ThenMsgBox "You are not Signed In"ElseMSN. Services. PrimaryService. FriendlyName = txtNewNickName. TexttxtNewNickName. Text = ""End IfEnd SubPrivate Sub Command1_Click On Error Resume NextMSN. Logon Text1. Text, Text2. Text, MSN. Services. PrimaryServiceEnd SubPrivate Sub Command2_Click On Error Resume NextMSN. LogoffEnd SubPrivate 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_ClickSet msnobj = New MsgrObjectEnd 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 User. SendText bstrMsgHeader, bstrMsgText, MMSGTYPE_NO_RESULTMsgBox "Mesajınız " & User. EmailAddress & " 'a " & bstrMsgText & " olarak iletildi."End IfEnd IfEnd SubPrivate Sub msnobj_OnUserLeave ' eğer konuşma penceresi kapatılırsaIf Check1. Value = 1 Then ' eğer mesaj gnderilme değeri tamam isepIMsgrUser. SendText "MIME-Version: 1.0" & vbCrLf & "Content-Type: text/plain; charset=UTF-8" & vbCrLf & "X-MMS-IM-Format: EF=; CO=0000FF; CS=0; PF=12" & vbCrLf & vbCrLf, "" & Text3. Text, MMSGTYPE_NORESULT ' text1deki yazıyı gnderEnd IfEnd Sub Kayalardan kayarım yoktur benim ayarım (;