Chip 2000 May/Chip_2000-05_cd1.bin/zkuste/Perl/ActivePerl-5.6.0.613.msi/䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥/_7b5e8f3302595d6855fb985e828267db

Text File | 2000-03-15 | 406b | 18 lines

<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>