FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
DotNetToJScript/DotNetToJScript/VBScriptGenerator.cs at master · ksanadf/DotNetToJScript · GitHub
ksanadf
DotNetToJScript
Repository navigation
Code
Pull requests
Actions
Projects
Security and quality
Insights
Expand file tree
Breadcrumbs
DotNetToJScript
/
DotNetToJScript
/
VBScriptGenerator.cs
Copy path
More file actions
More file actions
Latest commit
History
History
History
90 lines (82 loc) · 3.46 KB
Breadcrumbs
DotNetToJScript
/
DotNetToJScript
/
VBScriptGenerator.cs
Copy path
File metadata and controls
90 lines (82 loc) · 3.46 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
// 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
{
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
(
debug
)
builder
.
AppendLine
(
" WScript.Echo s"
)
;
builder
.
AppendLine
(
"End Sub"
)
;
builder
.
AppendLine
(
)
;
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
.
vb_multi_auto_version_script
)
;
break
;
}
}
builder
.
AppendLine
(
"End Sub"
)
;
builder
.
AppendLine
(
)
;
return
builder
.
ToString
(
)
;
}
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
)
;
}
}
}
Back
|
FazBrowse Home
|
New Git URL