Contoh VBScript yang Unik

By: Unknown on 08:32

Assalamu'alaikum Wr Wb,,

Pada postingan sebelumnya saya membahas tentang Contoh-Contoh Script Turbo Pascal, dan pada postingan kali ini saya ingin memberikan Beberapa Contoh Script .VBS, sebenarnya VBScript itu termasuk kedalam bahasa Pemrograman, saya belum mengerti dengan pasti VBScript tetapi yang Saya tahu, VBScript (Visual Basic Scripting) adalah Sebuah bahasa Pemrograman (Scripting Language)..

Berikut Contoh Script .VBS :
Cara membuatnya hanya dengan membuka Notepad lalu salin Script berikut

1. Membuat Windows Berbicara

Dim message, sapi
message=InputBox("Apa yang Anda ingin saya katakan? Komputer juga bisa Berbicara!","http://fajarz-safe.blogspot.com")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Jika Program diatas dijalankan maka akan ada kotak input yang harus diisi, Inputan itu akan di proses dan Komputer/Laptop akan mengeluarkan suara tergantung yang di Inputkan,, Cara kerjanya hampir sama dengan "Text to Speech" di Windows..

2. Membuat Script Persetujuan

Script dibawah ini adalah script KONDISI (bercabang) yang ada 2 kemungkinan IYA atau TIDAK,, Teman saya menggunakan Script ini untuk mengungkapkan isi hatinya (Nembak Cewe)

Dim I
I = InputBox("Tulisan yang ingin di Tanyakan (IYA/TIDAK) ","http://fajarz-safe.blogspot.com")
If UCase(I) = "IYA" Then
MsgBox "Kata yang ingin di munculkan jika IYA"
ElseIf UCase(I) = "TIDAK" Then
MsgBox "Kata yang ingin di munculkan jika TIDAK"
ELSE
MsgBox "Hanya ada 2 jawaban = IYA atau TIDAK"
End If

Jika Program diatas dijalankan maka akan muncul tulisan yang berwarna merah, dan akan ada kotak inputan,, Jika kotak itu diisi dengan "IYA" maka akan muncul tulisan yang berwarna hijau, dan Jika diisi dengan "TIDAK" maka akan muncul tulisan yang berwarna kuning, dan Jika dimasukkan kata selain "IYA / TIDAK" maka akan muncul tulisan yang berwarna biru..

3. Membuat Masukkan Password

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("Masukkan Password, Jika anda salah masukkan password, maka Laptop ini akan mati","http://fajarz-safe.blogspot.com")
if quest="" then
m=MsgBox("Maaf anda belum memasukkan Password..!!!", 0+0+48, "http://fajarz-safe.blogspot.com")
end if
loop
if quest="Masukkan Password yang diinginkan" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 0"
end if

Jika Program diatas dijalankan maka akan muncul tulisan yang berwarna hijau, dan ada kotak Input yang harus diinputkan sesuai dengan kata yang berwarna merah, Jadi Script ini dapat di letakkan di Flashdisk dan buat autorunnya,,

Semua Script diatas di simpan dengan exstensi .vbs

Mungkin Sampai disini saja Postingan yang saya berikan tentang Contoh Script .VBS yang saya berikan, dan semoga dapat bermanfaat bagi para pembaca,, Bila ada kesalahan mohon di comment, agar postingan ini tidak memberikan petunjuk yang salah
Nantikan Postingan selanjutnya,,

Wassalamu'alaikum