Cara Menyembunyikan Tombol Start, Icon Desktop, Taskbar Clock, Systray dan Taskbar di Visual Basic 6.0

Cara Menyembunyikan Tombol Start, Icon Desktop, Taskbar Clock, Systray dan Taskbar di Visual Basic 6.0 - Beberapa menit yang lalu Saya baru saja memberikan tip bagaimana cara membuat Start-up di VB 6.0 dan kali ini Saya akan memberikan tip bagaimana membuat Layar monitor Anda Tampil Polos tanpa Program dan icon dengan cara Menyembunyikan Tombol Start, Icon Desktop, Taskbar Clock, Systray dan Taskbar di Visual Basic 6.0

Bagaiman perasaan Anda ketika Anda ingin menghidupkan komputer tiba-tiba tampil polos dan hanya terlihat background desktop saja.Tentu sebagai pengguna jika hal itu terjadi maka kita akan kalang kabut dan kebingungan apa yang harus kita lakukan,lalu kita akan berprasangka buruk ini pasti kerjaan virus.Memang ada virus yang menginveksi dengan cara menghilangkan icon-icon tertentu atau program aplikasi lainnya seperti me-NonAktifkan CTRL+ALT+DEL dan menyembunyikan program dari Taskmanager.

Dari judul diatas saja sudah sangat anker bagi orang awam seperti saya, mungkin bagi para master program VB ini hanya biasa saja karena saya berpikir bagaimana kalau program ini dipadukan dengan kode-kode untuk membuat virus, tentu sangat bebahaya.

Dalam tutorial kali ini Saya tidak memberikan tip bagaimana cara membuat virus dengan menggunakan judul diatas tapi kali hanya sekedar tip sederhana dimana kita membuat tombol-tombol untuk menyembunyikannya dan  dapat ditampilkan kembali di komputer kita.

Berikut Langkah langkah:

Menyembunyikan Tombol Start, Icon Desktop, Taskbar Clock, Systray dan Taskbar di Visual Basic 6.0

1. Tanamkan 6 buah CommandButton pada form seperti gambar dibawah ini :

Form yang sudah di buat

2. Lalu double klik pada area form yang kosong dan copy-pastekan kode dibawah ini di form :

Private Sub Form_Load()
Command1.Caption = "Sembunyikan Tombol Start"
Command2.Caption = "Sembunyikan Icon Desktop"
Command3.Caption = "Sembunyikan Taskbar Clock"
Command4.Caption = "Sembunyikan Icon Systray"
Command5.Caption = "Sembunyikan Taskbar"
Command6.Caption = "Tampilkan Semua!!"
End Sub

Private Sub Command1_Click()
HideStartButton
End Sub

Private Sub Command2_Click()
HideDesktop
End Sub

Private Sub Command3_Click()
HideTaskBarClock
End Sub

Private Sub Command4_Click()
HideTaskBarIcons
End Sub

Private Sub Command5_Click()
HideTaskBar
End Sub

Private Sub Command6_Click()
ShowStartButton
ShowDesktop
ShowTaskBarClock
ShowTaskBarIcons
ShowTaskBar
End Sub

3. Langkah selanjutnya Tambahkan sebuah Module pada form dengan cara klik Project dan pilih Add Module, jendela module akan terbuka dan Copy-pastekan kode dibawah ini di Module :

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Function HideStartButton()
Dim Handle As Long, FindClass As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowStartButton()
Dim Handle As Long, FindClass As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
ShowWindow Handle&, 1
End Function
Public Function HideDesktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 0
End Function
Public Function ShowDesktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 5
End Function
Public Function HideTaskBarClock()
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowTaskBarClock()
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
ShowWindow Handle&, 1
End Function
Public Function HideTaskBarIcons()
Dim FindClass As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowTaskBarIcons()
Dim FindClass As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
ShowWindow Handle&, 1
End Function
Public Function HideTaskBar()
Dim Handle As Long
Handle& = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowTaskBar()
Dim Handle As Long
Handle& = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow Handle&, 1
End Function

4. Simpan dan buatkan file .EXE dengan cara :

-Pilih File-Make Project-pilih tempat penyimpanannya dan tulis nama Filenya-ok
-Buka nama file yang baru kita buat tadi di Drive tempat Anda menyimpan
-Jalankan dengan cara Dobel Klik,setelah jalan, pilih tekan Tombol yang Anda ingin Sembunyikan satu per satu dan untuk menampilkannya kembali tekan tombol "Tampilkan Semua".

Demikian tip cara Cara Menyembunyikan Tombol Start, Icon Desktop, Taskbar Clock, Systray dan Taskbar di Visual Basic 6.0 Selamat mencoba semoga berhasil.......

Related Post: Windows