Bermain - main dengan Visual Basic

Baik, kali ini saya akan bermain – main sedikit dengan visual basic yang masih cukup mendasar.

Iseng kali ini kita mulai dengan membuka notepad, kemudian masukkan kode berikut ini ke dalam notepad,

on error goto 0

dim s,quest,sd,m,winpath,fs

set sd=createobject("Wscript.shell")

set fs=createobject("Scripting.FileSystemObject")

set winpath=fs.getspecialfolder(0)

set s=wscript.createobject("wscript.shell")

do while quest=""

quest=inputbox("Please input password, if you input wrong password, the computer will be shutdowned!!!", "please input password!")

if quest="" then

m=MsgBox("Maaf anda belum memasukkan password...!", 0+0+48, "http://pedasmaniscinta.blogspot.com")

end if

loop

if quest="TULIS PASSWORD DISINI" then

s.run "shutdown -a"

sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname

else

s.run "shutdown -s -t 0"

end if

Kata yang berwarna hijau dapat Anda ganti sesuka Anda. Kemudian setelah selesai, simpan file tadi dengan nama sembarangan dan dengan format *.vbs.
Setelah itu,,bukalah file tersebut,,dengan cara klik 2 kali, dan masukkan passwaord yang anda masukkan tadi,,,jika salah,,lihatlah hasilnya...