学习《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