Morsealfabetet tangentbord (2 / 5 steg)
Steg 2: vbs-filer (innehåll-nummer + space)
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta 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
Sätta wshShell = wscript. CreateObject("WScript.Shell")
WScript.Sleep 2100