latest Post

Trik -Trik Keren Menggunakan Notepad

Kali ini saya mau share tentang cara membuat sesuatu di notepad dengan ekstensi vbs, mulai dari yang hanya muncul teks sampai dengan yang jail-jail. Sebelumnya, apa sih vbscripst atau yang biasa di sebut vbs itu?, simak penjelasan berikut...


vbs atau yang lebih di kenal dengan nama vbscript, adalah bahasa pemograman komputer yang sistem kerjanya atau script nya bisa di kerjakan menggunakan program notepad, script vbs ini akan secara langsung ber interaksi dengan komputer tampa harus menggunakan editor bahasa pemograman lain, jadi kita tidak perlu mencari aplikasi lain untuk menciptkan script ini, kita ngak perlu repot - repot membeli aplikasi atupun mendownloadnya, cukup menggunakan notepad. Memang ada juga editor script lainya untuk mengerjakaan program vbscript, tapi yang pasti vbscript bisa di kerjakan menggunakan program sederhana notepad. sumber
 Oke, tanpa panjang lebar lagi, langsung kita ke tkp...

A. Cara membuat message box
1. Buka notepad
2. Copy kode berikut lalu pastekan di notepadnya


done=msgbox("Visit www.blognya-bagas.blogspot.com",vbYesNo, "Visit")
 Nb : ganti tulisan Visit www.blognya-bagas.blogspot.com dengan kata-kata sendiri

3. Klik Save as >> ganti save as type dengan all files >> judul.vbs (contoh seperti gambar di bawah ini) 





B.  Buka-tutup CD/DVD Komputer secara Otomatis
1. Buka notepad
2. Copy kode berikut lalu pastekan di notepadnya
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
3. Save dengan format .vbs, pastikan "save as type" nya all files bukan  *.txt

C. Membuat Komputer Shutdown
1. Buka notepad
2. Copy kode berikut lalu pastekan di notepadnya
@echo off msg * Maaf!!! shutdown -s -c “Komputer anda segera mati”
3. Save dengan format  .bat bukan .vbs, pastikan "save as type" nya all files bukan  *.txt

D. Menulis Secara Otomatis
1. Buka notepad
2. Copy kode berikut lalu pastekan di notepadnya
set wshshell = wscript.CreateObject("wscript.shell") wshshell.run "Notepad" wscript.sleep 2000 wshshell.AppActivate "Notepad" WshShell.SendKeys "T" WScript.Sleep 500 WshShell.SendKeys "E" WScript.Sleep 500 WshShell.SendKeys "S" WScript.Sleep 500 WshShell.SendKeys "T" WScript.Sleep 500 WshShell.SendKeys "." WScript.Sleep 500
3. Save dengan format .vbs , pastikan "save as type" nya all files bukan  *.txt

D. Tulisan Seperti di Matrix



1. Buka notepad
2. Copy kode berikut lalu pastekan di notepadnya
@echo off color 02 :tricks echo %random%%random%%random%%random%%random%%random%%random%%random% goto tricks
3. Save dengan format  .bat bukan .vbs, pastikan "save as type" nya all files bukan  *.txt

Sekian postingan dari saya, semoga bermanfaat


About Bagas Abi W

Unknown
Salah satu manusia remaja asal jogja yang sedang belajar untuk menulis blog. Suka dengan teknologi, olahraga, dan suka hal yang simpel.

1 comments: