!控件解锁

#Persistent
#NoEnv
#ErrorStdOut
#SingleInstance,force

Menu, Tray, Click, 1
Menu, Tray, Tip, 控件解锁
Menu, Tray, Add, 控件解锁, menu_show
Menu, Tray, Toggleenable, 控件解锁
Menu, Tray, Default, 控件解锁
Menu, Tray, Add
Menu, Tray, Add, 获取信息(&G), reGet_win_info
Menu, Tray, Add, 使用说明(&H), help
Menu, Tray, Add
Menu, Tray, Add, 重启程序(&R), reload
Menu, Tray, Add, 退出程序(&X), Exit
Menu, Tray, NoStandard

reGet_win_info:
REQ_flg = 0
settimer, Get_win_info, 100
Return


reload:
Reload
Return


Exit:
ExitApp
Return


Get_win_info:
  MouseGetPos, , , act_id, ClassNN
  WinGetTitle, act_Title, ahk_id %act_id%
  Controlget, Enable,Enabled, , %ClassNN%, %act_Title% ahk_id %act_id%
  If Enable
  Enable_t = 可用
  Else Enable_t = 禁用
  ToolTip,
  (
窗口：%act_Title%
控件：%ClassNN%(%Enable_t%)
  )
Return


~Esc::
REQ_flg = 1
ToolTip
SetTimer, Get_win_info, off
Return


~MButton::
IF REQ_flg = 1
Return
;ToolTip
;SetTimer, Get_win_info, off
if Enable
{
Control, Disable,, %ClassNN%, %act_Title% ahk_id %act_id%
Enable_t = 禁用
}
Else
{
Control, Enable,, %ClassNN%, %act_Title% ahk_id %act_id%
Enable_t = 可用
}
Return

        help:
        MsgBox, , 控件解锁,
  (
 １：程序运行后有一个提示信息窗口来显示
 当前鼠标位置窗口控件信息。

 ２：鼠标中键点击窗口控件时，控件在“禁用”
 和“可用”状态之间转换。

 ３：按退出键（Esc），程序退出转换状态，
 要重新启用时，你可以通过托盘菜单“获取
 信息”选项或者双击托盘图标进入转换状态。
  )
Return

menu_show:
Menu, Tray, Show
Return