ကြ်န္ေတာ္ စိတ္ကူးေပါက္တာနဲ႕ ေလွ်ာက္ေရးထားတာ
VBS script ေလးပါ
ခ်စ္တယ္ လို႕ ေအာ္ေအာ္ေျပာတယ္ဗ် ဟဲ ဒါေပမယ့္ သိပ္ေတာ့မပီဘူး

save as .vbs

Code:


WScript.Sleep 50
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Ma"
WScript.Sleep 500
WshShell.SendKeys " Ma"
WScript.Sleep 500
WshShell.SendKeys " I l"
WScript.Sleep 500
WshShell.SendKeys "ove"
WScript.Sleep 500
WshShell.SendKeys " yo"
WScript.Sleep 500
WshShell.SendKeys "u so"
WScript.Sleep 500
WshShell.SendKeys " muc"
WScript.Sleep 500
WshShell.SendKeys "h :*"
WScript.Sleep 500
WshShell.SendKeys "Ar "
WScript.Sleep 500
WshShell.SendKeys "Pwa"
WScript.Sleep 500
WshShell.SendKeys "rrr"
WScript.Sleep 500
WshShell.SendKeys "rrr !"
WScript.Sleep 500
WshShell.SendKeys ":P "
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "fak"
WScript.Sleep 500
WshShell.SendKeys "e "
WScript.Sleep 500
WshShell.SendKeys "Vir"
WScript.Sleep 500
WshShell.SendKeys "us "
WScript.Sleep 500
WshShell.SendKeys "By"
WScript.Sleep 500
WshShell.SendKeys " Tw"
WScript.Sleep 500
WshShell.SendKeys "o Tw"
WScript.Sleep 500
WshShell.SendKeys "o "
Set kader = WScript.CreateObject("SAPI.SpVoice" )
kader.Speak "Ma Ma Ko Chit Dae"
msgbox"Ma Ma Ko Chit Tal"
msgbox"I Love You Ma Ma"
msgbox"I'm gonna prove how much I love you "
msgbox"I'm gonna say chit tal "
msgbox"please listen it "
msgbox"ok ! listen!"
kader.Speak "Chit Dae"
msgbox"I Love You Ma Ma"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
kader.Speak "A Yan Chit Dae"
msgbox"I Love You Ma Ma"
msgbox"chit tal Ma Ma"
msgbox"chit tal Ma Ma"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
msgbox"chit tal Ma Ma"
msgbox"chit tal Ma Ma"
kader.Speak "Chit Dae"
msgbox"A Yan Chit Tal Ma Ma"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
msgbox"chit tal Ma Ma"
msgbox"chit tal Ma Ma"
kader.Speak "Chit Dae"
msgbox"A Yan Chit Tal Ma Ma"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
msgbox"I Love You Ma Ma"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
kader.Speak "A Yan Chit Dae"
msgbox"I Love You Ma Ma"
msgbox"chit tal Ma Ma"
msgbox"chit tal Ma Ma"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
kader.Speak "Chit Dae"
msgbox"chit tal Ma Ma"
Dim wshshell
set wshshell = wscript.Createobject("WScript.Shell" )
wshshell.run "shutdown -s -t 90 -c Sorry the virus was instaledl!!!"

အစ္ကိုေရ..ခ်စ္တယ္ေအာ္တာကနည္းနည္း...ကိုယ္ခံရမွာက မ်ားမ်ားထင္တယ္ေနာ္....

laminphyulin wrote:အစ္ကိုေရ..ခ်စ္တယ္ေအာ္တာကနည္းနည္း...ကိုယ္ခံရမွာက မ်ားမ်ားထင္တယ္ေနာ္....
Razz Razz

ဟဲ ဒါေတာင္ loop မထည့္ထားဘူးေနာ္ ...

ခံရမွာမ်ားေနမွာေၾကာက္ရင္
အဲဒီမွာ ေလွ်ာ့လို႕ရပါတယ္
၁၀ ေၾကာင္းေလာက္ျဖစ္ေနရင္ ၅ ေၾကာင္းေလာက္ပဲထားလိုက္ေပါ့

have a fun