Paso 3: .vbs archivos (contenido-Letras)
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}"
B.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}"
C.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 900
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
D.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}"
E.vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
F.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 300
WshShell.SendKeys "{SCROLLLOCK}"
G.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}"
H.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}"
I.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}"
J.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}"
K.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 900
WshShell.SendKeys "{SCROLLLOCK}"
L.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 300
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
M.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}"
N.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}"
O.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}"
P.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 300
WshShell.SendKeys "{SCROLLLOCK}"
Q.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 900
WshShell.SendKeys "{SCROLLLOCK}"
R.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 300
WshShell.SendKeys "{SCROLLLOCK}"
S.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}"
T.vbs
Set wshShell = wscript. CreateObject("WScript.Shell")
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
U.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}"
V.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}"
W.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}"
X.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 900
WshShell.SendKeys "{SCROLLLOCK}"
Y.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 900
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 300
WshShell.SendKeys "{SCROLLLOCK}"
Wscript.Sleep 900
WshShell.SendKeys "{SCROLLLOCK}"
Z.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}"