Shoutbox

code:

---

Option Explicit
Public MessengerAPI As Object

Public Function Initialize(ByVal nVersion As Long, _
                           ByVal sUserEmail As String, _
                           ByVal oMessenger As Object) _
                            As Boolean

    Initialize = True
    Set MessengerAPI = oMessenger
End Function

Public Function Uninitialize()
End Function

Public Function Configure()
End Function

Public Function GetPublishInfo(ByRef sPluginName As String, _
                               ByRef nCommandCount As Long, _
                               ByRef nTagCount As Long) _
                               As Boolean
    sPluginName = "Change Name and sign off"
    nCommandCount = 1
    nTagCount = 0   
    GetPublishInfo = True
End Function

Public Function GetPublishCommandInfo(ByVal nCommandIdx As Long, _
                                      ByRef sName As String, _
                                      ByRef sValue As String, _
                                      ByRef sHelp As String)
    If (nCommandIdx = 1) Then
        sName = "Change name and sign off"
        sValue = "xsignoff"
        sHelp = "<new name>"
    End If
End Function

Public Function GetPublishTagInfo(ByVal nTagIdx As Long, _
                                  ByRef sName As String, _
                                  ByRef sValue As String)
End Function

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), "/xsignoff", vbTextCompare) = 0) Then
        Dim blnReturn As Boolean
        Dim strNewName As String
        strNewName = Left(Right(sCommandArg, Len(sCommandArg)-1), Len(sCommandArg)-1)
        blnReturn = SetNewName(strNewName)
        sResult = ""
        ParseCommand = True
        MessengerAPI.SignOut()
        Exit Function
    End If
    ParseCommand = False
End Function


Public Function ParseTag(ByVal sTag As String, _
                         ByVal oConversationWnd As Object, _
                         ByRef sResult As String) _
                         As Boolean
    ParseTag = False
End Function

Public Function ReceiveNotify(ByVal sNotifyCode As String, _
                              ByVal sText As String, _
                              ByVal sContactName As String, _
                              ByVal oConversationWnd As Object, _
                              ByRef sTextToSend As String) _
                              As Boolean
    ReceiveNotify = False
End Function

---