代码1:
SerchText("新 闻") Sub SerchText(testStr) set a=Browser("name:=百度一下,你就知道").Page("title:=百度一下,你就知道").Object.body.createTextRange() b=a.text Set regEx=new RegExp regEx.Pattern=testStr regEx.IgnoreCase=true regEx.Global=true Set Matches=regEx.Execute(b) For Each Match in Matches ' 对 Matches 集合进行迭代。 RetStr = Match.Value msgbox RetStr Next End Sub |
以上代码实现通过Object和正则表达式在页面上查找字符串功能。
代码2:
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Object.setAttribute "value","我的搜索"
这句代码通过Object的setAttribute修改运行时按钮的value值。运行一下看看效果。运用场景:输入框需要单击激活输入状态,通过QTP脚本不能激活,此时可以通过修改运行对象的属性将其激活。
版权声明:原创作品,转载时请务必以超链接形式标明文章原始出处 、作者信息和本声明,否则将追究法律责任。
本文出自jifeng的51Testing软件测试博客:http://www.51testing.com/?92935
相关阅读: