[AHK-] 滑鼠助手 以滑鼠送出鍵盤熱鍵

作者: Ayiyaya (逸)   2018-09-15 12:00:47
https://i.imgur.com/3ie6ePt.png
說明:
以滑鼠送出鍵盤熱鍵,前一版是 #1Oo8FRfW (EzHotKey)
壓著左鍵再按右鍵 (或同時壓左右鍵) 送出指令:
Ctrl+W:關閉瀏覽器分頁,或部份視窗程式
壓著右鍵同時捲動滾輪,送出指令:
【分頁瀏覽】 Ctrl+PgUp/PgDn:在瀏覽器裡切換分頁
【瀏覽器縮放】Ctrl+Plus/Minus:在瀏覽器裡進行縮放
【視窗放大鏡】WinKey+PgUp/PgDn:執行 Magnify.exe
壓著右鍵再按左鍵,送出指令:
【分頁瀏覽】 Ctrl+T:在瀏覽器裡開新分頁
【瀏覽器縮放】Ctrl+0:在瀏覽器裡恢復縮放
【視窗放大鏡】WinKey+PgDn 數次:恢復原比例
※ 部份操作必須先點擊視窗或網頁空白處,取得操作焦點
※ 壓著左鍵/右鍵再按中鍵,快速切換指令
腳本:
#SingleInstance force
Gui, +ToolWindow +AlwaysOnTop
Gui, Show, x800 y750 h57 w100, 滑鼠助手
Gui, Add, Button, x2 y2 w50 h50, Ctrl+W
Gui, Add, Button, x83 y1 h18 w17 gHelp,?
Gui, Add, Radio, x54 y2 w30 h18 vRadioButton1 checked, 分
Gui, Add, Radio, x54 y20 w30 h18 vRadioButton2, 瀏
Gui, Add, Radio, x54 y38 w30 h18 vRadioButton3, 大
Return
Help:
MsgBox, 64, 滑鼠助手, (如文章開頭故省略)
Return
RButton::send {RButton}
Return
~LButton & RButton::send ^w
Return
RButton & MButton::
GuiControlGet, RadioButton1
GuiControlGet, RadioButton2
GuiControlGet, RadioButton3
if (RadioButton1 = 1) {
GuiControl,, RadioButton2, 1
ToolTip, 使用 瀏覽器縮放, x+20, y
sleep 600
ToolTip
}
else if (RadioButton2) = 1 {
GuiControl,, RadioButton3, 1
ToolTip, 使用 視窗放大鏡, x+20, y
sleep 600
ToolTip
}
else if (RadioButton3) = 1 {
GuiControl,, RadioButton1, 1
ToolTip, 使用 切換分頁, x+20, y
sleep 600
ToolTip
}
Return
LButton & MButton::
GuiControlGet, RadioButton1
GuiControlGet, RadioButton2
GuiControlGet, RadioButton3
if (RadioButton1 = 1) {
GuiControl,, RadioButton3, 1
ToolTip, 使用 視窗放大鏡, x+20, y
sleep 600
ToolTip
}
else if (RadioButton2) = 1 {
GuiControl,, RadioButton1, 1
ToolTip, 使用 切換分頁, x+20, y
sleep 600
ToolTip
}
else if (RadioButton3) = 1 {
GuiControl,, RadioButton2, 1
ToolTip, 使用 瀏覽器縮放, x+20, y
sleep 600
ToolTip
}
Return
RButton & WheelUp::
GuiControlGet, RadioButton1
GuiControlGet, RadioButton2
GuiControlGet, RadioButton3
if RadioButton1 = 1
send ^{PgUp}
if RadioButton2 = 1
send ^{=}
if RadioButton3 = 1
send #{=}
Return
RButton & WheelDown::
GuiControlGet, RadioButton1
GuiControlGet, RadioButton2
GuiControlGet, RadioButton3
if RadioButton1 = 1
send ^{PgDn}
if RadioButton2 = 1
send ^{-}
if RadioButton3 = 1
send #{-}
Return
RButton & LButton::
GuiControlGet, RadioButton1
GuiControlGet, RadioButton2
GuiControlGet, RadioButton3
if RadioButton1 = 1
send ^t
if RadioButton2 = 1
send ^{0}
if RadioButton3 = 1
Loop, 15
{
send #{-}
sleep 40
}
Return
ButtonCtrl+W:
MouseMove, -50, -100, 1, R
send {LButton}
send ^w
Return
GuiClose:
ExitApp
作者: jamteam (生而為人)   2017-02-06 13:22:00
不考慮抓個Xmouse嗎?

Links booklink

Contact Us: admin [ a t ] ucptt.com