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
কম্পিউটারের Caps Lock বাটন বারবার অন-অফ হবে: এর জন্য Notepad এ নিচের কোড টাইপ করুন-
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
বিভিন্ন 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
কম্পিউটারে শাট-ডাউন এর ম্যাসেজ দিবে এবং বন্ধ হয়ে যাবে: এর জন্য Notepad এ নিচের কোড টাইপ করুন-
@echo off
msg * I don’t like you
shutdown -c “Error! You are too stupid!” -s
কীবোর্ডকে ইমুলেট করে বারবার “তুমি একটা বোকা” লিখা: এর জন্য 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