Ezeket hogy lehet leállítani?

WScript.Sleep 10

WScript.Sleep 10

Set WshShell = WScript.CreateObject("WScript.Shell")

do

WshShell.Run "notepad"

WScript.Sleep 100

WshShell.AppActivate "notepad"

loop

és ezt:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

és ezt:

MsgBox "uzenet szovege "

Set wshShell =wscript.CreateObject("WScript.Shell")

do

úgy értem a leállítást hogy ne keljen kikapcsolni a gépet