QTP用户登录（使用Localsheet参数化）

使用localsheet循环登录的例子
Option Explicit

Dim row
Dim i

row = DataTable.GetSheetCount

For i = 1 to row
    Browser("title:=Welcome: Mercury Tours").Page("title:=Welcome: Mercury Tours").WebEdit("name:=userName").Set DataTable.GetSheet("Action1").GetParameter("Username")
    Browser("title:=Welcome: Mercury Tours").Page("title:=Welcome: Mercury Tours").WebEdit("name:=password").Set DataTable.GetSheet("Action1").GetParameter("password")
    Browser("title:=Welcome: Mercury Tours").Page("title:=Welcome: Mercury Tours").Image("name:=login").Click
    Browser("title:=Find a Flight: Mercury Tours:").Page("title:=Find a Flight: Mercury Tours:").Link("text:=Home").Click
    DataTable.GetSheet("Action1").SetNextRow
Next