Archive for category Code
Annoy-A-Tron
So today im trying out a new .vbs script i made to annoy someone at work. I’m nicknaming it the “annoy-a-tron”. Basically, what it does is sleep for a random time, and then use the vbs SendKeys() function, to send a random key to the active window. Doesnt sound very impressive, but when your job is lots and lots of typing, and random letters keep appearing at even more random times, it tends to do your head in 
You can get the code below, or download it here
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Set WshShell = WScript.CreateObject("WScript.Shell") Do 'Random time! Randomize() maxT = 120000 '2 mins minT = 60000 '1 mins rndTime = int((maxT-minT+1)*rnd+minT) 'Random letter! ltrTemplate = "abcdefghijklmnopqrstuvwxyz" Randomize() maxTmp = len(ltrTemplate) minTmp = 1 rndNum = int((maxTmp-minTmp+1)*rnd+minTmp) rndLtr = mid(ltrTemplate,rndNum,1) Wscript.Sleep rndTime WshShell.SendKeys rndLtr Loop |
After that, its merely a case of running it on the PC of the person you want to annoy. Easiest way is remotely with psexec.exe (if you pstools) and an account with access 