C#使用带有字符串的MSScriptControl AddObject运行VBScript失败

Question

这是我的C#程序：

class Program
{
    static void Main(string[] args)
    {
        CallVbsFunction(1); //Work
        CallVbsFunction(1.2); //Work
        CallVbsFunction('a'); //Work
        CallVbsFunction("a"); //!!Exception see bellow
    }
    private static void CallVbsFunction(object p)
    {
        var sc = new MSScriptControl.ScriptControl();
        sc.Language = "VBScript";
        sc.AllowUI = true;
        try
        {         
            sc.AddCode(System.IO.File.ReadAllText("script.vbs"));
            sc.AddObject("myguid", p, false);
            var parameters = new object[] { "a" };
            sc.Run("test", ref parameters);
        }
        catch (Exception e)
        {
            Console.Out.WriteLine(e.ToString());
        }
    }
}

我的VBScript文件内容：

Function Test(a)
    MsgBox myguid
End Function

最后，当我将AddObject（）与字符串对象一起使用时，这是我的例外：

系统。运行时。InteropServices。COMException（0x800A0005）：无效处的过程调用或参数MSScriptControl。IScriptControl。Run（字符串过程名称，对象[]&参数）。程序中的CallVbsFunction（对象p）程序.cs

Answer 1

您需要使用ComVisible:的包装器对象

[ComVisible(true)]
public class StringWrapper
{
    private string wrappedString;
    public StringWrapper(string value)
    {
        wrappedString = value;
    }
    public override string ToString()
    {
        return wrappedString;
    }
}
CallVbsFunction(new StringWrapper("a"));

问题是，对于MSScriptControl来说，.netString对象在第一次查看时看起来像是一个原生的vb字符串，但在第二次查看时则不然。

---

您只需要在直接注册字符串或注册返回字符串的函数时使用此包装器。注册具有字符串类型属性的对象时没有问题。传递给Run()的参数也没有问题，因为.net运行时会将这些参数正确地封送为本机vb字符串。

---

因此，最好的选择可能是不向脚本提供单独的字符串，而是提供一个封装您希望它使用的所有不同值的对象。

定义此类

[ComVisible(true)]
public class HostOptions
{
    public string OptionA { get; set; }
    public string OptionB { get; set; }
}

然后构造对象并设置所有属性，并将其注册到脚本控件中

var hostOptions = new HostOptions();
hostOptions.OptionA = "AAA";
hostOptions.OptionB = "BBB";
sc.AddObject("HostOptions", hostOptions, false);

然后你可以在你的脚本中使用它，如下所示：

Function Test(a)
    MsgBox HostOptions.OptionA
    MsgBox HostOptions.OptionB
End Function