Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Sign In with Facebook Sign In with Google Sign In with OpenID

Categories

We have migrated to a new platform! Please note that you will need to reset your password to log in (your credentials are still in-tact though). Please contact lee@programmersheaven.com if you have questions.
Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Delphi Chat Logger.....

hi, i'm trying to make my own ChatLogger.....i'm starting with msn-messenger.....any ideas on how to log every conversation??? i found a sourcecode for VB...but i need to do it in delphi....thanx!! :D

Comments

  • pritaeaspritaeas Posts: 274Member
    Hi. VB does not differ that much from Delphi, so if that works, you should be able to reconstruct the code in Delphi. If you need help with that, you'll have to say where that VB code can be found.

    hth, pritaeas

    : hi, i'm trying to make my own ChatLogger.....i'm starting with msn-
    : messenger.....any ideas on how to log every conversation??? i found a
    : sourcecode for VB...but i need to do it in delphi....thanx!! :D


  • memecordonmemecordon Posts: 37Member
    this is the code that they give me.....

    Public Sub msn_OnIMWindowDestroyed(ByVal pIMWindow As Object)
    'On Error GoTo handlerr
    If disable_logging = True Then GoTo handlerr 'no loggin'
    'declaraciones
    Dim LnED&, lngTxtL&, m&, f As Long
    Dim stringTxt As String
    Dim stringEdTxt As String
    '********************************************************************************
    When the window is closed, the content is saved to a file
    '********************************************************************************
    Set MsgrIMWindow = pIMWindow
    Set MsgrContacts = MsgrIMWindow.Contacts
    LnED = FindWindowEx(MsgrIMWindow.hwnd, 0, "edit", vbNullString)
    lngTxtL = SendMessageLong(LnED, &HE, 0, 0)
    stringTxt= String(lngTxtL + 1, Chr(0))
    Call SendMessageByString(LnED, &HD, lngTxtL + 1, strText)
    stringEdTxt = Left(strText, lngTxtL)

    'modify [!] & encrypt...
    Open App.path + "" & "LOGS" For Append As #2
    Print #2, vbCrLf & "_________________ =[ New Log ]= _______________________"
    Print #2, vbCrLf & "Date:"; Date & " Time:" & time & "Login:" & msn.MySigninName
    Print #2, "----------------------------------------" & vbCrLf
    Print #2, MsgrIMWindow.History
    Print #2, vbCrLf & "-------------- =[ End Of Log ]= -------------" & vbCrLf
    Close #2
    handlerr:
    'debug purpose only
    End Sub


    Thanx for the help....:D
  • sohbetisohbeti Posts: 58Member
    This post has been deleted.
Sign In or Register to comment.