Delphi Chat Logger..... - Programmers Heaven

Howdy, Stranger!

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

Categories

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.