[EHunt]

jetzt hett ich fast das script vergessen.

----------------------------------------------

' ************************************************** *
'
' Willkommen zu EHunt`s Tok - Programm
'
' Version 1.0
'
' ************************************************** *

Set shell = CreateObject("wscript.shell")

Set shell2 = CreateObject("wscript.shell")

b = InputBox ("Wie Oft soll das Script ausgefürht werden?" & vbCrLf & _
"Das Programm startet in 6 Sekunden")



' mit der Variable "b" sage ich dem Programm wie oft es sich ausführen
' soll, damit ich es nicht andauernd starten oder beenden muss.


'* shell2.Run "notepad"
'* WScript.Sleep 500
'* shell2.AppActivate "notepad"

' mit dem oberen Argument "AppActivate" wollte ich das Programm an einen
' Prozess binden. Aber es öffnet nur ein neues Fenster - und bindet
' den Fokus nicht darauf.


a=0

Do

WScript.Sleep 6000

shell.SendKeys "text 1"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 60000

shell.SendKeys "text 2f"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 60000

shell.SendKeys "text 3"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 60000

shell.SendKeys "text 4"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 80000

shell.SendKeys "text 5"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 80000

shell.SendKeys "text 6"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 50000

shell.SendKeys "text 7"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 60000

shell.SendKeys "text 8"
WScript.Sleep 500
shell.SendKeys "~"
WScript.Sleep 333000


a=a+1
Loop Until a >= b


---------------------------------------------------------------

das wars