Menyembunyikan Kursor Mouse dengan Visual Basic

Suatu hari, kursor mouse komputer saya hilang, sampai-sampai kebingungan. Saya coba pakai mouse yang baru-pun tidak bisa juga kembali. Komputer saya re-start. Tidak menemukan solusi juga.  He he he … Ternyata komputer saya terkena virus.. Yang salah satu tujuan serangannya adalah menyembunyikan kursor mouse…

Virus adalah program komputer yang didesain untuk menyerang komputer, dan serangan tersebut tergantung kepada si pembuat virus tersebut.  Untuk membuat virus diperlukan software (Tools) pemrograman.  Salah satu software bahasa pemrograman adalah Visual Basic 6.0.

Dari kasus di atas, virus tersebut menyerang komputer dengan salah satu modusnya adalah menghilangkan atau menyembunyikan kursor mouse.  Visual basic dengan kemampuan Windows API-nya, mempunyai kemampuan untuk menyembunyikan sekaligus menampakkan kursor mouse.

Pada pembahasan kali ini, kita akan mencoba membuat program sederhana untuk menyembunyikan kursor mouse dan mengembalikan kembali kursor mouse yang hilang.

Buatlah sebuah form baru di visual basic 6.0, kemudian tambahkan 2 buah command button, dengan nama COmmand1 dan Command2.

Kemudian tambahkan modul pada project, dengan mengklik Project, Add Module.

Di dalam module tambahkan kode pemrograman berikut :

Public Declare Function ShowCursor Lib “user32” (byVal bShow As Long) As Long

Kemudian buka jendela kode pada form yang telah kita buat, kemudian tuliskan pada kode pemrograman sebagai berikut :

Private Sub Command1_Click()

Sembunyi=ShowCursor(False) ‘Menyembunyikan kursor

End Sub

Private Sub Command2_Click()

Sembunyi=ShowCursor(True) ‘Menampakkan kursor yang hilang

End Sub

Jika program tersebut dijalankan dan kita menekan COmmand1, maka kursor akan hilang, dan jika kita kemudian menekan Command2, maka kursor akan kembali nampak lagi.

Jika virus dibuat dengan Visual Basic 6.0, untuk menghilangkan kursor mouse, maka yang digunakan adalah fungsi Windows API ShowCursor.

Semoga materi ini bermanfaat, pertanyaan dan komentar silakan dengan mengisi komentar di bawah.

3 Balasan ke Menyembunyikan Kursor Mouse dengan Visual Basic

  1. raden permono mengatakan:

    bagus, thanks ya…!
    gimana supaya bisa me nonaktivkan windows di vb…saya tunggu jawabanya.
    thanks

  2. raden permono mengatakan:

    bagus, tapi kok ilangnya tidak global…?

  3. bagus mengatakan:

    terimakasih ilmunya…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: