QTP小知识

转载 2012年03月29日 20:49:10
低级录制
在无法识别对象时使用

利用Vbs运行外部程序

WSH也就是用来解析Vbs的宿主,本身包含了几个个常用对象:

1、scrīpting.FileSystemObject  —>  提供一整套文件系统操作函数

2、scrīpting.Dictionary  —>  用来返回存放键值对的字典对象

3、Wscrīpt.Shell  —>  提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取DOS环境变量,读取链接中的设置

4、
Wscrīpt.NetWork  —>
提供网络连接和远程打印机管理的函数。(其中,所有scrīpting对象都存放在SCRRUN.DLL文件中,所有的Wscrīpt对象都存放在WSHOM.ocx文件中。)

现在我们需要的是第三个对象,好了,让我们先连接一下对象看看,在记事本的编辑窗口中输入:

Set ōbjShell = CreateObject(“Wscrīpt.Shell”)
objShell.Run “notepad”
Objshell.run “calc”
自建日志

Public Sub logfile(message)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fileSystemObj, fileSpec
Dim currentTime
currentDate = Date
currentTime = Time
testName = "log"
Set fileSystemObj = CreateObject("scrīpting.FileSystemObject")
fileSpec ="f:\log.txt"
If Not (fileSystemObj.FileExists(filespec)) Then
Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)
logFile.WriteLine("###############################################")
logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") )
logFile.WriteLin("######################################")
logFile.Close
Set logFile = Nothing
End If
Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False, True)
logFile.WriteLine (currentDate & " "& currentTime & " " & message)
logFile.Close
Set logFile = Nothing
Set fileSystemObj = Nothing
End Sub
logfile(“ok")
Vb6生成
dll
Environment对象

检查页面文字显示颜色

Set Elements = Browser(“WisdomCRM客户关系管理系统”).Object.Document.all.tags(“div”)’tags(“td”)为在td中检查

For each Element in Elements
  If Element.InnerText="执行团队
" Then
    strhtml=Element.Innerhtml
    n=instr(strhtml,"color=red")
    If n=0 Then
      msgbox "Text color is red!"
   exit for
    End If
  End If
Next
关闭重复的页面

Dim loginwin
Set loginwin = descrīption.Create()                                                  '创建对象名为loginwin的对象

loginwin( "name").value="WisdomCRM客户关系管理系统"   ',对象属性及值



Set child=desktop.ChildObjects (loginwin)
cout=child.count
msgbox cout
For i=1 to cout
   child(i-1).close  '循环寻找这个对象

Next
获取当前测试的路径

Path = environment("TestDir")'获取当前测试的路径

msgbox path
获取本机
ip
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

for each IPConfig in IPConfigSet
if Not IsNull(IPConfig.IPAddress) then
for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
Msgbox IPConfig.IPAddress(i)
next
end if
next
点亮对象

highlight
fireEvent用法

针对Link对象,onmouseover时间, 还有onchange, onclick, ondblclick, onblur, onfocus, onmousedown, onmouseup, onmouseout, onsubmit, onreset, onpropertychange事件可以使用

sendkeys实例

Set wshshell=createobject(“wscrīpt.shell”)
其使用格式为:object.SendKeys string “object”:表示WshShell对象 “string”:表示要发送的按键指令字符串,需要放在英文双引号中。 1.基本键   一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母“x”,使用“WshShell.SendKeys "x"”即可。当然,也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可,例如,要发送按键“happy”,可以使用“WshShell.SendKeys "happy"”。

sendkeys实例

2.特殊功能键 对于需要与Shift、Ctrl、Alt三个控制键组合的按键,SendKeys使用特殊字符来表示: Shift---------WshShell.SendKeys "+" Ctrl---------WshShell.SendKeys "^" Alt---------WshShell.SendKeys "%" 由于“+”、“^”这些字符用来表示特殊的控制按键了,如何表示这些按键呢?只要用大括号括住这些字符即可。例如: 要发送加号“+”,可使用“WshShell.SendKeys "{+}"” 另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键的名称,例如要发送回车键,需要用“WshShell.SendKeys "{ENTER}"”表示,发送向下的方向键用“WshShell.SendKeys "{DOWN}"”表示。 Space---------WshShell.SendKeys " " Enter---------WshShell.SendKeys "{ENTER}" ←---------WshShell.SendKeys "{RIGHT}" ↑---------WshShell.SendKeys "{UP}" F1---------WshShell.SendKeys "{F1}" Tips:如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKeys允许使用简化格式进行描述,使用格式为“{按键 数字}”。例如要发送10个字母“x”,则输入“WshShell.SendKeys "{x 10}"”即可。


先录制取得初始脚本,再做简单的修改和参数化,再进行封装形成可重用的函数,最后回放调试,形成了最终的脚本。

QTP编程小知识

QTP编码小知识:本文转自http://lyg5623.blog.163.com/blog/static/53274011200891911126654/【QTP编码小知识 一】       在这里先...
  • lengchun10
  • lengchun10
  • 2009年12月22日 14:19
  • 706

QTP获取系统时间并自定义格式

function GetDateTime(Nowstr)          Dim Currentdatetime           Dim YY   'Year          Dim M...
  • gzh0222
  • gzh0222
  • 2012年08月03日 16:47
  • 1946

QTP中获取当前路径的方法

实属转帖,方便以后查找 ~  QTP9.2 版本,以下内容适合 QTP 和 vbs 。   路径一: QTP 的测试当前路径 ...
  • sinat_21268219
  • sinat_21268219
  • 2014年09月25日 17:13
  • 579

关于微信小程序的基本知识

iamlaosong评: 2007年 1 月 9 日,史蒂夫·乔布斯发布第一代 iPhone。2017 年1 月 9 日,小程序正式上线。张小龙选择在十年后的今天发布小程序,其寓意不言自明。从来没有一...
  • iamlaosong
  • iamlaosong
  • 2017年01月10日 09:38
  • 781

linux 有用的一些小知识

1,自动补全 2,通配符 3,管道  过滤 4,重定向 5,环境变量修改 6,启动项查看,服务重启 7,系统和设备管理,查看串口,pci,usb设备 8,执行最近的命令 9,帮助 1...
  • liang890319
  • liang890319
  • 2012年12月02日 13:38
  • 1790

小程序应该如何入门,初学者应该掌握哪些基本知识?

从便于理解角度来说,可以把小程序看成类H5页面,提供了视图层描述语言,WXML 和 WXSS 以及基于JavaScript的逻辑层框架,并在视图层与逻辑层间提供了数据传输和事件系统,可以让开发者可以方...
  • chuangxin
  • chuangxin
  • 2017年12月19日 21:35
  • 164

关于 微信 小知识

关于微信的知识 1、朋友圈和查找附近的人插件能卸载吗? 朋友圈和查找附近的人可以在设置里卸载 2、查询微信好友数量的办法 通讯录下拉到 最底部,另一个是我 -> 设置->通用->功能->群发...
  • ralbatr
  • ralbatr
  • 2014年01月16日 09:38
  • 5036

微信小程序开发知识点总结

微信小程序开发知识点总结1.微信小程序的目录结构1.外联公共样式的方法根据微信的官方文档,是支持@import的方式一如外联的公共样式的 使用@import语句可以导入外联样式表,@import后...
  • yisuowushinian
  • yisuowushinian
  • 2017年02月19日 08:50
  • 2433

精通QTP--常见面试题

1)QTP支持那些环境?   QTP支持以下环境:   Active X、Delphi、Java、Net、Oracle、People Soft Power Builder、SAP、Siebel、S...
  • slforeverlove
  • slforeverlove
  • 2015年08月31日 15:45
  • 1089

C语言小知识

1.C语言中如何引用一个已经定义的全局变量? Answer:①引用头文件的方式;②引用extern关键字。 注:※⑴如果引用头文件方式引用某个在头文件中声明的全局变量,在写入头...
  • Xiao__Tian__
  • Xiao__Tian__
  • 2016年04月04日 15:32
  • 875
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:QTP小知识
举报原因:
原因补充:

(最多只允许输入30个字)