program sederhana dengan notepad

Notepad?
Mungkin bukanlah kata yang asing buat kita, sudah pasti kita mengira itu adalah salah satu aplikasi sederhana bawaan windows yang bisa kita fungsikan untuk menyimpan catatan.
Namun tahukah kamu bahwa dengan sedikit kreatifitas dan kemampuan di sisi coding, dengan aplikasi sederhana ini kita bisa membuat hal2 yang menyenangkan untuk sekedar “menjahili” sobat kita bahkan dengan aplikasi sederhana ini, kita bisa membuat sebuah program yang merugikan seperti sebuah virus. Tapi saya tak ingin anda berbuat begitu, disini saya hanya akan memberikan beberapa script “jahil”sederhana untuk sekedar bersenang-senang dengan aplikasi ini.

Berikut ini beberapa script sederhana yang mungkin bisa anda coba2 saat bermain notepad:

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.

Nah bagi anda yang ingin belajar lebih lanjut pasti akan sangat berguna .

Demikian postingan kali ini yang saya pelajari dari berbagai sumber. Mudah-mudahan bisa berguna bagi anda. tastelate.blogspot.com