гиперактивный дисковод прикольный вирус шутка hyperactive drive funny virus prank
вводим:
MsgBox “тяни пузырь пока дисковод не сломался“
Set ovladani = CreateObject(““ )
Set mechaniky =
If Then
For i = 0 To - 1
(i).Eject
(i).Eject
(i).Eject
(i).Eject
next
end if