এর জন্য 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 5000 loop এবার সেভ করুন "Anyname.VBS" নামে এবং চালু করে মজা দেখুন। কম্পিউটারের Caps Lock বাটন বারবার অন-অফ হবে: এর জন্য Notepad এ নিচের কোড টাইপ করুন- Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop এবার সেভ করুন "Anyname.VBS" নামে এবং চালু করে মজা দেখুন। বিভিন্ন Message বারবার দেখাবে: এর জন্য Notepad এ নিচের কোড টাইপ করুন- @ECHO off :Begin msg * Hi msg * Are you having fun? msg * Yes I am! msg * Lets have fun together! msg * Because you have been o-w-n-e-d GOTO BEGIN এবার সেভ করুন "Anyname.BAT" নামে এবং এর পর ফাইল টা চালু করে মজা দেখুন। কম্পিউটারে শাট-ডাউন এর ম্যাসেজ দিবে এবং বন্ধ হয়ে যাবে: এর জন্য Notepad এ নিচের কোড টাইপ করুন- @echo off msg * I don't like you shutdown -c "Error! You are too stupid!" -s এবার সেভ করুন "Anyname.BAT" নামে এবং চালু করে মজা দেখুন। কীবোর্ডকে ইমুলেট করে বারবার "তুমি একটা বোকা" লিখা: এর জন্য Notepad এ নিচের কোড টাইপ করুন- Hack your friend's keyboard and make him type "You are a fool" simultaneously: Type : Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "You are a fool." loop এবার সেভ করুন "Anyname.VBS" নামে এবং চালু করে মজা দেখুন।