MsgBox “kembali ke menu sebelumnya”

Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{bs}”

loop

save dengan extensi *.vbs

2. Vbscript nongol terus

Set wshShell = wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

save dengan extensi *.vbs

3. Buka tutup CD/DVD Drive terus menerus

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

save dengan extensi *.vbs

4. Mainin tombol Capslock

Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{CAPSLOCK}”

loop

save dengan extensi *.vbs

Selamat mencoba dan hati-hati untuk yang mencoba di kompi sendiri nanti takut kagak bisa mengatasinya hehehe.

Ini pengalaman saya dulu pas pertama kenal ginian, terus nyobain di pc sodaraku. Kami berdua berhasil mempraktekan 1 script jahil. Eh karena bingung karena gak bisa menghentikan script nya jadi deh pc nya di install ulang wkwkwk. Semoga menjadi perhatian buat yang mencoba.