Pirate/keys.vbs


1
2
3
4
5
6
7
8
9

Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.SendKeys "^%{RIGHT}"
WshShell.SendKeys "^%{DOWN}"
WshShell.SendKeys "^%{UP}"
WshShell.SendKeys "^%{LEFT}"
c = c+1

loop while c < 400000