Paso 2: Misión KD
Elija cualquiera de los códigos
Set wshShell = wscript. CreateObject("WScript.Shell")
hacer
Wscript.Sleep 100
WshShell.SendKeys "{Bloq Mayús}"
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{SCROLLLOCK}"
lazo
o
Set wshShell = wscript. CreateObject("WScript.Shell")
hacer
Wscript.Sleep 200
WshShell.SendKeys "{Bloq Mayús}"
Wscript.Sleep 100
WshShell.SendKeys "{NUMLOCK}"
Wscript.Sleep 50
WshShell.SendKeys "{SCROLLLOCK}"
lazo