Myanmar IT Resource Forum
Myanmar IT Resource Forum

You are not connected. Please login or register

View previous topic View next topic Go down  Message [Page 1 of 1]

#twotwo22#


MITR Beginner



MITR Beginner
ကြ်န္ေတာ္ စိတ္ကူးေပါက္တာနဲ႕ ေလွ်ာက္ေရးထားတာ
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


MITR Reader



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

http://www.ymttu.co.cc

#twotwo22#


MITR Beginner



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

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

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

have a fun

Sponsored content


View previous topic View next topic Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum

 

Free forum | © PunBB | Free forum support | Contact | Report an abuse | Free forum