Stap 2: VBS-bestanden (inhoud-nummers + ruimte)
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
1. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
2. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
3. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
4. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
5. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
6. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
7. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
8. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
9. vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
WScript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
SPACE.vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WScript.Sleep, 2100