TD自定义按钮事件

1、在管理后台中，打开脚本编辑器。
}M*A,Q'@/S"?02、在 命令栏编辑器 页面中，选择 Bug命令栏后点击 Add 按钮，新增一个Action命令。51Testing软件测试网s-Q%O]
h(LdA\
3、修改该命令的　Caption　和　Action Name　两个字段的值，如：Caption：辅助工具　Action Name：Defects_Tool，并给该命令选择一个显示图标。

M/Z6ISj N&r2g$YP04、然后在脚本编辑器中，Defects Module scrīpt 中修改以下方法。

Function Defects_ActionCanExecute(ActionName)51Testing软件测试网UL'Ly0X%I)t5H[`1QM
  On Error Resume Next
8rS/[z1Xd v0  Defects_ActionCanExecute = true

  dim TD_tool51Testing软件测试网S@w!W2W%^
  set TD_tool = CreateObject("Wscrīpt.Shell")
WF7J k s_UtO0 '取出系统盘符
hHR{8y4Y0  Set   fs   =   CreateObject("scrīpting.FileSystemObject")51Testing软件测试网 rB2qaB#[k D
  set   systemdir   =   fs.GetSpecialFolder(WindowsFolder)51Testing软件测试网@.^4K\v;C&C!{
           drivername   =   fs.GetDriveName(systemdir)51Testing软件测试网)Ye5zS9Hq'dh,Q/~
  ' msgbox "the TD path is:" & drivername
#Y KD,r4T n0 '控件运行按钮
,c {&[&i2f P0  if ActionName= "Defects_run" then51Testing软件测试网aMr.?~
yd
     if User.IsInGroup("TDAdmin") then51Testing软件测试网ve@L(yW r O1`l
         TD_tool.Exec (drivername & "\Program Files\Common Files\Mercury Interactive\TD2000_80\TD_Tool.exe")
,D}A(r:zLq C
a0         set TD_tool = nothing
3u#w%U [dB0       else51Testing软件测试网9k}T5MLd
        msgbox "对不起，你没有权限运行该工具,请与项目管理员联系！"51Testing软件测试网 Q*A8cxJRDJ(]Z
       end if51Testing软件测试网;FH/P M p9O M
  end if51Testing软件测试网6zLwv m/P+O|:X
  On Error GoTo 051Testing软件测试网#bAtp.r3N2f._
End Function51Testing软件测试网m1TmgTciJbF