qtp之登录脚本改进

'启动浏览器和URL地址
D;y3d)W"l0SystemUtil.Run "iexplore.exe","","X:\Documents and Settings\qwen\桌面",""51Testing软件测试网(o!q"G$?{/m/]{8Ad x
Browser("Browser").Page("Page").Sync51Testing软件测试网l.FWUz![
Browser("Browser").Navigate "http://localhost:8080/teach/index.jsp"51Testing软件测试网V;^UY
f[
i? t

wb!D8D*HP/f._w0'登录操作
Ght,nyv?0Browser("Browser").Page("教学门户网站系统-登录").WebEdit("username").Set DataTable("userName", dtLocalSheet)'用户名
|&f N#`9c k0Browser("Browser").Page("教学门户网站系统-登录").WebEdit("pwd").SetSecure DataTable("passWord", dtLocalSheet)'密码
N%K3h4a5I1D0Browser("Browser").Page("教学门户网站系统-登录").WebButton("登   录").Click'登录按钮51Testing软件测试网 `5S{n[K6G\W$u

'如果正确数据出错,则fail51Testing软件测试网IyD{2p\%w(d{U

If Browser("Browser").Page("教学门户网站系统").Frame("Frame").Exist Then
oe*JlK4oR3e0 Browser("Browser").Page("教学门户网站系统").Frame("Frame").Check CheckPoint("管理员 教学通知  课表管理  论坛管理")51Testing软件测试网W1J0^ORw
N8v*Zv3|-i
 Browser("Browser").Page("教学门户网站系统").Sync
8XT#m:tWzb,NG0 Browser("Browser").Close51Testing软件测试网'W?.n9MD
else
(Z4^eWf%aqeg'p8?0    Reporter.ReportEvent micFail,"登录失败-userName:"&DataTable.RawValue("userName","登录"),"登录失败-passWord:"&DataTable.RawValue("passWord","登录")'将出现错误的数据记录在报告之中
&~c`b^p0    'DataTable.SetNextRow
,U^\#s6I&bKy&@0 Browser("Browser").Close
f:^7?mR"UR7O0End If
|$o[0^k0Ip0wait(1)

采用方式:通过判断对象是否存在,来记录数据是否正确.另外,qtp好像通过判断page对象是否存在,像上面这样行不通,最佳方法为选取page中的某个对象来判断

 51Testing软件测试网7w u:e9R-rY6E

Et{:C'}_.c2k2N0qwen 2010-04-2751Testing软件测试网D JnW*l)mD W*Y"r!@|