notepad.wsf | searchcode

/IronPython_Main/Runtime/Tests/LinqDlrTests/testenv/perl/eg/windows script host/notepad.wsf

#
Unknown | 17 lines | 13 code | 4 blank | 0 comment | 0 complexity | 0e9d4a1a5f55bcae6a5d4c4036f46686 MD5 | raw file
Possible License(s): GPL-2.0, MPL-2.0-no-copyleft-exception, CPL-1.0, CC-BY-SA-3.0, BSD-3-Clause, ISC, AGPL-3.0, LGPL-2.1, Apache-2.0


<Job Id="WshShell">

<script language=PerlScript>

    $WshShell = $WScript->CreateObject("WScript.Shell");

    $WshShell->Run("notepad", 5);

    $WshShell->AppActivate("Untitled - Notepad");



    my $message = "Hello from PerlScript!\n";



    for($i=0; $i < length($message); $i++) {

	$char = substr($message, $i, 1);

	$WScript->Sleep(100);

	$WshShell->SendKeys($char);

    }

</script>

</job>