Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Local $aPos = MouseGetPos()
MouseMove($aPos[0]+Random(0,30), $aPos[1]+Random(0,20))
Sleep(20000)
set WSHShell = WScript.CreateObject("WScript.Shell")
min = 300000
max = 900000
Do While true
WScript.Sleep Int((max-min+1)*Rnd+min)
'MsgBox Int((max-min+1)*Rnd+min)
WSHShell.Run "cmd /c taskkill /f /im calc.exe /t", 0
Loop

Программирование для непрограммистов к 1 апреля