comedy script

အရင္ဆံုးးေအာက္က code ေလးေတြကို notepad ထဲကို copy ကူး ၊ file name ကိုေတာ့ မိမိစိတ္ၾကိဳက္ သတ္မွတ္ေပးၿပီး extension မွာေတာ့ .vbs နဲ ့.. သိမ္းေပးပါ.. ။ ဥပမာ .. mmitd.vbs ေပ့ါ .. ။ အေနာက္က .vbs နဲ ့ဆံုးရပါမယ္ .. ။
MsgBox "Hello All Of MMiTD Users (Htet Zaw) "
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
အဲ့တစ္ခု ကို သိမ္းၿပီးၿပီ ဆိုရင္ေတာ့ run ၾကည့္ၿပီးး  ....ၾကိဳက္တဲ့ ေနရာမွာ .. ၾကိဳက္သလို .. စာရိုက္လို ့ရပါၿပီ ခင္ဗ်ာ .... ။ (စမ္းၿပီး ရိုက္ၾကည့္လိုက္ပါ ... ။ ) ။အ့ဲဒါကို .. ဖ်က္ခ်င္တယ္ဆိုရင္ေတာ့ ...... ??? အဲ့ေလာက္ဆို .. အိပ္ခ်င္ေနတဲ့ ..မ်က္လံုးေတြနဲ ့..ညစ္ေနတဲ့ စိတ္ေတြ .. နည္းနည္းေတာ့ ေျဖေလ်ာ့လာၿပီလို ့ထင္ပါတယ္ .... ။ အဲ့ဒါဆို .. အဲ့စိတ္ေတြ လံုးလံုးေပ်ာက္သြားေအာင္ ....ကြန္ပ်ဴတာ  အသံုးျပဳရမွာ ... ကၽြန္ေတာ္ အပ်င္းဆံုးက .. CD Drive ကို ဖြင့္ရမွာပါပဲ ...။ Open button ေလးကို ကၽြန္ေတာ္ သြားကိုု မႏွိပ္ခ်င္တာ ... ။ အဲ့ဒါနဲ ့.. ဘယ္လို လုပ္လို ့ရႏိုင္လဲ .. စဥ္းစား ၾကည့္လိုက္ေတာ့ ... ဒီလိုေလးး အေျဖထြက္လာပါတယ္ ... ။အဲ့ဒါေၾကာင့္.......ကြန္ပ်ဴတာ အသံုးျပဳတဲ့ Users ေတြ အားလံုးးး CD Drive ကို Open မႏွိပ္ရေအာင္ ... ဒီကုတ္ေလးေတြကို notepad ထဲေကာ္ပီ ကူးး ၊ ထံုးစံအတိုင္းး .vbs နဲ ့သိမ္း ၊  Desktop ေပၚ တင္ထားၿပီး CD Drive ဖြင့္ခ်င္တဲ့အခ်ိန္တိုင္းး အဲ့ ဖိုင္ေလးကိုပဲ .. double click ေပးရံုနဲ ့လြယ္လြယ္ Eject လုပ္ႏိုင္ပါတယ္ ...
eg - cdopen.vbs
 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 1
loop
ကဲ ... အဲ့ဒါဆို .. Open ႏွိပ္ေပးစရာကို မလိုေတာ့ဘူး ဗ်ာ ... ။အဲ့ဒါကို ဖ်က္ခ်င္တယ္ဆိုရင္ေတာ့ ..... ??? အဲ့ေလာက္ဆိုရင္ေတာ့ . .. စိတ္ညစ္ေတြ ေျပ ၊ အိပ္ခ်င္ေျပေလာက္ၿပီ ထင္ပါတယ္ ... ။ အ့ဲဒါဆို .. ကၽြန္ေတာ္တို ့..ကြန္ပ်ဴတာက KeyBoard ေလးနဲ ့ပဲ .. Disco မီးလံုးေလးေတြ ထြန္းလိုက္ရေအာင္ဗ်ာ ... ။
 Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

အဲ့ code ေလးေတြကို .. keyboard.vbs လို ့သိမ္းၿပီးး run ေပးလိုက္ပါ ... ။ အဲ့ဒါဆိုရင္ေတာ့ .. KeyBoard ေပၚက .. caps lock , num lock နဲ ့.. scroll lock ဆိုတဲ့ .. မီးေလး သံုးလံုးနဲ ့.. Disco ေတြ .. Dance လို ့ရပါၿပီ ... ။ (Laptop မွာဆိုရင္ေတာ့ .. သိပ္မလွဘူးဗ်... Desktop က Keyboard နဲ ့မွ ... လွသြားမွာ ... ) အဲ .. .. မ က ခ်င္ေတာ့ဘူး ဆိုရင္ေတာ့ .. ??? ေနာက္တစ္မ်ိဳး ထပ္စမ္းမယ္ဗ်ာ... ။ အဲ့ဒါဆို ... ။ ကြန္ပ်ဴတာကို ... ကိုယ္ၾကိဳက္တာ ရိုက္ခိုင္းၿပီးး စကား ေျပာခိုင္းရေအာင္ဗ်ာ ... ။ ဒါေလးကေတာ့ ..မေနာက္ေတာ့ပါဘူး ဗ်ာ . ။ တကယ္ ေျပာခိုင္းမွာပါ ... ။Dim msg, sapi
msg=InputBox("Hello All Of MMiTD Users (Htet Zaw)","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
 အဲ့ဒါေလးကို talk.vbs ဆိုၿပီး သိမ္း ၊ run ၿပီးး ေပၚလာတ့ဲ text box ေလးမွာ .. ကိုယ္ စကား ေျပာခ်င္တဲ့ ... စာေၾကာင္းေလး ရိုက္ၿပီး OK သာ ႏွိပ္ေပးလိုက္ပါ ... ။ ကြန္ပ်ဴတာ က ထၿပီးး စကား ေျပာပါလိမ့္မယ္... ။အဲ့ေလာက္ဆိုရင္ေတာ့ .. VB Script Code ေလးေတြနဲ ့.. ေတာ္ေတာ္ အပ်င္းေျပေလာက္ၿပီ ထင္ပါတယ္ဗ်ာ ... ။ အဲ့ဒါဆို ... CD Drive ကို ... Open Button ႏွိပ္စရာ မလိုပဲနဲ ့... အဆင္ေျပေအာင္ ... ကၽြန္ေတာ္ ေနာက္ထပ္ တစ္ခု .. ထပ္ေရးေပးထားပါတယ္ဗ်ာ ... ။ ဒီတစ္ခါေတာ့ ..တကယ္ .. အေကာင္းေရးထားတာပါ .. ။ Open Button ႏွိပ္စရာ မလိုေအာင္ ... တစ္ခါတည္းး ဖြင့္ေပးမဲ့.. ကုတ္ေလးပါ... ခင္ဗ်ာ ... ။ စိတ္ၾကိဳက္ အသံုးျပဳလို ့ရပါတယ္ ... ။
 Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
        For i = 0 to colCDROMs.Count - 1
                colCDROMs.Item(i).Eject
        Next ' cdrom
End If
cdopen1.vbs ေလးနဲ ့သိမ္းၿပီးး မိမိတို ့၏ CD Drive မ်ားကို .. အဲ့ ဖိုင္ေလးကိုပဲ Double Click ႏွိပ္ၿပီး လြယ္ကူစြာ .. Eject လုပ္ႏိုင္ပါတယ္ ခင္ဗ်ာ ... ။အေပၚ က ကၽြန္ေတာ္ ေပးထားတဲ့ခဲ့တဲ့ .. ကုတ္ေတြ ေၾကာင့္ . စိတ္အေႏွာင့္အယွက္ ျဖစ္ရတယ္ဆိုရင္ေတာ့ . ၾကိဳၿပီး ေတာင္းပန္ထားလိုက္ပါတယ္ ခင္ဗ်ာ ... ။ ပ်င္းေနတဲ့ .. စိတ္ေတြ ၊ စိတ္ညစ္ေနတဲ့ စိတ္ေတြ .. ေျဖေဖ်ာက္ေအာင္လို ့.. တမင္ ..ေပ်ာ္ေအာင္ တင္ေပးလိုက္တာပါ ခင္ဗ်ာ ... ။ အဲ့ ကုတ္ေလးေတြကို ပိတ္ခ်င္ရင္ေတာ့ .. task manager ကို ေခၚၿပီး processes ဆိုတ့ဲ tab မွာ .. wscript.exe ဆိုတဲ့ ... process ေလးကို end process ေပးၿပီး ပိတ္ပစ္ ႏိုင္ပါတယ္ ခင္ဗ်ာ ... ။

အားလံုးပဲ .. အဆင္ေျပ ..ေခ်ာေမြ ့စြာနဲ ့...ကုတ္ေတြကို .. စမ္းႏိုင္ၾကပါေစခင္ဗ်ာ ... ။