怎样才能隐藏WINDOWS的任务栏(API函数)?

Question

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongConst GWL_EXSTYLE = (-&H14)
Const WS_EX_TOOLWINDOW = &H80SetWindowLong(hwnd, GWL_EXSTYLE, WS_EX_TOOLWINDOW)

Answer 1

我执行过ehom的代码,系统无法通过!

Answer 2

'控制桌面和状态条的可见性
Public Const SW_HIDE = 0    ' Hide Window
Public Const SW_SHOW = 5    ' Show Window
Public Declare Function FindWindow Lib "user32" _
               Alias "FindWindowA" (ByVal lpClassName As String, _
               ByVal lpWindowName As String) As Long
Public 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 LongSub DisplayTaskBar(ByVal bShow As Boolean)   '显示/隐藏 状态栏
   Dim lTaskBarHWND As Long
   Dim lRet As Long
   Dim lFlags As Long
   On Error GoTo vbErrorHandler
  
   lFlags = IIf(bShow, SW_SHOW, SW_HIDE)
   lTaskBarHWND = FindWindow("Shell_TrayWnd", "")
   lRet = ShowWindow(lTaskBarHWND, lFlags)
   If lRet < 0 Then
      Exit Sub
   End If
   
vbErrorHandler:
End SubSub DisplayDeskTopIcons(ByVal bShow As Boolean)   '先是/隐藏 桌面图标
   Dim lDesktopHwnd As Long
   Dim lFlags As Long
   On Error Resume Next
   
   lDesktopHwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
   If lDesktopHwnd = 0 Then
      Exit Sub
   End If
   lFlags = IIf(bShow, SW_SHOW, SW_HIDE)
   ShowWindow lDesktopHwnd, lFlags
End Sub

Answer 3

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Const SW_SHOW = 5
Private Const SW_HIDE = 0Private Sub Command1_Click()
    Dim lngWnd As Long
    
    lngWnd = FindWindow("Shell_traywnd", "")
    Call ShowWindow(lngWnd, SW_HIDE)
    
    MsgBox "显示任务栏"
    Call ShowWindow(lngWnd, SW_SHOW)
End Sub

Answer 4

find window找到任务栏
然后 enablewindow  
设为false