'Variante1
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{CAPSLOCK}"
Loop



'Variante2
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
Loop



'Variante3
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{SCROLLLOCK}"
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{CAPSLOCK}"
Loop



'Variante4
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{SCROLLLOCK}"
Loop



'Variante5
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{SCROLLLOCK}"
WshShell.SendKeys "{CAPSLOCK}"
Loop



'Variante6
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
WshShell.SendKeys "{SCROLLLOCK}"
Loop



'Variante7
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 400
Loop



'Variante8
Dim zuf
Dim taste(2)
Randomize
taste(0) = "{NUMLOCK}"
taste(1) = "{SCROLLLOCK}"
taste(2) = "{CAPSLOCK}"
Do
zufall = Cint(Rnd()*2)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys taste(zufall)
WScript.Sleep 400
Loop