Desk Hider (VB 6.0)

Langsung saja ya... Beikut ini saya bagikan sebuah kode program Visual Basic 6.0 yang diberi nama Desk Hider. Apa sih Desk Hider itu? Silakan baca postingan ini.

Baiklah begini penjelasannya, desk hider atau yang lebih lengkapnya adalah desktop hider (menyembunyikan semua objek yang ada pada desktop). Objek-objek yang berada di desktop meliputi icons, taskbar dan start menu.

Baiklah langsung saja ke langkah pembuatannya.

1. Buat Project baru.
2. Pada Form yang aktif tambahkan 3 Checkbox.
3. Checkbox ke-1 atur Properties Caption=Show/Hide Taskbar dan Name=chk_Taskbar.
4. Checkbox ke-2 atur Properties  Caption=Show/Hide Desktop Icons dan Name=chk_Icons.
5. Checkbox ke-3 atur Properties  Caption=Show/Hide Start Menu dan Name=chk_MStart.
6. Tambahkan sebuah Module dengan cara pilih menu Project --> Add Module dan masukkan kode di bawah ini.

'API declaration
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Public Sub StartButton(show As Boolean)
    Dim primo As Long
    Dim ultimo As Long
        
    primo = FindWindow("Shell_TrayWnd", "")
    ultimo = FindWindowEx(primo, 0, "Button", vbNullString)
    If show = True Then
        ShowWindow ultimo, 5     'show start button
    Else
        ShowWindow ultimo, 0     'hide start button
    End If
End Sub

Public Sub taskbar(show As Boolean)
Dim primo As Long
primo = FindWindow("Shell_traywnd", "")
If show = True Then
        SetWindowPos primo, 0, 0, 0, 0, 0, SWP_SHOWWINDOW    'show taskbar
    Else
        SetWindowPos primo, 0, 0, 0, 0, 0, SWP_HIDEWINDOW    'hide taskbar
    End If
End Sub

Public Sub deskicon(show As Boolean)
Dim primo As Long
primo = FindWindowEx(0&, 0&, "Progman", vbNullString)
If show = True Then
        ShowWindow primo, 5   'show desktop icon
    Else
        ShowWindow primo, 0   'hide desktop icon
    End If
End Sub

7. Untuk Show/Hide Taskbar ketikkan kode di bawah ini.

If chk_Taskbar.Value = 0 Then
    taskbar True
Else
    taskbar False
End If

8. Untuk Show/Hide Desktop Icons ketikkan kode di bawah ini.

If chk_Icons.Value = 0 Then
    deskicon True
Else
    deskicon False
End If

9. Untuk Show/Hide Start Menu ketikkan kode di bawah ini.

If Check1.Value = 0 Then
    StartButton True
Else
    StartButton False
End If

10. Pada Form_Unload(Cancel As Integer) ketikkan kode dibawah ini.

StartButton True
deskicon True
taskbar True

11. Jalankan program dan lihat hasilnya. Selesai.

Untuk Anda yang menginginkan contoh programnya silakan download disini atau disini.