QTP自学:021QTP之焦点(多思考)

一、什么是焦点:

焦点说白了就是你打开某一个程序时默认的focuse

比如我们那QTP自带的windows下的示例程序来说,启动它后焦点自动落在了agent name文本框上

二、利用Tab键检查焦点:

可以利用键盘上的Tab键来设置焦点的位置;

以示例程序来说,焦点开始在agent name上,按一下Tab,则跳到了pawword上在按一下Tab则到了OK上

三、下面我们写代码来验证一下:

‘Dialog("Login").WinEdit("Agent Name:").Set "Mercury"
‘Dialog("Login").WinEdit("Password:").SetSecure "5456e5ada0731880d740ab67603518591e1d3520"
‘Dialog("Login").WinButton("OK").Click
‘Window("Flight Reservation").Close

‘检查控件的focused属性的函数
Public Function CheckFocus(TestObject)
    If TestObject.CheckProperty("focused","false",2) Then
    CheckFocus=True
    else
    CheckFocus=false
    End If
End Function

‘tab按键的键值
Const VK_TAB=15
‘创建DeviceRepaly对象
Set DeviceReplay=CreateObject("Mercury.DeviceReplay")
‘创建Dictionary对象
Set dic=CreateObject("Scripting.Dictionary")

‘添加Dictionary的key和valuse,把顺序作为key,控件对象作为value
dic.add"1",Dialog("Login").WinEdit("Agent Name:")
dic.add"2",Dialog("Login").WinEdit("Password:")
dic.add"3",dialog("Login").WinButton("OK")

‘定位到程序窗口,并判断窗口中的默认焦点是否在正确的位置
Dialog("Login").Activate
CheckFocus(dic.item("1"))

For i = 2 To dic.count
  DeviceReplay.PressKey VK_TAB
  If CheckFocus(dic.item((CStr(i)))) Then
      Exit for
  ‘Else
   ‘msgbox"焦点正确"
  End If
Next

调试报错:

(1)对象不存在

(2)解决方法:

增加对象:Resources - Object Respository Manager - Object - Add object

对象导入到Toolbox中

时间: 2024-10-28 15:35:18

QTP自学:021QTP之焦点(多思考)的相关文章

QTP自学攻略

自学总是很痛苦的,看大量的书籍,可是学到的东西却不是那么实用,下面整理了一些在QTP中经常需要的函数,以及方法很实用! QTP常用函数 1, 获取对话框相应的文字: GetVisible Text 2, 查找相应的字符串: instr (1,查找目标字符串,所查找的字符串) 3, 随机数的获取: Randomnumber.Value() 或cstr(int(Rnd*10)+1) 4, 等待函数: Wait(秒数) 5, 获取数组下标: UBound (数组名) 6, 拆分数组: Split(My

软件测试自学指导手册

近来,软件测试行业发展迅速,企业越来越重视测试了.越来越多的人加入了测试大军中,很多人也想通过自学来学习软件测试技术加入这个行业,但是现在软件测试的书籍越来越多,也良莠不齐,而且软件测试涉及的技术也越来越多.本次将指导童鞋如何进行自学,并大家提供一些比较优秀的书籍,并给出学习的顺序. 一.软件测试基础知识 要想进入测试这个行业,就必须要了解什么是软件测试,该如何测试? 这部分的学习目标:掌握软件测试的基本概念.软件测试的流程,并能熟练的应用常见的用例设计方法来设计测试用例.掌握常见的测试方法和类

qtp中vb脚本,经典收藏

1.在脚本运行过程中屏蔽鼠标键盘输入 SystemUtil.BlockInput '开始处 这里是你的脚本 SystemUtil.UnblockInput '结尾处 --------------------------------------- 补充关闭进程的方法:Systemutil.closeprocessbyname "GreenBrowser.exe" 2.检查页面对象是否可用 yanzheng=Browser("电子政务").Page("::::

软件測试自学指南---从入门到精通

近来,软件測试行业发展迅速,企业越来越重视測试了.越来越多的人增加了測试大军中,非常多人也想通过自学来学习软件測试技术增加这个行业,可是如今软件測试的书籍越来越多,也良莠不齐,并且软件測试涉及的技术也越来越多.本文主要说明的是从事软件測试行业须要必备的知识,以及该怎样学习,主要给大家提供一些比較优秀的书籍,并给出学习的顺序.希望通过阅读本文,读者能够明白该怎样学习測试,并学习哪些知识.因为仅是个人建议,如有错误不妥的地方,敬请提出批评. 一.软件測试基础知识 要想进入測试这个行业,就必需要了解什

【Android实战】记录自学自己定义GifView过程,能同一时候支持gif和其它图片!【有用篇】

之前写了一篇博客.<[Android实战]记录自学自己定义GifView过程,具体解释属性那些事! [学习篇]> 关于自己定义GifView的,具体解说了学习过程及遇到的一些类的解释,然后完毕了一个项目,能通过在xml增加自己定义 view (MyGifView)中增加自己定义属性(my:gif_src = "@drawable/coffee").达到播放gif图片的效果. 可是.有几个问题 1.gif_src 属性仅仅支持 gif 图,并不支持其它类型的图片 2.仅仅支持

QTP知识点

1.计算器的例子(手动添加,将结果写到日志文件中)SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","C:\WINDOWS\system32","open"Window("计算器").WinButton("1").ClickWindow("计算器").WinButton("+").ClickWindo

自学如何去学习jQuery

前提:起这个名字有点标题党了哈哈,这篇文章只是对于我这几天学习JQ库的一些总结,刚开始我自学JQ的时候是直接看的菜鸟教程或者W3C的文档,里面都有JQ的基本教程,直接去看文档去学我发现很多问题,比如看时间长了看不下去,就算看了过几天也会忘记,那么最好的学习方法是什么呢,最好的方式是通过做案例去学习. 先学几个选择器,方法和事件,做出一个功能,然后再去学习几个方法做出一个东西,循序渐进的去学习,做完几个后发现,JQ基本的知识掌握了,而且印象特别深刻. 下面我来一步步说明我做的一些小的项目: 学习J

使用QTP对Flight的登录界面进行测试

一.测试用例设计 现在使用QTP对案例程序进行测试, 设计测试用例的要求为: 用户名长度大于等于6个字符 必须为字母[o-z,O-Z]和数字[0-9]组成 不能为空,空格或者特殊字符 正确的密码为:MERCUR 序号: 1 控件名称: Agent Name/Password 功能描述: 登陆 编号 输入/动作 输入数据 期望的输出/相应 实际情况 1 使用合法用户名和密码登陆 用户名:”Wyl123” 密码: “MERCURY” 登陆成功   2 使用错误的用户名或密码登陆 用户名:”Wyl12

自学android半年,已从.net转型成android程序员,分享下这个过程

自学从来都是一件难以坚持的事情,看过太多人三分钟热度之后就颓然放弃,然后告诉下一个要自学的人,自学很难,还是正儿八经去培训机构吧 所以首先你要对安卓开发非常感兴趣,发自内心喜欢安卓系统,日常手机如果是安卓机子最好了,这样你写完了一个app,立刻就可以在手上体验了. 推荐边学边做项目的模式 生活中缺点啥,咱就用技术去实现它,这种创造力,只有程序员才有! 你实现了自己的需求,感到非常振奋,继续下一个需求,继续振奋,这一直是个很好的正反馈循环. 所以,半年来咱陆陆续续一共完成了4个项目,除了第一个太简