VB-Helper：坚守脚本

领测软件测试网

清单 2. 一个支持 VSA 的 IVsaSite 类。 

Public Class ScriptDrawVsaSite
   Implements IVsaSite
   Private m_Objects As New Hashtable
   Public Sub AddObject(ByVal object_name As String, _
      ByVal object_reference As Object)
      m_Objects.Add(object_name, object_reference)
   End Sub
   Public Sub GetCompiledState(ByRef pe() As Byte, _
      ByRef debugInfo() As Byte) Implements _
      Microsoft.Vsa.IVsaSite.GetCompiledState
      pe = Nothing
      debugInfo = Nothing
   End Sub
   Public Function GetEventSourceInstance(ByVal _
      itemName As String, ByVal eventSourceName _
      As String) As Object Implements _
      Microsoft.Vsa.IVsaSite.GetEventSourceInstance
      Try
         Dim result As Object = _

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