在 VB.net 中使用 MSscriptControl 添加 object 給出 Specified cast is not valid 錯誤

Question

這是產生錯誤的示例代碼。 我過去在 VB 項目中使用過 MSscript，這些項目正在運行。

報告的錯誤是：“從數字轉換時，值必須是小於無窮大的數字”

或者，如果有人有另一種建議的方式來輕松地將腳本添加到項目中。

    Private Sub Run_Script()
        Dim scriptEngine As New MSScriptControl.ScriptControl()
        Dim TestClass As New Sample
        Dim ScriptCode As String

        scriptEngine.Language = "VbScript"
        scriptEngine.AddObject("Test", TestClass, True)

        ScriptCode = "MsgBox ""tests"" "
        scriptEngine.AddCode(ScriptCode)
    End Sub
End Class

Public Class Sample
    Public Sub Test()
        MessageBox.Show("This is a test")
    End Sub
End Class

Answer 1

我找到了答案。 我需要將 com 可見設置為真。 這可以在“裝配信息”下找到