qtp 8.2 9.2 输出Html格式报告

    如果想输出Html格式的Log，如何办呢，其实qtp内建了这个功能，需要打开这个开关。                

    修改注册表：

         HKEY_LOCAL_MACHINE

                 - SOFTWARE

                      -Mercury Interactive

                             -QuickTest Professional

                                  -Logger

                                      - Media

                                            - Log

                                               - Active    1   "REG_DWORD"

       这个时候就会在你的qtp工程文件夹下"Log"下多出一个"LogFile"文件夹 里面会多出html格式的Log文件
  

   代码：

   Set ōbjShell = Wscrīpt.CreateObject("Wscrīpt.Shell")

   KeyVal= objshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Mercury Interactive\QuickTest Professional\Logger\Media\Log\Active")

   objshell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Mercury Interactive\QuickTest Professional\Logger\Media\Log\Active",1,"REG_DWORD"

   Set qtApp = CreateObject("QuickTest.Application")
   qtApp.Launch
   qtApp.Visible = True
   qtApp.Open "C:\Documents and Settings\Administrator\桌面\test", True
   set qttest = qtapp.test
   qtTest.Run

   qtApp.Quit

   Wscrīpt.Quit

   set QtApp=nothing

   set Wscrit=nothing