Cara Membuat Program sederhana Menggunakan NOTEPAD

• message yang tidak dapat di close 

• Code:
  Do
       msgbox("selamat datang...")
       msgbox("kamu siapa ?")
       msgbox("salam kenal")
       msgbox(":)")
  loop
  
  lalu save dengan  menulis doloop.vbs pada 'save name'
  
  do loop berfungsi agar pesan tidak dapat ditutup, kalau anda hanya ingin pesan tidak mengulang-ulang tinggal hapus adja do loop na 
• NB:tulisan warna merah  bisa kamu ganti sesuka hati, 

• mengetik otomatis di notepad/word

• Code:
  Set wshShell = wscript.CreateObject("WScript.Shell")
  do
  wscript.sleep 100
  wshshell.sendkeys "how beautiful you are"
  loop
  save namafile.vbs
  
  NB:tulisan warna merah  bisa kamu ganti sesuka hati, 

• membuat shutdown dengan pesan

•  Code:
  @echo off
  msg * attention !!
  shutdown -s -c "Error!!!"
  
  save namafile.BAT
  
  

• memainkan caps lock botton

•  Code:
  Set wshShell =wscript.CreateObject("WScript.Shell")
  do
  wscript.sleep 100
  wshshell.sendkeys "{CAPSLOCK}"
  loop
  
  save namafile.vbs
  
  

• buka tutup CD/DVD

• Code:
  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 namafile.vbs

masih ada banyak code lagi cuma lagi males nulis nich. kapan-kapan aku posting lagi

selamat mencoba, share pengalaman kalo udah berhasil ya....