利用vbs维护qtp的虚拟对象的坐标

首先，先把我51autotest上面的代码贴过来，链接：http://www.51autotest.com/home.php?mod=space&uid=2535&do=blog&id=151

Option   Explicit
On Error Resume Next

Dim virtualtype,row,coloumn,selectnum,x,y,height,width,ctlr
selectnum = 0
x = 0
y = 0
row = 0
coloumn = 0
height = 0
width = 0

Set ctlr = DotNetFactory.CreateInstance("System.Windows.Forms.Control")

virtualtype = InputBox("请输入要获取坐标的按钮类型数字"&Chr(10)&_
"1——Button"&Chr(10)&_
"2——List"&Chr(10)&_
"3——RadioButton"&Chr(10)&_
"4——Table","坐标获取")

Select Case virtualtype
Case 1
MsgBox "您选择的是获取VirtualButton的坐标信息"&Chr(10)&"请在关闭该对话框后3秒内将鼠标移到要获取坐标的控件的左上角"
Case 2
row = InputBox("您选择的是获取VirtualList的坐标信息"&(10)&"请在输入完List的行数后将鼠标在3秒内移到要获取坐标的控件的左上角")
Case 3
MsgBox "您选择的是获取VirtualRadioButton的坐标信息"&Chr(10)&"请在关闭该对话框后3秒内将鼠标移到要获取坐标的控件的左上角"
Case 4
row = InputBox("您选择的是获取VirtualList的坐标信息"&(10)&"请在输入完List的行数后将鼠标在3秒内移到要获取坐标的控件的左上角")
coloumn = InputBox("您选择的是获取VirtualList的坐标信息"&(10)&"请在输入完List的列数后将鼠标在3秒内移到要获取坐标的控件的左上角")
Case Else
MsgBox "您输入的类型错误！"
ExitAction
End select

wait 3
Do
x = ctlr.MousePosition.X
y = ctlr.MousePosition.Y
selectnum = selectnum + 1
If msgbox("是否确定本次点击位置？点击确定后请在3秒内将鼠标移到要获取坐标的控件的右下角",1) = 2 Then
selectnum = 0
End If
Loop until selectnum = 1
wait 3

height = ctlr.MousePosition.Y
width = ctlr.MousePosition.X

height = height - y
width = width - x
Set ctlr = nothing

print "x:="&x&chr(10)&" y:=   "&y&chr(10)&"height:=     "& height &chr(10)&"=     "&width &chr(10)&"row:=     "&row&chr(10)&"coloumn:=   "&coloumn

 

这个是最初的版本了，后来因为工作需要和个人兴趣，又扩充了一些功能，也算是一个小工具了（除了没有华丽的界面）

在这里把扩展和修改的一些功能和感触说一下吧，源码也不知道现在去哪了。

1. 加入自动生成qtp脚本或者虚拟对象文件内容的代码，节省工作量

2. 优化虚拟对象存储文件，虚拟对象尽量不要用qtp自带的虚拟对象文件进行存储，那样修改起来会很辛苦

 

感触：

1. qtp的虚拟对象是好用，但最好还是少用。因为维护起来比较麻烦

2. 对于框架体系中虚拟对象的应用和维护，最好和实体对象文件分开维护，这样可以便于查找维护