Shoutbox

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), "/xadd", vbTextCompare) = 0) Then
 
Dim IMHwnd As Long
IMHwnd = FindWindow("IMWindowClass", vbNullString)
Call SendMessage(IMHwnd, WM_COMMAND, 0, 40263)
MPPluginConst.DisplayToast "Choose A Contact To Add", "Add Contact Plugin", "", True
  sResult = ""
        ParseCommand = True
        Exit Function
       
    End If
   
    'Give other plugins a chance to parse this command
    ParseCommand = False
End Function

---