生命不息，测试不止。。。。。。故天将降大任于是人也，必先若其心志，劳其筋骨，饿其体肤，空乏其身，行拂乱其所为，所以动心忍性，曾益其所不能。人恒过，然后能改；困于心，衡于虑，而后作；徵于色，发于声，而后喻。入则无法家拂士，出则无敌国外患者，国恒亡。然后知生于忧患而死于安乐也。”
qtp操作vbs语句
上一篇 /
下一篇 2011-09-27 23:00:53
/ 个人分类：QTP
一些简单的QTP vbs操作。来自广大
测试同仁的分享。希望对各位有用。
字段获取
browser("NetMed Office").Page("NetMedOffice").Frame("EditorHtml").WebElement("WebElement").Object.innerText = "123456" (WebElement单独获取存放于对象库中)
键盘操作
'wait 3
'edits "123456"
msgbox 1
Function edits(comand)
Set wsh = createobject("Wscript.shell")
wsh.SendKeys command
Set wsh = nothing
End Function
加临时sheet
DataTable.AddSheet "test1"
DataTable.ImportSheet "f:\qtptable.xls" ,1 ,"test1"
Dim rowcount
Dim j
rowcount=DataTable.GetSheet("test1").GetRowCount
For j=1 to rowcount Step 1
DataTable.GetSheet("test1").SetCurrentRow j
Browser("NetMed Office").Page("NetMed Office").WebEdit("loginName").set DataTable("loginName","test1")
next
覆盖default.xls
DataTable.Import ("F:\qtptable.xls")
Dim rowcount
Dim j
rowcount=DataTable.GetRowCount
For j=1 to rowcount Step 1
DataTable.SetCurrentRow j
Browser("NetMed Office").Page("NetMed Office").WebEdit("loginName").set DataTable("loginName",dtGlobalSheet)
next
收藏
举报
TAG:
QTP
qtp
vb
VB
