显示/隐藏任务栏

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2017-06-13 17:05:06

首先声明如下外部函数:
Function long FindWindowExA &
( long hWnd, long hWndChild, ref string lpszClassName, &
ref string lpszWindow) library 'user32'

Function long ShowWindow &

(long hWnd, long nCmdShow ) library 'user32'

在Script中加入如下内容:
Constant Long SW_HIDE = 0
Constant Long SW_NORMAL = 1
Constant Long SW_SHOWMINIMIZED = 2
Constant Long SW_SHOWMAXIMIZED = 3
Constant Long SW_SHOWNOACTIVATE = 4
Constant Long SW_SHOW = 5
Constant Long SW_MINIMIZE = 6
Constant Long SW_SHOWMINNOACTIVE = 7
Constant Long SW_SHOWNA = 8
Constant Long SW_RESTORE = 9
Constant Long SW_SHOWDEFAULT = 10

String ls_ShellTaskBarWnd = "Shell_TrayWnd"
String ls_isnull

Long ll_HTaskBar, ll_HDeskTop
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_HIDE )
MessageBox( 'Pause', 'Can you see TaskBar?' )
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_SHOW )


Tags:

作者:佚名
分享到: 微信 更多

相关文章