Memperlambat Gerakan Mouse

Kode ini berguna untuk memperlambat gerakan pointer mouse.
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 :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
MsgBox "Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !"

Lalu di bagian 'Timer1_Timer' ketikkan :

SystemParametersInfo 113, 0, ByVal 1, 0

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

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Integer, ByVal fuWinIni As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()
MsgBox("Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !")

Lalu di bagian 'Timer1_Tick' ketikkan :

SystemParametersInfo(113, 0, 1, 0)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Pointer Options". Lalu sesuaikan kembali pointer speednya.

Memilih Beberapa File Dalam Kotak Dialog

Berikut ini adalah tips bagaimana agar user dapat memilih beberapa file sekaligus dalam kotak dialog.

[ VB 6.0 ]
Buat Form baru dan tambakan didalamnya 1 CommandButton, 1 ListBox, dan 1 CommonDialog (Microsoft Common Dialog Control). Lalu di bagian 'Command1_Click' ketikkan :

On Error GoTo Ero
Dim sFile() As String, i As Integer

With CommonDialog1
.FileName = ""
.CancelError = True
.MaxFileSize = 30000
.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect + cdlOFNHideReadOnly
.ShowOpen

sFile = Split(.FileName, vbNullChar)

List1.Clear 'meghapus isi listbox

If UBound(sFile) = 0 Then 'jika hanya 1 file yang dipilih
List1.AddItem sFile(0)
Else 'jika lebih dari 1 file yang dipilih
For i = 1 To UBound(sFile)
List1.AddItem Replace(sFile(0) & "\" & sFile(i), "\\", "\")
Next
End If

End With

Ero:

[ VB .NET ]
Buat Form baru dan tambakan didalamnya 1 Button, 1 ListBox, dan 1 OpenFileDialog. Lalu di bagian 'Button1_Click' ketikkan :

Dim i As Integer
With OpenFileDialog1
.Multiselect = True
.FileName = ""

If .ShowDialog = 1 Then
ListBox1.Items.Clear() 'meghapus isi listbox

For i = 0 To UBound(.FileNames)
ListBox1.Items.Add(.FileNames(i)) 'memasukkan ke listbox
Next
End If
End With

ComboBox Terbuka Ketika Focus

Biasanya ketika ingin melihat isi dari ComboBox harus meng-klik tanda panahnya terlebih dulu. Berikut ini adalah trik kode agar ComboBox terbuka secara otomatis ketika focus.

Buat sebuah Form baru dengan sebuah ComboBox dan beberapa kontrol lain.

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Lalu tambahkan kode berikut di bagian 'Combo1_GotFocus'.

SendMessage Combo1.hWnd, 335, 1, 0

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Lalu tambahkan kode berikut di bagian 'ComboBox1_GotFocus'.

SendMessage(ComboBox1.Handle.ToInt32, 335, 1, 0)

Membuat Teks di Layar

Kode berikut ini akan membuat atau memunculkan teks di area layar secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.


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

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Const s = "Virus Layar Aneh"

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim l As Long
l = GetWindowDC(GetDesktopWindow)

Randomize
TextOut l, Rnd * (Screen.Width / Screen.TwipsPerPixelX), Rnd * (Screen.Height / Screen.TwipsPerPixelY), s, Len(s)

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

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
Const s = "Virus Layar Aneh"

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer = GetWindowDC(GetDesktopWindow)

Randomize()
TextOut(i, Rnd() * Screen.PrimaryScreen.Bounds.Width, Rnd() * Screen.PrimaryScreen.Bounds.Height, s, Len(s))

CATATAN : Isi teks yang muncul dapat dirubah dengan mengganti kode yang berwarna merah.

Menukar Klik Mouse

Windows menyediakan pilihan menukar klik Mouse yang ditujukan untuk orang yang bertangan kidal. Dengan sedikit kreatifitas, Anda bisa menggunakannya untuk menjahili komputer orang lain. Tentu saja cara ini bisa membuat orang bingung dan kerepotan, karena yang biasa dilakukan dengan klik kiri dialihkan ke klik kanan, begitu juga sebaliknya.

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 :

Private Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

SwapMouseButton 1

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

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SwapMouseButton (1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, lalu hilangkan tanda centang pada pilihan "Switch primary and secondary buttons".

Aplikasi 4L@ÿ Generator

Apakah Anda sering menulis sesuatu dengan gaya Alay seperti update status Facebook, chat di YM, nge-Blog. Sebenarnya Anda bisa membuat tulisan Alay lebih mudah dengan membuat aplikasi generatornya sendiri menggunakan Visual Basic.

Buat sebuah Module baru dan ketikkan :

Public Function Alay(ByVal Str As String) As String
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = "àáâãäåÀÁÂÃÄÅ@4"
Case "b": s = "ß8"
Case "c": s = "çÇ¢"
Case "d": s = "Ð"
Case "e": s = "èéêëÈÉÊË£3"
Case "g": s = "69"
Case "i": s = "ìíîïÌÍÎÏ¡!1"
Case "n": s = "ñÑ"
Case "o": s = "òóôõöøÒÓÔÕÖØ0"
Case "p": s = "þÞ"
Case "s": s = "$§5"
Case "t": s = "7"
Case "u": s = "ùúûüÙÚÛܵ"
Case "x": s = "×"
Case "y": s = "ýÿÝ¥"
Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)
End Select

Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function

Selanjutnya, buat sebuah Form baru dengan 2 buah kontrol TextBox didalamnya.
[ VB 6.0 ]
Di bagian 'Text1_Change' ketikkan :

Text2.Text = Alay(Text1.Text)

[ VB .NET ]
di bagian 'TextBox1_TextChanged' ketikkan :

TextBox2.Text = Alay(TextBox1.Text)

Jalankan aplikasi, kemudian coba ketikkan teks di TextBox yang pertama !

Permainan Tebak Lagu

Anda pasti mengetahui acara kuis di televisi, dimana pesertanya menjawab judul lagu sesuai dengan lagu yang sedang diputar.Permainan ini sama halnya dengan kuis tersebut, dimana lagu dipilh dan dimainkan secara acak, kemudian ditampilkan pilihan judul lagunya.
Download source code-nya disini.

Mematikan Monitor

Ketika komputer setelah dihidupkan dan kemudian tidak dioperasikan sementara, biasanya komputer mematikan / menonaktifkan monitor untuk menghemat daya listrik. Berikut ini kode yang digunakan untuk mematikan monitor.

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Untuk menggunakannya ketikkan perintah kode :

SendMessage Me.hwnd, 274, 61808, ByVal 2

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Untuk menggunakannya ketikkan perintah kode :

SendMessage(Me.Handle.ToInt32, 274, 61808, 2)

Menjalankan ScreenSaver

Berikut ini adalah kode yang digunakan untuk menjalankan / memunculkan ScreenSaver.

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Untuk menggunakannya ketikkan perintah kode :

SendMessage Me.hwnd, 274, 61760, 0

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Untuk menggunakannya ketikkan perintah kode :

SendMessage(Me.Handle.ToInt32, 274, 61760, 0)

Prosedur SendKeys

Prosedur ini digunakan untuk menggantikan perintah yang dikirim melaui penekanan tombol Keyboard. Syntaksnya adalah :
[ VB 6.0 ]

SendKeys "Perintah"

[ VB .NET ]

SendKeys.Send("Perintah")

Sebagai contoh, misalnya dimana ketika user menekan tombol enter di TextBox,
maka akan secara otomatis berpindah ke TextBox yang lain. Caranya buat beberapa TextBox ke dalam Form, dan ketikkan kode berikut di setiap Textbox di bagian 'KeyPress'.
[ VB 6.0 ]

If KeyAscii = 13 Then SendKeys "{tab}"

[ VB .NET ]

If e.KeyChar = Chr(13) Then SendKeys.Send("{tab}")

Anda bisa menggunakan karakter abjad dan angka sebagai perintahnya. Namun bila Anda ingin menggunakan karakter simbol, seperti "+", "^", "(", ")", "~", harus diapit karakter "{}" terlebih dulu. Misalnya anda ingin menggunakan "+", maka perintahnya adalah "{+}".

Daftar perintah yang bisa Anda gunakan :

Tombol	Perintah
BACKSPACE	{BACKSPACE}, {BS}, atau {BKSP}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
DEL atau DELETE	{DELETE} atau {DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER	{ENTER}atau ~
ESC	{ESC}
HELP	{HELP}
HOME	{HOME}
INS atau INSERT	{INSERT} atau {INS}
LEFT ARROW	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
PRINT SCREEN	{PRTSC}
RIGHT ARROW	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
UP ARROW	{UP}
F1	{F1}
F2	{F2}
F3	{F3}
F4	{F4}
F5	{F5}
F6	{F6}
F7	{F7}
F8	{F8}
F9	{F9}
F10	{F10}
F11	{F11}
F12	{F12}

Untuk kombinasi tombol SHIFT, CTRL, dan ALT, awali dengan perintah berikut :

Tombol	Perintah
SHIFT	+
CTRL	^
ALT	%

Prosedur Sleep

Prosedur Sleep digunakan untuk menunda / menghentikan sementara proses jalannya prosedur dalam jangka waktu tertentu. Untuk menggunakannya buat sebuah Module baru dan ketikkan :

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

Sebagai contoh penggunaanya, buat sebuah Tombol ke dalam Form, lalu ketikkan kode berikut di Tombol click :

MsgBox "Tidur sebentar !"
Sleep 3000 'selama 3 detik
MsgBox "Bangun lagi !"

Dalam beberapa kasus, penggunaan sleep dengan cara diatas dapat mengganggu prosedur-prosedur yang lain. Maka dari itu, perlu dibuat prosedur sleep buatan sendiri. Caranya buat sebuah Module baru dan ketikkkan :
[ VB 6.0 ]

Public Sub Tidur(ByVal Detik As Integer)
Dim t As Single
t = Timer
Do Until (Timer - t) >= Detik
DoEvents
Loop
End Sub

[ VB .NET ]

Public Sub Tidur(ByVal Detik As Integer)
Dim t As Double = Microsoft.VisualBasic.Timer
Do Until (Microsoft.VisualBasic.Timer - t) >= Detik
Application.DoEvents()
Loop
End Sub

Sebagai contoh penggunaanya, buat sebuah Tombol ke dalam Form, lalu ketikkan kode berikut di Tombol click :

MsgBox "Tidur sebentar !"
Tidur 3 'selama 3 detik
MsgBox "Bangun lagi !"

Mengurutkan Array

Jika Anda memembutuhkan proses untuk mengurutkan variabel array, contoh kode di bawah ini akan membantu.

[ VB 6.0 ]

Dim ar(3) As Integer 'contoh variabel array
ar(0) = 1
ar(1) = 4
ar(2) = 3
ar(3) = 2

'memulai proses pengurutan / sort
Dim m As Boolean, i As Integer, t
Do Until m = True
m = False
For i = 0 To UBound(ar) - 1

If ar(i) > ar(i + 1) Then

m = True
t = ar(i)
ar(i) = ar(i + 1)
ar(i + 1) = t
End If
Next i
Loop
'akhir proses

Kode diatas akan mengurutkan array secara ascending (A-Z), namun jika anda ingin mengrutkan secara descending (Z-A). Gantikan saja operator ">" di baris kode warna merah, dengan operator "<".


[ VB .NET ]
Tinggal tambahkan kode berikut ini untuk proses pengurutan array :

Array.Sort (Nama Variabel Array)

Jika Anda menginginkan pengurutan secara descending, tinggal tambahkan kode berikut setelah kode diatas.

Array.Reverse (Nama Variabel Array)