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

　　Dim pw as string

　　'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)

　　Dim UserName as string

　　Dim pw as string

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