51Testing软件测试网 »
xhxcs的个人空间
欢迎访问 xhxcs 的个人空间
我的论坛主题
-
2010-04-20 11:04:42 / [QuickTest Professional]
脚本如下Dim str_NameDim str_PasswordSet str_Name = Browser("Welcome: Mercury Tours").Page("系统").WebEdit("name")Set str_Password = Browser("Welcome: Mercury Tours").Page("系统").WebEdit("password")Call TestS()TestS()定义在外部的vbs里Function TestS()SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://abc/e","C:\Documents and Settings\Administrator","open","3"str_Name.Set("admin")str_Password.Set("admin")End Function这时str_Name,str_Password.
查看(1291)
评论(5)