软件测试论坛 › [QuickTest Professional] › 一个VBS脚本调用另一个VBS脚本

willian0200 发表于 2008-5-7 11:28:14

看了通篇的讨论 长见识了长知识了 谢谢大家分享

fish_yy 发表于 2008-5-7 12:02:01

:lol

小南 发表于 2008-5-7 15:04:41

WSC里用cstring，不然2003上会跳确认框

没有蛀牙 发表于 2008-5-7 15:47:22

要include另一个vbs，可以这样写：
' Includes a file in the global namespace of the current script.
' The file can contain any VBScript source code.
' The path of the file name must be specified absolute (or
' relative to the current directory).
Private Sub IncludeFile(ByVal FileName)
    Dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    Const ForReading = 1
    Dim f: set f = fso.OpenTextFile(FileName,ForReading)
    Dim s: s = f.ReadAll()
    ExecuteGlobal s
End Sub

IncludeFile "CreateNode.vbs"

RayTM 发表于 2008-5-9 11:17:34

按照第16楼链接的方法：
写一个脚本,
class classA
   public sub sub_output(str)
       MsgBox(str)
   end sub
end class
保存,"E:\aaa.vbs"
再写一个脚本,
Include "E:\bbb.vbs"
set a=new classA
str1="asdfasf"
a.sub_output(str1)
Sub Include(sInstFile)
   Dim oFSO, f, s
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set f = oFSO.OpenTextFile(sInstFile)
   s = f.ReadAll
   f.Close
   ExecuteGlobal s
End Sub
保存,"E:\bbb.vbs"
最后在QTP中运行bbb.vbs就可以了吧。

[ 本帖最后由 RayTM 于 2008-5-9 11:21 编辑 ]

xiatian831621 发表于 2008-5-16 16:55:21

ding

studying..

远野志贵 发表于 2008-8-20 07:47:16

这资料真是及时啊，差点就因为这个小问题挂了。

wugecat 发表于 2009-12-14 14:28:53

up

robinsgl 发表于 2009-12-22 16:08:47

原帖由 mstiunicon 于 2008-4-29 01:10 发表 http://bbs.51testing.com/images/common/back.gif


之前找了很久vbs文件互相调用的方法，都没找到。到后来还是使用了QTP的ExecuteFile函数才解决的。看了这个帖子后，才发现原来有这么多方式。
同感！

haiwa957 发表于 2009-12-29 15:30:17

16楼给的连接的那篇文章很不错，我顶，我狂顶

rwxyxy 发表于 2010-3-19 13:12:49

学习了，谢谢16楼的推荐；

zhengpeipei 发表于 2010-3-19 15:37:40

路过

zhengpeipei 发表于 2010-3-19 15:39:37

:(

17800455 发表于 2010-9-24 21:56:34

在VBScript中，可以用ExecuteGlobal语句来在一个脚本文件中加载另外一个脚本的函数，例如，假设需要加载的是脚本Test.vbs:
Function Test1
Msgbox "Test1"
End Function

那么可以在脚本ExecuteGlobal.vbs中按下面的方式加载并调用Test1函数:
Set fso = CreateObject("Scripting.FilesyStemObject")
Str = fso.OpenTextFile("Test.vbs", 1).ReadAll
ExecuteGlobal Str
Set fso = Nothing

Test1


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/Testing_is_believing/archive/2010/01/19/5214523.aspx

ouyangxu 发表于 2011-3-31 22:27:06

怎么我哪个总是报错

ExcuteGlobal s
这句的时候，总是报s错误

查看完整版本: 一个VBS脚本调用另一个VBS脚本