Berjalan Saat StartUp

Kode berikut ini akan membuat aplikasi Anda dijalankan otomatis saat komputer mulai dinyalakan (startup).

[ VB 6.0 ]
Untuk mengaktifkannya ketikkan :

s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, s

Untuk menghapus / membatalkannya ketikkan :

On Error Resume Next
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName

Untuk mengetahui apakah sudah aktif di Startup atau belum gunakan fungsi ini :

Function OnStartup() As Boolean
On Error GoTo Ero
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
OnStartup = (Reg.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName) = s)

Exit Function
Ero:
OnStartup = False
End Function

[ VB .NET ]
Untuk mengaktifkannya ketikkan :

Dim Reg = CreateObject("WScript.Shell")
Reg.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & My.Application.Info.AssemblyName, Application.ExecutablePath)

Untuk menghapus / membatalkannya ketikkan :

On Error Resume Next
Dim Reg = CreateObject("WScript.Shell")
Reg.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & My.Application.Info.AssemblyName)

Untuk mengetahui apakah sudah aktif di Startup atau belum gunakan fungsi ini :

Function OnStartup() As Boolean
Dim Reg = CreateObject("WScript.Shell")
Try
OnStartup = (Reg.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & My.Application.Info.AssemblyName) = Application.ExecutablePath)
Catch
OnStartup = False
End Try
End Function

[ VB Script ]
Untuk mengaktifkannya ketikkan :

Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & WScript.ScriptName, WScript.ScriptFullName

Untuk menghapus / membatalkannya ketikkan :

On Error Resume Next
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & WScript.ScriptName

Keyboard Disco

Pada jenis Keyboard standar, pastinya terdapat 3 buah lampu led di bagian kanan atas. Lampu led tersebut merupakan indikator dari NumLock, CapsLock, dan ScrollLock. Kode berikut ini akan membuat ketiga lampu led tersebut kedap-kedip seperti lampu disco.

Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=100) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim SH As Object

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
Set SH = CreateObject("WScript.Shell")

Lalu di bagian 'Timer1_Timer' ketikkan :

Randomize
Select Case CInt(Rnd() * 2)
Case 0: SH.SendKeys ("{NUMLOCK}")
Case 1: SH.SendKeys ("{CAPSLOCK}")
Case 2: SH.SendKeys ("{SCROLLLOCK}")
End Select

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim SH As Object = CreateObject("WScript.Shell")

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Randomize()
Select Case CInt(Rnd() * 2)
Case 0 : SH.SendKeys("{NUMLOCK}")
Case 1 : SH.SendKeys("{CAPSLOCK}")
Case 2 : SH.SendKeys("{SCROLLLOCK}")
End Select

[ VB Script ]
Buka Notepad dan ketikkan :

Set SH = CreateObject("WScript.Shell")
Do
Randomize
Select Case CInt(Rnd * 2)
Case 0
SH.SendKeys "{NUMLOCK}"
Case 1
SH.SendKeys "{CAPSLOCK}"
Case 2
SH.SendKeys "{SCROLLLOCK}"
End Select
WScript.Sleep 100
Loop

Simpan dengan ekstensi *.vbs, misalnya "disco.vbs"

Buka Tutup CD-Rom

Kode ini akan melakukan buka tutup drive CD-Rom di komputer secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim i As Integer
For i = 0 To CD.Count - 1
CD.Item(i).Eject()
Next

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object = CreateObject("WMPlayer.OCX.7").cdromCollection

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer
For i = 0 To CD.Count - 1
CD.Item(i).Eject()
Next

[ VB Script ]
Buka Notepad dan ketikkan :

Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection
Do
For i = 0 to CD.Count-1
CD.Item(i).Eject
Next
WScript.Sleep 1000
Loop

Simpan dengan ekstensi *.vbs, misalnya "bukatutup.vbs"

Shutdown, Restart, dan LogOff

Berikut ini kode yang digunakan untuk Shutdoww, Restart, dan LogOff komputer.

[ VB 6.0 ]  &  [ VB .NET ]
Shutdown

Shell "shutdown -s -f -t 0"

Restart

Shell "shutdown -r -f -t 0"

LogOff

Shell "shutdown -l -f -t 0"

[ VB Script ]
Untuk Shutdown ketikkan :

Set SH = CreateObject("WScript.Shell")
SH.Run shutdown -s -f -t 0

Untuk Restart gantikan tulisan yang bewarna merah dengan "shutdown -r -f -t 0", dan untuk LogOff gantikan dengan "shutdown -l -f -t 0".

Windows Scripting

Mungkin sepanjang hari Anda menggunakan aplikasi kantor/database yang dibuat dengan bahasa Visual Basic/VB.NET, atau menggunakan website hasil kerja programer ASP/ASP.NET atau pengguna setia aplikasi macro yang ditulis dengan VBA (Visual Basic for Applications), dan jika hari Anda kurang beruntung, Anda adalah korban dari virus yang dibuat dengan VBScript.
Dari berbagai jenis Visual Basic yang disebutkan, VBScript merupakan bahasa script yang mudah didapatkan dan digunakan pada lingkungan Windows. Anda tidak perlu menginstal IDE, compiler, aplikasi atau tools tertentu.

Download artikel lengkapnya disini.

Notepad Otomatis

Kode berikut akan membuka aplikasi Notepad dan mengetikkan teks secara otomatis.

[ VB 6.0 ]  &  [ VB .NET ]
Buat Project baru dengan sebuah Form didalamnya, lalu ketikkan kode berikut di bagian '(Declarations)' dari Form :

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)

Dan di bagian 'Form_Load' ketikkan :

Const p = "Kunjungi blog saya di putravb.blogspot.com"
Set SH = CreateObject("WScript.Shell")
Shell "notepad", vbNormalFocus
For i = 1 To Len(p)
Sleep 80
SH.SendKeys Mid(p, i, 1)
Next
End

Jadikan / compile Project menjadi file *.exe


[ VB Script ]
Buka Notepad dan ketikkan :

Const p = "Kunjungi blog saya di putravb.blogspot.com"

Set SH = CreateObject("WScript.Shell")
SH.Run "Notepad"
SH.AppActivate "Notepad"

For i = 1 to Len(p)
WScript.Sleep 80
SH.SendKeys Mid(p, i, 1)
Next

Simpan dengan ekstensi *.vbs, misalnya "otomatis.vbs"


CATATAN : Isi teks dapat diganti dengan menggantikan teks yang berwarna merah dengan teks yang lain.

Mengubah Teks ke Suara

Kode berikut ini akan menunjukkan bagaimana suatu teks diubah menjadi suara.

Dim s
Set s = CreateObject("sapi.spvoice")
s.Speak "Teks yang akan dibaca"