PageRenderTime 4ms CodeModel.GetById 2ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/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
 1<Job Id="WshShell">
 2<script language=PerlScript>
 3    $WshShell = $WScript->CreateObject("WScript.Shell");
 4    $WshShell->Run("notepad", 5);
 5    $WshShell->AppActivate("Untitled - Notepad");
 6
 7    my $message = "Hello from PerlScript!\n";
 8
 9    for($i=0; $i < length($message); $i++) {
10	$char = substr($message, $i, 1);
11	$WScript->Sleep(100);
12	$WshShell->SendKeys($char);
13    }
14</script>
15</job>
16
17