《QTP自动化测试进阶》（18）

学习《QTP自动化测试进阶》第20章 – 使用QTP开发一个猴子测试工具

 

“猴子测试”，也叫随机测试，因为它的原理是利用测试工具随机产生键盘敲击和鼠标点击事件，就像一只大猩猩在狂敲键盘，因此，也叫猴子测试。

 

产生随机数：

Dim MyValue, Response

' 初始化随机数产生器

Randomize 

Do Until Response = vbNo

   ' 随机选取0到10之间的整数

   MyValue = Int((10 * Rnd+0) ) 

   MsgBox MyValue

   Response = MsgBox ("重新来一遍? ", vbYesNo)

Loop

 

通过WMI对象获取屏幕高度和宽度：

strComputer = "."

' 获取WMI对象

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

' 通过WMI查询桌面显示器的高度和宽度

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_DesktopMonitor",,48)

For Each objItem in colItems

       Height = objItem.ScreenHeight

    Width = objItem.ScreenWidth

Next

MsgBox Width & "," & Height

 

 

调用Win32API的鼠标函数：

' 通过Extern访问Windows API函数

Extern.Declare micVoid, "MouseEvent","user32.dll","mouse_event",

micInteger,micInteger ,micInteger ,micInteger ,micInteger

' 把鼠标移到该位置

Extern.MouseEvent 80+1,10, 100, 0,  0

' 鼠标左键单击

Extern.MouseEvent 2+4,0,0,0,0

 Extern.Declare micInteger, "WindowFromPoint","user32.dll",

"WindowFromPoint",micInteger,micInteger

Msgbox Extern.WindowFromPoint (0,0)

 

截屏可用：

DeskTop.CaptureBitmap

 

 

参考资源：

1、《一个简单的猴子测试小工具》：

http://blog.csdn.net/Testing_is_believing/archive/2007/12/05/1919200.aspx

2、《使用猴子测试工具》：

http://blog.csdn.net/Testing_is_believing/archive/2007/11/18/1891312.aspx

3、这个网站有很多WMI的例子代码可以参考：

http://www.robvanderwoude.com/wmiexamples.php