利用vbs维护qtp的虚拟对象的坐标
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:= "&width &chr(10)&"row:= "&row&chr(10)&"coloumn:= "&coloumn
转载于:https://www.cnblogs.com/SilenceCity/archive/2012/10/18/2730277.html
利用vbs维护qtp的虚拟对象的坐标相关推荐
- 关于QTP 9.2对象库管理的一些总结
QTP 9.2增强了对于对象库的编辑功能,改进了8.2版本中饱受用户诟病的,对于对象库编辑功能不够强大的缺 点. 比如1)在新增"Object Repository Manager" ...
- 利用js的闭包原理做对象封装及调用方法
创建一个js文件,名为testClosure.js: ? 1 2 3 4 5 6 7 8 9 (function () { function a() { alert('i am a') ...
- 解决Linux下无法利用shell脚本启动conda虚拟环境问题
解决Linux下无法利用shell脚本启动conda虚拟环境问题 问题 直接在脚本中激活conda环境时遇到了一个问题 解决 查看.bashrc文件 .bashrc文件在 /home/用户名 里面,因 ...
- 如何在现实场景中随心放置AR虚拟对象?
随着AR的发展和电子设备的普及,人们在生活中使用AR技术的门槛降低,比如对于不方便测量的物体使用AR测量,方便又准确:遇到陌生的路段使用AR导航,清楚又便捷:网购时拿不准的物品使用AR购物,体验更逼真 ...
- vbs能调用的系统对象小结
vbs能调用的系统对象小结 文件系统对象相关: ("scripting.filesystemobject") 字典相关: ("scripting.dictionary&q ...
- 【Microsoft Azure 的1024种玩法】六十二.利用Azure Private DNS 实现虚拟网络中域名的管理解析
[简介] Azure Private DNS是Azure为我们虚拟网络提供的安全可靠的DNS服务,我们无需自行配置DNS即可在虚拟网络中实现域名的解析及配置, 于此同时,我们在内网中也可以利用自己的自 ...
- anaconda下利用git维护github仓库
anaconda下利用git维护github仓库 说实话,windows下利用github客户端维护github仓库是非常方便的,唯一不方便的是github客户端的下载安装,每次换电脑或重装系统都要装 ...
- 如何利用Web3D技术打造在线虚拟展览馆
随着Web3D技术的不断发展,越来越多的企业和组织开始将其应用于虚拟展览馆的建设中.虚拟展览馆可以为观众提供高度沉浸式的展览体验,让观众可以随时随地参观各种展览,同时也为展览组织者提供了更多的展示方式 ...
- ML之Kmeans:利用自定义Kmeans函数实现对多个坐标点(自定义四个点)进行自动(最多迭代10次)分类
ML之Kmeans:利用自定义Kmeans函数实现对多个坐标点(自定义四个点)进行自动(最多迭代10次)分类 目录 输出结果 核心代码 输出结果 核心代码 #!/usr/bin/python # -* ...
最新文章
- 2022-2028年中国麻纺织业投资分析及前景预测报告
- python画图代码星星-Python打印“菱形”星号代码方法
- eclipse工作空间在哪里配置?
- JS 加强篇!推荐 10 个好用的 TypeScript 的开源项目 YYDS !
- linux使用技巧:自动补全、常用快捷键* ? [] {}
- boost::type_erasure::incrementable相关的测试程序
- phpstorm+Xdebug断点调试PHP
- C语言rand(),srand()函数真实性能分析
- 蓝桥杯扫盲之int, char, unsigned int, unsigned char的使用
- ubuntu 软件包降级
- mysql 报错 Specified key was too long; max key length is 767 bytes,开启系统变量:innodb_large_prefix
- reactor p java_Java反应式框架Reactor中的Mono和Flux
- 信息学奥赛一本通 1147:最高分数的学生姓名 | OpenJudge NOI 1.9 02:输出最高分数的学生姓名
- ASP.NET MVC 拦截器(转)
- matlab 提示用户输入姓名,MATLAB程序设计-asp net的作业-WinFrom控件库|.net开源控件库|HZHControls官网...
- 【重构与模式】6.1用Creation Method替换构造函数
- 百度搜索时,使用‘-csdn’屏蔽掉CSDN网站的博客和内容
- 指南|七步搞定研控E总线驱动器与欧姆龙PLC主站连接
- 模板 | 年度财务分析报告财务工作汇报PPT
- 有关聊天机器人的近两年的优秀论文和开源程序