Selasa, 22 Maret 2011

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".

Label: , , , ,

0 Komentar:

Posting Komentar

Pengunjung yang baik selalu meninggalkan jejak berupa komentar. :)

Berlangganan Posting Komentar [Atom]

<< Beranda