یک ویروس ساده

این کد ها رو در notepad کپی کنید :

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 میتوانید 8000 را تغییر دهید

و در آخر با فرمت vbs. سیو کنید .

?️ اگر میخواد ان را غیر فعال کنید کلید های Ctrl + Alt + Delete و start task manager رو انتخاب کنید و در پنجره باز شده processes رو انتخاب کنید و روی wscript.exe کلیک کنید و بعد روی end process کلیک و بعد روی end process کلیک کنید .?️

?امکان دارد در برخی کامپیوتر ها اجرا نشود .