关于qtp 变量作用域的问题

xhxcs

脚本如下
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

是可以认的啊，看你的代码是不是你调用外部vbs的方法不对啊

xhxcs

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

liuxl

首先要声明一下这个vbs脚本：ExecuteFile “路径”或者在file-settings中添加Resources
然后才能调用

TIB

把变量定义放到外部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

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

就是这样吗