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

文章來源于領測軟件測試網 http://www.kjueaiud.com/