TIPS JAHIL (Part II)

Hemm, kesibukan kuliah dan kerja cukup menghambat dalam saya bercuap-cuap di blog. Tapi kali ini saya sempatkan untuk melanjutkan Tips Jahil kita, hehehe.. hitung-hitung mengisi waktu boring.. tapi tips jahil (part I) sudah di coba kan? Bagaimana? Berhasilkah? Gagalkah? Kemanakah? Ataukah? Halah! Malah ngalor ngidul! Oke, sekarang kita langsung ke TKP!

Tekan backspace terus (jurus anti ngetik! Kikikikik..)

MsgBox “kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

save dengan extensi *.vbs

Vbscript nongol terus

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

save dengan extensi *.vbs

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

Mainin tobol Capslock

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

save dengan extensi *.vbs

          nah, berhubung saya lagi repot jadi demikian dulu dasar-dasar jahil yang kita pelajari.. mungkin pada Tips jahil (part III) kita akan membahas yang lebih X-Treame lagi.. hehehe, see you next time eighterz..