Virus na otevírání dvd mechaniky

Nejprve si vytvoříme Poznámkový blog a okopírujeme toto označením a současným stisknutím kláves

Ctrl + C. :

 

MsgBox"xxx-pc"

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.count>=1then

for i =0to colCDROMs.count - 1

colCDROMS.Item(i).Eject

next ' cdrom

End if

 

Nyní předchozí text vložíme do programu Poznámkový blog tím že klepneme do volného pole Poznámkového blogu pravým tlačítkem myši a vybereme příkaz Vložit, nebo vložíme kla. zkratkou ctrl + v.  V prvním řádku u MSG BOX - napíšeme místo nějaký text váš text, který chcete aby se v okně před otevřením mechaniky objevin. Nyní máme text vložen.

 

Nyní na uložení viru klepněte na tlačítko Soubor a klepněte na tlačítko Uložit jako. Vyberte umístění a do políčka název souboru vepiště název viru a zaním napiště koncovku .vbs (jako např. virus.vbs). Roletovou nabídku můžeme nechat tak jak je ale rozbalte roletovou nabídku Kodování, vnímž klepněte na příkaz Unicode. Nyní můžete uložit virus tlačítkem Uložit.