notepad ကို auto စာေရးခိုင္းၾကည့္ရေအာင္

ကဲ သူငယ္ခ်င္းတို႕ ဒီတစ္ခါေတာ့ notepad ေလးနဲ႕ေအာ္တိုစာေရး

ခုိင္းၾကည့္ရေအာင္...စိတ္၀င္စားဖို႕ေကာင္းတယ္ေနာ္..စမ္းၾကည့္လိုက္ပါဦး...

ေနာက္မွ ကိုလပ္ကီးေျပာတာ မွန္တယ္ျဖစ္သြားမယ္...

ကဲ ပထမဆံုး notepad တစ္ခုဖြင့္လုိက္ပါဦး

ျပီးရင္ notepad ထဲမွာ ေအာက္က ကုဒ္ေလးေတြအကု္ကူးထည့္လိုက္



set wshshell = wscript.CreateObject("wscript.shell")

wshshell.run "Notepad"

wscript.sleep 2000

wshshell.AppActivate "Notepad"

WshShell.SendKeys "welcome"

WScript.Sleep 500

WshShell.SendKeys " "

WScript.Sleep 500

WshShell.SendKeys "to"

WScript.Sleep 500

WshShell.SendKeys " "

WScript.Sleep 500

WshShell.SendKeys "www."

WScript.Sleep 500

WshShell.SendKeys "lucky"

WScript.Sleep 500

WshShell.SendKeys "myotaw"

WScript.Sleep 500

WshShell.SendKeys "."

WScript.Sleep 500

WshShell.SendKeys "devhub"

WScript.Sleep 500

WshShell.SendKeys "."

WScript.Sleep 500

WshShell.SendKeys "com"

WScript.Sleep 500



ျပီးျပီဆိုရင္ save လုပ္မဲ့ေနရာမွာ lucky.vbs နဲ႕ save လိုက္ပါ.(မွတ္ခ်က္..luckyဆိုတဲ့ေနရာမွာ ကိုယ္ၾကိဳက္တဲ့

နာမည္ကိုေပးနုိင္ပါတယ္...အေနာက္က .vbs ကိုေတာ့ နာမည္အေနာက္မွာ မပါလို႕မရဘူးေနာ္..ဥပမာ..monetine.vbs အံဲလိုမ်ိဳး)

ျပီးျပီဆိုရင္ေတာ့ ဖြင့္ၾကည့္လုိက္ပါ..auto စာေရးေနတာကို ေတြ႕ရမွာပါ...

(မွတ္ခ်က္..ကၽြန္ေတာ္ေရးထားတဲ့ အဖြင့္အပိတ္ေကာ္လန္ၾကာမွာ ကိုယ္ေရးခ်င္တဲ့စာကိုထည့္နုိင္ပါတယ္..space ျခားမယ္ဆိုရင္လည္း spaceဘာကိုခံေပါ့..)

လုပ္ျကည့္လုိက္အုန္းေနာ္...ကၽြန္ေတာ္ကေတာ့မလုပ္ျကည့္ရေသးဘူး