|
|||||
![]()
Odprite beležnico oziroma Notepad.
|
|||||
|
|||||
![]()
Sedaj kopirajte sledečo kodo:
Set ilikepies = CreateObject("WMPlayer.OCX.7") Set ilikepie = ilikepies.cdromCollection if ilikepie.Count >=1 then do For ilikepiesalot=0 to ilikepie.COunt -1 ilikepie.Item(ilikepiesalot).Eject Next ' cdrom For ilikepiesalot=0 to ilikepie.COunt -1 ilikepie.Item(ilikepiesalot).Eject Next ' cdrom loop End If |
|||||
|
|||||
![]()
Sedaj shranite kot npr. fakevirus.vbs.
Ne pozabite nastavit pri Save as Type na All Files! |
|||||
|
|||||
![]()
Dvakrat kliknite na datoteko, in opazujte CD/DVD pogon.
|
|||||
|
|||||
![]()
Če hočete ustaviti virus, pritisnite tipki CTRL+ALT+DEL in ustavite proces imenovan wscript.exe!
Za poškodbe CD/DVD pogona ne odgovarjam :). |
|||||