qtp之重置

NGSx
j$gC8C2@/u0SystemUtil.Run "iexplore.exe","","C:\Documents and Settings\xxxx\桌面",""51Testing软件测试网$jK+mL;p0G i#S
Browser("Browser").Page("Page").Sync51Testing软件测试网+Fs0fyTuJ
Browser("Browser").Navigate "http://local/test/"

Browser("Browser").Page("login").WebEdit("name").Set "afafa"
9czI
A OkB;\0Browser("Browser").Page("login").WebEdit("password").SetSecure "1234"51Testing软件测试网vv&^ Em0YB\
Browser("Browser").Page("login").WebButton("登录").Click51Testing软件测试网HC4z8P6uN`"oAi
wait (1)'需要停顿1秒,不然qtp不会记录重置操作

Browser("Browser").Page("login").WebButton("重置").Click

 '!!!!!!!!!!!!!!!!!!!!!!!!!!end 录制代码!!!!!!!!!!!!!!!!!!!!!!!
Nl8F9G7p5s2v0lname=Browser("Browser").Page("login").WebEdit("name").GetROProperty("value")
'E@7^1d*nW&}0lpwd=Browser("Browser").Page("login").WebEdit("password").GetROProperty("value")51Testing软件测试网tg|4J;dD
`*]

${z ij-Ad0other=Browser("Browser").Page("login").GetROProperty("logininfo")'div层名
_+P'^r[n]0If (lname="" and lpwd="") and ther="" Then
h6dO1~DZJ
|v0 msgbox "pass"51Testing软件测试网"T p]MR$x z
 Browser("Browser").Close51Testing软件测试网R4d[1q"Fq6OU
else51Testing软件测试网UVYxD+Q:t
 msgbox "fail"51Testing软件测试网6lo\,J(@
 Browser("Browser").Close
;kl }.m6gW0End If51Testing软件测试网q6q2vE2_$t

获取层信息使用getroproperty属性,由于qtp不能捕捉到此层,需要手动到页面中找到该div的名称51Testing软件测试网%ob9dn_ ^E \

t(e%M*|y7F2bQ7U3e K0qwen 2010-5-451Testing软件测试网OyvydG5W