QTP脚本之登录中含下拉框

Dim ItemsCount 'ItemCount用于获取下拉框的项数

Dim I '用于设置循环中的初值

ItemsCount=Browser("TMT系统登录").Page("TMT系统登 录").WebList("select").GetROProperty("items count")

For i=0 to ItemsCount-1 step 1 '每一个用户名都重复一次下拉框中的内容,每次步长增长1

      Browser("TMT系统登录").Page("TMT系统登录").WebEdit("WebEdit").Set DataTable("userName", dtGlobalSheet)’参数化用户名

      Browser("TMT系统登录").Page("TMT系统登录").WebEdit("WebEdit_2").Check CheckPoint("WebEdit_2")'检查密码框的password属性

      Browser("TMT系统登录").Page("TMT系统登录").WebEdit("WebEdit_2").SetSecure DataTable("passWord", dtGlobalSheet)’参数化密码

      Browser("TMT系统登录").Page("TMT系统登录").WebList("select").Check CheckPoint("select") '检查下拉框select的数量

      Browser("TMT系统登录").Page("TMT系统登录").WebList("select").Select I ‘获取下拉框中的值

      Browser("TMT系统登录").Page("TMT系统登录").WebButton("登录").Click’登录按钮

      Dim iStatus'用于判断数据的状态

      iStatus=DataTable("status",dtGlobalSheet)

      If iStatus="" and I<>0 Then’由于下拉框中的第一项为”请选择数据库”,所以这项得排除正确登录的流程

             Browser("TMT系统登录").Page("全部任务").Sync

             Browser("TMT系统登录").Page("全部任务").Link("退出系统").Click'退出链接或者重新打开登录页面

             'Browser("TMT系统登录").Page("TMT系统登录").Sync

      elseIf iStatus="no" Then

             Reporter.ReportEvent micPass,"登录","登录失败" 'micFail结果判断为fail,micPass结果判断为pass,由于登录失败是我们想要的结果,所以在报告中使其结果判断为pass

             Browser("TMT系统登录").Page("TMT系统登录").Sync'重新加载该页,这里很关键,如果不重新加载该页,会报错

      End If

Next

  'Browser("TMT系统登录").Close ‘运行完成后,关闭系统