home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Australian Personal Computer 2004 July
/
APC0407D2.iso
/
workshop
/
apache
/
files
/
ActivePerl-5.6.1.638-MSWin32-x86.msi
/
_d3ffc6faf236a91607b7122c76e84d84
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
2004-04-13
|
411 b
|
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>