<html><head><title>Test Environment</title>
</head><body bgcolor="black" text="ffffff">
<h1>For PhantomX Developers</h1>
<input type="button" onclick="IRunVBS;" value="Execute VBScript">
<textarea id="EVBS"></textarea><br>
<input type="button" onclick="IRunPerl;" value="Eval PerlScript">
<textarea id="EPS"></textarea><br>
<input type="button" onclick="IRunJS;" value="Eval JScript">
<textarea id="EJS"></textarea>
<SCRIPT LANGUAGE="JavaScript" src="C:/WinScript/_ScriptLibrary/RS.HTM">
</script>
<SCRIPT LANGUAGE="JavaScript">
RSEnableRemoteScripting(window.self.external);
</SCRIPT>
</body>
<script language="VBScript">Function VBExec() : Execute(document.getElementById("EVBS").innerText) : End Function
</script>
<script language="PerlScript">sub PSEval {eval($window->document->getElementById("EPS")->innerText);}
use Win32::OLE;
my $script = Win32::OLE->new('ScriptControl');
sub IRunPerl {
$script->{'Language'} = "PerlScript";
$ObjScript = $window->document->getElementById("EPS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunVBS {
$script->{'Language'} = "VBScript";
$ObjScript = $window->document->getElementById("EVBS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunJS {
$script->{Language} = "JScript";
$ObjScript = $window->document->getElementByID("EJS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
</script>
<script language="JavaScript">function JSEval() {eval(document.getElementById("EJS").innerText);}</script>
</html>
</head><body bgcolor="black" text="ffffff">
<h1>For PhantomX Developers</h1>
<input type="button" onclick="IRunVBS;" value="Execute VBScript">
<textarea id="EVBS"></textarea><br>
<input type="button" onclick="IRunPerl;" value="Eval PerlScript">
<textarea id="EPS"></textarea><br>
<input type="button" onclick="IRunJS;" value="Eval JScript">
<textarea id="EJS"></textarea>
<SCRIPT LANGUAGE="JavaScript" src="C:/WinScript/_ScriptLibrary/RS.HTM">
</script>
<SCRIPT LANGUAGE="JavaScript">
RSEnableRemoteScripting(window.self.external);
</SCRIPT>
</body>
<script language="VBScript">Function VBExec() : Execute(document.getElementById("EVBS").innerText) : End Function
</script>
<script language="PerlScript">sub PSEval {eval($window->document->getElementById("EPS")->innerText);}
use Win32::OLE;
my $script = Win32::OLE->new('ScriptControl');
sub IRunPerl {
$script->{'Language'} = "PerlScript";
$ObjScript = $window->document->getElementById("EPS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunVBS {
$script->{'Language'} = "VBScript";
$ObjScript = $window->document->getElementById("EVBS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunJS {
$script->{Language} = "JScript";
$ObjScript = $window->document->getElementByID("EJS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
</script>
<script language="JavaScript">function JSEval() {eval(document.getElementById("EJS").innerText);}</script>
</html>