AutoHotkey – ページ 2 – テックメモ

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)

}

2022-02-03

AutoHotkey Chromeウィンドウサイズ変更

最小/最大は通常サイズへ。通常サイズは最大へ。

WinGet, id, list
Loop, %id%
{
  StringTrimRight, this_id, id%A_Index%, 0
  WinGetTitle, this_title, ahk_id %this_id%

  if(RegExMatch(this_title, "Google Chrome") > 0)
  {
    WinGet, min_max, MinMax, ahk_id %this_id%
    If (min_max = 1 OR min_max = -1)
    {
      WinRestore, ahk_id %this_id%
    }
    Else
    {
      WinMaximize, ahk_id %this_id%
    }
  }
}

WinGet, id, list

Loop, %id%

{

StringTrimRight, this_id, id%A_Index%, 0

WinGetTitle, this_title, ahk_id %this_id%

if(RegExMatch(this_title, "Google Chrome") > 0)

{

WinGet, min_max, MinMax, ahk_id %this_id%

If (min_max = 1 OR min_max = -1)

{

WinRestore, ahk_id %this_id%

}

Else

{

WinMaximize, ahk_id %this_id%

}

2021-12-20

AutoHotkey IPアドレスを表示

RunWait, %ComSpec% /c ipconfig | clip

Loop, Parse, clipboard, `n, `r
{
  var := RegExMatch(A_LoopField, "IPv4\D*([.0-9]+)", x)
  if(var > 0)
  {
     MsgBox, IPアドレス：%x1%
  }
}

RunWait, %ComSpec% /c ipconfig | clip

Loop, Parse, clipboard, `n, `r

{

var := RegExMatch(A_LoopField, "IPv4\D*([.0-9]+)", x)

if(var > 0)

{

MsgBox, IPアドレス：%x1%

}

2021-02-152024-05-03

AutoHotkey キー設定スクリプト

長らくChangeKeyとAutoHotkeyを併用していた。ChangeKeyを先に使い始めたためそのような状態になっていたが、先日ようやくAutoHotkeyだけの環境にした。通常のスタートアップだと一部の管理者権限のソフトでは反応しないこともあるけど仕方ない。

※現在未使用

;--------------------------------------------------------
; Keycode Remap
;--------------------------------------------------------

Escape::RShift
; 左上

Tab::LWin
; 左上

Backspace::Delete
; 右上

RShift::Tab
; Enter下

sc00c::sc01a
;「=」→「@」

sc01a::sc028
;「@」→「:」

sc028::sc00c
;「:」→「-」

sc027::Enter
;「;」→「Enter」

sc079::Backspace
; Space右1

sc070::sc027
; Space右2

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

; Google日本語入力
; Muhenkan > IMEを無効化
; Hankaku/Zenkaku > IMEを有効化

~sc07b::
If (A_PriorHotkey = A_ThisHotkey && 300 > A_TimeSincePriorHotkey) {
  Send, {sc029}
}
Exit

; Space左1

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

; sc029::LAlt
; Space左2(Lite2のみ)

; LAlt::Tab
; Space左3(Lite2のみ)

LWin::Tab
; Space左3(Hybridのみ)

;--------------------------------------------------------
; LWin
;--------------------------------------------------------

#1::Send, {F12}
#2::Send, {F2}

;--------------------------------------------------------
; RShift
;--------------------------------------------------------

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

>+q::Send, {&}
>+w::Send, {'}
>+a::Send, {^}
>+s::Send, {$}

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

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

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

>+sc079::Send, {Delete}
; Space右1

>+sc027::Send, {Tab}
;「;」

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

^sc07b::Send, {Esc}
; Space左1

~^c::
if (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey) {
  Send, {End}
  Send, +{Home} 
  Send, ^{c} 
}
Exit

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

!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}

!v::
WinGet, var, MinMax, A
WinGet, i, ID, A  
If (var = 1) {
  Send, #{Down}
  WinMove, ahk_id %i%,,,,1100,650
  WinGetPos, x, y, w, h, ahk_id %i%
  MouseMove, w//2, 10
} Else If (var = 0) {
  WinGetPos, x, y, w, h, ahk_id %i%
  MouseMove, w//2, 10
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey) {
    MouseMove, w-7, h-7
  }
}
Exit

~sc029 & MButton::Send, #{Tab}
~sc029 & WheelDown::AltTab

;--------------------------------------------------------
; マウスボタン
;--------------------------------------------------------

Pause::Reload

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

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

; Keycode Remap

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

Escape::RShift

; 左上

Tab::LWin

; 左上

Backspace::Delete

; 右上

RShift::Tab

; Enter下

sc00c::sc01a

;「=」→「@」

sc01a::sc028

;「@」→「:」

sc028::sc00c

;「:」→「-」

sc027::Enter

;「;」→「Enter」

sc079::Backspace

; Space右1

sc070::sc027

; Space右2

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

; Google日本語入力

; Muhenkan > IMEを無効化

; Hankaku/Zenkaku > IMEを有効化

~sc07b::

If (A_PriorHotkey = A_ThisHotkey && 300 > A_TimeSincePriorHotkey) {

Send, {sc029}

}

Exit

; Space左1

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

; sc029::LAlt

; Space左2(Lite2のみ)

; LAlt::Tab

; Space左3(Lite2のみ)

LWin::Tab

; Space左3(Hybridのみ)

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

; LWin

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

#1::Send, {F12}

#2::Send, {F2}

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

; RShift

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

>+h::Send, {Left}

>+j::Send, {Down}

>+k::Send, {Up}

>+l::Send, {Right}

>+q::Send, {&}

>+w::Send, {'}

>+a::Send, {^}

>+s::Send, {$}

>+u::Send, {|}

>+i::Send, {\}

>+o::Send, {@}

>+p::Send, {`%}

>+n::Send, {(}

>+m::Send, {)}

>+4::Send, {Enter}

>+7::Send, {Home}

>+8::Send, {End}

>+sc079::Send, {Delete}

; Space右1

>+sc027::Send, {Tab}

;「;」

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

; LControl

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

^sc07b::Send, {Esc}

; Space左1

~^c::

if (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey) {

Send, {End}

Send, +{Home}

Send, ^{c}

}

Exit

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

; LAlt

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

!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}

!v::

WinGet, var, MinMax, A

WinGet, i, ID, A

If (var = 1) {

Send, #{Down}

WinMove, ahk_id %i%,,,,1100,650

WinGetPos, x, y, w, h, ahk_id %i%

MouseMove, w//2, 10

} Else If (var = 0) {

WinGetPos, x, y, w, h, ahk_id %i%

MouseMove, w//2, 10

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey) {

MouseMove, w-7, h-7

}

Exit

~sc029 & MButton::Send, #{Tab}

~sc029 & WheelDown::AltTab

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

; マウスボタン

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

Pause::Reload

・追記

AutoHotkeyのみの環境になってからしばらくしてキーボードをLite2からHybrid Type-Sに変更した。AutoHotkeyのリマップだけだと問題がでることも多いので、HHKBのリマップツールを採用することにした。

現在は下記の通り

SetMouseDelay, 0
SendMode, InputThenPlay

;--------------------------------------------------------
; 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 > エントリー削除
 
;--------------------------------------------------------
; 無変換(Space左側)
;--------------------------------------------------------

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

;--------------------------------------------------------
; 変換(左上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}

;--------------------------------------------------------
; RShift(左上1段目)
;--------------------------------------------------------

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

>+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}
>+7::Send, {Home}
>+8::Send, {End}

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

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

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

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

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

LAlt::
If (WinActive("ahk_class XLMAIN"))
{
  Send, {LAlt}
}
Exit

<!WheelUp::
If (WinActive("ahk_class illustrator"))
{
  Send, !{WheelUp}
}
Else
{
  Send, {PgUp}
}
Exit

<!WheelDown::
If (WinActive("ahk_class illustrator"))
{
  Send, !{WheelDown}
}
Else
{
  Send, {PgDn}
}
Exit

<!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} ; 更新

<!v::
If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
{
  keyDownCount += 1

  If (keyDownCount >= 3)
  {
    keyDownCount = 0
  }
}
Else
{
  keyDownCount = 0
}

WinGet, min_max, MinMax, A
WinGet, this_id, ID, A  

If (min_max = 1) ; 最大化
{
  SendEvent, #{Down}
  WinMove, ahk_id %this_id%, , , , 1100, 750
} 

WinGetPos, x, y, w, h, ahk_id %this_id%

If (keyDownCount = 0)
{
  MouseMove, w//2, 10
}
Else If (keyDownCount = 1)
{
  MouseMove, w-5, h-5
}
Else If (keyDownCount = 2)
{
  MouseMove, w-30, 15
}
Exit

~LAlt & MButton::Send, #{Tab}

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

NumLock::
  Menu, Tray, Icon
  Reload
Exit

Pause::
WinGet, id, list
Loop, %id%
{
  StringTrimRight, this_id, id%A_Index%, 0
  WinGetTitle, this_title, ahk_id %this_id%

  if(RegExMatch(this_title, "Google Chrome") > 0)
  {
    WinGet, min_max, MinMax, ahk_id %this_id%
    if (min_max = 0)
    {
      WinClose, ahk_id %this_id%
    }
  }
}
Exit

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

SetMouseDelay, 0

SendMode, InputThenPlay

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

; 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 > エントリー削除

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

; 無変換(Space左側)

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

~sc07b::

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send, {sc070}

}

Exit

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

; 変換(左上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}

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

; RShift(左上1段目)

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

>+h::Send, {Left}

>+j::Send, {Down}

>+k::Send, {Up}

>+l::Send, {Right}

>+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}

>+7::Send, {Home}

>+8::Send, {End}

>+Enter::Send, {Tab}

>+Backspace::Send, {Delete}

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

; LControl

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

~<^c::

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send, {End}

Send, +{Home}

Send, ^{c}

}

Exit

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

; LAlt

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

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

LAlt::

If (WinActive("ahk_class XLMAIN"))

{

Send, {LAlt}

}

Exit

<!WheelUp::

If (WinActive("ahk_class illustrator"))

{

Send, !{WheelUp}

}

Else

{

Send, {PgUp}

}

Exit

<!WheelDown::

If (WinActive("ahk_class illustrator"))

{

Send, !{WheelDown}

}

Else

{

Send, {PgDn}

}

Exit

<!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} ; 更新

<!v::

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount += 1

If (keyDownCount >= 3)

{

keyDownCount = 0

}

Else

{

keyDownCount = 0

}

WinGet, min_max, MinMax, A

WinGet, this_id, ID, A

If (min_max = 1) ; 最大化

{

SendEvent, #{Down}

WinMove, ahk_id %this_id%, , , , 1100, 750

}

WinGetPos, x, y, w, h, ahk_id %this_id%

If (keyDownCount = 0)

{

MouseMove, w//2, 10

}

Else If (keyDownCount = 1)

{

MouseMove, w-5, h-5

}

Else If (keyDownCount = 2)

{

MouseMove, w-30, 15

}

Exit

~LAlt & MButton::Send, #{Tab}

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

; マウス

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

NumLock::

Menu, Tray, Icon

Reload

Exit

Pause::

WinGet, id, list

Loop, %id%

{

StringTrimRight, this_id, id%A_Index%, 0

WinGetTitle, this_title, ahk_id %this_id%

if(RegExMatch(this_title, "Google Chrome") > 0)

{

WinGet, min_max, MinMax, ahk_id %this_id%

if (min_max = 0)

{

WinClose, ahk_id %this_id%

}

Exit

2018-02-072020-11-30

AutoHotkey マウスクリックループ

一定のタイミングでマウスクリック

IsStop:=0
A::
Loop
{
  MouseClick ,Left
  Sleep, 3000

  if(IsStop=1)
  {
    IsStop:=0
    Return
  }

}
Return

B::
  IsStop:=1
Return

IsStop:=0

A::

Loop

{

MouseClick ,Left

Sleep, 3000

if(IsStop=1)

{

IsStop:=0

Return

}

Return

B::

IsStop:=1

Return

2017-01-212020-05-05

AutoHotkey TeamViewerのスポンサーセッションを消す

セキュリティソフトを一時停止。
プロンプトは管理者権限で起動(もしかしたら大丈夫かも)

test.ahk

sleep 10000
IfWinExist, スポンサーセッション
{ 
ControlClick OK, スポンサーセッション
}

sleep 10000

IfWinExist, スポンサーセッション

{

ControlClick OK, スポンサーセッション

}

上記ファイルを作成し、
C:\Program Files\AutoHotkey\Compiler
に移動。

コマンドプロンプトから、
cd C:\Program Files\AutoHotkey\Compiler
Ahk2Exe.exe /in test.ahk /out test.exe
にてtest.exeができる。

ログオフする前にクリックしておくと10秒後にウィンドウを消す。

最初はC#だったが、これじゃ消えない。

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())
            {
                if (p.MainWindowTitle.IndexOf("スポンサ") >= 0) p.CloseMainWindow();
            }
        }
    }
}

namespace ConsoleApplication1

{

class Program

{

static void Main(string[] args)

{

foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())

{

if (p.MainWindowTitle.IndexOf("スポンサ") >= 0) p.CloseMainWindow();

}