🌹بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِیمِ🌹

در این پست قصد دارم به شما یاد بدم 2 ویروس شوخکی درست کنید .

ایتدا برنامه ی NOPTE PAD رو باز کنید سپس این متن رو در اون کپی کنید : 

do

msgbox("متن شما ")

loop 

( به جای متن شما متن خودتونو بنویسید و اون رو با فرمت vbs ذخیره کنید ) 

کارایی : این ویروس شوخکی فقط یک متنی رو نشون میده و هرچی ok کنید نمیره :)

ویروس دوم : ویروس CMDROM

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

loop

( با فرمت VBS ذخیره بشه )

کارایی : این ویروس شوخکی CDROM طرف رو هر 10 ثانیه باز میکنه و میبنده و به همین روال 

* موفق و سر بلند باشید *