' Demonstration von SendKeys()

OPEN ENVIRON$("TEMP") + "\~SNDKEYS.VBS" FOR OUTPUT AS 1
PRINT #1, "Option Explicit"
PRINT #1, "Dim oSh"
PRINT #1, "Set oSh = CreateObject(" + CHR$(34) + "WScript.Shell" + CHR$(34) + ")"
PRINT #1, "oSh.Run " + CHR$(34) + "notepad" + CHR$(34)
PRINT #1, "WScript.Sleep 1000"
FOR i% = 1 TO 44
  PRINT #1, "oSh.SendKeys " + CHR$(34) + MID$("Hallo, dies wird wie von Geisterhand getippt", i%, 1) + CHR$(34)
  PRINT #1, "WScript.Sleep 100"
NEXT i%
PRINT #1, "Set oSh=Nothing"
CLOSE 1
SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~SNDKEYS.VBS"
KILL ENVIRON$("TEMP") + "\~SNDKEYS.VBS"