AutoHotkey Community

Code: Select all

start_01() {
  static init:=start_01()
  SetTitleMatchMode, 2  ;//匹配部分标题
  GroupAdd, MyBrowser, 360安全浏览器
  GroupAdd, MyBrowser, 360极速浏览器
  GroupAdd, MyBrowser, 搜狗高速浏览器
  GroupAdd, MyBrowser, 世界之窗浏览器
  GroupAdd, MyBrowser, 2345加速浏览器
  GroupAdd, MyBrowser, GreenBrowser
  GroupAdd, MyBrowser, Firefox
  GroupAdd, MyBrowser, Chrome
  GroupAdd, MyBrowser, ahk_class IEFrame
  GroupAdd, MyBrowser, ahk_class 360se5_Frame
  GroupAdd, MyBrowser, ahk_class 360se6_Frame
  GroupAdd, MyBrowser, ahk_class Chrome_WidgetWin_1
  GroupAdd, MyBrowser, ahk_class ShockwaveFlashFullScreen
}

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

#If (Left_Right) and WinActive("ahk_group MyBrowser") and (A_Cursor!="IBeam")

$Right::  ;//下一页
$Left::   ;//上一页
js=
(LTrim Join`s
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:="javascript:" js
js:=InStr(A_ThisLabel,"Right") ? js : StrReplace(js,"下|后","上|前")
;//某些浏览器的地址栏不能粘贴“javascript:”
Send {Alt Down}d{Alt Up}
Sleep, 50
k:="{ASC " Asc("j") "}"
Loop {
  if (A_Index>10)
    return
  Clipboard:=""
  SendInput %k%{Del}{Ctrl Down}ac{Ctrl Up}
  ClipWait, 0.1
} Until (Clipboard="j")
Clipboard:=SubStr(js,2)
SendInput {End}{Ctrl Down}v{Ctrl Up}{Enter}
Sleep, 500
return

#If

Code: Select all

; https://www.autohotkey.com/boards/viewtopic.php?f=28&t=61347

F8::pageNav("pre") ; 上一页
F9::pageNav("next") ; 下一页

pageNav(cmd = "next") {
	colon := ":"   ; 论坛不允许 javascript 和 : 连在一起出现在帖子中，所以用变量替换。

	static js
	if (!js)
	{
		js =
		(LTrim Join`s
			function pageNav(cmd = "next") {
				var r = (cmd=="next") ? "(下|后)" : "(上|前)";
				var Re = new RegExp(r + "(一|\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%colon%")
							a[i].click();
						else
							document.location.href = a[i].href;
						break;
					}
				}
			}
		)
	}
	
	clipBackup := ClipboardAll

	Send {Alt Down}d{Alt Up}
	Sleep, 50
	Clipboard := ".javascript" . colon . js . ";pageNav('" cmd "');"
	SendInput {Ctrl Down}v{Ctrl Up}{Home}{Del}{Enter}

	Sleep, 100
	Clipboard := clipBackup
}

Code: Select all

; https://www.autohotkey.com/boards/viewtopic.php?f=28&t=61347

F8::pageNav("pre") ; 上一页
F9::pageNav("next") ; 下一页

pageNav(cmd = "next") {
	colon := ":"   ; 论坛不允许 javascript 和 : 连在一起出现在帖子中，所以用变量替换。

	static js
	if (!js)
	{
		js =
		(LTrim Join`s
			function pageNav(cmd = "next") {
				var r = (cmd=="next") ? "(下|后)" : "(上|前)";
				var Re = new RegExp(r + "(一|\s)*(页|頁|章|篇|翻)", "i");
				var a = document.getElementsByTagName("A");
				for (var i=0; i<a.length; i++) {
					if (Re.test(a[i].innerHTML)) {
						a[i].click();
						break;
					}
				}
			}
		)
	}
	
	clipBackup := ClipboardAll

	Send {Alt Down}d{Alt Up}
	Sleep, 50
	Clipboard := ".javascript" . colon . js . ";pageNav('" cmd "');"
	SendInput {Ctrl Down}v{Ctrl Up}{Home}{Del}{Enter}

	Sleep, 100
	Clipboard := clipBackup
}