admin/tyranid-DotNetToJScript
1
0
Fork 0
mirror of https://github.com/tyranid/DotNetToJScript synced 2026-06-08 17:59:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated VBA generator to support .NET4+ only environments (stock Win 10) using an activation manifest.

Browse Source 
Swapped SurrogateSelector for 'Empty' in vba template.
Pushed version to 1.0.5
This commit is contained in:
Nick Landers
2018-08-12 21:00:48 -06:00
parent 69d1ddb146
commit 6c1cdc64f1
7 changed files with 128 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DotNetToJScript/VBScriptGenerator.cs
+31 -27
View File
@@ -20,16 +20,30 @@ using System.Text;
namespace DotNetToJScript
{
static class VBShared
class VBScriptGenerator : IScriptGenerator
{
public static string GetScriptHeader(RuntimeVersion version, string debug_statement)
public string ScriptName
{
get
{
return "VBScript";
}
}
public bool SupportsScriptlet
{
get
{
return true;
}
}
public static string GetScriptHeader(RuntimeVersion version, Boolean debug)
{
StringBuilder builder = new StringBuilder();
builder.AppendLine("Sub DebugPrint(s)");
if (!String.IsNullOrEmpty(debug_statement))
{
builder.AppendFormat("{0} s", debug_statement).AppendLine();
}
if (debug) builder.AppendLine(" WScript.Echo s");
builder.AppendLine("End Sub");
builder.AppendLine();
@@ -55,32 +69,22 @@ namespace DotNetToJScript
builder.AppendLine();
return builder.ToString();
}
}
class VBScriptGenerator : IScriptGenerator
{
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 VBShared.GetScriptHeader(version, enable_debug ? "WScript.Echo" : String.Empty) + Properties.Resources.vbs_template.Replace("%SERIALIZED%",
String.Join(Environment.NewLine + "s = s & ", lines)).Replace("%CLASS%", entry_class_name).Replace("%ADDEDSCRIPT%", additional_script);
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
);
}
}
}