Bat Command ေလးေတြ လုိတဲ့ေနရာမွာသုံးဖုိ႔ေပါ့

Make 1000 folder in a few second ဖုိလ္ဒါ အလြတ္ေတြကုိ အခ်ိန္အနည္းငယ္အတြင္းျပဳလုပ္နုိင္တဲ့ Code တစ္ခုပါ စက္ကုိ Hang သြားေစနုိင္ပါတယ္။ျပဳလုပ္ပုံကေတာ့ ေအာက္က ကုတ္ေတြကုိ notepad မွာေရးၿပီး ႀကဳိက္တဲ့ အမည္ေပးၿပီး name.bat ဆုိၿပီး save လုပ္ရမွာပါ။
@echo off:topmk %random%goto top

ေအာက္က ကုတ္ေတြကေတာ့ CD tray ကုိ ဖြင့္လုိက္ပိတ္လုိက္ လုပ္တဲ့ Code ပါ  Set colCDROMs = oWMP.cdromCollection


if colCDROMs.Count >= 1 then



do


For i = 0 to colCDROMs.Count - 1


colCDROMs.Item(i).Eject


Next ' cdrom


For i = 0 to colCDROMs.Count - 1


colCDROMs.Item(i).Eject


Next ' cdrom


loop


end if  သူကေတာ့  Vbs အမ်ဳိးအစားနဲ႔ Save ရမွာပါ ။ ပိတ္ခ်င္ရင္ေတာ့ Taskmanager ဖြင့္ၿပီး wscript.exe ကုိ end process လုပ္ရမွာပါ  

Keyboard က မီးသီးေလးေတြကို ဖြင့္လုိက္ပိတ္လုိက္ကစားတဲ့ကုဒ္ေလးပါ.. notepad ကုိဖြင့္ျပီးေတာ့.. ေအာက္ကကုဒ္ေတြကို ထည့္လုိက္ပါ.. Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{SCROLLLOCK}" loop ျပီးသြားရင္ rom.vbs နမည္နဲ ့ save လုိက္ပါ.. ျပီးရင္ run ၾကည့္ပါ.. ျပန္ပိတ္ခ်င္တယ္ဆုိရင္ Taskmanager ကိုဖြင့္ျပီး Processes တညး္ကိုသြားျပီးေတာ့.. wscript.exe ဆုိတာကို၇ွာျပီး end process လုပ္လုိက္ပါ.   ဒါက ေနာက္တစ္မ်ဳိးပါ Virus Which Will Open and Close Your CD/DVD-Rom Oct 15, '11 1:31 AM for everyone သင့္စက္ရဲ ့ CD/DVD -Rom ေတြကို ၀င္လုိက္ထြက္လိုက္ လုပ္တဲ့ Code ေလးပါ.. notepad ကုိဖြင့္ျပီးေတာ့.. ေအာက္ကကုဒ္ေတြကို ထည့္လုိက္ပါ.. Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then do For i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).Eject Next ' cdrom For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdromloop End If ျပီးသြားရင္ rom.vbs နမည္နဲ ့ save လုိက္ပါ.. ျပီးရင္ run ၾကည့္ပါ.. ျပန္ပိတ္ခ်င္တယ္ဆုိရင္ Taskmanager ကိုဖြင့္ျပီး Processes တညး္ကိုသြားျပီးေတာ့.. wscript.exe ဆုိတာကို၇ွာျပီး end process လုပ္လုိက္ပါ..