/*
更新地址
https://github.com/telppa/KMCounter
https://www.autoahk.com/archives/35147
*/
;编译信息
;@Ahk2Exe-Bin Unicode 32*
;@Ahk2Exe-SetName KMCounter
;@Ahk2Exe-SetVersion 3.7
;@Ahk2Exe-SetCopyright telppa (2021 - )
;@Ahk2Exe-SetMainIcon resouces\KMCounter.ico

#NoEnv
#SingleInstance Force
SetBatchLines, -1

global APPName:="KMCounter", ver:=3.7
     , today:=SubStr(A_Now, 1, 8)
     , tomorrow:=EnvAdd(today, 1, "Days", 1, 8)
     , DataStorageDays, firstday
     , devicecaps:={}, layout:={}
     , hHookMouse, mouse:={}
     , hHookKeyboard, keyboard:={}

gosub, MultiLanguage                    ; 多语言支持
gosub, Welcome                          ; 首次使用时显示欢迎信息
LoadData(today)                         ; 初始化除 hHookMouse hHookKeyboard 的全部全局变量
gosub, BlockClickOnGui1                 ; 因为键盘热力图是用 Edit 控件画的，所以屏蔽鼠标点击避免其造成控件外观改变
gosub, CreateMenu                       ; 创建托盘菜单
gosub, CreateGui1                       ; 预先创建 GUI1 以便需要时加速显示
gosub, CreateGui2                       ; 预先创建 GUI2 以便需要时加速显示

HookMouse()                             ; 鼠标钩子
HookKeyboard()                          ; 键盘钩子

SetTimer, Reload, % countdown()         ; 设置一个计时器用于跨夜时重启进程以便保存当日数据并开始新的一天
SetTimer, ReloadHook, % 60000*10        ; 每10分钟重载一次钩子，避免用户的按键映射型钩子的影响
OnExit("ExitFunc")                      ; 退出时在这里卸载钩子并保存参数

return

Welcome:
IfNotExist, KMCounter.ini
  OSDTIP_Pop(L_welcome_main, L_welcome_sub, -20000, "fm12 fs9 W320", "微软雅黑")
return

CreateGui1:
  ControlList:=LoadControlList(layout)                          ; 控件布局信息在此处创建
  Opt   := ControlList.Opt
  scale := A_ScreenDPI/96
  Gui, -DPIScale +HwndhWin                                      ; 禁止系统 DPI 缩放
  Gui, Color, % Opt.BackgroundColor, % Opt.BackgroundColor
  Gui, Font, % "S" Opt.FontSize//scale, % Opt.Font              ; 高分屏下缩小字号
  for k, control in ControlList
  {
    p:=""
    for k1, optname in ["x", "y", "w", "h", "Hwnd"]
    {
      ; 构造控件所需参数。当 xywhHwnd 不为空，则
      ; p:="x+123 y+123 w123 h123 Hwndsc123 " 或 p:="xm+123 ys+123 w123 h123 Hwndsc123 " 等等
      ; 任意为空，则对应的项消失，例如 xy 为空，则
      ; p:="w123 h123 Hwndsc123 "
      if (control[optname]!="")
        p.=" " optname control[optname]
    }
    if (InStr(control.Hwnd, "sc"))
    {
      ; 增加 v变量 ，形如 “keysc123” 。
      ; 完全是给 WM_MOUSEMOVE 用的，因为 A_GuiControl 只显示文本或 v变量 。
      p.=" vkey" control.Hwnd
      ; 创建按键。 Edit 控件比 Text 控件多一条白色细边框，更好看一些。
      Gui, Add, Edit, % "C" Opt.TextColor " Center ReadOnly -WantCtrlA -TabStop -Vscroll" p, % control.Text
    }
    else if (control.Hwnd="Message")
    {
      ; 增加 v变量 ，形如 “msgMessage” 。
      p.=" vmsg" control.Hwnd
      ; 创建信息框
      Gui, Add, ListView, % "C" Opt.TextColor " +Grid Count10 -Hdr -HScroll" p, % L_gui1_LV标题
      for k1, field in [L_gui1_鼠标移动, L_gui1_键盘敲击
                      , L_gui1_左键点击, L_gui1_右键点击, L_gui1_中键点击
                      , L_gui1_滚轮滚动, L_gui1_滚轮横滚
                      , L_gui1_侧键点击
                      , L_gui1_屏幕尺寸]
        LV_Add("", field)

      LV_ModifyCol(2, "Right")                            ; 文本右对齐
      LV_ModifyCol(3, "Right")
      LV_ModifyCol(4, "Right")
      LV_ModifyCol(5, "Right")
      LV_ModifyCol(1, 70)                                 ; 1 列宽度设为70
      LV_ModifyCol(3, 0)                                  ; 3、4 列宽度设为0
      LV_ModifyCol(4, 0)
      LV_ModifyCol(2, (control.w-70-Ceil(22*scale))//2)   ; 2、5 列平分剩下的宽度
      LV_ModifyCol(5, (control.w-70-Ceil(22*scale))//2)   ; 即使关闭了 DPIScale 滚动条的宽度依然受影响 所以需要乘以系数
    }
  }
  Gui, Show, Hide
return

; 统计界面下，滚轮与翻页键切换历史回忆。
#If (WinActive("ahk_id " hWin))
WheelDown::
WheelUp::
PgDn::
PgUp::
Down::
Up::
  Critical
  ; 设置默认值
  NonNull(history, today)
  loop, % DataStorageDays+1
  {
    switch, A_ThisHotkey
    {
      case, "WheelDown","PgDn","Down": history:=EnvAdd(history, -1, "Days", 1, 8)  ; 前一天
      case, "WheelUp","PgUp","Up":     history:=EnvAdd(history,  1, "Days", 1, 8)  ; 后一天
    }
    ; 日期永远在今天、总计、第一天之间循环
    if (history > tomorrow)
      history := firstday
    if (history < firstday)
      history := tomorrow

    ; 显示全部数据
    if (history = tomorrow)
    {
      date := "Total"
      gosub, ShowHeatMap
      break
    }
    ; 找到历史数据，并且历史数据与当前显示数据不同，则刷新
    if (LoadData(history) and date!=history)
    {
      date := history
      gosub, ShowHeatMap
      break
    }
  }
return
#If

GuiEscape:
GuiClose:
  Gui, Hide
  history:=""
  btt()
return

CreateGui2:
{
  Gui, 2:Color, 444444, 444444

  Gui, 2:Font, s19 Bold cEEEEEE, 微软雅黑
  Gui, 2:Add, Text, x16 y24 w216 h30 +0x200, %L_gui2_历史数据%
  Gui, 2:Font
  Gui, 2:Font, cEEEEEE, 微软雅黑
  Gui, 2:Add, Text, x16 yp+40 w216 h23, %L_gui2_sub1%

  Gui, 2:Add, Text, x16 yp+40 w85 h23, %L_gui2_存储%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vdsd, % DataStorageDays
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_天%

  Gui, 2:Font, s19 Bold cEEEEEE, 微软雅黑
  Gui, 2:Add, Text, x16 yp+48 w216 h30 +0x200, %L_gui2_屏幕尺寸%
  Gui, 2:Font
  Gui, 2:Font, cEEEEEE, 微软雅黑
  Gui, 2:Add, Text, x16 yp+40 w216 h23, %L_gui2_sub2%

  Gui, 2:Add, Text, x16 yp+40 w85 h23, %L_gui2_屏幕宽%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vdw, % devicecaps.w
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_毫米%

  Gui, 2:Add, Text, x16 yp+32 w85 h23, %L_gui2_屏幕高%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vdh, % devicecaps.h
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_毫米%

  Gui, 2:Font, s19 Bold cEEEEEE, 微软雅黑
  Gui, 2:Add, Text, x16 yp+48 w216 h30 +0x200, %L_gui2_键盘布局%
  Gui, 2:Font
  Gui, 2:Font, cEEEEEE, 微软雅黑
  Gui, 2:Add, Text, x16 yp+40 w216 h23, %L_gui2_sub3%

  Gui, 2:Add, Text, x16 yp+40 w85 h23, %L_gui2_键宽%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vlkw, % layout.kw
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_像素%

  Gui, 2:Add, Text, x16 yp+32 w85 h23, %L_gui2_键高%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vlkh, % layout.kh
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_像素%

  Gui, 2:Add, Text, x16 yp+32 w85 h23, %L_gui2_键间距%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vlks, % layout.ks
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_像素%

  Gui, 2:Add, Text, x16 yp+32 w85 h23, %L_gui2_区域水平间距%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vlkhs, % layout.khs
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_像素%

  Gui, 2:Add, Text, x16 yp+32 w85 h23, %L_gui2_区域垂直间距%:
  Gui, 2:Add, Edit, x104 yp-2 w85 h19 Number Limit -Multi vlkvs, % layout.kvs
  Gui, 2:Add, Text, x197 yp+2 w30 h23, %L_gui2_像素%

  Gui, 2:Add, Button, x16 yp+48 w80 h30 gCancelSetting hwndhBT1, %L_gui2_取消%
  Gui, 2:Add, Button, x140 yp+0 w80 h30 gSaveSetting hwndhBT2, %L_gui2_保存%

  Opt1 := [0, 0xff708090, , 0xffeeeeee, 5, 0xff444444]  ; 按钮正常时候的样子
  Opt2 := [0, 0xffeeeeee, , 0xff708090, 5, 0xff444444]  ; 鼠标在按钮上的样子
  Opt5 := Opt1                                          ; 被按过一次后的样子
  if !(ImageButton.Create(hBT1, Opt1, Opt2, , , Opt5))
    MsgBox, 0, ImageButton Error btn1, % ImageButton.LastError
  if !(ImageButton.Create(hBT2, Opt1, Opt2, , , Opt5))
    MsgBox, 0, ImageButton Error btn1, % ImageButton.LastError

  Gui, 2:Show, w235 h622 Hide
}
return

CancelSetting:
2GuiEscape:
2GuiClose:
  Gui, 2:Hide
return

SaveSetting:
  Gui, 2:Submit
  ; 限制历史数据存储天数最小值为0，默认值为30。
  DataStorageDays := NonNull_Ret(dsd, 30, 0)
  UpdateDeviceCaps(dw, dh)
  UpdateLayout(lkw, lkh, lks, lkhs, lkvs)
  ; 直接重启以便更新设置
  gosub, Reload
return

Reload:
  Reload
return

ReloadHook:
  ; 如果用户的 .ahk 在我们之后运行，并且其中含有 a::b 之类的按键映射，此时就需要重载以便我们的钩子更靠前，才能获取消息。
  DllCall("UnhookWindowsHookEx", "UInt", hHookMouse)
  DllCall("UnhookWindowsHookEx", "UInt", hHookKeyboard)
  HookMouse()
  HookKeyboard()
return

CreateMenu:
{
  Menu, Tray, NoStandard                           ; 不显示 ahk 自己的菜单
  Menu, Tray, Tip, %APPName% v%ver%                ; 托盘提示信息
  Menu, Tray, Add, %L_menu_统计%,     MenuHandler  ; 创建新菜单项
  Menu, Tray, Add, %L_menu_设置%,     MenuHandler
  ;Menu, Tray, Add                                  ; 分隔符
  ;Menu, Tray, Add, %L_menu_开机启动%, MenuHandler
  ;Menu, Tray, Add, %L_menu_布局定制%, MenuHandler
  Menu, Tray, Add
  Menu, Tray, Add, %L_menu_退出%,     MenuHandler
  Menu, Tray, Default, %L_menu_统计%               ; 将统计设为默认项

  ico1:="iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAA4klEQVQ4T6XToU5DQRCF4e+6VvQBeIVCQuqQYCENinoMDQkCgcJQ"
  ico1.="dE0FqkhEkzYoBAEErrwA8DqQSe5NNrTcbtNRK3b+nTnnbGHDKsr+AW4yWD3M0nsV4Afb+M6AnGIPZzhIAdW5jrGP9+RCa11AExMc"
  ico1.="4xmHdYAjXOEaH9jFPYblBA08/Afo4A13OMcFRrhMRGyHZssAW3jFI8KdyqG/DnxiZxngBXPcrnAknCtSwEk5Xry4qjnYC4AuntDH"
  ico1.="OCMPC4DcIAU7BPxKV8iNcjpYrDnISV/tNhVgihBxnYpP1dt4gl9sRC5dONyGKQAAAABJRU5ErkJggg=="
  ico1:=Base64PNG_to_HICON(ico1)

  ico2:="iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAABVklEQVQ4T63TP0tXcRTH8ZdGTyAcXIJagxYXUQJ1qaUnELaILTqI"
  ico2.="o2L4BzRzaWgogqIlwbaG0jGHyEUI8gkYbQ0tgUtLfOBcuV74haBnuff757zPOZ9zvn0uaH09/MfxuXM2gf3u/S4gjrmU7wriFAts"
  ico2.="rXV2CmoDNjCPVdzCjQ4g6wM8wBMshdwAbuM77mILPzCHn5XBNWxiEAmUDIZx1AC26/JCq8ZJ3Kn1F+ROY+u4ickGcFgnSf8jRivS"
  ico2.="Ue0nw6T8FferzH4MtTWIaBEvwr3DX0wV4C2u4mEJ+g2PcdIGJPpYAV4WIDrEnhdgpgCvsNMWMSWc4Bk+pDY8wnEB0oHXpUNKWMan"
  ico2.="tPZ/IkaH2QK8qPobEZ/iT3TqtvEekuYvLOJ3eVyvMpLRLt4jrT2dg/ynv4m4h5FKvz2JcRjAlZrK6HQGkPV5Rnkab5paLv0x9Xic"
  ico2.="vbf/AUZITBFlGQzCAAAAAElFTkSuQmCC"
  ico2:=Base64PNG_to_HICON(ico2)

  ico3.="iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAgElEQVQ4T2NkoBAwUqifAW6Ajo7Of1IMu3LlClgvigEwQUIGgSyj"
  ico3.="jQFINh9gZGRU+P///y0017jB+FhdwMjIqAdS8P//f2FGRsY+BgaGeGze+f///yW8XtDR0RFnYGBYc+XKFVtsBhAMg1EDGBjIDgNC"
  ico3.="KRBZHiMaSdGMrJbi3AgA8Z51EexVYzAAAAAASUVORK5CYII="
  ico3:=Base64PNG_to_HICON(ico3)

  if (!A_IsCompiled)
    Menu, Tray, Icon, resouces\%APPName%.ico         ; 加载托盘图标
  Menu, Tray, Icon, %L_menu_统计%,     HICON:%ico1%  ; 加载菜单图标
  Menu, Tray, Icon, %L_menu_设置%,     HICON:%ico2%
  ;Menu, Tray, Icon, %L_menu_布局定制%, HICON:%ico3%

  ;IfExist, %A_Startup%\%APPName%.Lnk                 ; 检测启动文件夹中是否有快捷方式来确定是否勾选自启
    ;Menu, Tray, Check, %L_menu_开机启动%
}
return

MenuHandler:
  if (A_ThisMenuItem = L_menu_统计)
  {
    date := today
    gosub, ShowHeatMap
  }

  if (A_ThisMenuItem = L_menu_设置)
  {
    GuiControl, 2:, dw,   % devicecaps.w
    GuiControl, 2:, dh,   % devicecaps.h
    GuiControl, 2:, lkw,  % layout.kw
    GuiControl, 2:, lkh,  % layout.kh
    GuiControl, 2:, lks,  % layout.ks
    GuiControl, 2:, lkhs, % layout.khs
    GuiControl, 2:, lkvs, % layout.kvs
    Gui, 2:Show, , %L_gui2_设置%
  }

  if (A_ThisMenuItem = L_menu_开机启动)
  {
    IfExist, %A_Startup%\%APPName%.Lnk
    {
      FileDelete, %A_Startup%\%APPName%.Lnk
      Menu, Tray, UnCheck, %L_menu_开机启动%
    }
    else
    {
      FileCreateShortcut, %A_ScriptFullPath%, %A_Startup%\%APPName%.Lnk, %A_ScriptDir%
      Menu, Tray, Check, %L_menu_开机启动%
    }
  }

  if (A_ThisMenuItem = L_menu_布局定制)
  {
    Run, https://github.com/telppa/KMCounter
    Run, https://www.autoahk.com/archives/35147
  }

  if (A_ThisMenuItem = L_menu_退出)
    ExitApp
return

ShowHeatMap:
{
  ; 一定要先 Show 再设置按键颜色，否则不定时出错  
  Gui, Show, , % Format("{1} v{2} | {3} - {4}", APPName, ver, L_gui1_当前显示数据, date)
  ; 先显示文字统计信息
  LV_Modify(1,,, Format("{:.2f} {2}", mouse[date].move,          L_gui1_米),,
               , Format("{:.2f} {2}", mouse.total.move,          L_gui1_米))
  LV_Modify(2,,, Format("{1} {2}",    keyboard[date].keystrokes, L_gui1_次),,
               , Format("{1} {2}",    keyboard.total.keystrokes, L_gui1_次))
  LV_Modify(3,,, Format("{1} {2}",    mouse[date].lbcount,       L_gui1_次),,
               , Format("{1} {2}",    mouse.total.lbcount,       L_gui1_次))
  LV_Modify(4,,, Format("{1} {2}",    mouse[date].rbcount,       L_gui1_次),,
               , Format("{1} {2}",    mouse.total.rbcount,       L_gui1_次))
  LV_Modify(5,,, Format("{1} {2}",    mouse[date].mbcount,       L_gui1_次),,
               , Format("{1} {2}",    mouse.total.mbcount,       L_gui1_次))
  LV_Modify(6,,, Format("{1} {2}",    mouse[date].wheel,         L_gui1_次),,
               , Format("{1} {2}",    mouse.total.wheel,         L_gui1_次))
  LV_Modify(7,,, Format("{1} {2}",    mouse[date].hwheel,        L_gui1_次),,
               , Format("{1} {2}",    mouse.total.hwheel,        L_gui1_次))
  LV_Modify(8,,, Format("{1} {2}",    mouse[date].xbcount,       L_gui1_次),,
               , Format("{1} {2}",    mouse.total.xbcount,       L_gui1_次))
  LV_Modify(9,,, Format("{:.1f} {2}", devicecaps.size,           L_gui1_寸))
  ; 有了一定的数据量后再显示图案，同时可以避免初始颜色显示错误
  if (keyboard[date].keystrokes >= 100)
  {
    ; 获取一组渐变色
    colors   := getcolors(0xEEEEEE, 0xB26C65, 100)
    ; 将总量的1成设置为对比量
    maxcount := keyboard[date].keystrokes / 10
    for k, count in keyboard[date]
    {
      ; 按键量大于等于对比量，直接显示最深的颜色
      if (count >= maxcount)
        color := colors[100]
      ; 按键量小于1/100的对比量时，直接显示最浅的颜色
      else if (count < maxcount/100)
        color := colors[1]
      ; 根据按键量占据对比量的百分比，绘制颜色
      else
        color := colors[Floor(count/maxcount*100)]

      ; 设置按键颜色
      CtlColors.Change(%k%, color, Opt.TextColor)
    }
  }
  else
  {
    ; 数据量不足显示提示框
    for k, count in keyboard[date]
      CtlColors.Change(%k%, Opt.BackgroundColor, Opt.TextColor)
    MsgBox 0x42040, , %L_gui1_msgbox%
  }
}
return

WM_MOUSEMOVE()
{
  static init:=OnMessage(0x200, "WM_MOUSEMOVE"), IsMessageMaximized:=0
  global date, L_gui1_次, ControlList
  if (A_Gui = 1)
  {
    if (A_GuiControl = "msgMessage")
    {
      if (IsMessageMaximized = 0)
      {
        ; 鼠标移动到信息框时自动放大显示。
        GuiControl, Move, msgMessage, % "h" layout.kh*6+layout.khs+layout.ks*4
        ; 显示标题栏。
        GuiControl, +Hdr, msgMessage
        ; 此时必须隐藏按键，否则按键轮廓会穿透信息框。
        for k, v in ControlList.Covered
          GuiControl, Hide, % "key" v
        IsMessageMaximized := 1
      }
    }
    else
    {
      if (IsMessageMaximized = 1)
      {
        ; 信息框恢复最小化。
        GuiControl, Move, msgMessage, % "h" layout.kh
        ; 隐藏标题栏。
        GuiControl, -Hdr, msgMessage
        ; 显示按键。
        for k, v in ControlList.Covered
          GuiControl, Show, % "key" v
        IsMessageMaximized := 0
      }

      ; 鼠标移动到按键上时，显示对应按键敲击次数。
      key:=SubStr(A_GuiControl, 4)
      if (keyboard[date].HasKey(key))
        btt(keyboard[date][key] " " L_gui1_次,,,,"Style2")
      else
        btt()
    }
  }
  else
    btt()
}

BlockClickOnGui1:
{
  OnMessage(0x0201, "BlockClick")   ; 左键按下
  OnMessage(0x0202, "BlockClick")   ; 左键弹起
  OnMessage(0x0203, "BlockClick")   ; 左键双击
  OnMessage(0x0204, "BlockClick")   ; 右键按下
  OnMessage(0x0205, "BlockClick")   ; 右键弹起
  OnMessage(0x0206, "BlockClick")   ; 右键双击
}
return

BlockClick(wParam, lParam, msg, hwnd)
{
  if (A_Gui=1)
    return, 0                       ; 必须返回0才能丢掉消息实现屏蔽的效果
}

ExitFunc(ExitReason, ExitCode)
{
  DllCall("UnhookWindowsHookEx", "UInt", hHookMouse)
  DllCall("UnhookWindowsHookEx", "UInt", hHookKeyboard)
  CtlColors.Free()
  SaveData()
}

LoadData(date)
{
  ; 获取历史数据存储天数
  DataStorageDays := IniRead("KMCounter.ini", "history", "storage", 30)
  firstday        := EnvAdd(today, -DataStorageDays, "Days", 1, 8)

  ; 删除超时的历史数据
  SectionNames := StrSplit(IniRead("KMCounter.ini"), "`n", " `t`r`n`v`f")
  SavedSectionNames:={}
  for k, SectionName in SectionNames
  {
    if SectionName is integer
    {
      if (SectionName < firstday)                ; 小于第一天则算超时
        IniDelete, KMCounter.ini, %SectionName%  ; 因为要省略最后一个参数才能删除整段，所以只能用命令的形式
      else
        SavedSectionNames[SectionName]:=""
    }
  }
  ; 历史数据不存在则返回 false
  if (!SavedSectionNames.HasKey(date) and date!=today)
    return, false
  ; 历史数据已存在则返回 true
  if (IsObject(mouse[date]) or IsObject(keyboard[date]))
    return, true

  ; 获取屏幕信息
  devicecaps.w := IniRead("KMCounter.ini", "devicecaps", "w", " ")            ; 传空格给最后一个参数才能让默认值变空值（空格）
  devicecaps.h := IniRead("KMCounter.ini", "devicecaps", "h", " ")
  UpdateDeviceCaps(devicecaps.w, devicecaps.h)                                ; 更新 devicecaps
  ; 获取布局信息
  ratio        := A_ScreenWidth<1920 ? A_ScreenWidth/1920 : 1                 ; 高分辨率屏幕通常有 DPIScale 设置，所以不调大小。
  layout.kw    := IniRead("KMCounter.ini", "layout", "kw",  Round(52*ratio))  ; 键宽
  layout.kh    := IniRead("KMCounter.ini", "layout", "kh",  Round(45*ratio))  ; 键高
  layout.ks    := IniRead("KMCounter.ini", "layout", "ks",  Round(2*ratio))   ; 键间距
  layout.khs   := IniRead("KMCounter.ini", "layout", "khs", Round(10*ratio))  ; 区域水平间距
  layout.kvs   := IniRead("KMCounter.ini", "layout", "kvs", Round(10*ratio))  ; 区域垂直间距
  ; 获取鼠标信息
  for k, v in ["lbcount", "rbcount", "mbcount", "xbcount", "wheel", "hwheel", "move"]
  {
    mouse[date, v]    := IniRead("KMCounter.ini", date,    v, 0)
    mouse["total", v] := IniRead("KMCounter.ini", "total", v, 0)
  }
  ; 获取按键信息
  for k, control in LoadControlList()
  {
    if (InStr(control.Hwnd, "sc"))
    {
      keyboard[date, control.Hwnd]    := IniRead("KMCounter.ini", date,    control.Hwnd, 0)
      keyboard["total", control.Hwnd] := IniRead("KMCounter.ini", "total", control.Hwnd, 0)
    }
  }
  keyboard[date].keystrokes           := IniRead("KMCounter.ini", date,    "keystrokes", 0)
  keyboard["total"].keystrokes        := IniRead("KMCounter.ini", "total", "keystrokes", 0)

  return, true
}

SaveData()
{
  ; 保存历史数据存储天数
  IniWrite(DataStorageDays, "KMCounter.ini", "history", "storage")
  ; 保存屏幕信息
  IniWrite(devicecaps.w,  "KMCounter.ini", "devicecaps", "w")
  IniWrite(devicecaps.h,  "KMCounter.ini", "devicecaps", "h")
  ; 保存布局信息
  IniWrite(layout.kw,     "KMCounter.ini", "layout", "kw")
  IniWrite(layout.kh,     "KMCounter.ini", "layout", "kh")
  IniWrite(layout.ks,     "KMCounter.ini", "layout", "ks")
  IniWrite(layout.khs,    "KMCounter.ini", "layout", "khs")
  IniWrite(layout.kvs,    "KMCounter.ini", "layout", "kvs")
  ; 保存鼠标信息
  for k, v in ["lbcount", "rbcount", "mbcount", "xbcount", "wheel", "hwheel", "move"]
  {
    IniWrite(mouse[today][v],   "KMCounter.ini",   today, v)
    IniWrite(mouse["total"][v], "KMCounter.ini", "total", v)
  }
  ; 保存按键信息
  for k, v in keyboard[today]
    IniWrite(v, "KMCounter.ini", today, k)
  for k, v in keyboard["total"]
    IniWrite(v, "KMCounter.ini", "total", k)
}

HookMouse()
{
  ; 全局鼠标钩子
  hHookMouse := DllCall("SetWindowsHookEx" . (A_IsUnicode ? "W" : "A")
                      , "Int", WH_MOUSE_LL := 14
                      , "Ptr", RegisterCallback("LowLevelMouseProc", "Fast", 3)
                      , "Ptr", DllCall("GetModuleHandle", "UInt", 0, "Ptr")
                      , "UInt", 0, "Ptr")
}
; https://docs.microsoft.com/en-us/previous-versions/windows/desktop/legacy/ms644986(v=vs.85)
; 非常坑爹的，在上面微软链接中没有记录 0x0208 0x020C 等值。
LowLevelMouseProc(nCode, wParam, lParam)
{
  static oldx, oldy, init:=MouseGetPos(oldx, oldy)
  Critical
  flags := NumGet(lParam+0, 12, "UInt") & 0x1                            ; 物理按下是0，模拟是1。0x1 = 00000001
  if (nCode>=0 and flags=0)
  {
    switch, wParam
    {
      case, 0x0200:                                                      ; WM_MOUSEMOVE   = 0x0200
          x := NumGet(lParam+0, 0, "Int")
        , y := NumGet(lParam+0, 4, "Int")
        , d := Sqrt((x-oldx)**2 + (y-oldy)**2)                           ; 勾股求斜边
        , d := d * devicecaps.w / A_ScreenWidth / 1000                   ; 将单位 像素 转换为 米
        , oldx := x, oldy := y
        , mouse[today].move += d
        , mouse.total.move  += d
      case, 0x0202: mouse[today].lbcount += 1, mouse.total.lbcount += 1  ; WM_LBUTTONUP   = 0x0202
      case, 0x0205: mouse[today].rbcount += 1, mouse.total.rbcount += 1  ; WM_RBUTTONUP   = 0x0205
      case, 0x0208: mouse[today].mbcount += 1, mouse.total.mbcount += 1  ; WM_MBUTTONUP   = 0x0208
      case, 0x020C: mouse[today].xbcount += 1, mouse.total.xbcount += 1  ; WM_XBUTTONUP   = 0x020C
      case, 0x020A: mouse[today].wheel   += 1, mouse.total.wheel   += 1  ; WM_MOUSEWHEEL  = 0x020A
      case, 0x020E: mouse[today].hwheel  += 1, mouse.total.hwheel  += 1  ; WM_MOUSEHWHEEL = 0x020E
    }
  }
  ; CallNextHookEx 让其它钩子可以继续处理消息
  ; 返回非0值 例如1 告诉系统此消息将丢弃
  return, DllCall("CallNextHookEx", "Ptr", 0, "Int", nCode, "UInt", wParam, "UInt", lParam)
}

HookKeyboard()
{
  ; 全局键盘钩子
  hHookKeyboard := DllCall("SetWindowsHookEx" . (A_IsUnicode ? "W" : "A")
                         , "Int", WH_KEYBOARD_LL := 13
                         , "Ptr", RegisterCallback("LowLevelKeyboardProc", "Fast", 3)
                         , "Ptr", DllCall("GetModuleHandle", "UInt", 0, "Ptr")
                         , "UInt", 0, "Ptr")
}
; https://docs.microsoft.com/en-us/previous-versions/windows/desktop/legacy/ms644985(v=vs.85)
LowLevelKeyboardProc(nCode, wParam, lParam)
{
  Critical
  flags := NumGet(lParam+0, 8, "UInt") & 0x10                         ; 物理按下是0，模拟是非0。0x10 = 00010000
  if (nCode>=0 and flags=0 and (wParam = 0x0101 or wParam = 0x0105))  ; WM_KEYUP = 0x0101 WM_SYSKEYUP = 0x0105
  {
    ; vk := NumGet(lParam+0, "UInt")                                  ; vk 不能区分数字键盘，所以用 sc
      Extended := NumGet(lParam+0, 8, "UInt") & 0x1                   ; 扩展键（即功能键或者数字键盘上的键）是1，否则是0
    , sc := (Extended<<8) | NumGet(lParam+0, 4, "UInt")
    if (!keyboard[today].HasKey("sc" sc))                             ; 即使不在布局中的按键依然初始化，使其可被记录
    {
      keyboard[today,   "sc" sc] := 0
      keyboard["total", "sc" sc] := 0
    }
      keyboard[today,   "sc" sc] += 1
    , keyboard["total", "sc" sc] += 1
    , keyboard[today,   "keystrokes"] += 1
    , keyboard["total", "keystrokes"] += 1
  }
  ; CallNextHookEx 让其它钩子可以继续处理消息
  ; 返回非0值 例如1 告诉系统此消息将丢弃
  return, DllCall("CallNextHookEx", "Ptr", 0, "Int", nCode, "UInt", wParam, "UInt", lParam)
}

getcolors(c1, c2, n)
{
  ; 限制 n 的范围
  n := n>=2 ? n : 2
  ; 生成渐变色
  colors := []
  r1 := c1 >> 16, g1 := c1 >> 8 & 0xFF, b1 := c1 & 0xFF
  r2 := c2 >> 16, g2 := c2 >> 8 & 0xFF, b2 := c2 & 0xFF
  ; (n-1) 与 (A_Index-1) 确保输出的首尾一定是 c1 和 c2
    rd := (r2-r1)/(n-1)
  , gd := (g2-g1)/(n-1)
  , bd := (b2-b1)/(n-1)
  loop, % n
    ; 不需要对 rd gd bd 等进行舍除
    ; 在这里利用 Format 进行位数限制，能更好的保留精度
    colors[A_Index] := Format("{:02x}{:02x}{:02x}"
    , r1+rd * (A_Index-1)
    , g1+gd * (A_Index-1)
    , b1+bd * (A_Index-1))
  return, colors
}

countdown()
{
  ; 距离明天凌晨 0:00:05 的秒数，+5秒是为了给系统时间不准留点余量
  return, -(EnvSub(tomorrow, A_Now, "Seconds")+5)*1000
}

UpdateDeviceCaps(w:="", h:="")
{
  ; 我的屏幕使用 EDID 与 GetDeviceCaps 两种方法获取到的屏幕尺寸都是错的
  ; 并且 aida64 之类的软件获取到的屏幕尺寸也是错的
  ; 所以并不存在一种 100% 准确获取屏幕物理尺寸的方法
  if (w>0 and h>0)                                                          ; 传过来的值可能是空格（空值），所以用大于符号判断。
  {
    devicecaps.w  := w                                                      ; 有传值过来则直接使用
    devicecaps.h  := h
  }
  else
  {                                                                         ; 没有传值过来则获取屏幕物理尺寸
    hdcScreen     := DllCall("GetDC", "UPtr", 0)
    devicecaps.w  := DllCall("GetDeviceCaps", "UPtr", hdcScreen, "Int", 4)  ; 毫米
    devicecaps.h  := DllCall("GetDeviceCaps", "UPtr", hdcScreen, "Int", 6)  ; 毫米
  }
  devicecaps.size := (Sqrt(devicecaps.w**2 + devicecaps.h**2)/25.4)         ; 英寸 勾股求斜边
}

UpdateLayout(lkw, lkh, lks, lkhs, lkvs)
{
  layout.kw  := lkw
  layout.kh  := lkh
  layout.ks  := lks
  layout.khs := lkhs
  layout.kvs := lkvs
}

IniRead(Filename, Section:="", Key:="", Default:=""){
  IniRead, OutputVar, %Filename%, %Section%, %Key%, %Default%
  ; 不管是没找到键 亦或是 键值为空 都返回默认值
  return, OutputVar="" ? Default : OutputVar
}
IniWrite(Value, Filename, Section, Key:=""){
  IniWrite, %Value%, %Filename%, %Section%, %Key%
}
EnvSub(Var, Value, TimeUnits){
  EnvSub, Var, %Value%, %TimeUnits%
  return, Var
}
EnvAdd(Var, Value, TimeUnits, StartingPos, Length){
  EnvAdd, Var, %Value%, %TimeUnits%
  ; 日期经过 EnvAdd 计算后位数会发生变化，所以用 SubStr 还原。
  return, SubStr(Var, StartingPos, Length)
}
MouseGetPos(ByRef OutputVarX, ByRef OutputVarY){
	MouseGetPos, OutputVarX, OutputVarY
}
MouseGetClassNN(){
	MouseGetPos,,,,OutputVarControl
  return, OutputVarControl
}

; 此函数储存了每个按键之间的大小与距离关系，实现了自定义键盘大小。
LoadControlList(layout:="")
{
  KeyW              := NonNull_Ret(layout.kw,  52, 30)  ; 限制按键宽度最小值为30
  KeyH              := NonNull_Ret(layout.kh,  45, 25)  ; 限制按键高度最小值为25（可以正常显示1行文本的最小高度）
  KeySpacing        := NonNull_Ret(layout.ks,  2,  0)   ; 限制键间距
  HorizontalSpacing := NonNull_Ret(layout.khs, 10, 0)   ; 限制区域水平间距
  VerticalSpacing   := NonNull_Ret(layout.kvs, 10, 0)   ; 限制区域垂直间距

  m:=[KeySpacing,        "+" KeySpacing                 ; 普通按键间距
    , HorizontalSpacing, "+" HorizontalSpacing          ; 区域水平间距
    , VerticalSpacing,   "+" VerticalSpacing            ; 区域垂直间距
    , "",                ""]                            ; ESC-F1 间距（计算得到）

  , w    :=  KeyW                                       ; w h 不带数字的是普通按键的宽高，带数字则表示第n行特殊按键的宽高。
  , h    :=  KeyH
  , w2   :=  w*2+10                                     ; BackSpace
  , w3   := (w*13 + w2 - w*12 + m.1*0)/2                ; Tab      \
  , w4   := (w*13 + w2 - w*11 + m.1*1)/2                ; CapsLock Enter
  , w5   := (w*13 + w2 - w*10 + m.1*2)/2                ; Shift
  , w6_1 :=  w3                                         ; Ctrl
  , w6_2 :=  w6_1-10                                    ; Win      Alt
  , w6_3 := (w*13 + w2 - w6_1*2 - w6_2*4 + m.1*7)       ; Space

  , m7   := (w*13 + w2 - w*13 + m.1*4)/3                ; ESC-F1 间距
  , m.7  :=  m7
  , m.8  :=  "+" m7

  list:=[]
  ; 第一行
  list.push({Hwnd:"sc1",  Text:"Esc", x:"",  y:"", w:w, h:h})
  list.push({Hwnd:"sc59", Text:"F1",  x:m.8, y:"", w:w, h:h})
  list.push({Hwnd:"sc60", Text:"F2",  x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc61", Text:"F3",  x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc62", Text:"F4",  x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc63", Text:"F5",  x:m.8, y:"", w:w, h:h})
  list.push({Hwnd:"sc64", Text:"F6",  x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc65", Text:"F7",  x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc66", Text:"F8",  x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc67", Text:"F9",  x:m.8, y:"", w:w, h:h})
  list.push({Hwnd:"sc68", Text:"F10", x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc87", Text:"F11", x:m.2, y:"", w:w, h:h})
  list.push({Hwnd:"sc88", Text:"F12", x:m.2, y:"", w:w, h:h})
  ; 第二行
  list.push({Hwnd:"sc41", Text:"``",        x:"m", y:m.4, w:w,  h:h})
  list.push({Hwnd:"sc2",  Text:"1",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc3",  Text:"2",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc4",  Text:"3",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc5",  Text:"4",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc6",  Text:"5",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc7",  Text:"6",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc8",  Text:"7",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc9",  Text:"8",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc10", Text:"9",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc11", Text:"0",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc12", Text:"-",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc13", Text:"=",         x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc14", Text:"BackSpace", x:m.2, y:"",  w:w2, h:h})
  ; 第三行
  list.push({Hwnd:"sc15", Text:"Tab", x:"m", y:m.2, w:w3, h:h})
  list.push({Hwnd:"sc16", Text:"q",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc17", Text:"w",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc18", Text:"e",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc19", Text:"r",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc20", Text:"t",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc21", Text:"y",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc22", Text:"u",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc23", Text:"i",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc24", Text:"o",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc25", Text:"p",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc26", Text:"[",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc27", Text:"]",   x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc43", Text:"\",   x:m.2, y:"",  w:w3, h:h})
  ; 第四行
  list.push({Hwnd:"sc58", Text:"CapsLock", x:"m", y:m.2, w:w4, h:h})
  list.push({Hwnd:"sc30", Text:"a",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc31", Text:"s",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc32", Text:"d",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc33", Text:"f",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc34", Text:"g",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc35", Text:"h",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc36", Text:"j",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc37", Text:"k",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc38", Text:"l",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc39", Text:";",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc40", Text:"'",        x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc28", Text:"Enter",    x:m.2, y:"",  w:w4, h:h})
  ; 第五行
  list.push({Hwnd:"sc42", Text:"Shift", x:"m", y:m.2, w:w5, h:h})
  list.push({Hwnd:"sc44", Text:"z",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc45", Text:"x",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc46", Text:"c",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc47", Text:"v",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc48", Text:"b",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc49", Text:"n",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc50", Text:"m",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc51", Text:",",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc52", Text:".",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc53", Text:"/",     x:m.2, y:"",  w:w,  h:h})
  list.push({Hwnd:"sc310", Text:"Shift", x:m.2, y:"",  w:w5, h:h})
  ; 第六行
  list.push({Hwnd:"sc29",  Text:"Ctrl",  x:"m", y:m.2, w:w6_1, h:h})
  list.push({Hwnd:"sc347", Text:"Win",   x:m.2, y:"",  w:w6_2, h:h})
  list.push({Hwnd:"sc56",  Text:"Alt",   x:m.2, y:"",  w:w6_2, h:h})
  list.push({Hwnd:"sc57",  Text:"Space", x:m.2, y:"",  w:w6_3, h:h})
  list.push({Hwnd:"sc312", Text:"Alt",   x:m.2, y:"",  w:w6_2, h:h})
  list.push({Hwnd:"sc348", Text:"Win",   x:m.2, y:"",  w:w6_2, h:h})
  list.push({Hwnd:"sc285", Text:"Ctrl",  x:m.2, y:"",  w:w6_1, h:h})

  ; 定位翻页键的区域，确保高度与第二行一致。temp1:="ym+123 Section"
  temp1:="m+" h+m.3 " Section"
  list.push({Hwnd:"sc338", Text:"Insert", x:m.6, y:temp1, w:w, h:h})
  list.push({Hwnd:"sc327", Text:"Home",   x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc329", Text:"PageUp", x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc339", Text:"Delete", x:"s", y:m.2,   w:w, h:h})
  list.push({Hwnd:"sc335", Text:"End",    x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc337", Text:"PageDn", x:m.2, y:"",    w:w, h:h})

  ; 定位方向键的区域，确保高度与第五行一致。temp1:="xs+123" temp2:="y+123"
  temp1:="s+" w+m.1, temp2:="+" h+2*m.1
  list.push({Hwnd:"sc328", Text:"▲", x:temp1, y:temp2, w:w, h:h})
  list.push({Hwnd:"sc331", Text:"◀", x:"s",   y:m.2,   w:w, h:h})
  list.push({Hwnd:"sc336", Text:"▼", x:m.2,   y:"",    w:w, h:h})
  list.push({Hwnd:"sc333", Text:"▶", x:m.2,   y:"",    w:w, h:h})

  ; 定位数字键盘的区域，确保高度与第二行一致。temp1:="ym+123 Section"
  temp1:="m+" h+m.3 " Section"
  list.push({Hwnd:"sc325", Text:"NumLock", x:m.6, y:temp1, w:w, h:h})
  list.push({Hwnd:"sc309", Text:"/",       x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc55",  Text:"*",       x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc74",  Text:"-",       x:m.2, y:"",    w:w, h:h})
  ; 数字键盘第二行
  list.push({Hwnd:"sc71", Text:"7",        x:"s", y:m.2,   w:w, h:h})
  list.push({Hwnd:"sc72", Text:"8",        x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc73", Text:"9",        x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc78", Text:"+",        x:m.2, y:"",    w:w, h:h*2+m.1})
  ; 数字键盘第三行
  temp1:="s+" (h+m.1)*2
  list.push({Hwnd:"sc75", Text:"4",        x:"s", y:temp1, w:w, h:h})
  list.push({Hwnd:"sc76", Text:"5",        x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc77", Text:"6",        x:m.2, y:"",    w:w, h:h})
  ; 数字键盘第四行
  temp1:="s+" (h+m.1)*3
  list.push({Hwnd:"sc79",  Text:"1",       x:"s", y:temp1, w:w, h:h})
  list.push({Hwnd:"sc80",  Text:"2",       x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc81",  Text:"3",       x:m.2, y:"",    w:w, h:h})
  list.push({Hwnd:"sc284", Text:"Enter",   x:m.2, y:"",    w:w, h:h*2+m.1})
  ; 数字键盘第五行
  temp1:="s+" (h+m.1)*4
  list.push({Hwnd:"sc82", Text:"0",        x:"s", y:temp1, w:w*2+m.1, h:h})
  list.push({Hwnd:"sc83", Text:".",        x:m.2, y:"",    w:w,       h:h})

  ; 信息框
    temp1:="m+" w*13+Round(m.7*3)+m.1*9+m.5
  , temp2:=w*7+m.1*5+m.5    ; 与 翻页键区域 + 数字键盘区域 等宽
  , temp3:=h                ; 与 单个按键等高
  list.push({Hwnd:"Message", Text:"",      x:temp1, y:"m", w:temp2, h:temp3})

  ; 信息框放大后会被遮挡的按键列表
  list.Covered := ["sc338", "sc327", "sc329", "sc339", "sc335", "sc337"  ; 翻页区
                 , "sc328", "sc331", "sc336", "sc333"                    ; 方向区
                 , "sc325", "sc309", "sc55",  "sc74"                     ; 小键盘区
                 , "sc71",  "sc72",  "sc73",  "sc78"
                 , "sc75",  "sc76",  "sc77"
                 , "sc79",  "sc80",  "sc81",  "sc284"
                 , "sc82",  "sc83"]

  ; Color 没有 0x 前缀。背景色影响 GUI 信息框 当日按键数据太少时的按键。不影响数据量足够后的按键。
  list.Opt := {Font:"comic sans ms", FontSize:9, BackgroundColor:"EEEEEE", TextColor:"575757"}

  return, list
}

MultiLanguage:
  if (A_Language="0804")
  {
    L_menu_统计:="统计"
    L_menu_设置:="设置"
    L_menu_开机启动:="开机启动"
    L_menu_布局定制:="布局定制"
    L_menu_退出:="退出"

    L_gui1_当前显示数据:="当前显示数据"
    L_gui1_LV标题:="项目|今日|本周|本月|总计"
    L_gui1_鼠标移动:="鼠标移动"
    L_gui1_键盘敲击:="键盘敲击"
    L_gui1_左键点击:="左键点击"
    L_gui1_右键点击:="右键点击"
    L_gui1_中键点击:="中键点击"
    L_gui1_滚轮滚动:="滚轮滚动"
    L_gui1_滚轮横滚:="滚轮横滚"
    L_gui1_侧键点击:="侧键点击"
    L_gui1_屏幕尺寸:="屏幕尺寸"
    L_gui1_米:="米"
    L_gui1_次:="次"
    L_gui1_寸:="寸"
    L_gui1_msgbox:="今日按键次数较少，故暂未生成按键热点图。"

    L_gui2_设置:="设置"
    L_gui2_历史数据:="历史数据"
    L_gui2_sub1:="设置历史数据保留时长。"
    L_gui2_存储:="存储"
    L_gui2_天:="天"
    L_gui2_屏幕尺寸:="屏幕尺寸"
    L_gui2_sub2:="设置显示器的真实尺寸。"
    L_gui2_屏幕宽:="屏幕宽"
    L_gui2_屏幕高:="屏幕高"
    L_gui2_毫米:="毫米"
    L_gui2_键盘布局:="键盘布局"
    L_gui2_sub3:="设置键盘热力图的尺寸。"
    L_gui2_键宽:="键宽"
    L_gui2_键高:="键高"
    L_gui2_键间距:="键间距"
    L_gui2_区域水平间距:="区域水平间距"
    L_gui2_区域垂直间距:="区域垂直间距"
    L_gui2_像素:="像素"
    L_gui2_取消:="取消"
    L_gui2_保存:="保存"

    L_welcome_main:="欢迎使用 KMCounter"
    L_welcome_sub:="KMCounter 将常驻托盘菜单为你统计所需信息。`n点击托盘图标即可查看统计结果。"
  }
  else
  {
    L_menu_统计:="Statistics"
    L_menu_设置:="Setting"
    L_menu_开机启动:="Start-Up"
    L_menu_布局定制:="Custom Layout"
    L_menu_退出:="Exit"

    L_gui1_当前显示数据:="Date"
    L_gui1_LV标题:="Item|Today|This Week|This Month|Total"
    L_gui1_鼠标移动:="MouseMove"
    L_gui1_键盘敲击:="Keystrokes"
    L_gui1_左键点击:="LButton"
    L_gui1_右键点击:="RButton"
    L_gui1_中键点击:="MButton"
    L_gui1_滚轮滚动:="Wheel"
    L_gui1_滚轮横滚:="HWheel"
    L_gui1_侧键点击:="XButton"
    L_gui1_屏幕尺寸:="Monitor"
    L_gui1_米:="m"
    L_gui1_次:="  "
    L_gui1_寸:="inch"
    L_gui1_msgbox:="The number of keystrokes is too low, keyboard heatmap not generated yet."

    L_gui2_设置:="Setting"
    L_gui2_历史数据:="History"
    L_gui2_sub1:="Set the storage time of history data."
    L_gui2_存储:="Storage"
    L_gui2_天:="days"
    L_gui2_屏幕尺寸:="Monitor"
    L_gui2_sub2:="Set the real size of the monitor."
    L_gui2_屏幕宽:="Width"
    L_gui2_屏幕高:="Height"
    L_gui2_毫米:="mm"
    L_gui2_键盘布局:="Layout"
    L_gui2_sub3:="Set the size of the heatmap."
    L_gui2_键宽:="Key Width"
    L_gui2_键高:="Key Height"
    L_gui2_键间距:="Key Spacing"
    L_gui2_区域水平间距:="HSpacing"
    L_gui2_区域垂直间距:="VSpacing"
    L_gui2_像素:="px"
    L_gui2_取消:="Cancel"
    L_gui2_保存:="Save"

    L_welcome_main:="Welcome to KMCounter"
    L_welcome_sub:="KMCounter will stay in the tray menu for statistics.`nClick the tray icon to view the results."
  }
return

#Include <OSDTIP>
#Include <Class_CtlColors>
#Include <Class_ImageButton>
#Include <UseGDIP>
#Include <BTT>
#Include <gdip_all>
Base64PNG_to_HICON(Base64PNG, W:=0, H:=0) {     ;   By SKAN on D094/D357 @ tiny.cc/t-36636
Local BLen:=StrLen(Base64PNG), Bin:=0,     nBytes:=Floor(StrLen(RTrim(Base64PNG,"="))*3/4)                     
  Return DllCall("Crypt32.dll\CryptStringToBinary", "Str",Base64PNG, "UInt",BLen, "UInt",1
            ,"Ptr",&(Bin:=VarSetCapacity(Bin,nBytes)), "UIntP",nBytes, "UInt",0, "UInt",0)
       ? DllCall("CreateIconFromResourceEx", "Ptr",&Bin, "UInt",nBytes, "Int",True, "UInt"
                 ,0x30000, "Int",W, "Int",H, "UInt",0, "UPtr") : 0            
}