[AHK]双击关闭Chrome浏览器的标签页

前言

近日更新最新版本的 Google Chrome，之前一直在使用的 Chrome++ 第三方 DLL 扩展正式失效。由于一直习惯了双击关闭标签页 + 滚轮切换标签页，因此更新后无法使用极度不适，最后通过百度 + 自己修改解决。

AutoHotkey

前往 AutoHotkey 的官方网站下载最新版本的 AutoHotkey 并安装。

AHK 脚本文件

原脚本来自知乎，现做了一些修改。

#NoEnv #SingleInstance force IniRead, doubleclick, settings.ini, option, doubleclick,Check IniRead, scrolltab, settings.ini, option, scrolltab,Check IniRead, rightclick, settings.ini, option, rightclick,Check EmptyMem() menu, tray, NoStandard menu, tray, add, 启用双击关闭标签页 menu, tray, add, 启用滚轮切换标签页 menu, tray, add, 启用右键关闭标签页 menu, tray, %doubleclick%, 启用双击关闭标签页 menu, tray, %scrolltab%, 启用滚轮切换标签页 menu, tray, %rightclick%, 启用右键关闭标签页 menu, tray, add ;分割线 menu, tray, add, 退出 return ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 退出: ExitApp return 启用双击关闭标签页: if doubleclick<>Check { menu, tray, Check, 启用双击关闭标签页 doubleclick=Check } Else { menu, tray, unCheck, 启用双击关闭标签页 doubleclick=unCheck } IniWrite, %doubleclick%, settings.ini, option, doubleclick EmptyMem() return 启用滚轮切换标签页: if scrolltab<>Check { menu, tray, Check, 启用滚轮切换标签页 scrolltab=Check } Else { menu, tray, unCheck, 启用滚轮切换标签页 scrolltab=unCheck } IniWrite, %scrolltab%, settings.ini, option, scrolltab EmptyMem() return 启用右键关闭标签页: if rightclick<>Check { menu, tray, Check, 启用右键关闭标签页 rightclick=Check } Else { menu, tray, unCheck, 启用右键关闭标签页 rightclick=unCheck } IniWrite, %rightclick%, settings.ini, option, rightclick EmptyMem() return #IfWinActive ahk_class Chrome_WidgetWin_1 ~$WheelDown:: ~$WheelUp:: if scrolltab=Check { MouseGetPos,, ypos If (ypos>40) Or (ypos<0) Return IfEqual,A_ThisHotkey,~$WheelDown, Send ^{PgDn} Else Send ^{PgUp} EmptyMem() } Return ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ~LButton:: if doubleclick=Check { WinGetPos,,, w, h, A MouseGetPos,xpos, ypos WinGet,Mom,MinMax If ((ypos>45)And(Mom<1))Or((ypos>28)And(Mom>0)) Or (ypos<0) Return If (A_PriorHotkey="~LButton") and (A_TimeSincePriorHotkey<200) ; 此处和知乎版本不同 ↓ send ^w ; 此处和知乎版本不同 ↑ EmptyMem() } Return ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ~RButton Up:: ~RButton:: if rightclick=Check { MouseGetPos,xpos, ypos WinGet,Mom,MinMax If ((ypos>45)And(Mom<1))Or((ypos>28)And(Mom>0)) Or (ypos<0) Return if GetKeyState("1") Return IfEqual,A_ThisHotkey,~RButton, Send {Click Middle} Else Send {Click middle} EmptyMem() } Return #IfWinActive EmptyMem(PID="AHK Rocks"){ pid:=(pid="AHK Rocks") ? DllCall("GetCurrentProcessId") : pid h:=DllCall("OpenProcess", "UInt", 0x001F0FFF, "Int", 0, "Int", pid) DllCall("SetProcessWorkingSetSize", "UInt", h, "Int", -1, "Int", -1) DllCall("CloseHandle", "Int", h) }

若需托盘不显示图标，则在第一行前新建一行插入 #NoTrayIcon 即可，实测支持最新 Chrome 81。

存在的问题

已知双击 Chrome 标题栏空处切换最大化/窗口化时也有概率触发脚本导致标签页关闭，目前解决方法是降低此时双击的频率。