Sendkeys in Perl?

[Mr.Kurd]

Hi
weiß jemand wie das hier auch mit Perl geht?:

set wshell = CreateObject("Wscript.Shell")
wscript.sleep 2000 'Zeit um ins Fenster zu springen
'mag er wohl nich ... wshell.Sendkeys("abcdefghijklmnopqrstuvw")
do
wshell.Sendkeys("a")
wshell.Sendkeys("b")
wshell.Sendkeys("c")
wshell.Sendkeys("d")
wshell.Sendkeys("e")
wshell.Sendkeys("f")
wshell.Sendkeys("g")
wshell.Sendkeys("h")
wshell.Sendkeys("i")

 

[keksinat0r]

wie wär's wenn du mal genau erklärst was du machen willst...
Ich zB kann mit deinem "Codebeispiel" net wirklich was anfangen.

 

[2Bios]

Jupp, so ungefähr. Perl in einem WSF-File:

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

 

[Mr.Kurd]

@2Bios
Ja danke,
funktioniert einwandfrei,aber geht sowas auch nicht mit der Endung .pl?