web测试工具对比--自动化功能测试(3)

　　'Initially Recorded: 2003-12-22 17:07:58

　　'Script Name: Demo

　　StartBrowser "http://192.168.1.42", "WindowTag=WEBBrowser"

　　Window SetContext, "WindowTag=WEBBrowser", ""

　　Browser NewPage,"HTMLTitle=Dynaweb EPS 2003企业门户服务器",""

　　'

　　FileNumber = FreeFile

　　//循环读取文件中数据，登陆

　　//自读形式 打开文件

　　Open "f:\user.txt" For Input As #FileNumber

　　Do While Not EOF(1)

　　// 读取数据，进行处理

　　Line Input #FileNumber, Temp

　　iPos = InStr(1,Temp," ")

　　//提取用户名

　　UserName = left(Temp,iPos-1)

　　//提取密码

　　pw = Right(Temp,len(Temp)-6)

　　Browser("Dynaweb EPS").Page("Dynaweb EPS").WebEdit("username").Set UserName

　　Browser("Dynaweb EPS").Page("Dynaweb EPS").WebEdit("password").Set pw

　　Browser("Dynaweb EPS").Page("Dynaweb EPS").WebButton("v{ _U ").Click

　　Browser("Dynaweb EPS").Page("Dynaweb EPS_2").Link("恄 Q | ~ ").Click

　　Browser("Dynaweb EPS").Page("Dynaweb EPS_3").Sync

　　loop

　　ts.close

　　备注：quick test脚本

　　一.中文注释要引号加空格

　　二.Vbscript脚本语言有限制，它只是vb语言的子集

　　三.声明不需要添加类型，否则脚本编译不通过，差错很困难

文章来源于领测软件测试网 https://www.ltesting.net/