AutoHotkey Community

Code: Select all

#SingleInstance force
#NoTrayIcon
#Persistent
SetBatchLines -1
SetMouseDelay -1
SetWinDelay -1
CoordMode Mouse, Screen
OnExit Exit
hideDelay := 300 ; ms
showOnMouseShift := true, shiftPixels := 40

global taskBarVis, xTaskBar, yTaskBar, wTaskBar, hTaskBar, taskBarOnTop, hideDelay, showOnMouseShift, shiftPixels

WinGetPos xTaskBar, yTaskBar, wTaskBar, hTaskBar, ahk_class Shell_TrayWnd ahk_exe explorer.exe
taskBarOnTop := yTaskBar < 0

DetectHiddenWindows On
hwndTaskBar := WinExist("ahk_class Shell_TrayWnd ahk_exe explorer.exe")
taskBarVis := DllCall("IsWindowVisible", Ptr, hwndTaskBar) ; originally invisible only on top
; MsgBox % xTaskBar " | " yTaskBar " | " wTaskBar " | " hTaskBar " | " taskBarVis := DllCall("IsWindowVisible", Ptr, hwndTaskBar)

; maybe hook is not cool for perfomance (possible freeze) and simple timer would be better
hHookMouse := DllCall("SetWindowsHookEx" . (A_IsUnicode ? "W" : "A")
   , Int, WH_MOUSE_LL := 14
   , Ptr, RegisterCallback("LowLevelMouseProc", "Fast")
   , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
   , UInt, 0, Ptr)
Return

; F1::showTaskBar()
; F2::hideTaskBar()
Esc::ExitApp

Exit:
	DllCall("UnhookWindowsHookEx", Ptr, hHookMouse)
	showTaskBar()
	ExitApp

LowLevelMouseProc(nCode, wParam, lParam) {
	static WM_MOUSEMOVE := 0x200, waitForShift, xTrigger ;, i := 0, j := 0

	if (nCode < 0 || wParam != WM_MOUSEMOVE)   ; 
	  Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

	x := NumGet(lParam+0, "Int"), y := NumGet(lParam+0, 4, "Int")

	If (showOnMouseShift && waitForShift) {
		; ToolTip % abs(x - xTrigger)
		If (y<yTaskBar-hTaskBar)
			waitForShift := false
		If (abs(x - xTrigger) > shiftPixels) {
			waitForShift := false
			SetTimer showTaskBar, -1
		}
	}

		; ToolTip % x ":" y "`n" yTaskBar " " yTaskBar+hTaskBar,,, 1
	If ((!taskBarVis or taskBarOnTop) and (x >= xTaskBar and x <= xTaskBar+wTaskBar && y >= yTaskBar-1 and y <= yTaskBar+hTaskBar)) {
		taskBarVis := 1
		; ToolTip % ++i, 100, 100, 2
		; SetTimer showTaskBar, -1
		waitForShift := true
		xTrigger := x
	}
	Else if (taskBarVis and !(x > xTaskBar-wTaskBar and x < xTaskBar+2*wTaskBar && y > yTaskBar-hTaskBar and y < yTaskBar+ 2*hTaskBar)) {
		taskBarVis := 0
		waitForShift := false
		; ToolTip % ++j, 200, 100, 3
		SetTimer hideTaskBar, % -hideDelay
	}
	Return
}


hideTaskBar() {
	; static hMenuStart := WinExist("ahk_class DV2ControlHost")
	MouseGetPos x, y ;, hWin, ControlClNN, 1
	If !(x > xTaskBar-30 and x < xTaskBar+wTaskBar+30 && y > yTaskBar-30 and y < yTaskBar+hTaskBar+30) {
		WinHide ahk_class Shell_TrayWnd ahk_exe explorer.exe
		WinHide Start ahk_class Button ahk_exe explorer.exe
	} else {
		taskBarVis := 1
	}
}
showTaskBar() {
	WinShow ahk_class Shell_TrayWnd ahk_exe explorer.exe
	WinShow Start ahk_class Button ahk_exe explorer.exe
}

/*
SysGet, MonitorCount, MonitorCount
SysGet, MonitorPrimary, MonitorPrimary
Loop % MonitorCount
{
    SysGet, MonitorName, MonitorName, %A_Index%
    SysGet, Monitor, Monitor, %A_Index%
    SysGet, MonitorWorkArea, MonitorWorkArea, %A_Index%
    MsgBox, Monitor:`t#%A_Index%`nName:`t%MonitorName%`nLeft:`t%MonitorLeft% (%MonitorWorkAreaLeft% work)`nTop:`t%MonitorTop% (%MonitorWorkAreaTop% work)`nRight:`t%MonitorRight% (%MonitorWorkAreaRight% work)`nBottom:`t%MonitorBottom% (%MonitorWorkAreaBottom% work)
}
SysGet, VirtualWidth, 78
SysGet, VirtualHeight, 79
; SysGet, OutputVar, Sub-command [, Param3]
SysGet, Mon2, Monitor, 2
MsgBox, Left: %Mon2Left% -- Top: %Mon2Top% -- Right: %Mon2Right% -- Bottom %Mon2Bottom%
; SysGet, OutputVar, MonitorWorkArea [, N] /Same as the above except the area is reduced to exclude the area occupied by the taskbar and other registered desktop toolbars