Сейчас вы узнаете очередной прием, который заставит вас получить немало удовольствия. Наблюдайте за тем, как сходит с ума дисковод друга, а возможно и сам он.
Используя свой компьютер, создайте в любой рабочей области текстовый документ в Блокноте. Пробейте в нем следующий:
Set ovladani = CreateObject(”WMPlayer.OCX.7″ )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count – 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Можно заметить, что последние две строчки одинаковы. Первая из них заставляет дисковод открываться, а вторая закрываться. Выходит что количество открытий и закрытий дисковода, зависит от того, сколько раз прописаны данные парные строки. Проще говоря, число строк должно быть четным.
Следующий шаг заключается в способе внедрения другу данной программы. Это можно сделать, вызвав на помощь приложения для обмена данными, социальные сети, флешки и т.д., каких в наше время ой как немало. В идеале, если вы имеете возможность присесть за дружеский компьютер, то просто добавьте данную программу в меню автозапуска. Завершить все это безумие так же очень просто, достаточно открыть диспетчер задач и завершить процесс, который будет называться вот так: «Vbscript.exe». Дерзайте!
Источник