Допустим, кто-то занял комп(против неламеров не работает

) и вам нужно его согнать или вы просто решили подшутить над другом.
Берем отсюда мою либу -
http://rghost.ru/2573242
Мы всего лишь заствим пользователя выдернуть из розетки компьютер.
SeedRnd Millisecs()
While 666
Kb_Hit Rand(1,255)
Wend
Если стоит вин7, то начнут вылетать калькуляторы, медиаплееры и окна неизвестного назначения пока не вылетит экран смерти(либо комп просто повиснет). В других ос не знаю что будет.
Обдумывать и редактировать вышенаписаное нет времени - в школу надо бежать.