1. Refresh komputer terus menerus
MsgBox "refresh terus" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{F5}" loop |
2. Layar Penuh Explore
MsgBox "Script ini menarik, cara menghentikannya, buka task manager lalu kill pross" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{F9}" loop |
3. Anti Klik Kanan Komputer
MsgBox "Menghambat aktivitas klik kanan" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "%{F9}" loop |
4. Tutup Semua Aplikasi yang sedang running
MsgBox "Script script ini akan menutup semua program yang berjalan di windows" Set wshShell =wscript.CreateObject("WScript.Shell") wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" wscript.sleep 1000 wshshell.sendkeys "%{F4}" MsgBox "Finis" |
5. Buka Start Menu Melulu
MsgBox "Buka Star Menu Melulu" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "^{ESC}" loop |
{ 0 komentar... Views All / Send Comment! }
Posting Komentar