浏览器添加左右键翻页

许多实用脚本和封装函数, 可以让您编写脚本更加便捷高效
feiyue
Posts: 140
Joined: 08 Aug 2014, 04:08

浏览器添加左右键翻页

24 Jan 2019, 09:24

下面是我常用的浏览器添加左右键翻页的方法。

Code: Select all

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

Return to “脚本函数”

Who is online

Users browsing this forum: No registered users and 3 guests