VB-Helper：坚守脚本

领测软件测试网

使用 IvsaSite 类

在构建好 IVsaSite 类之后，您就可以运行脚本。遗憾的是，运行一个 VSA 脚本也相当复杂。清单 3 演示了执行脚本的示例程序的代码。 

清单 3. 该代码执行一个含有 VSA 的脚本。 

’ Execute the script.
Private Sub ExecuteScript(ByVal script As String)
   Dim vsa_engine As New VsaEngine
   Dim vsa_site As New ScriptDrawVsaSite
   vsa_site.AddObject("ThePicture", g_Picture)
   vsa_site.AddObject("MyPicture", g_Picture)
   vsa_engine.RootMoniker = _
      "ScriptDrawVsa://Picture/Draw"
   vsa_engine.Site = vsa_site
   vsa_engine.InitNew()
   vsa_engine.RootNamespace = "ScriptDrawNS"
   vsa_engine.RevokeCache()
   vsa_engine.GenerateDebugInfo = True
   Dim items As IVsaItems = vsa_engine.Items

文章来源于领测软件测试网 https://www.ltesting.net/