Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongDeclare Function ShowWindow Lib "user32" Alias "ShowWindow" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPublic Const SW_SHOW = 5Public Const SW_HIDE = 0Private hwnd5 as Longhwnd5 = FindWindow("Shell_traywnd","")Call ShowWindow(hwnd5, SW_HIDE) '隐藏任务栏Call ShowWindow(hwnd5, SW_SHOW) '显示任务栏这不是一个好的方式,如果您将任务栏隐藏了,但没有将之显示,那我们只有重新开机才能使之重新出现,当使用者发现叫不出任务栏时,他可能会很生气。...[ 查看全文 ]