AutoHotkey-Script/浏览器添加左右键翻页.ahk

SetTitleMatchMode, 2  ;//匹配部分标题

GroupAdd, MyBrowser, ahk_class IEFrame
GroupAdd, MyBrowser, 360安全浏览器
GroupAdd, MyBrowser, 360极速浏览器
GroupAdd, MyBrowser, 搜狗高速浏览器
GroupAdd, MyBrowser, 世界之窗浏览器
GroupAdd, MyBrowser, 2345加速浏览器
GroupAdd, MyBrowser, GreenBrowser
GroupAdd, MyBrowser, Firefox
GroupAdd, MyBrowser, Chrome

*$ScrollLock::Left_Right:=!Left_Right  ;//设置一个开关热键

#If WinActive("ahk_group MyBrowser") and (Left_Right)

$Right::  ;//下一页
$Left::   ;//上一页
js=
(LTrim Join
javascript:try {
  var Re=new RegExp("(下|后)(一|\s)*(页|頁|章|篇|翻)","i");
  var a=document.getElementsByTagName("A");
  for (var i=0;i<a.length;i++) {
    if (Re.test(a[i].innerHTML)) {
      if (a[i].href.substr(0,11).toLowerCase()=="javascript:") a[i].click(); else document.location.href=a[i].href; break;
  }}} catch (e){}
)
js:=InStr(A_ThisLabel,"Right") ? js : StrReplace(js,"下|后","上|前")
Send {Alt Down}d{Alt Up}
Sleep, 50
Clipboard:="." js  ;//某些浏览器的地址栏不能粘贴“javascript:”
SendInput {Ctrl Down}v{Ctrl Up}{Home}{Del}{Enter}
Sleep, 500
Return

#If