folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB İle MSN Messenger Kontrolü Nasıl Olur?



VB İle MSN Messenger Kontrolü Nasıl Olur?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kemalperk
    kemalperk's avatar
    Kayıt Tarihi: 13/Eylül/2005
    Erkek
    Selam arkadaşlar içinizde msn yi vb ile kontrol eden oldumu?

    References'tan messenger content installer type library yi seçip

    Private Sub Form_Load()
    Dim kk As New Messenger
    kk.OptionsPages 0, 3
    End Sub

    bunu yapınca msn'nin bazı ayarlarını bu şekilde açtırabiliyorum ama benim istediğim
    otamatik olarak ileti geçmişini kaydettirebilmek.Yardımcı olursanız sevinirim teşekkürler
    01
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    31 yaşında emekli
    ajan1111
    ajan1111's avatar
    Kayıt Tarihi: 25/Ağustos/2005
    Erkek
    geliştirebilirsin ;)

    Private MSN As New MsgrObject
    Private MSNAPI As New MessengerAPI.Messenger
    Dim WithEvents msnobj As MsgrObject
    Attribute msnobj.VB_VarHelpID = -1


    Private Sub cmdChangeNickName_Click()
    If MSN.LocalState = MSTATE_OFFLINE Then
    MsgBox "You are not Signed In"
    Else
    MSN.Services.PrimaryService.FriendlyName = txtNewNickName.Text
    txtNewNickName.Text = ""
    End If
    End Sub


    Private Sub Command1_Click()
    On Error Resume Next
    MSN.Logon Text1.Text, Text2.Text, MSN.Services.PrimaryService
    End Sub

    Private Sub Command2_Click()
    On Error Resume Next
    MSN.Logoff
    End Sub



    Private Sub RefreshList()
    lstOfflineContacts.Visible = False
    lstOnlineContacts.Visible = False

    Dim User As IMsgrUser

    lstOnlineContacts.Clear

    lstOfflineContacts.Clear

    For Each User In MSN.List(MLIST_CONTACT)
    If User.State = MSTATE_OFFLINE Then
    lstOfflineContacts.AddItem (User.EmailAddress)
    Else
    lstOnlineContacts.AddItem (User.EmailAddress)
    End If
    Next

    lstOfflineContacts.Visible = True
    lstOnlineContacts.Visible = True


    End Sub

    Private Sub cmdRefreshList_Click()
    If MSN.LocalState <> MSTATE_OFFLINE Then RefreshList

    End Sub



    Private Sub Form_Load()
    cmdRefreshList_Click
    Set msnobj = New MsgrObject
    End Sub


    Private Sub cmdSendIM_Click()
    Dim User As IMsgrUser
    Dim bstrMsgHeader As String
    Dim bstrMsgText As String

    If MSN.LocalState = MSTATE_OFFLINE Then
    MsgBox "Oturumunuz Açık Değil!"
    Else
    If MSN.LocalState = MSTATE_INVISIBLE Then
    MsgBox "Durumunuzu Değiştirmeniz Gerekiyor!"
    Else
    Set User = MSN.CreateUser(lstOnlineContacts.Text, MSN.Services.PrimaryService)
    bstrMsgText = InputBox("Lütfen Mesajınızı Giriniz : ?", "Mesaj Girişi", "Merhaba ", Me.Left, Me.Top)
    User.SendText bstrMsgHeader, bstrMsgText, MMSGTYPE_NO_RESULT
    MsgBox "Mesajınız " & User.EmailAddress & " 'a " & bstrMsgText & " olarak iletildi."
    End If
    End If
    End Sub

    Private Sub msnobj_OnUserLeave(ByVal pIMsgrUser As Messenger.IMsgrUser, ByVal pIMSession As Messenger.IMsgrIMSession) ' eğer konuşma penceresi kapatılırsa
    If Check1.Value = 1 Then ' eğer mesaj gönderilme değeri tamam ise
    pIMsgrUser.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ı gönder
    End If
    End Sub
    Kayalardan kayarım yoktur benim ayarım (;
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ir2
    ir2's avatar
    Bilgi/Destek Madalyası Developer Madalyası
    Kayıt Tarihi: 10/Mayıs/2003
    Erkek
    en geçerli kaynak;
    http://forums.fanatic.net.nz/index.php?s=bd79315781af1aa3ab846843654c1f33&showforum=57
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kemalperk
    kemalperk's avatar
    Kayıt Tarihi: 13/Eylül/2005
    Erkek
    arkadaşım, sen bizden tüm kodu istiyorsun ama olmazki ir2 arkadaşımız bir kaynak göstermis veya başka kaynakları kullanarak onu sen başaracaksın,biz kodu yazar ve sana verirsek sen nasıl öğreneceksin...
    bol çalışmalar,
    01
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ravage
    Ravage's avatar
    Kayıt Tarihi: 02/Ocak/2006
    Erkek
    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
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kemalperk
    kemalperk's avatar
    Kayıt Tarihi: 13/Eylül/2005
    Erkek
    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
    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kemalperk
    kemalperk's avatar
    Kayıt Tarihi: 13/Eylül/2005
    Erkek

    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
    Reply With Quote Alıntı yap
Toplam Hit: 2181 Toplam Mesaj: 7