Shoutbox

Is there a note plugin so if you did

code:

---

/note joke

---

in your chat log it would say

[/code]
[12:07:54] trev : hi
[12:08:11] Joke
[12:09:27] bob : hello
[/code]

if you put a note the other person is unable to see it in the im screen!!

i like this idea... very good


please patch add it

note this wont be possible with a plugin

quote:

---

Originally posted by trev
Is there a note plugin so if you did

---

I don't think that's possible with a plugin. It has to do with the way plus! saves the logs...

Set your nick to alt+0173 and use / me

yes but they will be able to see it

I like this idea...   would be useful for a 'keyword' to search for in the logs..


but if its just about the logs.. and you don’t need to actually see the note in the convo..  it could be done easily in a plugin right? Just open the log, assign the note and close.. 


nice to see a new idea btw

I definitely agree with the idea. Great

code:

---

Public Function ParseCommand(ByVal sCommand As String, ByVal sCommandArg As String, ByVal oConversationWnd As Object, ByRef sResult As String) As Boolean
    If (StrComp(LCase(sCommand), "/xnote", vbTextCompare) = 0) Then
        Open getstring(HKEY_CURRENT_USER, "Software\Patchou\MsgPlus2\wouter@reclames.net\Archive\" & email & ".txt", "FileName") For Append As #1
        Print #1, "[" & Time & "] " & sCommandArg
        Close 1
        'Send back an empty string to cancel the message
        sResult = ""
        ParseCommand = True
        Exit Function
    End If
   
    'Give other plugins a chance to parse this command
    ParseCommand = False
End Function

---

code:

---

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1

Public Function getstring(Hkey As Long, strPath As String, strValue As String)
    Dim keyhand As Long
    Dim datatype As Long
    Dim lResult As Long
    Dim strBuf As String
    Dim lDataBufSize As Long
    Dim intZeroPos As Integer
    r = RegOpenKey(Hkey, strPath, keyhand)
    lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)


    If lValueType = REG_SZ Then
        strBuf = String(lDataBufSize, " ")
        lResult = RegQueryValueEx(keyhand, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)


        If lResult = ERROR_SUCCESS Then
            intZeroPos = InStr(strBuf, Chr$(0))


            If intZeroPos > 0 Then
                getstring = Left$(strBuf, intZeroPos - 1)
            Else
                getstring = strBuf
            End If
        End If
    End If
End Function

---

That wont print it to the convo window.

Wouter, I doubt this works perfectly: Plus! doesn't save chat logs on the fly