QTP捕获鼠标右键

VbWindow("frmLogin").VbEdit("txtUserID").Set "admin"

VbWindow("frmLogin").VbButton("Login(L)").Click

VbWindow("frmMain").WinMenu("Menu").Select "Template Manager(T)"

VbWindow("frmMain").VbWindow("frmTemplates").WinListView("ListView20WndClass").Select(0), micRightBtn

Dim wshShell

        Set wshShell=CreateObject("WScript.Shell")

        For  i=1 to 1

                wshShell.SendKeys  "{DOWN}"

        Next

        wait  1

        wshShell.SendKeys  "{ENTER}"

VbWindow("frmMain_2").VbWindow("frmTemplates").VbWindow("FrmDocumentType").VbButton("Add(A)").Click

VbWindow("frmMain_2").VbWindow("frmTemplates").VbWindow("FrmDocumentType").VbWindow("FrmInput").VbEdit("Text1").Set DataTable("DoucmentTypeName", dtGlobalSheet)