René's URL Explorer Experiment

{"@context":"https://schema.org","@type":"DiscussionForumPosting","headline":"ClearScript execution of VBS code does not support ByRef parameter passing","articleBody":"VBS CODE:\r\nOption Explicit\r\nSub Main\r\n\tdim reftest\r\n\treftest=0\r\n\tzp.testRef 5,reftest\r\n\tzp.print reftest\r\n\t\r\nEnd Sub\r\nMain\r\nVB.NET CODE:\r\nPublic Class VBClass\r\n    Public Sub Print(ByVal OutStr As Object, ByVal Optional iShow As Integer = 1)\r\n        Console.WriteLine(\"OutStr: \" \u0026 OutStr \u0026 \"!\")\r\n    End Sub\r\n\r\n    Public Sub testRef(ByVal OutStr As Integer, Optional ByRef iShow As Integer= 0)\r\n        iShow = iShow + OutStr\r\n        Console.WriteLine(\"testRef: \" \u0026 iShow \u0026 \"!\")\r\n    End Sub\r\nEnd Class\r\n\r\nC# Code:\r\nprivate void button10_Click(object sender, EventArgs e)\r\n        {\r\n            var VBscript = new VBClass();\r\n            using (var engine = new VBScriptEngine())\r\n            {\r\n                engine.AddHostObject(\"zp\", VBscript);\r\n                var scriptCode = File.ReadAllText(\"D:/Script/abc.vbs\");\r\n                engine.Execute(scriptCode);\r\n\r\n            }\r\n\r\n        }\r\n\r\n","author":{"url":"https://github.com/Rison-Hub","@type":"Person","name":"Rison-Hub"},"datePublished":"2023-05-11T10:56:08.000Z","interactionStatistic":{"@type":"InteractionCounter","interactionType":"https://schema.org/CommentAction","userInteractionCount":15},"url":"https://github.com/511/ClearScript/issues/511"}