AHK让Edge浏览器左键单击收藏夹在新标签中打开。不需要按Ctrl键或鼠标中键或拖放来实现在新标签中打开,默认左键打开。
就是收藏夹里面不能有文件夹,收藏网址太多,通过文件夹分类的不能用。我主用的不是Edge浏览器,收藏内容很少,所以没有任何影响。
这个是我一直自用的版本,edge里面的外观--自定义外观--主题,必须为:凉风,颜色才对得上0x8dacbd
我的显示器分辨率为1440×900,以前的19寸显示器
不过我已经通过A_ScreenWidth函数处理了一下,应该可以适用于任何分辨率显示器。
代码如下(ahk2.0版本):
#Requires AutoHotkey v2.0
#SingleInstance force
ProcessSetPriority "High"
Persistent(Persist := true)
#MaxThreads 255
#NoTrayIcon ;不显示图标
InstallKeybdHook(Install := true, Force := false)
InstallMouseHook(Install := true, Force := false)
; CoordMode "Pixel","Screen"
SetTimer Edged点击收藏栏最右侧后的底色,200
;点击收藏夹最右侧<后,<处的颜色变化,edge里面的外观--自定义外观--主题,必须为:凉风,颜色才对得上0x8dacbd
;分辨率为1440*900,颜色处为1406,89 1406/1440=0.97638,89/900=0.09888
#HotIf WinActive("ahk_exe msedge.exe") && (PixelGetColor(ceil(A_ScreenWidth*0.97638),ceil(A_ScreenHeight*0.09888))="0x8dacbd")
{
LButton::
{
if (A_PriorHotkey != "LButton" or A_TimeSincePriorHotkey > 400)
{
KeyWait "LButton","D"
SendInput "{MButton}"
SendInput "{esc}"
sleep 100
SendInput "^{tab}"
return
}
}
}
#HotIf
#hotIf WinActive("ahk_exe msedge.exe")
{
~LButton::
{
if (A_PriorHotkey != "~LButton" or A_TimeSincePriorHotkey > 400)
{
KeyWait "LButton","D"
MouseGetPos &xpos, &ypos
;当分辨率为1440*900的时候,下面3个坐标分别为70,110,1400
if (ypos > ceil(A_ScreenHeight*0.07777) && ypos < ceil(A_ScreenHeight*0.12222) && xpos < ceil(A_ScreenWidth*0.97222)) ;收藏直接显示区域及点最右侧>符号后显示出来的收藏项目,点击>符号后,>符号位置底色为灰底,据此判断弹出收藏项目
{
if WinExist("新建标签页")
SendInput "{click left}" ;在当前标签页打开
else
{
SendInput "{MButton}" ;在新标签打开
sleep 100
SendInput "^{tab}" ;切换到前台
}
}
}
}
}
#HotIf
Edged点击收藏栏最右侧后的底色() ;此函数平时不需要
{
ToolTip PixelGetColor(ceil(A_ScreenWidth*0.97638),ceil(A_ScreenHeight*0.09888))
}
就是收藏夹里面不能有文件夹,收藏网址太多,通过文件夹分类的不能用。我主用的不是Edge浏览器,收藏内容很少,所以没有任何影响。
这个是我一直自用的版本,edge里面的外观--自定义外观--主题,必须为:凉风,颜色才对得上0x8dacbd
我的显示器分辨率为1440×900,以前的19寸显示器
不过我已经通过A_ScreenWidth函数处理了一下,应该可以适用于任何分辨率显示器。
代码如下(ahk2.0版本):
#Requires AutoHotkey v2.0
#SingleInstance force
ProcessSetPriority "High"
Persistent(Persist := true)
#MaxThreads 255
#NoTrayIcon ;不显示图标
InstallKeybdHook(Install := true, Force := false)
InstallMouseHook(Install := true, Force := false)
; CoordMode "Pixel","Screen"
SetTimer Edged点击收藏栏最右侧后的底色,200
;点击收藏夹最右侧<后,<处的颜色变化,edge里面的外观--自定义外观--主题,必须为:凉风,颜色才对得上0x8dacbd
;分辨率为1440*900,颜色处为1406,89 1406/1440=0.97638,89/900=0.09888
#HotIf WinActive("ahk_exe msedge.exe") && (PixelGetColor(ceil(A_ScreenWidth*0.97638),ceil(A_ScreenHeight*0.09888))="0x8dacbd")
{
LButton::
{
if (A_PriorHotkey != "LButton" or A_TimeSincePriorHotkey > 400)
{
KeyWait "LButton","D"
SendInput "{MButton}"
SendInput "{esc}"
sleep 100
SendInput "^{tab}"
return
}
}
}
#HotIf
#hotIf WinActive("ahk_exe msedge.exe")
{
~LButton::
{
if (A_PriorHotkey != "~LButton" or A_TimeSincePriorHotkey > 400)
{
KeyWait "LButton","D"
MouseGetPos &xpos, &ypos
;当分辨率为1440*900的时候,下面3个坐标分别为70,110,1400
if (ypos > ceil(A_ScreenHeight*0.07777) && ypos < ceil(A_ScreenHeight*0.12222) && xpos < ceil(A_ScreenWidth*0.97222)) ;收藏直接显示区域及点最右侧>符号后显示出来的收藏项目,点击>符号后,>符号位置底色为灰底,据此判断弹出收藏项目
{
if WinExist("新建标签页")
SendInput "{click left}" ;在当前标签页打开
else
{
SendInput "{MButton}" ;在新标签打开
sleep 100
SendInput "^{tab}" ;切换到前台
}
}
}
}
}
#HotIf
Edged点击收藏栏最右侧后的底色() ;此函数平时不需要
{
ToolTip PixelGetColor(ceil(A_ScreenWidth*0.97638),ceil(A_ScreenHeight*0.09888))
}