调用Windows的API，在QTP中实现高亮对象的方法

在QTP的帮助文档中，展示了如何调用Windows自身的API来实现更灵活的操作。

以下的方法实现在屏幕上高亮一个矩形区域，来突出被测对象的位置。

' Declare necessary APIs

Extern.Declare micHwnd, "GetDesktopWindow", "User32.DLL", "GetDesktopWindow"

Extern.Declare micULong, "GetWindowDC", "User32.DLL", "GetWindowDC", micHwnd

Extern.Declare micInteger, "ReleaseDC", "User32.DLL", "ReleaseDC", micHwnd, micULong

Extern.Declare micULong, "CreatePen", "Gdi32.DLL", "CreatePen", micInteger, micInteger, micDword

Extern.Declare micInteger, "SetROP2", "Gdi32.DLL", "SetROP2", micULong, micInteger

Extern.Declare micULong, "SelectObject", "Gdi32.DLL", "SelectObject", micULong, micULong

Extern.Declare micULong, "DeleteObject", "Gdi32.DLL", "DeleteObject", micULong

Extern.Declare micULong, "GetStockObject", "Gdi32.DLL", "GetStockObject", micInteger

Extern.Declare micULong, "Rectangle", "Gdi32.DLL", "Rectangle", micULong, micInteger, micInteger, micInteger, micInteger

Function HighlightRect (X, Y, W, H, Times)

       ' Get the Desktop DC

       hDC = Extern.GetWindowDC (Extern.GetDesktopWindow)

       ' Create a three pixel wide pen

       hPen = Extern.CreatePen (6, 3, RGB(0, 0, 0)) ' PS_INSIDEFRAME, 3 , RGB(0, 0, 0)

       Extern.SetROP2 hDC, 6 ' hDC, R2_NOT

       Extern.SelectObject hDC, hPen

       ' Use an empty fill

       Extern.SelectObject hDC, Extern.GetStockObject (5) ' NULL_BRUSH

       ' Do the highlight

       For i = 0 to Times * 2 + 1

              Extern.Rectangle hDC, X, Y, X + W, Y + H

              wait 0, 50

       Next

       ' CleanUp

       Extern.ReleaseDC Extern.GetDesktopWindow, hDC

       Extern.DeleteObject hPen

End Function
 

QTP本身也封装了对象的Highlight方法，可以通过object.Highlight 来调用。