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

---

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 10000
loop

با این کد ، CDROM شما هر ۱۰ ثانیه باز و بسته خواهد شد. در صورتی که خواستید مقدار آن را عوض کنید در این قسمت از سورس کد بالا:

wscript.sleep 10000

مقدار عددی را تغییر بدید. (هر ۱۰۰۰ میلی ثانیه مساوی ۱ ثانیه است)

برای این برنامه هم ممکنه آنتی ویروس پیغام خطر بده! اما مطمئن باشد مشکلی برای کامپیوتر شما ایجاد نمیکنه.

پسوندvbs

موضوعات مرتبط: کامپیوتر ، ترفند
برچسب‌ها: ویروس شوخی , ویروس سرکاری , راه های ساخت ویروس , ویروس باز و بسته شدن سی دی رام

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