ساخت یک ویروس سرکاری و اعصاب خورد کن دیگر
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
و start task manager رو انتخاب کنید و در پنجره ی باز شده processes رو انتخاب کنید و روی wscript.exe کلیک کنید و بعد هم روی end process و از شما یک سوال می پرسه و شما دوباره روی end process کلیک کنید .
دریافت فایل آماده
حجم: 301 بایت
نویسنده : Killer_32