Re: Un tag pour les gouverner tous

[^] # Re: Un tag pour les gouverner tous

Posté par ɹǝɓuᴉɹǝɐH ʅǝnuɐɯɯƎ-sᴉxǝʅⱯ le 04 mars 2016 à 20:44. En réponse à la dépêche Et si JavaScript allait droit dans le mur ?. Évalué à 3.

Votre rêve existe, Microsoft l'a fait ! :)

<Job Id="WshShell">
<script language=PerlScript>
 $WshShell = $WScript->CreateObject("WScript.Shell");
 $WshShell->Run("notepad");
 $WshShell->AppActivate("Sans titre - Bloc-notes");
 my $message = "J aime l activX PerlScript !\n";
 for($i=0; $i < length($message); $i++) {
 $char = substr($message, $i, 1);
 $WScript->Sleep(100);
 $WshShell->SendKeys($char);
 }
</script>
</job>