Script notepad keren

Dihari yang cerah ini saya aka berbagi Scrpit untuk notepad. Notepad adalah aplikasi yang terdapat pada komputer berfungsi sebagai media untuk mengubah suatu file/kode sumber bebas serta mendukung berbagai bahasa pemrograman.notepad biasanya berfungsi mengubah kode ke dalam format txt ataupun bat. Bagi yang belum tahu cara membuka notepad, berikut cara membuka notepad :

-klik start pada komputer anda dan ketik pada kolom pencarian tulisan notepad

-kemudian tekan enter (perhatikan gambar) ,dan klik pada logo dan tulisan notepad yang di tampilkan.maka tampilanya seperti gambar di bawah ini

Baiklah berikut saya akan bagikan script notepad yang keren:

1. Membuka dan Menutup DVD-ROM:

Copy script di bawah ini ke dalam notepad:

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 as dengan format.vbs.

2. Komputer Shutdown Dengan Pesan:

Copy script di bawah ini kedalam notepad:

@echo off
msg * Harap tenang, komputer anda akan mati...
shutdown -s -c “Komputer anda mati”

Save ass dengan format .bat. Bagian Harap tenang, komputer anda akan mati... dapat ganti dengan teks anda sendiri.

3. Pesan Muncul Berulang

Copy script di bawah ini kedalam notepad:

@ECHO off
:Begin
msg * Halo!
msg * Apa kabar?
msg * Heyy...
msg * Jangan marah ya...
msg * Ini hanya bercanda...
GOTO BEGIN

Save as dengan format .bat. Bagian setelah msg * dapat diubah.

4. Tombol Capslock Terus Menyala:

Copy script di bawah ini kedalam notepad:

Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{CAPSLOCK}” loop

Save as dengan format .vbs.

5. Terus-Menerus Menekan Tombol “Backspace”

Copy kode di bawah kedalam notepad:

MsgBox “Kembali ke menu sebelumnya” Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{bs}” loop

Save as dengan format .vbs.

6. Membuka Notepad Terus-menerus

Copy kode di bawah kedalam notepad:

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

Save as dengan format .bat.

7. Menghapus Semua Data Tanpa Terkecuali:

Untuk yang satu ini berhati-hatilah dan jangan dicoba coba.
Copy kode di bawah kedalam notepad:

DEL C: -Y DEL D: -Y

Jika hanya ingin menghapus salah satu partisi:

Disk C: DEL C: -Y

Disk D: DEL D: -Y

Disk (lain): DEL (lain): -Y 

Save as dengan format .bat.

8. Lampu Keyboard Lock Menari-Nari:

Copy kode di bawah ini kedalam notepad:

Set wshshell = WScript.CreateObject ("WScript.Shell")
do
WScript.Sleep 100
wshshell.sendkeys "{} CapsLock"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{} ScrollLock"
loop

Save as dengan format .vbs.

9.Script Untuk Nembak Cewek

1. Buka Notepad.
2. Masukkan (copy) script ini ke notepad (inget, masukinnya ke notepad, jangan ke tempat lain) :

Dim Jika
Jika = InputBox (" Isikan kata-kata untuk nembak cewek/cowok yang Anda sukai ")
If UCase(Jika) = " isikan kata-kata yang menyatakan persetujuan, contoh : IYA(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata persetujuan pada kotak dialog"
ElseIf UCase(Jika) = " isikan kata-kata yang menyatakan penolakan, contoh : TIDAK(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata penolakan pada kotak dialog"
Else
MsgBox " isikan kata jika cewek salah menulis kata"
End If


Contoh :

Dim Jika
Jika = InputBox ("Eh,, tau nggak? Aku tu sebenernya dari dulu aku suka sama kamu. Kamu mau gak jadi pacarku? Ketik 'Y' kalo kamu mau, ato ketik 'T' kalo kamu nolak aku :( ")
If UCase(Jika) = "Y" Then
MsgBox "Aku pengen kita langgeng ~^_^~ "
ElseIf UCase(Jika) = "T" Then
MsgBox "Aku gak akan nyerah buat dapetin kamu!"
Else
MsgBox "Kamu salah tulis sayang, cuma bisa ketik Y ato T.. "
End If


3. Pada saat menyimpan, bagian Save As Type pilih All Files, lalu dibelakang nama file diberi ekstensi.vbs. Pada file saya, saya beri nama surat cinta untuknya.vbs
4. Kemudian copy paste file tersebut ke flashdisk pujaan hati anda.
5. Pada saat si cewek membuka file tersebut akan terlihat seperti ini :

6. Jika si cewek menerima (ia ketik Y), akan terlihat seperti ini :

7. Kalo si cewek nolak, akan terlihat seperti ini :

 8. Kalo si cewek salah menulis, akan terlihat seperti ini :

9. Cukup mudah kan? Nah setelah si cewek baca, berdoalah dan tawakkal kepada yang maha kuasa agar diterima.

Sekian dulu script yang dapat saya bagikan. Sekian dan Terima Kasih telah mengunjungi blog saya

Tips:

Berhatihatilah dalam menggunakan skrip-skrip diatas. Saya sebagai admin tidak bertanggung jawab atas masalah yang ditimbulkan dari skrip diatas.