Hi

im new to plug-ins but ive used VB6 before

Heres The code ive got going but im not sure how to get the /xsetaway thing working. Please HElp me. Thanks

code:

---

Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
    Initialize = True
End Function

Public Function Uninitialize()
End Function

Public Function Configure()
    MsgBox "A Plugin by Brad inc." + vbLf + "Author: Brad", vbOKOnly, "About Brad's Plugin..."
End Function

Public Function GetPublishInfo(ByRef sPluginName As String, ByRef nCommandCount As Long, ByRef nTagCount As Long) As Boolean
    sPluginName = "Brad inc." 'This name will be displayed in the Plus!\Plugins menu
    nCommandCount = 3
    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 = "Displays the Parameter"
        sValue = "xsetaway"
        sHelp = "any text"
    ElseIf (nCommandIdx = 2) Then
        sName = "Ping"
        sValue = "xpingvb"
    ElseIf (nCommandIdx = 3) Then
        sName = "Bybye"
        sValue = "xbyevb"
    End If
End Function

Public Function GetPublishTagInfo(ByVal nTagIdx As Long, ByRef sName As String, ByRef sValue As String)
    If (nTagIdx = 1) Then
    End If
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), "/xsetaway", vbTextCompare) = 0) Then
sResult = "#/all" + " I'm going but ill be back in " + sCommandArg + " minutes" + vbLf + "#/away"
Exit Function

End If
ParseCommand = False
End Function

---

Parsecommand doesnt return true.
Use this code

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), "/xsetaway", vbTextCompare) = 0) Then
sResult = "#/all" + " I'm going but ill be back in " + sCommandArg + " minutes" + vbLf + "#/away"
ParseCommand = True
Exit Function

End If
ParseCommand = False
End Function

---