script notepad buat iseng

kali ini mau bagi cara cara buat iseng, hehe

yaa, tapi lebih baik jangan di gunakan, kasian nanti yang di isengin
di sini bagi ilmu ajah , kan gak ada salahnya :)


oke nih di bagi ya




1. mematikan komputer ( shutdown )

@echo off

msg * ayo udahan main nya

shutdown -c "waw" -s

*copas script di atas ke notepad, lalu save dengan extension .bat




2. buka tutup 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

*copas script di atas ke notepad, lalu save dengan extension .vbs

3. bikin caps lock nyala mulu

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

*copas script di atas ke notepad, lalu save dengan extension .vbs

4. tekan enter truss

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

*copas script di atas ke notepad, lalu save dengan extension .vbs

5. untuk menampilkan pesan di notepad 

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 "Hai"
WScript.Sleep 500
WshShell.SendKeys " ap"
WScript.Sleep 500
WshShell.SendKeys "a i"
WScript.Sleep 500
WshShell.SendKeys "ni "
WScript.Sleep 500
WshShell.SendKeys "hah"
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "aha"
WScript.Sleep 500
WshShell.SendKeys " ja"
WScript.Sleep 500
WshShell.SendKeys "nga"
WScript.Sleep 500
WshShell.SendKeys "n b"
WScript.Sleep 500
WshShell.SendKeys "ing"
WScript.Sleep 500
WshShell.SendKeys "gun"
WScript.Sleep 500
WshShell.SendKeys "g  "

*copas script di atas ke notepad, lalu save dengan extension .vbs

6. membuat backspace terus menerus

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

*copas script di atas ke notepad, lalu save dengan extension .vbs

7. bikin korban mengetik sesuatu

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys " emm emmm "
loop

*copas script di atas ke notepad, lalu save dengan extension .vbs

ket :

1. yang warnanya hijau bisa di ganti :)

2. hati hati dengan script di atas
3. cara menghentikannya di sini

oke deh udah cape, 

di lain waktu di bikin cara mengatasinya, 

jangan di pake buat hal yang gak baik ya.. 

semoga berguna :)