Pernahkah anda secara tidak sengaja menjalankan virus VBS atau VBS berbahaya. Misalnya ada file VBS yang memiliki script yang sangat berbahaya. Anda ingin menjalankan file exe yang ada disebelah file VBS berbahaya tersebut. Tetapi secara tidak sengaja anda mengklik 2 kali pada file VBS berbahaya tersebut. Anda langsung mengatakan "Oh tidak!!!! Komputerku akan rusak. Sial!!!!!". Pernahkah kejadian seperti itu terjadi pada anda?
Nah, untuk menghindari dari hal-hal seperti ini, anda memerlukan suatu program yang bila anda menjalankan file VBS, akan muncul konfirmasi apakah anda ingin menjalankannya atau tidak sehingga bila secara tidak sengaja anda menjalankan file VBS, anda dapat mengklik tombol "No".
Ok, begini tampilan formnya (VB6 euy!)
Command1 captionnya "Enable" sedangkan Command2 caption "Disable". Ini gunanya untuk mengatur apakah anda ingin mengaktifkan konfirmasi VBS atau tidak
Sekarang kita melangkah berjauh-jauhan.... loh kok jadi lagu Kepompong??? Maksudnya melangkah ke koding 
Ini dia kodenya:
Quote:
Private Sub Command1_Click()
reg "HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command\", _
App.path & "\" & App.EXEName & ".exe %1", "REG_EXPAND_SZ"
End Sub
Private Sub reg(alamat As String, isi As String, tipe As String)
Dim reg As Variant
Set reg = CreateObject("WScript.Shell")
reg.RegWrite alamat, isi, tipe
End Sub
Private Sub Command2_Click()
reg "HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command\", "WScript.exe " + _
Chr(34) + "%1" + Chr(34), _
"REG_EXPAND_SZ"
End Sub
Private Sub Form_Load()
If Command <> "" Then
If MsgBox("Apakah anda ingin menjalankan " & Command & "?", _
vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
Shell "WScript.exe " & Chr(34) & Command & Chr(34), vbNormalFocus
End If
End
End If
End Sub
Tidak begitu banyak. Tapi kalau anda malas, silahkan Copy & Paste kode tersebut.
Menjalankan Program:
Anda harus mengcompile program tersebut sebelum menjalankannya kalau tidak akan terjadi error. Setelah di compile, jalankan program tersebut. Tekan tombol Enable
Lalu coba jalankan sebuah script VBS. Akan muncul pesan seperti berikut ini:
Tekan saja tombol Yes untuk menjalankan file VBS atau tekan tombol No untuk tidak menjalankan file VBS.
Jika anda ingin mematikkan konfirmasi ini, anda dapat menjalankan program lagi lalu menekan tombol "Disable"
Untuk pengguna Windows Vista, diwajibkan untuk menjalankan program tersebut sebagai Administrator (Run as Administrator) agar program dapat menulis ke registry. Kalau tidak maka akan muncul pesan "Access Denied".
