AutoHotkey – テックメモ

2025-04-22

AutoHotkey モニター情報取得

モニターの情報取得

mm := []
;Loop MonitorGetCount()
;{
;  if MonitorGetWorkArea(A_Index,&L,&T,&R,&B)
;  {
;    mm.Push({L:L,T:T,R:R,B:B})
;  }
;}

MonitorGetWorkArea(2,&L,&T,&R,&B)
mm.Push({L:L,T:T,R:R,B:B})
MonitorGetWorkArea(3,&L,&T,&R,&B)
mm.Push({L:L,T:T,R:R,B:B})
MonitorGetWorkArea(1,&L,&T,&R,&B)
mm.Push({L:L,T:T,R:R,B:B})

mm := []

;Loop MonitorGetCount()

;{

; if MonitorGetWorkArea(A_Index,&L,&T,&R,&B)

; {

; mm.Push({L:L,T:T,R:R,B:B})

; }

;}

MonitorGetWorkArea(2,&L,&T,&R,&B)

mm.Push({L:L,T:T,R:R,B:B})

MonitorGetWorkArea(3,&L,&T,&R,&B)

mm.Push({L:L,T:T,R:R,B:B})

MonitorGetWorkArea(1,&L,&T,&R,&B)

mm.Push({L:L,T:T,R:R,B:B})

2025-04-15

AutoHotkey ウィンドウ半透明

ショートカットを連続して入力した場合半透明へ

sc079 & Delete::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    WinSetTransparent 230, "A"
  }
  Else
  {
    WinSetTransparent "", "A"
  }
}

sc079 & Delete::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

WinSetTransparent 230, "A"

}

Else

{

WinSetTransparent "", "A"

}

2024-12-272024-12-30

AutoHotkey 最新版

ProcessSetPriority "High"
SetMouseDelay -1
SendMode "Input"
A_MaxHotkeysPerInterval := 200
InstallKeybdHook
#UseHook
CoordMode "Mouse", "Window"

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; Hiragana＞IMEを有効化
; Muhenkan＞IMEを無効化

; エントリーを削除
; Henkan
; Shift Henkan
; Shift Muhenkan

;--------------------------------------------------------

>+4::Send "{Enter}"
>+5::Send "{Tab}"

>+7::Send "{Home}"
>+8::Send "{End}"

>+q::Send "{&}"
>+w::Send "{'}"

>+a::Send "{#}"
>+s::Send "{~}"

>+z::Send "{^}"
>+x::Send "{$}"

>+u::Send "{|}"
>+i::Send "{\}"
>+o::Send "{@}"
>+p::Send "{`%}"

>+n::Send "{(}"
>+m::Send "{)}"

>+h::Send "{Left}"
>+j::Send "{Down}"
>+k::Send "{Up}"
>+l::Send "{Right}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

~sc07B::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{sc070}"
  }
}

sc07B & 1::Send "{F12}"
sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"
sc07B & w::Send "{LWin}"
sc07B & e::Send "#{r}"

;--------------------------------------------------------

~^c::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{End}+{Home}^c"
  }
}

;--------------------------------------------------------

sc079::Ctrl ; SpreadSheet対策

sc079 & 3::Send "^{Home}" ; Ctrl+Home
sc079 & 4::Send "^{End}" ; Ctrl+End

sc079 & q::Send "!{Left}" ; 戻る
sc079 & w::Send "!{Right}" ; 進む
sc079 & e::Send "^w" ; 閉じる
sc079 & r::Send "!+r" ; Alt+Shift+R / TabsToWindow

sc079 & Ctrl::AltTab
Ctrl & sc079::Send "#{Tab}"

sc079 & a::Send "^+{Tab}" ; 前のタブ
sc079 & s::Send "^{Tab}" ; 次のタブ
sc079 & d::Send "^+t" ; 再び開く
sc079 & f::Send "^{F5}" ; 更新
sc079 & g::Send "!+g" ; Alt+Shift+G / MergeTabs
sc079 & z::Send "!+z" ; Alt+Shift+Z / CloseRightTabs

mm := []
Loop MonitorGetCount()
{
  if MonitorGetWorkArea(A_Index,&L,&T,&R,&B)
  {
    mm.Push({L:L,T:T,R:R,B:B})
  }
}

sc079 & c::
{
  global mm
  static keyDownCount1
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    keyDownCount1 += 1
    If (keyDownCount1 > MonitorGetCount() - 1)
    {
      keyDownCount1 := 0
    }
  }
  Else
  {
    keyDownCount1 := 0
  }
  x := keyDownCount1 + 1
  this_id := WinGetID("A")
  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }
  WinMove((mm[x].L),(mm[x].T),,,this_id) ; 拡大縮小対策
  WinMove(,,(mm[x].R - mm[x].L),(mm[x].B - mm[x].T),this_id)
}

sc079 & v::
{
  static keyDownCount2

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    keyDownCount2 += 1
    If (keyDownCount2 > 1)
    {
      keyDownCount2 := 0
    }
  }
  Else
  {
    keyDownCount2 := 0
  }

  this_id := WinGetID("A")

  If (keyDownCount2 = 0)
  {
    If (WinGetMinMax(this_id) = 1)
    {
      WinRestore(this_id)
      WinMove(,,1100,750,this_id)
    }

    WinGetPos(&x,&y,,,this_id)

    if (x = -SysGet(16) or x = 0)
    {
      WinMove(,,1100,750,this_id)
    }

    WinGetPos(,,&w,&h,this_id)
    MouseMove(w/2, 9) ; 150%
  }
  Else If (keyDownCount2 = 1)
  {
    WinGetPos(,,&w,&h,this_id)
    MouseMove(w-5, h-5)
  }
}

;--------------------------------------------------------

sc079 & WheelUp::Send "{PgUp}"
sc079 & WheelDown::Send "{PgDn}"

+WheelUp::WheelLeft
+WheelDown::WheelRight

MButton::
{
  MouseGetPos(&mx,&my,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "R"
  }
  else
  {
    MouseClick "M"
  }
}

RButton::
{
  MouseGetPos(&mx,&my,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "M"
  }
  else
  {
    MouseClick "R"
  }
}

;--------------------------------------------------------

#HotIf WinActive("ahk_exe chrome.exe")

+Space::
{
  this_id := WinGetID("A")
  imestate := DllCall("user32.dll\SendMessageW", "Ptr", DllCall("imm32.dll\ImmGetDefaultIMEWnd", "Ptr", this_id), "Ptr", 0x0283, "Ptr", 0x0005, "Ptr", 0)

  if (imestate = 1)
  { 
    Send "{sc07B}"
  }
  Send "+{Space}"
}

;--------------------------------------------------------

#HotIf WinActive("ahk_exe excel.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ
sc079 & s::Send "^{PgDn}" ; 次のタブ

sc079 & f::Send "^+{L}" ; オートフィルタ

+Space::
{
  Send "{sc07B}"
  Send "+{Space}"
}

MButton::
{
  MouseClick "L"
  Send "{F4}"
}

;--------------------------------------------------------

#HotIf WinActive("ahk_exe mpc-be64.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ
sc079 & s::Send "^{PgDn}" ; 次のタブ

w::Send "{Numpad1 10}"
e::Send "^{Numpad2 10}"
r::Send "{Numpad9 10}"

s::Send "^{Numpad6 10}"
d::Send "^{Numpad8 10}"
f::Send "^{Numpad4 10}"

c::Send "{Numpad5}"
v::Send "!{Numpad3}"

#HotIf

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

ProcessSetPriority "High"

SetMouseDelay -1

SendMode "Input"

A_MaxHotkeysPerInterval := 200

InstallKeybdHook

#UseHook

CoordMode "Mouse", "Window"

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; Hiragana＞IMEを有効化

; Muhenkan＞IMEを無効化

; エントリーを削除

; Henkan

; Shift Henkan

; Shift Muhenkan

;--------------------------------------------------------

>+4::Send "{Enter}"

>+5::Send "{Tab}"

>+7::Send "{Home}"

>+8::Send "{End}"

>+q::Send "{&}"

>+w::Send "{'}"

>+a::Send "{#}"

>+s::Send "{~}"

>+z::Send "{^}"

>+x::Send "{$}"

>+u::Send "{|}"

>+i::Send "{\}"

>+o::Send "{@}"

>+p::Send "{`%}"

>+n::Send "{(}"

>+m::Send "{)}"

>+h::Send "{Left}"

>+j::Send "{Down}"

>+k::Send "{Up}"

>+l::Send "{Right}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

~sc07B::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{sc070}"

}

sc07B & 1::Send "{F12}"

sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"

sc07B & w::Send "{LWin}"

sc07B & e::Send "#{r}"

;--------------------------------------------------------

~^c::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{End}+{Home}^c"

}

;--------------------------------------------------------

sc079::Ctrl ; SpreadSheet対策

sc079 & 3::Send "^{Home}" ; Ctrl+Home

sc079 & 4::Send "^{End}" ; Ctrl+End

sc079 & q::Send "!{Left}" ; 戻る

sc079 & w::Send "!{Right}" ; 進む

sc079 & e::Send "^w" ; 閉じる

sc079 & r::Send "!+r" ; Alt+Shift+R / TabsToWindow

sc079 & Ctrl::AltTab

Ctrl & sc079::Send "#{Tab}"

sc079 & a::Send "^+{Tab}" ; 前のタブ

sc079 & s::Send "^{Tab}" ; 次のタブ

sc079 & d::Send "^+t" ; 再び開く

sc079 & f::Send "^{F5}" ; 更新

sc079 & g::Send "!+g" ; Alt+Shift+G / MergeTabs

sc079 & z::Send "!+z" ; Alt+Shift+Z / CloseRightTabs

mm := []

Loop MonitorGetCount()

{

if MonitorGetWorkArea(A_Index,&L,&T,&R,&B)

{

mm.Push({L:L,T:T,R:R,B:B})

}

sc079 & c::

{

global mm

static keyDownCount1

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount1 += 1

If (keyDownCount1 > MonitorGetCount() - 1)

{

keyDownCount1 := 0

}

Else

{

keyDownCount1 := 0

}

x := keyDownCount1 + 1

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

WinMove((mm[x].L),(mm[x].T),,,this_id) ; 拡大縮小対策

WinMove(,,(mm[x].R - mm[x].L),(mm[x].B - mm[x].T),this_id)

}

sc079 & v::

{

static keyDownCount2

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount2 += 1

If (keyDownCount2 > 1)

{

keyDownCount2 := 0

}

Else

{

keyDownCount2 := 0

}

this_id := WinGetID("A")

If (keyDownCount2 = 0)

{

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

WinMove(,,1100,750,this_id)

}

WinGetPos(&x,&y,,,this_id)

if (x = -SysGet(16) or x = 0)

{

WinMove(,,1100,750,this_id)

}

WinGetPos(,,&w,&h,this_id)

MouseMove(w/2, 9) ; 150%

}

Else If (keyDownCount2 = 1)

{

WinGetPos(,,&w,&h,this_id)

MouseMove(w-5, h-5)

}

;--------------------------------------------------------

sc079 & WheelUp::Send "{PgUp}"

sc079 & WheelDown::Send "{PgDn}"

+WheelUp::WheelLeft

+WheelDown::WheelRight

MButton::

{

MouseGetPos(&mx,&my,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "R"

}

else

{

MouseClick "M"

}

RButton::

{

MouseGetPos(&mx,&my,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "M"

}

else

{

MouseClick "R"

}

;--------------------------------------------------------

#HotIf WinActive("ahk_exe chrome.exe")

+Space::

{

this_id := WinGetID("A")

imestate := DllCall("user32.dll\SendMessageW", "Ptr", DllCall("imm32.dll\ImmGetDefaultIMEWnd", "Ptr", this_id), "Ptr", 0x0283, "Ptr", 0x0005, "Ptr", 0)

if (imestate = 1)

{

Send "{sc07B}"

}

Send "+{Space}"

}

;--------------------------------------------------------

#HotIf WinActive("ahk_exe excel.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ

sc079 & s::Send "^{PgDn}" ; 次のタブ

sc079 & f::Send "^+{L}" ; オートフィルタ

+Space::

{

Send "{sc07B}"

Send "+{Space}"

}

MButton::

{

MouseClick "L"

Send "{F4}"

}

;--------------------------------------------------------

#HotIf WinActive("ahk_exe mpc-be64.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ

sc079 & s::Send "^{PgDn}" ; 次のタブ

w::Send "{Numpad1 10}"

e::Send "^{Numpad2 10}"

r::Send "{Numpad9 10}"

s::Send "^{Numpad6 10}"

d::Send "^{Numpad8 10}"

f::Send "^{Numpad4 10}"

c::Send "{Numpad5}"

v::Send "!{Numpad3}"

#HotIf

2024-10-042024-10-04

AutoHotkey MButton↔RButton/Chrome

#HotIf WinActive("ahk_exe chrome.exe") or WinActive("ahk_exe msedge.exe")
RButton::MButton
MButton::RButton

#HotIf WinActive("ahk_exe chrome.exe") or WinActive("ahk_exe msedge.exe")

RButton::MButton

MButton::RButton

このような感じで､ChromeだけMButtonとRButtonを入れ替えていたけど､
Chromeがアクティブな状態から､デスクトップなどを直接右クリックすると､マウスの左クリックが反応しなくなってしまう｡(中央ボタンが押された状態?)一度､中央ボタンを押せば直るが､時々発生するので､以下のように変更

MButton::
{
  MouseGetPos(,,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "R"
  }
  else
  {
    MouseClick "M"
  }
}
RButton::
{
  MouseGetPos(,,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "M"
  }
  else
  {
    MouseClick "R"
  }
}

MButton::

{

MouseGetPos(,,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "R"

}

else

{

MouseClick "M"

}

RButton::

{

MouseGetPos(,,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "M"

}

else

{

MouseClick "R"

}

2024-08-242024-08-24

AutoHotkey ディスプレイにあわせてウィンドウ移動

左右に並んでいただけなので､以下のようにしていた｡

sc079 & c::
{
  x := -SysGet(16)
  y := 5
  w := SysGet(16)
  h := SysGet(17)+15
  this_id := WinGetID("A")

  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }

  WinMove(x,y,w,h,this_id)

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    WinMove(0,y,w,h,this_id)
  }
}

sc079 & c::

{

x := -SysGet(16)

y := 5

w := SysGet(16)

h := SysGet(17)+15

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

WinMove(x,y,w,h,this_id)

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

WinMove(0,y,w,h,this_id)

}

他の環境でも使うので､都度取得に変更｡

mm := []
Loop MonitorGetCount()
{
  if MonitorGet(A_Index,&L,&T,&R,&B)
  {
    mm.Push({L:L,T:T,R:R,B:B})
  }
}

sc079 & c::
{
  global mm
  static keyDownCount1

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    keyDownCount1 += 1
    If (keyDownCount1 > MonitorGetCount() - 1)
    {
      keyDownCount1 := 0
    }
  }
  Else
  {
    keyDownCount1 := 0
  }

  x := keyDownCount1 + 1
  this_id := WinGetID("A")
  WinMove(mm[x].L, (mm[x].T + 10), mm[x].R - mm[x].L, (mm[x].B - mm[x].T-55), this_id)
}

mm := []

Loop MonitorGetCount()

{

if MonitorGet(A_Index,&L,&T,&R,&B)

{

mm.Push({L:L,T:T,R:R,B:B})

}

sc079 & c::

{

global mm

static keyDownCount1

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount1 += 1

If (keyDownCount1 > MonitorGetCount() - 1)

{

keyDownCount1 := 0

}

Else

{

keyDownCount1 := 0

}

x := keyDownCount1 + 1

this_id := WinGetID("A")

WinMove(mm[x].L, (mm[x].T + 10), mm[x].R - mm[x].L, (mm[x].B - mm[x].T-55), this_id)

}

2024-01-112024-07-26

AutoHotkey GitHubで管理

以前から更新しているファイルをGitHubで管理するためのメモ｡

AutoHotkey キー設定スクリプト

GitHubでレポジトリを作成する｡
https://github.com/okamurax/ahk.git
のようなURLが発行される｡

以下はローカルのフォルダの中で
git init
git remote add r https://github.com/okamurax/ahk.git
※ここではrという名前でリモートレポジトリを登録｡

git add .
※ファイル名を指定する場合git add <ファイル名>
※ドットはカレントディレクトリ内のすべてという意味

git commit -m “2024/01/11” .

git push -u r master
※-uはブランチを追跡する
※最初のcommitを行うとmasterという名前のbranchが作成される｡
※強制上書きはgit push –force

URL
https://github.com/okamurax/ahk/blob/master/startup.ahk

2023-09-032024-05-07

AutoHotkey キー設定スクリプト

Change Key+AutoHotkeyで久しぶりに大きく変更した。

元々、文字入力用にIMEのON/OFF、BSをスペースの左右に配置していたが、Chrome操作などで左Altも多用しており、元の位置だと親指に負担だった。

ProcessSetPriority "High"
SetMouseDelay -1
SendMode "Input"
A_MaxHotkeysPerInterval := 200
InstallKeybdHook
#UseHook
CoordMode "Mouse", "Window"

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; Hiragana＞IMEを有効化
; Muhenkan＞IMEを無効化

; エントリーを削除
; Henkan
; Shift Henkan
; Shift Muhenkan

;--------------------------------------------------------

>+4::Send "{Enter}"
>+7::Send "{Home}"
>+8::Send "{End}"

>+q::Send "{&}"
>+w::Send "{'}"
>+e::Send "{``}"

>+a::Send "{^}"
>+s::Send "{$}"
>+d::Send "{~}"

>+u::Send "{|}"
>+i::Send "{\}"
>+o::Send "{@}"
>+p::Send "{`%}"

>+n::Send "{(}"
>+m::Send "{)}"

>+h::Send "{Left}"
>+j::Send "{Down}"
>+k::Send "{Up}"
>+l::Send "{Right}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

~sc07B::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{sc070}"
  }
}

sc07B & 1::Send "{F12}"
sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"
sc07B & w::Send "{LWin}"
sc07B & e::Run "explorer.exe"
sc07B & r::Send "#r"

;--------------------------------------------------------

~^c::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{End}+{Home}^c"
  }
}

;--------------------------------------------------------

sc079 & RShift::Send "#{Tab}"
sc079 & 1::Send "#^{Left}"
sc079 & 2::Send "#^{Right}"
sc079 & 3::Send "^{Home}"
sc079 & 4::Send "^{End}"

sc079 & q::Send "!{Left}" ; 戻る
sc079 & w::Send "!{Right}" ; 進む
sc079 & e::Send "^w" ; 閉じる
sc079 & r::AltTab

sc079 & a::Send "^+{Tab}" ; 前のタブ
sc079 & s::Send "^{Tab}" ; 次のタブ
sc079 & d::Send "^+t" ; 再び開く
sc079 & f::Send "^{F5}" ; 更新

sc079 & z::Send "!+z" ; Alt+Shift+Z / CloseRightTabs
sc079 & x::DispChange(-SysGet(16))
sc079 & c::DispChange(0)

DispChange(x)
{
  w := SysGet(16)
  h := SysGet(17)+15
  y := 5
  this_id := WinGetID("A")
  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }
  WinMove(x,y,w,h,this_id)
}

sc079 & v::
{
  static keyDownCount

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    keyDownCount += 1
    If (keyDownCount > 1)
    {
      keyDownCount := 0
    }
  }
  Else
  {
    keyDownCount := 0
  }

  this_id := WinGetID("A")

  If (keyDownCount = 0)
  {
    If (WinGetMinMax(this_id) = 1)
    {
      WinRestore(this_id)
      WinMove(,,1100,750,this_id)
    }
    WinGetPos(,,&w,&h,this_id)
    MouseMove(w//2, 9)
  }
  Else If (keyDownCount = 1)
  {
    WinGetPos(,,&w,&h,this_id)
    MouseMove(w-5, h-5)
  }
}

sc079 & Left::Send "#^{Left}"
sc079 & Right::Send "#^{Right}"

;--------------------------------------------------------

sc079 & WheelUp::Send "{PgUp}"
sc079 & WheelDown::Send "{PgDn}"
+WheelUp::WheelLeft
+WheelDown::WheelRight

;--------------------------------------------------------

#HotIf WinActive("ahk_exe excel.exe") 

sc079 & a::Send "^{PgUp}" ; 前のタブ
sc079 & s::Send "^{PgDn}" ; 次のタブ

sc079 & f::Send "^+{L}"

+sc079::Send "^e" ; オリジナルマクロ用

+Space::
{
  Send "{sc07B}"
  Send "+{Space}"
}

MButton::Send "{F4}"

#HotIf WinActive("ahk_exe mpc-be64.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ
sc079 & s::Send "^{PgDn}" ; 次のタブ

#HotIf

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

ProcessSetPriority "High"

SetMouseDelay -1

SendMode "Input"

A_MaxHotkeysPerInterval := 200

InstallKeybdHook

#UseHook

CoordMode "Mouse", "Window"

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; Hiragana＞IMEを有効化

; Muhenkan＞IMEを無効化

; エントリーを削除

; Henkan

; Shift Henkan

; Shift Muhenkan

;--------------------------------------------------------

>+4::Send "{Enter}"

>+7::Send "{Home}"

>+8::Send "{End}"

>+q::Send "{&}"

>+w::Send "{'}"

>+e::Send "{``}"

>+a::Send "{^}"

>+s::Send "{$}"

>+d::Send "{~}"

>+u::Send "{|}"

>+i::Send "{\}"

>+o::Send "{@}"

>+p::Send "{`%}"

>+n::Send "{(}"

>+m::Send "{)}"

>+h::Send "{Left}"

>+j::Send "{Down}"

>+k::Send "{Up}"

>+l::Send "{Right}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

~sc07B::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{sc070}"

}

sc07B & 1::Send "{F12}"

sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"

sc07B & w::Send "{LWin}"

sc07B & e::Run "explorer.exe"

sc07B & r::Send "#r"

;--------------------------------------------------------

~^c::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{End}+{Home}^c"

}

;--------------------------------------------------------

sc079 & RShift::Send "#{Tab}"

sc079 & 1::Send "#^{Left}"

sc079 & 2::Send "#^{Right}"

sc079 & 3::Send "^{Home}"

sc079 & 4::Send "^{End}"

sc079 & q::Send "!{Left}" ; 戻る

sc079 & w::Send "!{Right}" ; 進む

sc079 & e::Send "^w" ; 閉じる

sc079 & r::AltTab

sc079 & a::Send "^+{Tab}" ; 前のタブ

sc079 & s::Send "^{Tab}" ; 次のタブ

sc079 & d::Send "^+t" ; 再び開く

sc079 & f::Send "^{F5}" ; 更新

sc079 & z::Send "!+z" ; Alt+Shift+Z / CloseRightTabs

sc079 & x::DispChange(-SysGet(16))

sc079 & c::DispChange(0)

DispChange(x)

{

w := SysGet(16)

h := SysGet(17)+15

y := 5

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

WinMove(x,y,w,h,this_id)

}

sc079 & v::

{

static keyDownCount

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount += 1

If (keyDownCount > 1)

{

keyDownCount := 0

}

Else

{

keyDownCount := 0

}

this_id := WinGetID("A")

If (keyDownCount = 0)

{

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

WinMove(,,1100,750,this_id)

}

WinGetPos(,,&w,&h,this_id)

MouseMove(w//2, 9)

}

Else If (keyDownCount = 1)

{

WinGetPos(,,&w,&h,this_id)

MouseMove(w-5, h-5)

}

sc079 & Left::Send "#^{Left}"

sc079 & Right::Send "#^{Right}"

;--------------------------------------------------------

sc079 & WheelUp::Send "{PgUp}"

sc079 & WheelDown::Send "{PgDn}"

+WheelUp::WheelLeft

+WheelDown::WheelRight

;--------------------------------------------------------

#HotIf WinActive("ahk_exe excel.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ

sc079 & s::Send "^{PgDn}" ; 次のタブ

sc079 & f::Send "^+{L}"

+sc079::Send "^e" ; オリジナルマクロ用

+Space::

{

Send "{sc07B}"

Send "+{Space}"

}

MButton::Send "{F4}"

#HotIf WinActive("ahk_exe mpc-be64.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ

sc079 & s::Send "^{PgDn}" ; 次のタブ

#HotIf

2023-07-10

AutoHotkey アクティブなChromeでショートカット＋最大化以外のChromeを閉じる

<!x::
{
  if (WinActive("ahk_exe chrome.exe") != 0)
  {
    Send "!+e" ; Chrome拡張
  }

  for this_id in WinGetList("ahk_exe chrome.exe")
  {
    If (WinExist(this_id) != 0 && WinGetMinMax(this_id) = 0)
    {
      WinClose(this_id)
    }
  }
}

<!x::

{

if (WinActive("ahk_exe chrome.exe") != 0)

{

Send "!+e" ; Chrome拡張

}

for this_id in WinGetList("ahk_exe chrome.exe")

{

If (WinExist(this_id) != 0 && WinGetMinMax(this_id) = 0)

{

WinClose(this_id)

}

2023-06-192023-06-19

AutoHotkey スクロール時、ウィンドウをアクティブ

~WheelUp::
~WheelDown::
{
  if (A_PriorHotkey == "" || 500 < A_TimeSincePriorHotkey)
  {
    MouseGetPos ,, &this_id
    WinActivate("ahk_id" this_id)
  }
}

~WheelUp::

~WheelDown::

{

if (A_PriorHotkey == "" || 500 < A_TimeSincePriorHotkey)

{

MouseGetPos ,, &this_id

WinActivate("ahk_id" this_id)

}

プルダウンでスクロールすると閉じてしまうなどあるので注意。

2022-12-262023-06-19

AutoHotkey キー設定スクリプト(v2)

AutoHotkey キー設定スクリプト

AutoHotkeyのv2についてニュースが出ていたので、今まで使っていたスクリプトをv2で動くように調整した。

デフォルトだとv1、v2が共存していてv2で動くかどうかの確認作業が進めづらいので、
Launch settings＞Run all … interpreter
に設定する。

ProcessSetPriority "High"
SetMouseDelay -1
SendMode "InputThenPlay"
A_HotkeyInterval := 1000
A_MaxHotkeysPerInterval := 100

;--------------------------------------------------------
; Google日本語入力
;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; キー設定の選択＞編集

; sc07b 無変換
; Muhenkan > IMEを無効化
; Shift Muhenkan > IMEを無効化

; sc070 ひらがな
; Hiragana > IMEを有効化

; sc079 変換
; Henkan > エントリー削除
; Shift Henkan > エントリー削除

;--------------------------------------------------------
; Esc(RShift)※左1段目
;--------------------------------------------------------

>+MButton::Send "#{Tab}"
>+WheelUp::Send "{PgUp}"
>+WheelDown::Send "{PgDn}"

>+h::Send "{Left}"
>+j::Send "{Down}"
>+k::Send "{Up}"
>+l::Send "{Right}"

>+7::Send "{Home}"
>+8::Send "{End}"

>+q::Send "{&}"
>+w::Send "{'}"
>+e::Send "{``}"

>+a::Send "{^}"
>+s::Send "{$}"
>+d::Send "{~}"

>+u::Send "{|}"
>+i::Send "{\}"
>+o::Send "{@}"
>+p::Send "{`%}"

>+n::Send "{(}"
>+m::Send "{)}"

>+4::Send "{Enter}"

>+Enter::Send "{Tab}"
>+Backspace::Send "{Delete}"

;--------------------------------------------------------
; Tab(変換)※左2段目
;--------------------------------------------------------

sc079 & 1::Send "{F12}"
sc079 & 2::Send "{F2}"

sc079 & q::Send "{Esc}"
sc079 & w::Send "{LWin}"
sc079 & e::Send "#e"
sc079 & r::Send "#r"

sc079 & c::Send "#c" ; Color Picker

; 移動+Shift

sc079 & h::Send "+{Left}" 
sc079 & j::Send "+{Down}"
sc079 & k::Send "+{Up}"
sc079 & l::Send "+{Right}"

sc079 & 7::Send "+{Home}"
sc079 & 8::Send "+{End}"

;--------------------------------------------------------
; LControl
;--------------------------------------------------------

~<^c::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{End}+{Home}^c"
  }
}

;--------------------------------------------------------
; LAlt
;--------------------------------------------------------

; エクセル以外単独押下無効

~LAlt::
{
  if (WinActive("ahk_exe excel.exe") = 0)
  {
    Send "{vk99}"
  }
}

<!1::Send "{Home}"
<!2::Send "{End}"

<!q::Send "!{Left}" ; 戻る
<!w::Send "!{Right}" ; 進む
<!e::Send "^w" ; 閉じる

<!a::Send "^{PgUp}" ; 前のタブ
<!s::Send "^{PgDn}" ; 次のタブ
<!d::Send "^+t" ; 再び開く
<!f::Send "^{F5}" ; 更新

<!z::Send "!+{Z}" ; Chrome拡張(右側のタブを閉じる)

CoordMode "Mouse", "Window"

<!v::
{
  static keyDownCount

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    keyDownCount += 1

    If (keyDownCount > 1)
    {
      keyDownCount := 0
    }
  }
  Else
  {
    keyDownCount := 0
  }

  this_id := WinGetID("A")

  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
    WinMove(,,1100,750,this_id)
  } 

  WinGetPos(&x, &y, &w, &h, this_id)

  If (keyDownCount = 0)
  { 
    MouseMove(w//2, 8)
  }
  Else If (keyDownCount = 1)
  {
    MouseMove(w-5, h-5)
  }
}

;--------------------------------------------------------
; 無変換(Space左側)
;--------------------------------------------------------

~sc07b::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{sc070}"
  }
}

;--------------------------------------------------------
; マウス
;--------------------------------------------------------

F14::
{
  if (WinActive("ahk_exe chrome.exe") != 0)
  {
    Send "!+e" ; Chrome拡張(ESET)
  }

  for this_id in WinGetList("ahk_exe chrome.exe")
  {
    If (WinExist(this_id) != 0 && WinGetMinMax(this_id) = 0)
    {
      WinClose(this_id)
    }
  }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

ProcessSetPriority "High"

SetMouseDelay -1

SendMode "InputThenPlay"

A_HotkeyInterval := 1000

A_MaxHotkeysPerInterval := 100

;--------------------------------------------------------

; Google日本語入力

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; キー設定の選択＞編集

; sc07b 無変換

; Muhenkan > IMEを無効化

; Shift Muhenkan > IMEを無効化

; sc070 ひらがな

; Hiragana > IMEを有効化

; sc079 変換

; Henkan > エントリー削除

; Shift Henkan > エントリー削除

;--------------------------------------------------------

; Esc(RShift)※左1段目

;--------------------------------------------------------

>+MButton::Send "#{Tab}"

>+WheelUp::Send "{PgUp}"

>+WheelDown::Send "{PgDn}"

>+h::Send "{Left}"

>+j::Send "{Down}"

>+k::Send "{Up}"

>+l::Send "{Right}"

>+7::Send "{Home}"

>+8::Send "{End}"

>+q::Send "{&}"

>+w::Send "{'}"

>+e::Send "{``}"

>+a::Send "{^}"

>+s::Send "{$}"

>+d::Send "{~}"

>+u::Send "{|}"

>+i::Send "{\}"

>+o::Send "{@}"

>+p::Send "{`%}"

>+n::Send "{(}"

>+m::Send "{)}"

>+4::Send "{Enter}"

>+Enter::Send "{Tab}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

; Tab(変換)※左2段目

;--------------------------------------------------------

sc079 & 1::Send "{F12}"

sc079 & 2::Send "{F2}"

sc079 & q::Send "{Esc}"

sc079 & w::Send "{LWin}"

sc079 & e::Send "#e"

sc079 & r::Send "#r"

sc079 & c::Send "#c" ; Color Picker

; 移動+Shift

sc079 & h::Send "+{Left}"

sc079 & j::Send "+{Down}"

sc079 & k::Send "+{Up}"

sc079 & l::Send "+{Right}"

sc079 & 7::Send "+{Home}"

sc079 & 8::Send "+{End}"

;--------------------------------------------------------

; LControl

;--------------------------------------------------------

~<^c::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{End}+{Home}^c"

}

;--------------------------------------------------------

; LAlt

;--------------------------------------------------------

; エクセル以外単独押下無効

~LAlt::

{

if (WinActive("ahk_exe excel.exe") = 0)

{

Send "{vk99}"

}

<!1::Send "{Home}"

<!2::Send "{End}"

<!q::Send "!{Left}" ; 戻る

<!w::Send "!{Right}" ; 進む

<!e::Send "^w" ; 閉じる

<!a::Send "^{PgUp}" ; 前のタブ

<!s::Send "^{PgDn}" ; 次のタブ

<!d::Send "^+t" ; 再び開く

<!f::Send "^{F5}" ; 更新

<!z::Send "!+{Z}" ; Chrome拡張(右側のタブを閉じる)

CoordMode "Mouse", "Window"

<!v::

{

static keyDownCount

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount += 1

If (keyDownCount > 1)

{

keyDownCount := 0

}

Else

{

keyDownCount := 0

}

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

WinMove(,,1100,750,this_id)

}

WinGetPos(&x, &y, &w, &h, this_id)

If (keyDownCount = 0)

{

MouseMove(w//2, 8)

}

Else If (keyDownCount = 1)

{

MouseMove(w-5, h-5)

}

;--------------------------------------------------------

; 無変換(Space左側)

;--------------------------------------------------------

~sc07b::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{sc070}"

}

;--------------------------------------------------------

; マウス

;--------------------------------------------------------

F14::

{

if (WinActive("ahk_exe chrome.exe") != 0)

{

Send "!+e" ; Chrome拡張(ESET)

}

for this_id in WinGetList("ahk_exe chrome.exe")

{

If (WinExist(this_id) != 0 && WinGetMinMax(this_id) = 0)

{

WinClose(this_id)

}