Script-script jahil

by **™-S|M-Rikho123-™** on Sun 3 Oct - 13:28:21

kali ini kita buat beberapa scrip yang berfungsi pada OS windows
scripnya akan berfungsi sesuai dengan fungsinya Razz

gak perlu susah ... karna scrip hanya di muat di notepad, type save nya cukup dengan format .VBS atau .bat

langsung dach .....

Memberi pesan dan shutdown komputer

Spoiler:: @echo off
msg * Aku tidak suka kamu
shutdown -c "Error! Kamu jelek sekali" -s

save dengan .bat

Menyalakan tombol Caps lock secara simultan

Spoiler:: Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

save dengan extension .vbs

Buka/tutup CD drive secara terus menerus

Spoiler:: 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

save dengan Extexsion .vbs

Tekan Enter secara simultan

Spoiler:: et wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

save dengan ex.vbs

Mengetik pesan kita secara otomatis di notepad

Spoiler:: 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! "

save dengan Ex.vbs

Menjalankan BACKSPACE secara simultan

Spoiler:: MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save dengan ex.vbs

Hack keyboard sehingga korban dipaksa mengetik " You are a gay" secara simultan

Spoiler:: Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a gay"
loop

save dengan ex.vbs

Buka Notepad secara terus menerus

Spoiler:: @ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

save dengan type .bat
Munculin 5 pilihan yang harus korban pilih

Spoiler:: @echo off
title The end of the world
cd C:\
:menu
cls
echo oops gw gak tanggung jawab lho apa yang barusan lu lakuin hehhe,,semuanya dh jadi tanggung jawab lu sendiri...
pause
echo pilih nama cwe yang lu suka =P :
echo 1. datanya bakal ilang lho.
echo 2. komputer nya corrupt lho
echo 3. heheh no comment deh klo yang ini
echo 4. mau mati pake jalan ini?
echo 5. bye bye...
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two