1. Membuat pesan muncul berulang kali
@ECHO off
:Begin
msg * Pesan 1
msg * Pesan 2
msg * Pesan 3
msg * Pesan 4
msg * Pesan 5
GOTO BEGIN
Simpan dengan format *.bat
2. Membuka dan menutup CD/DVD komputer otomatis
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count >= 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count >= 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Simpan dengan format *.vbs
3. Menulis otomatis di Notepad
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Tulis pesan di sini"
loop
Simpan dengan format *.vbs
4. Shutdown komputer disertai pesan
@echo off
msg * Tunggu sebentar ya
shutdown -s -c "Komputer kamu akan mati"
Simpan dengan format *.bat
5. Tombol Caps Lock nyala terus
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan format *.vbs
6. Menekan tombol Backspace secar terus menerus
MsgBox "Kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Simpan dengan format *.vbs
7. Membuka program Notepad terus menerus
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Simpan dengan format *.bat
8. Membuat lampu disko di keyboard
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loopSimpan dengan format *.vbs
