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
