Побродил 5 минут по форумам для ламеров, объясняющим функцию рандома и объявлние переменных и создал...
Migalka v 1.1:
* Теперь лампочки мигают в рандомной последовательности.
* Рационализирован код.
Set s = CreateObject("Wscript.Shell")
dim param
do
param=int(3*rnd)
if param=0 then s.sendkeys"{numlock}"
if param=1 then s.sendkeys"{capslock}"
if param=2 then s.sendkeys"{scrolllock}"
Wscript.sleep 80
loop
Создание программы аналогично - открываете блокнот, копируете, сохраняете как "Migalka.vbs", открываете дабл кликом.
