BERMAIN NOTEPAD

BERMAIN NOTEPAD

Mungkin banyak orang yang sudah mengetahui bagaimana bermain dengan notepad.
kali ini saya akan memberitahu bagai mana cara kita bermain dengan notepad.

Notepad ternyata dapat menjadikan lampu yang ada di keyboard dapat kelap-kelip layaknya lampu disko. Yaitu, lampu NUMLOCK, CAPSLOCK, SCROLL LOCK.

Yaitu dengan cara:
~ buka notepad anda
~ lalu copy scrip di bawah ini

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 500

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "{NUMLOCK}"

wshshell.sendkeys "{SCROLLLOCK}"

loop

~ setelah itu simpan notepad tadi dengan nama finderonly.vbs

~buka finderonly.vbs tersebut lalu perhatikan lampu NUMLOCK, CAPSLOCK, SCROLL LOCK anda akan kelap kelip seperti lampu disko.

Untuk mematikan finderonly.vbs tersebut caranya sebagai berikut:
~ buka task manager atau tekan CTRL+ALT+DEL secara bersamaan

~ masuk tab processes

~ cari proses yang bernama wscript.exe dank lick END Proses.

Perhatikan kembali lampu pada keyboard anda, apa yang terjadi.
GOOD LUCK

TAMBAHAN:

1. Kata sapaan menggunakan echoo

Buka notepad.exe (start - all program - accessories - notepad ). kemudian ketik script program dibawah ini :

WScript.Echo "hai teman, apa kabar semoga hari mu indah"

Save as sembarang nama dengan ekstensi *.vbs(misal: simple.vbs)

Catatan: tulisan yang saya beri warna merah dapat kita ganti semaunya.

2. Kata sapaan menggunakan dim

Buka kembali notepad lalu ketik script dibawah ini:

Dim MyVar

MyVar = MsgBox ("belajar, dan terus belajar", 65, "contoh pesan")

Save as sembarang nama denga ekstensi *vbs(misal: simple2.vbs)

Catatan: tulisan yang saya beri warna merah dapat kita ganti semaunya

3. Kata sapaan dengan msgbox

Buka kembali notepad lalu ketik script dibawah ini:

msgbox "script ini adalah pesan msgbox"

Simpan sembarang nama denga ekstensi *vbs(misal: simplemsgbox.vbs)

Catatan: tulisan yang saya beri warna merah dapat kita ganti semaunya

4. Perhitungan umur tahun 2012

Buka kembali notepad lalu ketik script dibawah ini :

WScript.Echo "hai kawan apa kabar"

Set WshShell = WScript.CreateObject("WScript.Shell")

tahunlahir = InputBox("kamu lahir tahun berapa")

umur = 2011-tahunlahir

WshShell.Popup "sekarang ini umurmu sekarang " & umur

Save As sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)

5. Perhitungan umur untuk 5 tahun kedepan

Buka kembali notepad lalu ketik script dibawah ini:

WScript.Echo "hai "

Set WshShell = WScript.CreateObject("WScript.Shell")

tahunlahir = InputBox("umur sekarang berapa")

umur = 5+tahunlahir

WshShell.Popup "5 tahun lagi umurmu adalah " & umur

Save as sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)

6. Bahasa minang pilih berdasarkan jenis kelamin

Buka kembali notepad lalu ketik script dibawah ini:

Dim minang

minang=Inputbox ("bahasa minang untuk, pilih laki-laki, perempuan")

If minang= "laki-laki" Then

msgbox "bahasa minang laki-laki adalah"

msgbox "uda, buyuang, ujang"

Else if minang= "perempuan" Then

msgbox "bahasa mianang perempauan adalah"

msgbox "uni, padusi, upiak"

else

msgbox "pilhan untuk kategori"

msgbox"laki-laki"

msgbox"perempuan"

End If

End If

Kemudian simpan sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)