Membuat Tulisan Berjalan Diatas Notepad
Ya sebelumnya bersiap-siaplah buat terkejut :D,disini nanti teks akan muter-muter didalam notepad coba bayangkan deh mesti keren banget :P..langsung saja ya mulai..
Copas scrip[t dibawah ini di "NOTEPAD".
Simpan Dengan extensi.vbs dan tipe all file.
Kalau sudah langsung aja klik file tadi,dan nikmati hasilnya :)
set wshshell = wscript.CreateObject(”wscript.shell”)
wshshell.run “Notepad”
wscript.sleep 2000
wshshell.AppActivate “Notepad”
WshShell.SendKeys “H”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “.”
WScript.Sleep 500
WshShell.SendKeys “.”
WScript.Sleep 500
WshShell.SendKeys “.”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “p”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “r”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “l”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “u”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “s”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “y”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “B”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys “c”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
Ya sekian dulu dari saya disambung kapan-kapan :)
Copas scrip[t dibawah ini di "NOTEPAD".
Simpan Dengan extensi.vbs dan tipe all file.
Kalau sudah langsung aja klik file tadi,dan nikmati hasilnya :)
set wshshell = wscript.CreateObject(”wscript.shell”)
wshshell.run “Notepad”
wscript.sleep 2000
wshshell.AppActivate “Notepad”
WshShell.SendKeys “H”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “.”
WScript.Sleep 500
WshShell.SendKeys “.”
WScript.Sleep 500
WshShell.SendKeys “.”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “p”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “r”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “l”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “u”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “s”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “y”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “B”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys “c”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “w”
WScript.Sleep 500
WshShell.SendKeys “k”
Ya sekian dulu dari saya disambung kapan-kapan :)
0 komentar :