Knowledge : VBScripting

VBScripting dengan Notepad

Post dari blog saya yang sudah tidak terurus lagi (esccr2duo.blogspot.com)

Pertama-tama kita harus menonaktifkan "Hide extensions for known file types".
Untuk melakukannya (Windows XP) Start>Control Panel>Folder Options>Tab "View" lalu nonaktifkan "Hide extensions for known file types" lalu klik OK.

Windows Error Palsu

Buka Notepad, atau klik kanan New>Text Document
ketik atau Copy :

lol=msgbox("Saya rugi membaca ini","16","Judul")

Tekan Save atau Save As untuk menyimpan file tersebut dengan nama atau diletakkan di tempat yang anda inginkan.
Setelah itu ganti extension file tersebut.
Misalnya "Fake_error.txt" menjadi "Fake_error.vbs" (untuk melakukan ini pastikan anda menonaktifkan "Hide extensions for known file types" di Folder options).
Untuk "Saya rugi membaca ini" anda bisa merubahnya dengan kata apa yang anda inginkan seperti juga "Judul" yang bisa diganti.
Untuk nomor 16 bisa ubah dengan nomor yang anda inginkan yang terdapat di sini :
16=Critical Error 32=Question 48=Warning 64=Information. Anda juga bisa mengubah 16 menjadi 17 atau mungkin 18, pesan yang disertai dengan "Abort","Retry","Ignore".
Yang selanjutnya pesan ini muncul terus-terusan setiap kamu tekan ok ataupun icon (x)

do
lol=msgbox"("Saya rugi membaca ini","16","Judul")
loop

Untuk mematikannya, matikan dengan Windows Task Manager (CTRL+ALT+F4), lalu cari Wscript dan "End Task". Bisa juga dengan restart kompi tapi lebih bikin repot

untuk melakukan tutorial selanjutnya, mohon membaca tutorial yang pertama untuk lebih mengerti.

Keyboard Disko
Buka Notepad, klik kanan New>Text Document
(Lakukan seperti yang di atas)

Ketik atau Copy :

set wshshell =wscript.createobject("wscript.shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

Lalu Save dan ganti format/extension dari ".txt" ke ".vbs"
Anda juga bisa mengganti "CAPSLOCK" dengan "A" atau mungkin "Backspace". (Mohon jangan mengganti salah satunya dengan "Enter" karena anda akan membuat komputer menekan "Enter" berturut-turut tanpa ada yang menekannya.)

CD/DVD Drive aneh

Buka Notepad, atau klik kanan New>Text Document
Ketik atau Copy :

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 dan ganti format ".txt" ke ".vbs"

Lumayan nih ngerjain teman-teman yang masih 'newbie' di dunia komputer. :D