ဒါေလးေတြကေတာ့ အခ်င္းခ်င္း စခ်င္၊ ေနာက္ခ်င္ သူမ်ားအတြက္ပါ..။ Childs Play ေလးေတြေပါ့.. Notepad နဲ႔ ေရးလိုက္ျပီး ေျပာထားတဲ့ ပံုစံအတိုင္း save ရံုပါပဲ။ ဘာမွ သိပ္ထူးဆန္းတာ မဟုတ္တဲ့အတြက္ သိျပီးသားလူမ်ားအတြက္ေတာ့ မဟုတ္ပါဘူး...။
CD drive ကုိ ပိတ္လိုက္၊ဖြင့္လိုက္ လုပ္ေစရန္-
အေပၚကကုတ္ေတြကို notepad ထဲကူးျပီး .vbs နဲ႔ save ပါ...။
---------------------------------------------------------------------------------------------------------------
Caps Lock ကို ပိတ္လိုက္၊ ဖြင့္လိုက္ လုပ္ရန္-
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
.vbs နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
Enter ကို ဆက္တိုက္ႏွိပ္ေနေစရန္-
.vbs န႔ဲ save ပါ။
---------------------------------------------------------------------------------------------------------------
စာရိုက္မရေအာင္ Backspace ႏွိပ္ေနရန္-
.vbs နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
Notepad ကိုဆက္တိုက္ပြင့္ေနေစရန္-
@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top
.bat နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
မက္ေဆ့ေပၚလာျပီး Shutdown က်ေစရန္-
.bat နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
အဲ့ဒါေလးေတြကို run ျပီး ျပန္ရပ္ခ်င္ရင္ေတာ့ Ctrl+Alt+Delete နဲ႔ Task Manager ေဖာ္ျပီး End Process ေပးလိုက္ရင္ ရပါတယ္။
စိတ္ဆိုးတတ္တဲ့ သူငယ္ခ်င္းေတြကိုေတာ့ သြားမစနဲ႔ေပါ့ဗ်ာ...။
CD drive ကုိ ပိတ္လိုက္၊ဖြင့္လိုက္ လုပ္ေစရန္-
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
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
အေပၚကကုတ္ေတြကို notepad ထဲကူးျပီး .vbs နဲ႔ save ပါ...။
---------------------------------------------------------------------------------------------------------------
Caps Lock ကို ပိတ္လိုက္၊ ဖြင့္လိုက္ လုပ္ရန္-
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
.vbs နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
Enter ကို ဆက္တိုက္ႏွိပ္ေနေစရန္-
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
.vbs န႔ဲ save ပါ။
---------------------------------------------------------------------------------------------------------------
စာရိုက္မရေအာင္ Backspace ႏွိပ္ေနရန္-
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
.vbs နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
Notepad ကိုဆက္တိုက္ပြင့္ေနေစရန္-
@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top
.bat နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
မက္ေဆ့ေပၚလာျပီး Shutdown က်ေစရန္-
@echo off
msg * Ha Ha...!
shutdown -c "You are Fool!" -s
msg * Ha Ha...!
shutdown -c "You are Fool!" -s
.bat နဲ႔ save ပါ။
---------------------------------------------------------------------------------------------------------------
အဲ့ဒါေလးေတြကို run ျပီး ျပန္ရပ္ခ်င္ရင္ေတာ့ Ctrl+Alt+Delete နဲ႔ Task Manager ေဖာ္ျပီး End Process ေပးလိုက္ရင္ ရပါတယ္။
စိတ္ဆိုးတတ္တဲ့ သူငယ္ခ်င္းေတြကိုေတာ့ သြားမစနဲ႔ေပါ့ဗ်ာ...။
No comments:
Post a Comment