|
本帖最后由 sky_bird 于 2013-3-8 14:28 编辑
SystemUtil.CloseProcessByName"iexplore.exe"
SystemUtil.Run "www.baidu.com"
Browser("micClass:=Browser").Page("micClass:=Page","title:=百度一下,你就知道").WebEdit("micClass:=WebEdit","html tag:=INPUT").Set "QTP自动化测试技术领航"
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").GetROProperty("value")
Browser("micClass:=Browser").Page("micClass:=Page","title:=百度一下,你就知道").WebEdit("name:=wd").Set "QTP自动化测试技术领航"
Run_Time = Browser("micClass:=Browser").Page("micClass:=Page","title:=百度一下,你就知道").WebEdit("name:=wd").GetROProperty("value")
print "Run_Time的值:" & Run_Time
'将Run_Time传入Global Sheet指定列
'
DataTable.Value("Runtime_Data","Global") = Run_Time
print "传入表中的值:" & DataTable.Value("Runtime_Data","Global")
'
Browser("micClass:=Browser").Page("micClass:=Page","title:=百度一下,你就知道").WebButton("micClass:=WebButton","name:=百度一下").Click
CheckValue = Browser("micClass:=Browser","title:=百度搜索_QTP自动化测试技术领航").Page("micClass:=Page","title:=百度搜索_QTP自动化测试技术领航").WebEdit("micClass:=WebEdit","html tag:=INPUT","name:=wd","value:=QTP自动化测试技术领航").GetROProperty("value")
执行到CheckValue这行报错,请各位高手看看是什么原因 |
|