| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Program Files (x86)/Certbot/pkgs/win32comext/axscript/test/ |
Upload File : |
<HTML>
<BODY>
A multi-language Active Debugging demo.
<FORM>
<INPUT NAME="Button1"
VALUE="Click for VB to call JScript!"
TYPE="Button"
OnClick="JScriptEntryPoint"
LANGUAGE="VBScript"
>
<INPUT NAME="Button2"
VALUE="Click for VB to call ForthScript!"
TYPE="Button"
OnClick="ForthEntryPoint2"
LANGUAGE="VBScript"
>
</FORM>
<BR>
<!-- We start with JScript code calling Python... -->
<SCRIPT LANGUAGE="JScript">
function JScriptEntryPoint()
{
PythonEntryPoint2();
}
</SCRIPT>
<!-- Python calling Perl -->
<SCRIPT LANGUAGE="Python">
def PythonEntryPoint():
# Perl works as a property.
result = window.PerlEntryPoint
</SCRIPT>
<SCRIPT LANGUAGE="Python">
def PythonEntryPoint2():
a = 1
b = 2
DoTheCall()
def DoTheCall():
a = 2
b = "Hi there"
window.PythonEntryPoint()
c = "Done it!"
</SCRIPT>
<!-- And some Perl code to call VBScript -->
<SCRIPT LANGUAGE="PerlScript">
sub PerlEntryPoint {
$window->VBScriptEntryPoint();
$window->alert("Perl just called VBScript");
}
</SCRIPT>
<!-- VBscript finally calls our Forth Sample -->
<SCRIPT LANGUAGE="VBScript">
Sub VBScriptEntryPoint
call ForthEntryPoint
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="ForthScript">
: ForthEntryPoint
1 0 /
"Forth has no one to call" 1 window.alert call
;
: ForthEntryPoint2
0 window.JScriptEntryPoint call
;
</SCRIPT>
</BODY>
</HTML>