Added VBScript support.

2026-06-08 17:59:42 +00:00 · 2017-05-16 19:00:29 +01:00
parent e3cebf073f
commit b53cd212a0
8 changed files with 214 additions and 29 deletions
@@ -0,0 +1,80 @@
+//    This file is part of DotNetToJScript - A tool to generate a 
+//    JScript which bootstraps an arbitrary v2.NET Assembly and class.
+//    Copyright (C) James Forshaw 2017
+//
+//    DotNetToJScript is free software: you can redistribute it and/or modify
+//    it under the terms of the GNU General Public License as published by
+//    the Free Software Foundation, either version 3 of the License, or
+//    (at your option) any later version.
+//
+//    DotNetToJScript is distributed in the hope that it will be useful,
+//    but WITHOUT ANY WARRANTY; without even the implied warranty of
+//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//    GNU General Public License for more details.
+//
+//    You should have received a copy of the GNU General Public License
+//    along with DotNetToJScript.  If not, see <http://www.gnu.org/licenses/>.
+
+using System;
+using System.Text;
+
+namespace DotNetToJScript
+{
+    class VBScriptGenerator : IScriptGenerator
+    {
+        static string GetScriptHeader(RuntimeVersion version, bool enable_debug)
+        {
+            StringBuilder builder = new StringBuilder();
+            builder.AppendLine("Sub Debug(s)");
+            if (enable_debug)
+            {
+                builder.AppendLine("Wscript.Echo s");
+            }
+            builder.AppendLine("End Sub");
+            builder.AppendLine("Sub SetVersion");
+            if (version != RuntimeVersion.None)
+            {
+                builder.AppendLine("Dim shell");
+                builder.AppendLine("Set shell = CreateObject(\"WScript.Shell\")");
+                switch (version)
+                {
+                    case RuntimeVersion.v2:
+                        builder.AppendLine("shell.Environment(\"Process\").Item(\"COMPLUS_Version\") = \"v2.0.50727\"");
+                        break;
+                    case RuntimeVersion.v4:
+                        builder.AppendLine("shell.Environment(\"Process\").Item(\"COMPLUS_Version\") = \"v4.0.30319\"");
+                        break;
+                    case RuntimeVersion.Auto:
+                        builder.AppendLine(Properties.Resources.vbs_auto_version_script);
+                        break;
+                }
+            }
+            builder.AppendLine("End Sub");
+            return builder.ToString();
+        }
+
+        public string ScriptName
+        {
+            get
+            {
+                return "VBScript";
+            }
+        }
+
+        public bool SupportsScriptlet
+        {
+            get
+            {
+                return true;
+            }
+        }
+
+        public string GenerateScript(byte[] serialized_object, string entry_class_name, string additional_script, RuntimeVersion version, bool enable_debug)
+        {
+            string[] lines = JScriptGenerator.BinToBase64Lines(serialized_object);
+
+            return GetScriptHeader(version, enable_debug) + Properties.Resources.vbs_template.Replace("%SERIALIZED%", 
+                String.Join(Environment.NewLine + "s = s & ", lines)).Replace("%CLASS%", entry_class_name).Replace("%ADDEDSCRIPT%", additional_script);
+        }
+    }
+}