5_2007-2008 Miscellaneous #179020

hide\show

sck

★★★★★

4.8 · ดาวน์โหลด: 2,341

this simple code can hide\show your clock, start button, tray icons, taskbar, and desktop. Please vote!!!

สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ซอร์สโค้ด

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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long




Sub Hide_Clock()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0&, "TrayClockWClass", vbNullString), 0
End Sub
Sub Hide_Desktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 0
End Sub
Sub Hide_StartButton()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "Button", vbNullString), 0
End Sub
Sub Hide_TaskBar()
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0
End Sub
Sub Hide_Tray()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0
End Sub
Sub Show_Clock()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0&, "TrayClockWClass", vbNullString), 5
End Sub
Sub Show_Desktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 5
End Sub
Sub Show_StartButton()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "Button", vbNullString), 5
End Sub
Sub Show_TaskBar()
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 5
End Sub
Sub Show_Tray()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 5
End Sub

ความคิดเห็นดั้งเดิม (3)

กู้คืนจาก Wayback Machine