You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
411 B
17 lines
411 B
<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>
|
|
|
|
|