QTP通用脚本

 

'******************************************************************
'脚本名称：系统信息&外部数据输入
'作用：通用获取运行信息
'前提：设置好系统信息的环境变量:file->setting->Environment
'影响功能点：无
'作者：vikesgao
'编写日期：2011-12-08
'修改日期：　　　　　　　　　　修改原因：
'******************************************************************
'''获取系统信息
OS=Environment.Value("OS")
OSVersion=Environment.Value("OSVersion")
TestName=Environment.Value("TestName")
IEversion=Environment.Value("IEversion")
Reporter.ReportEvent micDone , "Environment" ,"运行测试脚本:" &TestName & "的操作系统为:" & OS & "版本为:" & OSVersion & "浏览器为:" & IEversion
''获取系统日志信息---start perf_log 放在脚本最上层     stop perf_lof放到脚本最下层
'systemutil.Run "logman","start perf_log"
'systemutil.Run "logman","stop perf_log"

'获得数据文件路径，并将数据文件导入到DataTable运行表中
'DataTable.AddSheet("TestData")        QTP中建立一个Test Data的数据表
'DataTable.ImportSheet  DataStr,"Sheet1","TestData"     sheet1 的数据转换到QTP  数据表Test Data
DataStr= "d:\data.xls"
DataTable.AddSheet("TestData")
DataTable.ImportSheet  DataStr,"Sheet1","TestData"
wait 1
      '输入用户名和密码------------------
   'UserName=DataTable.Value("UserName","TestData")  
   '注意：Value("UserName","TestData")里面的username大小，大小错误会出现报错
   'UserName=DataTable.Value("UserName","TestData") 修改username从而添加更多的参数化数据
   'Reporter 判断是否正常打开IE对应的地址
 For i=1 to DataTable.GetSheet("TestData").GetRowCount
 systemutil.Run "IEXPLORE.exe","http://108.88.3.253:9030/"----------------------->测试地址
 Reporter.ReportEvent micPass,"IE","浏览器"
 DataTable.SetCurrentRow i  '把i设置为当前执行行
UserName=DataTable.Value("UserName","TestData")
PassWord=DataTable.Value("PassWord","TestData")
Browser("管理系统").Page("管理系统").WebEdit("WebEdit").Set UserName
Browser("管理系统").Page("管理系统").WebEdit("WebEdit_2").SetSecure PassWord
Browser("管理系统").Page("管理系统").Link("登陆").Click

 wait 1
 Browser("管理系统").Close
 Next

'Browser("title := 管理系统").Page("title:=管理系统").WebEdit("type:=text").Set "root"