调用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 来调用。