lucidiot/xp-consoles
lucidiot
/
xp-consoles
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Compare commits

base: lucidiot:523d301d1e9eb120334728d6ce84ff6dd3e3d37a
Branches Tags
lucidiot:master
...
compare: lucidiot:4d45b64c803b69eb5ced54bcfd4947b8aa513aee
Branches Tags
lucidiot:master

9 Commits
523d301d1e ... 4d45b64c80

Author SHA1 Message Date
~lucidiot 4d45b64c80 Update the HTML Help Workshop project 2022-10-10 01:14:19 +02:00
~lucidiot e7df07a106 Update the setup project 2022-10-09 23:39:24 +02:00
~lucidiot 75e9793001 Merge both consoles 2022-10-09 23:26:11 +02:00
~lucidiot 2b81593ad6 Fix keyboard shortcut in VBS console 2022-09-22 22:14:19 +02:00
~lucidiot b6c37554ab Try to get better error handling in VBS 2022-09-22 22:14:03 +02:00
~lucidiot f76123a721 Fix handling of selected text in VBS console 2022-09-22 22:13:47 +02:00
~lucidiot bc2629a8fc Cleanup 2022-09-22 22:13:17 +02:00
~lucidiot a53905dc05 Handle empty and null values in VB console 2022-09-22 22:12:43 +02:00
~lucidiot 37eb9d70fe Indent the VBS console with 4 spaces 2022-09-22 20:37:36 +02:00
11 changed files with 166 additions and 436 deletions
Show Stats Expand all files Collapse all files

4
README.md
View File

@ -1,10 +1,10 @@
# Windows XP Scripting Consoles
This repository holds some files that were created as part of a project to put JavaScript and VBScript consoles into every single possible place in Windows XP to learn more about how and why ActiveX was made available in so many spots.
This repository holds some files that were created as part of a project to put a JavaScript and VBScript console into every single possible place in Windows XP to learn more about how and why ActiveX was made available in so many spots.
I will try to document how I placed the consoles in each spot, how you can do it too, and what else more is doable other than just running `console.log`.
* About the Consoles (soon™)
* About the Console (soon™)
* [Web Wizards](docs/web-wizards.md)
* Web Slice (soon™)
* Windows Media Player Online Store (soon™)

8
console.hhc
View File

@ -6,12 +6,8 @@
</HEAD><BODY>
<UL>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="JavaScript Console">
<param name="Local" value="jsconsole.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="VBScript Console">
<param name="Local" value="vbsconsole.html">
<param name="Name" value="Windows Scripting Console">
<param name="Local" value="console.html">
</OBJECT>
</UL>
</BODY></HTML>

21
console.hhk
View File

@ -7,23 +7,28 @@
<UL>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="javascript">
<param name="Name" value="JavaScript Console">
<param name="Local" value="jsconsole.html">
<param name="Name" value="Windows Scripting Console">
<param name="Local" value="console.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="vbscript">
<param name="Name" value="VBScript Console">
<param name="Local" value="vbsconsole.html">
<param name="Name" value="Windows Scripting Console">
<param name="Local" value="console.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="JS">
<param name="Name" value="JavaScript Console">
<param name="Local" value="jsconsole.html">
<param name="Name" value="Windows Scripting Console">
<param name="Local" value="console.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="VBS">
<param name="Name" value="VBScript Console">
<param name="Local" value="vbsconsole.html">
<param name="Name" value="Windows Scripting Console">
<param name="Local" value="console.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="console">
<param name="Name" value="Windows Scripting Console">
<param name="Local" value="console.html">
</OBJECT>
</UL>
</BODY></HTML>

7
console.hhp
View File

@ -2,16 +2,15 @@
Compatibility=1.1 or later
Compiled file=console.chm
Contents file=console.hhc
Default topic=jsconsole.html
Default topic=console.html
Display compile progress=No
Index file=console.hhk
Language=0x409 English (United States)
Title=XP Scripting Consoles
Title=Windows Scripting Console
[FILES]
jsconsole.html
vbsconsole.html
console.html
[INFOTYPES]

16
jsconsole.html → console.html
View File

@ -1,24 +1,30 @@
<!DOCTYPE html>
<html>
<head>
<title>JavaScript Console</title>
<title>Windows Scripting Console</title>
<meta charset="utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=8" />
<link rel="stylesheet" type="text/css" href="console.css" />
<link rel="icon" type="image/x-icon" href="jsconsole.ico" />
<link rel="shortcut icon" type="image/x-icon" href="jsconsole.ico" />
<link rel="icon" type="image/x-icon" href="console.ico" />
<link rel="shortcut icon" type="image/x-icon" href="console.ico" />
</head>
<body>
<div class="hslice" id="slice">
<div class="entry-title">JavaScript Console</div>
<a rel="entry-content" href="./jsconsole.html"></a>
<div class="entry-title">Windows Scripting Console</div>
<a rel="entry-content" href="./console.html"></a>
</div>
<textarea id="input" placeholder="Type some JavaScript to run and press Shift+Enter"></textarea>
<div id="output"></div>
<div class="buttons">
<select id="languageselect">
<option value="js">JavaScript</option>
<option value="vbs-eval">VBScript Eval</option>
<option value="vbs-execute">VBScript Execute</option>
</select>
<input type="button" id="runbutton" value="run" />
<input type="button" id="clearbutton" value="clear" />
</div>
<script type="text/vbscript" language="vbscript" src="console.vbs"></script>
<script type="text/javascript" language="javascript" src="console.js"></script>
</body>
</html>

0
jsconsole.ico → console.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.4 KiB

After

Width:  |  Height:  |  Size: 2.4 KiB

100
console.js
View File

@ -1,6 +1,19 @@
function JSEval (code) {
try {
return eval(code);
} catch (err) {
console.error(err);
}
}
function supportsVB () {
return typeof window.VBSEval === 'unknown' && typeof window.VBSExecute === 'unknown'
}
window.onload = function () {
var output = document.getElementById("output");
var input = document.getElementById("input");
var languageSelect = document.getElementById("languageselect");
var runButton = document.getElementById("runbutton");
var clearButton = document.getElementById("clearbutton");
@ -74,6 +87,7 @@ window.onload = function () {
}
entry.appendChild(document.createTextNode(outputText));
output.appendChild(entry);
entry.scrollIntoView();
}
}
@ -106,18 +120,6 @@ window.onload = function () {
}
console.log(stack.trim());
}
var inputLogger = makeLogger('log', 'lightblue');
function run () {
var code = getSelectedText(input) || input.value;
if (!code.trim()) return;
inputLogger(code);
try {
console.log(eval(code));
} catch (err) {
console.error(err);
}
}
console.clear = function () {
if (originalConsole && originalConsole.clear) {
@ -127,6 +129,33 @@ window.onload = function () {
output.innerHTML = "";
}
var inputLogger = makeLogger('log', 'lightblue');
function run () {
var code = getSelectedText(input) || input.value;
if (!code.trim()) return;
inputLogger(code);
try {
switch (languageSelect.value) {
case 'js':
result = JSEval(code);
break;
case 'vbs-eval':
result = VBSEval(code);
break;
case 'vbs-execute':
result = VBSExecute(code);
break;
default:
console.error('Unsupported language', languageSelect.value);
return;
}
console.log(result);
} catch (err) {
console.error(err);
}
}
input.onkeypress = function (event) {
if (!event) event = window.event;
// Run code if Shift+Enter is pressed
@ -138,6 +167,24 @@ window.onload = function () {
run();
}
}
languageSelect.onchange = function () {
switch (languageSelect.value) {
case 'js':
languageSelect.setAttribute('placeholder', 'Type some JavaScript to run and press Shift+Enter');
break;
case 'vbs-eval':
languageSelect.setAttribute('placeholder', 'Type a VBScript expression to evaluate and press Shift+Enter');
break;
case 'vbs-execute':
languageSelect.setAttribute('placeholder', 'Type some VBScript to run and press Shift+Enter');
break;
default:
languageSelect.setAttribute('placeholder', 'Type the name of a demonic entity to summon and press Shift+Enter');
break;
}
}
runButton.onclick = run;
clearButton.onclick = console.clear;
@ -152,20 +199,23 @@ window.onload = function () {
input.style.height = document.documentElement.clientHeight - 7 + 'px';
output.style.marginLeft = '7px';
}
}
// Try to detect the wizard extensions.
if (typeof window.external === 'object') {
if (typeof window.external.SetHeaderText === 'unknown')
window.external.SetHeaderText('JavaScript Console', "Explore this wizard's JavaScript environment.");
if (typeof window.external.SetWizardButtons === 'unknown')
window.external.SetWizardButtons(1, 0, 0);
if (typeof window.external.FinalBack === 'unknown') {
// An onback function is required by the web wizard specification
window.onback = function () {
window.external.FinalBack();
if (!supportsVB()) {
for (var i = 0; i < languageSelect.children.length; i++) {
if (languageSelect.children[i].value.slice(0, 3) === 'vbs') {
languageSelect.children[i].disabled = true;
languageSelect.children[i].title = 'VBScript is not supported in this browser.';
}
}
}
}
// Try to detect the wizard extensions.
if (supportsVB() && InWebWizard()) {
window.external.SetHeaderText('Windows Scripting Console', "Explore this wizard's scripting environment.");
window.external.SetWizardButtons(1, 0, 0);
// An onback function is required by the web wizard specification
window.onback = function () {
window.external.FinalBack();
}
}

157
console.vbs
View File

@ -1,150 +1,23 @@
Option Explicit
On Error Resume Next
Private input, output, runButton, clearButton
Private Sub ConsoleLog(message, color)
Dim entry
Set entry = document.createElement("div")
With entry.style
.margin = "0"
.padding = "1px"
.borderBottom = "1px solid lightgray"
If Not IsNull(color) Then
.color = color
End If
End With
entry.appendChild(document.createTextNode(CStr(message)))
output.appendChild(entry)
Sub VBSExecute(code)
Err.Clear
Execute "On Error Resume Next" & vbCrLf & code
If Err.Number <> 0 Then
console.error "VBScript Error " & Err.Number & " - " & Err.Source & ": " & Err.Description
End If
End Sub
Sub Log(message)
ConsoleLog message, Null
End Sub
Sub Debug(message)
ConsoleLog message, "darkgray"
End Sub
Sub Info(message)
ConsoleLog message, Null
End Sub
Sub Warn(message)
ConsoleLog message, "orange"
End Sub
Sub Error(message)
ConsoleLog message, "red"
End Sub
Sub Assert(condition, message)
If Not condition Then
Error message
End If
End Sub
Sub Clear
output.innerHTML = ""
End Sub
Private Function RemoveCr (text)
RemoveCr = Replace(text, vbCrLf, vbLf)
Function VBSEval(code)
Err.Clear
VBSEval = Eval(code)
If Err.Number <> 0 Then
console.error "VBScript Error " & Err.Number & " - " & Err.Source & ": " & Err.Description
End If
End Function
Private Function GetSelectedText (element)
Dim normalizedValue, range, inputRange, endRange
Set range = document.selection.createRange()
If Not IsNull(range) And range.parentElement() = element Then
normalizedValue = RemoveCr(element.value)
Set inputRange = element.createTextRange()
inputRange.moveToBookmark range.getBookmark()
Set endRange = element.createTextRange()
endRange.collapse False
'Selection does not begin at the end of the input
If inputRange.compareEndPoints("StartToEnd", endRange) < 0 Then
Dim selectionStart, selectionEnd
selectionStart = UBound(Split(Right(normalizedValue, Len(normalizedValue) - selectionStart), vbLf)) - inputRange.moveStart("character", -Len(element.value))
selectionEnd = Len(element.value)
If inputRange.compareEndPoints("EndToEnd", endRange) < 0 Then
selectionEnd = UBound(Split(Right(normalizedValue, Len(normalizedValue) - selectionEnd), vbCrLf)) - inputRange.moveEnd("character", -Len(element.value))
End If
GetSelectedText = Left(Right(element.value, Len(element.value) - selectionStart), selectionEnd - selectionStart)
Else
GetSelectedText = ""
End If
Else
GetSelectedText = ""
End If
End Function
Private Sub Run
Dim selected, code
selected = GetSelectedText(input)
code = selected
If IsEmpty(selected) Then
code = input.value
End If
If IsEmpty(Trim(code)) Then
Exit Sub
End If
ConsoleLog code, "lightblue"
Err.Clear
Execute code
If Err.Number <> 0 Then
Error "Error " & Err.Number & " at " & Err.Source & ": " & Err.Description
End If
End Sub
Private Sub InputKeyPress
If window.event.keyCode = 13 And window.event.shiftKey Then
Run
End If
End Sub
'Auto-detect the wizard's browser extensions
Private Function InWebWizard()
InWebWizard = TypeName(window.external) = "INewWDEvents"
End Function
Private Function InIE7()
InIE7 = InStr(navigator.userAgent, "MSIE 7.0")
End Function
Sub window_onload
With document
Set input = .getElementById("input")
Set output = .getElementById("output")
Set runButton = .getElementById("runButton")
Set clearButton = .getElementById("clearButton")
End With
runButton.onclick = GetRef("Run")
clearButton.onclick = GetRef("Clear")
input.onkeypress = GetRef("InputKeyPress")
If InWebWizard() Then
window.external.SetHeaderText "VBScript Console", "Explore this wizard's VBScript environment."
window.external.SetWizardButtons True, False, False
End If
'For some reason, IE 7 messes up the textarea's width and height
'pretty badly. We hardcode the height, removing a little margin,
'and add some margin to the output.
'Setting the input's width causes it to somehow divide itself by 2 on every keystroke.
If InIE7() Then
input.style.height = document.documentElement.clientHeight - 7 & "px"
output.style.marginLeft = "7px"
End If
End Sub
'The web wizard specification requires every page to have an OnBack procedure
Sub OnBack
If InWebWizard() Then
window.external.FinalBack
End If
End Sub
Function InWebWizard()
InWebWizard = TypeName(window.external) = "INewWDEvents"
End Function

266
setup/ConsoleSetup.vdproj
View File

@ -21,13 +21,7 @@
}
"Entry"
{
"MsmKey" = "8:_5EE0D025E309469D8116C4652ED31E8F"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_66FFE4983BC544E495528FB2CD800201"
"MsmKey" = "8:_5809470A01A84CAEB733DE3FFBB89694"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
@ -45,7 +39,7 @@
}
"Entry"
{
"MsmKey" = "8:_B7EC8FA462C849969C69D0F4BBAC31E4"
"MsmKey" = "8:_AED3557F1EDF43058B9A5E2E4F25441B"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
@ -55,12 +49,6 @@
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_DD68667F5AFF4C929A3AC537D97EB1CF"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
}
"Configurations"
{
@ -158,10 +146,10 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_5EE0D025E309469D8116C4652ED31E8F"
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_5809470A01A84CAEB733DE3FFBB89694"
{
"SourcePath" = "8:..\\vbsconsole.html"
"TargetName" = "8:vbsconsole.html"
"SourcePath" = "8:..\\console.html"
"TargetName" = "8:console.html"
"Tag" = "8:"
"Folder" = "8:_751886FEF94D437EA46BCBA21A7E9B05"
"Condition" = "8:"
@ -178,26 +166,6 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_66FFE4983BC544E495528FB2CD800201"
{
"SourcePath" = "8:..\\vbsconsole.ico"
"TargetName" = "8:vbsconsole.ico"
"Tag" = "8:"
"Folder" = "8:_751886FEF94D437EA46BCBA21A7E9B05"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:FALSE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_95F2E2A7F1EF428CB59EB776A5012D07"
{
"SourcePath" = "8:LICENSE.rtf"
@ -238,30 +206,10 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_B7EC8FA462C849969C69D0F4BBAC31E4"
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_AED3557F1EDF43058B9A5E2E4F25441B"
{
"SourcePath" = "8:..\\jsconsole.ico"
"TargetName" = "8:jsconsole.ico"
"Tag" = "8:"
"Folder" = "8:_751886FEF94D437EA46BCBA21A7E9B05"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:FALSE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_C54739F34E5F465FBF39B2A4E4481CAE"
{
"SourcePath" = "8:..\\console.js"
"TargetName" = "8:console.js"
"SourcePath" = "8:..\\console.ico"
"TargetName" = "8:console.ico"
"Tag" = "8:"
"Folder" = "8:_751886FEF94D437EA46BCBA21A7E9B05"
"Condition" = "8:"
@ -278,10 +226,10 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_DD68667F5AFF4C929A3AC537D97EB1CF"
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_C54739F34E5F465FBF39B2A4E4481CAE"
{
"SourcePath" = "8:..\\jsconsole.html"
"TargetName" = "8:jsconsole.html"
"SourcePath" = "8:..\\console.js"
"TargetName" = "8:console.js"
"Tag" = "8:"
"Folder" = "8:_751886FEF94D437EA46BCBA21A7E9B05"
"Condition" = "8:"
@ -352,9 +300,9 @@
"Product"
{
"Name" = "8:Microsoft Visual Studio"
"ProductName" = "8:XP Scripting Consoles"
"ProductName" = "8:Windows Scripting Console"
"ProductCode" = "8:{E08A4F6C-765A-4DA8-B5DB-EC4B90FB3E99}"
"PackageCode" = "8:{19B890DD-086D-48F2-A346-761266460CA4}"
"PackageCode" = "8:{6EAA994A-E6EC-44A4-BC55-26BEE98144B2}"
"UpgradeCode" = "8:{EBC25548-9736-4C3A-B321-A9A4CE4E8CB2}"
"RestartWWWService" = "11:FALSE"
"RemovePreviousVersions" = "11:FALSE"
@ -364,13 +312,13 @@
"Manufacturer" = "8:lucidiot"
"ARPHELPTELEPHONE" = "8:"
"ARPHELPLINK" = "8:https://tildegit.org/lucidiot/xp-consoles/"
"Title" = "8:Windows XP Consoles Setup"
"Title" = "8:Windows Scripting Console Setup"
"Subject" = "8:"
"ARPCONTACT" = "8:lucidiot"
"Keywords" = "8:"
"ARPCOMMENTS" = "8:Windows XP JavaScript and VBScript consoles installer"
"ARPCOMMENTS" = "8:Windows XP JavaScript and VBScript console installer"
"ARPURLINFOABOUT" = "8:https://tilde.town/~lucidiot/"
"ARPPRODUCTICON" = "8:_B7EC8FA462C849969C69D0F4BBAC31E4"
"ARPPRODUCTICON" = "8:_AED3557F1EDF43058B9A5E2E4F25441B"
"ARPIconIndex" = "3:0"
"SearchPath" = "8:"
"UseSystemSearchPath" = "11:TRUE"
@ -465,7 +413,7 @@
{
"{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_DC1A455F5C8045F5B5E3C5AE8F58D7B9"
{
"Name" = "8:jsconsole"
"Name" = "8:console"
"Condition" = "8:REGISTER_IPP"
"AlwaysCreate" = "11:FALSE"
"DeleteAtUninstall" = "11:TRUE"
@ -481,7 +429,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:file:///[TARGETDIR]jsconsole.html"
"Value" = "8:file:///[TARGETDIR]console.html"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_A8DE477BA85B4C8A9F26E524C9367A07"
{
@ -489,7 +437,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:[TARGETDIR]jsconsole.ico"
"Value" = "8:[TARGETDIR]console.ico"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_BFA076CDEF3841F89A278CC05336DF9B"
{
@ -497,7 +445,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:JavaScript Console"
"Value" = "8:Windows Scripting Console"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_CBFBD456AFC94EFEAC3D0D1AD319294C"
{
@ -505,53 +453,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:Explore this wizard's JavaScript environment."
}
}
}
"{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_E2402ED5342E4D93BF0ADEBB59FA2278"
{
"Name" = "8:vbsconsole"
"Condition" = "8:REGISTER_IPP"
"AlwaysCreate" = "11:FALSE"
"DeleteAtUninstall" = "11:TRUE"
"Transitive" = "11:FALSE"
"Keys"
{
}
"Values"
{
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_1B47FFE07A4240639E2E333B8A5690B3"
{
"Name" = "8:Description"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:Explore this wizard's VBScript environment."
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_37C22136534D4D8EA8E1B1EDD8ABC68E"
{
"Name" = "8:DisplayName"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:VBScript Console"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_63DC91351D9141A48472DCAA6762AFA5"
{
"Name" = "8:HREF"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:file:///[TARGETDIR]vbsconsole.html"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_A32D4DDF06D844FBAEFAEDAA81010F84"
{
"Name" = "8:IconPath"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:[TARGETDIR]vbsconsole.ico"
"Value" = "8:Explore this wizard's scripting environment."
}
}
}
@ -585,7 +487,7 @@
{
"{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_03C5FF4B3F484102B438468F4F09AB7C"
{
"Name" = "8:jsconsole"
"Name" = "8:console"
"Condition" = "8:REGISTER_NET"
"AlwaysCreate" = "11:FALSE"
"DeleteAtUninstall" = "11:TRUE"
@ -601,7 +503,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:[TARGETDIR]jsconsole.ico"
"Value" = "8:[TARGETDIR]console.ico"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_6405A88C6FD04FBD976C238F9E4015CB"
{
@ -609,7 +511,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:Explore this wizard's JavaScript environment."
"Value" = "8:Explore this wizard's scripting environment."
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_A9B9D54BB0F9461E8DF3FBF56E64A8CE"
{
@ -617,7 +519,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:file:///[TARGETDIR]jsconsole.html"
"Value" = "8:file:///[TARGETDIR]console.html"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_D036D1BE6EE44E61805B0971694DE6AA"
{
@ -625,53 +527,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:JavaScript Console"
}
}
}
"{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_8A380B04FDF6496793794DD030F73B17"
{
"Name" = "8:vbsconsole"
"Condition" = "8:REGISTER_NET"
"AlwaysCreate" = "11:FALSE"
"DeleteAtUninstall" = "11:TRUE"
"Transitive" = "11:FALSE"
"Keys"
{
}
"Values"
{
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_17770694BA554C5591ABEC437FD9AD4D"
{
"Name" = "8:DisplayName"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:VBScript Console"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_3E339741D1044B34B49A33732C39291A"
{
"Name" = "8:IconPath"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:[TARGETDIR]vbsconsole.ico"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_4880F93E2FA54CBFABFA5A4CF09F1850"
{
"Name" = "8:HREF"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:file:///[TARGETDIR]vbsconsole.html"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_7B360959C0084576BD51150E553B06F9"
{
"Name" = "8:Description"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:Explore this wizard's VBScript environment."
"Value" = "8:Windows Scripting Console"
}
}
}
@ -703,55 +559,9 @@
"Transitive" = "11:FALSE"
"Keys"
{
"{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_9393DBDA40DC4732B47FA41FE7FA829D"
{
"Name" = "8:vbsconsole"
"Condition" = "8:REGISTER_WEB"
"AlwaysCreate" = "11:FALSE"
"DeleteAtUninstall" = "11:TRUE"
"Transitive" = "11:FALSE"
"Keys"
{
}
"Values"
{
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_608233DFEC8A4558A674764822059772"
{
"Name" = "8:Description"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:Explore this wizard's VBScript environment."
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_8B4728A82FFA4FBBB1160F90C588EE6A"
{
"Name" = "8:DisplayName"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:VBScript Console"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_C08FD451706B4DAA8EA1336FD72A96D4"
{
"Name" = "8:IconPath"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:[TARGETDIR]vbsconsole.ico"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_CA60F58933FC4D86997929F522A7CA76"
{
"Name" = "8:HREF"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:file:///[TARGETDIR]vbsconsole.html"
}
}
}
"{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_EDF081B2D5F049A19426CDEC54383AA2"
{
"Name" = "8:jsconsole"
"Name" = "8:console"
"Condition" = "8:REGISTER_WEB"
"AlwaysCreate" = "11:FALSE"
"DeleteAtUninstall" = "11:TRUE"
@ -767,7 +577,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:JavaScript Console"
"Value" = "8:Windows Scripting Console"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_501B3636C53A4A7284C084CFEC8E45C9"
{
@ -775,7 +585,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:Explore this wizard's JavaScript environment."
"Value" = "8:Explore this wizard's scripting environment."
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_6A52DF13DD674E8BB8B56FDC2E094016"
{
@ -783,7 +593,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:[TARGETDIR]jsconsole.ico"
"Value" = "8:[TARGETDIR]console.ico"
}
"{ADCFDA98-8FDD-45E4-90BC-E3D20B029870}:_FF70DFE93DCB468898AAC4DED13F541C"
{
@ -791,7 +601,7 @@
"Condition" = "8:"
"Transitive" = "11:FALSE"
"ValueTypes" = "3:1"
"Value" = "8:file:///[TARGETDIR]jsconsole.html"
"Value" = "8:file:///[TARGETDIR]console.html"
}
}
}
@ -861,6 +671,20 @@
}
"Shortcut"
{
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_9F1E8D8D0F754A76A12FA222CCF8D10F"
{
"Name" = "8:Windows Scripting Console"
"Arguments" = "8:"
"Description" = "8:"
"ShowCmd" = "3:1"
"IconIndex" = "3:0"
"Transitive" = "11:FALSE"
"Target" = "8:_5809470A01A84CAEB733DE3FFBB89694"
"Folder" = "8:_7E83B0110A1847F2886210B8C6E0873E"
"WorkingFolder" = "8:_751886FEF94D437EA46BCBA21A7E9B05"
"Icon" = "8:_AED3557F1EDF43058B9A5E2E4F25441B"
"Feature" = "8:"
}
}
"UserInterface"
{

23
vbsconsole.html
View File

@ -1,23 +0,0 @@
<!DOCTYPE html>
<html>
<head>
<title>VBScript Console</title>
<meta charset="utf-8" />
<link rel="stylesheet" type="text/css" href="console.css" />
<link rel="icon" type="image/x-icon" href="vbsconsole.ico" />
<link rel="shortcut icon" type="image/x-icon" href="vbsconsole.ico" />
</head>
<body>
<div class="hslice" id="slice">
<div class="entry-title">VBScript Console</div>
<a rel="entry-content" href="./vbsconsole.html"></a>
</div>
<textarea id="input" placeholder="Type some VBScript to run and press Shift+Enter to run"></textarea>
<div id="output"></div>
<div class="buttons">
<input type="button" id="runbutton" value="run" />
<input type="button" id="clearbutton" value="clear" />
</div>
<script type="text/vbscript" language="vbscript" src="console.vbs"></script>
</body>
</html>

BIN
vbsconsole.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 1.4 KiB