51Testing软件测试论坛

标题: 关于qtp 变量作用域的问题 [打印本页]

作者: xhxcs 时间: 2010-4-20 11:04
标题: 关于qtp 变量作用域的问题
脚本如下
Dim str_Name
Dim str_Password
Set 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认不出来

如果TestS()不写在外部的vbs里，而是直接写在脚本里，str_Name，str_Password能认出来，请问这是为什么？

如果一定要把TestS()写在外部的vbs里，可以通过传参数解决，但是当参数很多时就累赘了，有什么办法使在脚本里定义的全局变量能够被外部vbs识别

作者: liuxl 时间: 2010-4-20 11:29
是可以认的啊，看你的代码是不是你调用外部vbs的方法不对啊

作者: xhxcs 时间: 2010-4-20 13:41
标题: 就是直接call这个方法
就是直接call这个方法啊，把变量作为参数传递就可以，例如Call TestS(strName,strPassword), 当然定义函数时也要加上参数，例如Function TestS(strName,strPassword)。作为全局变量就传不到外部的vbs

作者: liuxl 时间: 2010-4-20 13:48
首先要声明一下这个vbs脚本：ExecuteFile “路径”或者在file-settings中添加Resources
然后才能调用

作者: TIB 时间: 2010-4-20 14:08
把变量定义放到外部vbs中
Dim str_Name
Dim str_Password
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

作者: superliming 时间: 2010-4-20 16:36

原帖由 xhxcs 于 2010-4-20 13:41 发表
就是直接call这个方法啊，把变量作为参数传递就可以，例如Call TestS(strName,strPassword), 当然定义函数时也要加上参数，例如Function TestS(strName,strPassword)。作为全局变量就传不到外部的vbs

就是这样吗

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)