Script Iseng Buat Kompi Komputer (Pake Notepad)

Hayooo siapa yang pengen ngerjain kompi komputer temen xan hehehehe gw yakin pasti hal tersebut terlintas di benak xan,iyaaaa kaaaan ???  wkwkwkwkw...niy gw nemuin kumpulan script iseng buat ngerjain kompi komputer..oh iya gw posting artikel ini cuman hanya buat pembelajaran gw pribadi semata ga ada maksud nyuruh2 gak bener heee :D.jadi apabila di laptop gw ada hal smacam itu,udah bisa gw tebak n ga aneh lagi gtu lho '''''''

Ok deeh tanpa panjang lebar lagi (apanya tuuuh yang lebar hohohoho) niy lansung aja gw kasih scriptnya tapi sebelum itu pertama-tama xan harus peersiapkan sebagai berikut

- Siapkan Notepad
-siapkan copy susu sama pasta hehehe becanda dink maksud gw (copy paste)
-Simpan di laptop xan
- siap siap menerima dosanya wkwkwkwkwkwkw

-----------------------------------------------------------------------
1.mesage yang nongol terus menerus secara otomatis

@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 nama script diatas dgn ekstensi *.bat 
-----------------------------------------------------------------------

-----------------------------------------------------------------------
2.Bikin  Shutdown + message

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

save nama script diatas dgn ekstensi *.bat
------------------------------------------------------------------------

------------------------------------------------------------------------
3.Memainkan Tombol Caps Lock

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

save nama script diatas dgn ekstensi *.vbs
------------------------------------------------------------------------


------------------------------------------------------------------------
4.Buka Tutup CD/DVD Secara Otomatis

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 nama script diatas dgn ekstensi *.vbs

------------------------------------------------------- 

-------------------------------------------------------  

5.Menekan Tombol Enter Terus Menereus

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

save nama script diatas dgn ekstensi *.vbs
---------------------------------------------------------------------------

---------------------------------------------------------------------------
6.MENEKAN TOMBOL BACKSPACE TERUS MENERUS SECARA OTOMATIS

MsgBox “Lets Rumble”
 Set wshShell =wscript.CreateObject(“WScript.Shell”)
 do
 wscript.sleep 100
 wshshell.sendkeys “{bs}”
loop

save nama script diatas dgn ekstensi *.vbs 

----------------------------------------------------------------------------

----------------------------------------------------------------------------
7.Mengetik Otomatis "muka lo jelek tau" Di Notepad

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek banget sih!!!"
loop

 
 save nama script diatas dg ekstensi *.vbs
----------------------------------------------------------------------------

----------------------------------------------------------------------------
8.Memboka Notepad Terus Menerus

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

save nama script diatas dgn ekstensi *.bat 

----------------------------------------------------------------------------

----------------------------------------------------------------------------
9.Otomatis Buka Notepad Lalu Ngetik "apa yang lo mau"

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 “Ka”
 WScript.Sleep 500
 WshShell.SendKeys “mu ”
 WScript.Sleep 500
 WshShell.SendKeys “, je”
 WScript.Sleep 500
 WshShell.SendKeys “l ek”
 WScript.Sleep 500
 WshShell.SendKeys “am ”
 WScript.Sleep 500
 WshShell.SendKeys “at”
 WScript.Sleep 500
 WshShell.SendKeys “ya ”
 WScript.Sleep 500
 WshShell.SendKeys “P er”
 WScript.Sleep 500
 WshShell.SendKeys “ma k”
 WScript.Sleep 500
 WshShell.SendKeys “tuh”
 WScript.Sleep 500
 WshShell.SendKeys ” mu”
 WScript.Sleep 500
 WshShell.SendKeys “ka”
 WScript.Sleep 500
WshShell.SendKeys “hohoho “

save nama script diatas dg ekstensi *.vbs
-------------------------------------------------------------------------

-------------------------------------------------------------------------
10. Semacam QUIZ di komputer pengguna

@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 rusak
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

save nama script diatas dgn ekstensi " .bat"
---------------------------------------------------------------

catatan

Dari semua script diatas, cara menjalankannya adalah degan mengklik 2x file yang kita buat dari notepad tadi.gw sarankan kalau mau mengusili komputer teman dan bisa dijalankan secara otomatis, kopi file script yg udah kamu simpan ke folder startup di Menu Start. Setelah itu xan gw sarankan selama seminggu gak nongol alias kabur dulu aja hahaha  biar gak di lempar sama monitor…. wkwkwkwkwkwk...untuk cara menghentikan script tadi xan bisa restart lalu hapus script yang tadi udah di save


                                                                                  salam blogers