Cara Membuat Notepad Mengetik Tulisan Sendiri
Cara membuatnya :
1. Buka notepad
2. masukkan script
ini lalu simpan :
set wshshell =
wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "F"
WScript.Sleep 500
WshShell.SendKeys "R"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "Z"
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "F"
WScript.Sleep 500
WshShell.SendKeys "R"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "Z"
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys "Z"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys
"T"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "."
3. Tambahkan.vbs pada bagian belakang file name
4. Ubah save as type menjadi all files
5. Klik save
WScript.Sleep 500
WshShell.SendKeys "."
3. Tambahkan.vbs pada bagian belakang file name
4. Ubah save as type menjadi all files
5. Klik save
Comments
Post a Comment