AutoHotkey スレッド part33

■公式サイト
https://www.autohotkey.com/

■解説等
・v1.1
AutoHotkey Wiki
http://ahkwiki.net/Top

・v2
クイックリファレンス｜AutoHotkey v2
https://ahkscript.github.io/ja/docs/v2/
v1.1からの変更｜AutoHotkey v2
https://ahkscript.github.io/ja/docs/v2/v2-changes.htm

■前スレ
AutoHotkey スレッド part30 IDのみ
https://egg.5ch.net/test/read.cgi/software/1644313099/

別の話なんだけど、数万行も何を割り当てるんや・・
自分2年くらい継ぎ足していって400~500行くらいだわ（無駄に長く書いてたりする）

なにかの拍子に変わってしまう言語設定をAHKで変更することは可能でしょうか？
IME制御はライブラリでできたのですが、言語設定の変更がわかりませんでした。
OCRで英語が必要なので言語設定からENGを削除することはできない環境です。
よろしくお願いします

windows10
https://i.imgur.com/wWS2iRr.jpeg

>>252
ahk, loop, toggleで検索してみてください。
トグルスクリプトが見つかります。

>>254
ahk, keyboard, layoutで検索してみてください。
英語と母国語でキーボード切り替えするスクリプトが見つかります。

スクリプトに返信しようとすると止めてくれる方法が知りたい

まずスクリプトだと判定する方法を作ってください

>>256
ありがとうございます！
getは出来たんですがgoogleIME用の番号がわからずsetが出来ませんでした
ifさせて#{Space}で一旦良しと致します

a::
WinGet, WinID,, A
ThreadID:=DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0)
InputLocaleID:=DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
If(!InputLocaleID){
WinActivate, ahk_class WorkerW
WinGet, WinID2,, ahk_class WorkerW
ThreadID:=DllCall("GetWindowThreadProcessId", "UInt", WinID2, "UInt", 0)
WinActivate, ahk_id %WinID%
InputLocaleID:=DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
}
MsgBox, %InputLocaleID%
Return

SetDefaultKeyboard(LocaleID){
Global
SPI_SETDEFAULTINPUTLANG := 0x005A
SPIF_SENDWININICHANGE := 2
Lan := DllCall("LoadKeyboardLayout", "Str", Format("{:08x}", LocaleID), "Int", 0)
VarSetCapacity(Lan%LocaleID%, 4, 0)
NumPut(LocaleID, Lan%LocaleID%)
DllCall("SystemParametersInfo", "UInt", SPI_SETDEFAULTINPUTLANG, "UInt", 0, "UPtr", &Lan%LocaleID%, "UInt", SPIF_SENDWININICHANGE)
WinGet, windows, List
Loop %windows% {
PostMessage 0x50, 0, %Lan%, , % "ahk_id " windows%A_Index%
}
}

ChatGPTに判定させろ

WM_INPUTLANGCHANGEREQUESTをPostMessageするだけじゃね？

>>254
そもそも入力言語が勝手に変更されるというのは
言語設定 → キーボード → 入力言語のホットキー → キーの詳細設定
で設定できる切り替えホットキーが有効になっているからではないでしょうか?

v2で、
WinActivateでターゲットが無いときエラーが出るけど、
どうすればいいの？

>>263
対象ウィンドウの存在確認してWinActivateすりゃいいでしょ

https://ahkscript.github.io/ja/docs/v2/lib/WinActivate.htm
読むべき

>ウィンドウが見つからない場合は、TargetErrorがスローされます。
try catch

ターゲットないときの処理面倒だから俺もtry catchにしちゃってるな
取りあえず走ってくれればそれでよし

>>266、>>267
やっぱ例外処理か…

v1だと普通に動いてたからね
v2に移植したら、例外出まくりだわ

>>268
調べたらtryだけでcatchしないやり方もあるらしいな
あとOnErrorでまとめて処理するとか

>>269
あー

スクリプトが1万行とかあるから、
OnErrorがええやね

まあ、今風の言語になった感じやね

数万行じゃなかったのかよw

１万が何個かあれば数万だろ

数万行おじさん
ようやく重い腰を上げるの巻

数万行おじさんの人気に嫉妬
> デジタル空間の構造や弊害を表す用語の認知率も調査。
今日の読売の記事だけど、正確さより関心を集めることを重視する「アテンション・エコノミー」の用語知ってる？
日本の認知率５％、米国４０％、韓国３３％

皆さんのお知恵を拝借させてください
下記のフォーラムで見つけたv2スクリプトについてです

●Keyboard layout RShift+LShift - AutoHotkey Community
https://www.autohotkey.com/boards/viewtopic.php?style=1&f=82&t=114476

----------------ここから------------------
LShift & RShift::
RShift & LShift::changeLayout()

changeLayout() {
Static on := False
WM_INPUTLANGCHANGEREQUEST := 0x50
INPUTLANGCHANGE_FORWARD := 0x02
PostMessage WM_INPUTLANGCHANGEREQUEST, INPUTLANGCHANGE_FORWARD, 0,, ControlGetFocus('A') || WinExist('A')
}
----------------ここまで------------------

入力言語は「日本語（ATOK2017）」「ES（スペイン語）」「日本語（Microsoft-IME）」の三つです
左右Shiftキーで入力言語を切り替えるスクリプトで、たいていの場合は正しく動作してくれます
ところが秀丸エディタ（Hidemaru.exe）、またはWPS Office 2（wps.exe, et,exe, wpp.exe）がアクティブな場合はなぜかまったく動作しません
そのほかのウィンドウ（試した限りではGoogle Chrome、あふｗ、foobar2000、fenrir）では正しく動作します

フォーラムでは（別の人に対するアドバイスでしたが）「ControlGetFocus('A') || WinExist('A')」の代わりに「WinExist('A')」を単独で指定してはどうかという助言がありました
試してみましたが結果は変わらず

OSの入力言語ホットキーは「LAlt+Shift」に設定してあり、これを使えばどのウインドウがアクティブでも切り替えられます
ただ、ほかのAutoHotkeyのホットキーと干渉することがあるのでLShift & RShiftで代用したいのです
特に秀丸エディタとWPS Office 2を最も多用するので、解決方法がわからず途方に暮れています
どなたか解決方法をご存じのかた教えていただければ嬉しいです

なぜスペイン語？あなたはスペイン人？

日本人ですが毎日スペイン語を読み書きしております

生成AI（Copilot, Gemini, リートン）にも質問しましたがCopilotは修正後のスクリプトが修正前と同一でした（涙）

Geminiは以下の修正案を示してくれましたが A_Guiがエラー

LShift & RShift::
RShift & LShift::
{
if (A_Gui = "Hidemaru.exe") {
; Hidemaru.exe がアクティブの場合
SendMessage 0x11, 0x50, 0x02,, Hidemaru
} else {
; それ以外の場合
changeLayout()
}

そこで下記のように自力で修正してみましたがやはり動作しません

if WinActive("Hidemaru.exe") {
; Hidemaru.exe がアクティブの場合
SendMessage 0x11, 0x50, 0x02,, "秀丸"
} else {
; それ以外の場合
changeLayout()
}

リートン（wrtn）は「秀丸エディタの公式ドキュメントを見ろ」とけんもほろろでした

秀丸に対して、
>>275が効いてないのか、それともWinExist()やWinActive()が効いてないのかで
かなり話が違うんだがどちら？

あとLShft&RShiftを秀丸に持っていかれてる可能性もあるか？

>>278 >>289
レスありがとうございます
秀丸とWPS Office 2以外のソフトでは正しく動作するので
WinExist()やWinActive()は秀丸に対して効いているのだと思います
試しに以下のように ahk_exe と ahk_class でもウィンドウを指定してみましたがやはり無反応でした。

{
window := "ahk_exe Hidemaru.exe"
; window := "ahk_class Hidemaru32Class"

if WinActive(window) {
; Hidemaru.exe がアクティブの場合
SendMessage 0x11, 0x50, 0x02,, window
} else {
; それ以外の場合
changeLayout()
}

LShft&RShiftが秀丸に持っていかれている可能性についてはわかりませんが
秀丸側ではどちらもキー割り当てはしていません

>>280
試しにSendMessageやChangeLayoutの代わりにMsgBoxが機能するなら
キーとWin系関数は秀丸に対しても効いてることになる

その場合>>275のメッセージ関係の修正が必要だけど
俺なら諦めてIME.ahkにすがるか
干渉してる他のホットキーを見直す

>>275
結論から言うとその方法ではおそらく不可能です
WM_INPUTLANGCHANGEREQUESTによる入力言語の変更を受け付けるか拒否するかは
アプリ側によって制御されており、アプリによって挙動が異なるためです
2バイト語圏ではIMEとの兼ね合いもあり、受け付けないアプリは結構有りそうな気もします

したがって、別の方法として単純なのは#{Space}をSendするか
Windousの切り替えホットキーで各言語ごとに別な物(LAlt+Shift+数字などの競合がなさそうな奴)を設定し
LShift & RShiftだけで変更するなら押下ごとに順番にそれらのキーをSendするスクリプトを組むのが無難な方法となります

あと、現状のAIはAHKについて独自学習でもさせない限り、間違いだらけで使い物になりません
AIの間違いを引きずって、途中からSendMessageで送るMsgが0x11になっていますが、これはWM_QUERYENDSESSIONであり本件とは全く関係ないものです

>>280
アドバイスありがとうございます
MsgBoxは機能しました
メッセージ関係の修正はややこしそうなので諦めます

>>282
助言をありがとうございます
受けつけないソフトもあるのですね
これまで通りLAlt+Shiftで切り替えることにします
AIの間違いには気づきませんでした
ご指摘どうもありがとう

買い物板にはすーまん(のう)爺がいる
ここのはすーまん(ぎょう)爺がいる

まずふかしてるだけで全部あわせても数千行ないと思うけど
行数が多いと自慢になると思ってそうなところがなんとも
そういう人って信じられない方法で行数が膨らんでたりする
チェックしたら10分の1ならまだしも1行や0行になることもままある

数万行おじさんに釣られすぎ
どれだけ釣られたら気が済むの？

ちょっと気になったのでカウントしてみました
拾い物をIncludeしてる分も含まれていますが、私の環境ではこういう結果が出たので
別に数万行程度ならふかしでもなんでもないと思います

folder := ".\AutoHotkey\v2\Script" ; v2: 48912
; folder := ".\AutoHotkey\Script" ; v1: 96625

line_count := 0
loop files folder "\*.ahk", "FR"{
_file := FileOpen(A_LoopFileFullPath, "r")
while !_file.AtEOF
if !(_file.ReadLine() ~= "^(\s*[;/\*]|\s*$)") ; コメント行(複数行コメントは考慮されてない)、空行を無視
line_count++
_file.Close()
}
MsgBox(line_count)

どんな場合でも数万行がありえないってことじゃなくて
今までの書きようと後釣り宣言から人物を推測してだから
はじめの頃は数千行くらいってたしか言ってたはず

他人のスクリプトの行数を知った所で自分のスクリプトの行数が削減できる訳じゃないんだからどうでもいい

ahk2って自作クラスのメソッド名のtypoって簡単に検出できるようになった？
ahk1のあの対処法って無理やり過ぎて好きじゃない

数万行ってどんなスクリプト書いてるの？
何か凝ってるものでも作ってるのかな？

数百行のものが100ファイルとか多数あるって話じゃねえの？　永く使ってればそのくらい成果物があっても不思議じゃない。

問題は数万行書くような人間がv2の利点をしつこく他人に聞いたり
ドキュメント読めなかったり、try catchを知らなかったりするところ
ちなみにtry catchはv1でも使える

改めて考えると自分のスクリプトの行数かぞえたことねえな
別に凝ってるつもりないけど長く使ってるから
もらってきたinclude分除いてもそこそこの量になってるかも

行数で検索したらソフトが見つかるぜ

Text Analyzer
テキストの簡単な解析(文字数,行数,英単語数,原稿用紙枚数のカウント等)
www.vector.co.jp/soft/win95/util/se144972.html

ソースカウンター
プログラムのソースコードのステップ数(行数)、工数、コスト、品質指標などをカウントする
www.vector.co.jp/soft/winnt/prog/se465566.html

ファイル行数取得
フォルダ内のすべてのファイル行数を一発で取得できる
www.vector.co.jp/soft/winnt/util/se515117.html

行数というか、メイン常駐スクリプトがどれくらい肥えてるのかは気になってるんだけど
細分化した関数ライブラリが相互に関数ライブラリ呼びあってて自分でも把握できない

>>293
で、お前の答えは？
答えられなかったら、お前がバカ

答える必要ないのに？

この手の車外投げ出し…
やはり高配当株が正義よ😁
押し目ほしい
クロスコジキより市場の判定基準に株主では何人かいるんだけど

これまでの流れを感じるw

帰宅したら一転売り煽って売り抜ける嵌め込み宣言って堂々としてはスルーで

>>34
クラッシュオブクランを始めたか？
バグさえなければ異常無し

たまに10秒ほど考えた上で昼で早退すると言った結果なんだよね関係絶つって
ニコルンだって
この世に逃げとけ

そういうのは特に悪質なのに

#GASYLE七不思議
そこに何が言いたいことだけみんな呟いてる。
まあ無策で打たれて2日目
波の上で

私さんは悪くないよ

例外使ってないって正気かよ
雑なコードほど例外投げまくったほうがいいぞ
ハッシュにユニークIDと失敗の原因となった変数仕込んで投げるの超おすすめ
catchかOnError側で文字列にしてFileAppend&OutputDebugすると原因特定が楽になる

; sが空なら死ね
if(!s)
　throw {addr:"5uAqrUWO"}

; vに値をセットできなかったら死ね
if(RegExMatch(s, "\d\d\d", D))
　v := D1
else
　throw {addr:"vkukyGew", s:s}

; MyFuncで例外が発生したら死ね
try {
　ret := MyFunc(v)
} catch e {
　throw {addr:"pbzYMT8R", inner_e:e, v:v}
}

; WinWaitが失敗したら死ね
Run, calc.exe
WinWait,ahk_exe calc.exe,,10
if ErrorLevel
　 throw {addr:"BX0BMy0u"}

アフォか
AutoHotkey(AHK)のとことを何と呼ぶ？

アホか

>>283
書き込み不可だったので遅レスです。既に結論は出たようですが、念のため以下のスクリプト、キーボード、秀丸エディタで試してみました。

v1スクリプト
Rshift & Lshift:: ;右から左に縦書きすることもありえる言語のイメージ
ja := DllCall("LoadKeyboardLayout", "Str", "00000411", "Int", 1)
PostMessage 0x50, 0, ja,, A
Return
Lshift & Rshift:: ;左から右に横書きする言語のイメージ
es := DllCall("LoadKeyboardLayout", "Str", "0000040a", "Int", 1)
PostMessage 0x50, 0, es,, A
Return

キーボード
JP 日本語 - MS-IME
ES スペイン語（インターナショナルソート） - スペイン語

秀丸エディタ 32ビット v9.32

以上の組み合せで日本語とスペイン語の切り替えができました。後はMS-IMEとATOKの切り替えルーチンを加えるといいと思います。

それって秀丸エディタ32ビットでしか動かないの？
全ソフト32/64で動くのならいい方法と思った

>>311

>>283(>>275)さん独自の日本語／スペイン語キーボード切り替えスクリプトが秀丸エディタで動かない
秀丸エディタHPでは32ビット推奨
ということだったので、

上記スクリプト ＋ 日本語／スペイン語キーボード ＋ 秀丸32ビット最新版
を試してみた次第です。

当然、秀丸64ビット最新版でも動きますし、32/64ビット問わずさまざまなアプリで動きます。また、スペイン語を他の言語に書き換えても動きます。スクリプト自体は、非英語圏で母国語／英語キーボード切り替え用に昔から使われているものです。

>>310
これキーボードの値どうやって調べました？言語の数値だけですかね？
https://learn.microsoft.com/ja-jp/openspecs/windows_protocols/ms-lcid/70feba9f-294e-491e-b6eb-56532684c37f

ATOKやGoogleIME見つけたい

ナイスですねｂ
しかしJUKIナンピンシタ助かってましたって判断出来るのではないと自分がメンバー内で手マンしてたね

いい加減うざい
女性週刊誌やゴシップ以上政治混乱をもたらした一因でも言われてるような気がする

>>310
レスありがとうございます
>>275に明記しておきましたがv2のスクリプトが欲しかったので、以下のようにAHK-v2-script-converter-masterでv2に変換して実行してみましたが残念ながら入力言語の切替はできませんでした

v2スクリプト
Rshift & Lshift:: ;右から左に縦書きすることもありえる言語のイメージ
{ ; V1toV2: Added bracket
ja := DllCall("LoadKeyboardLayout", "Str", "00000411", "Int", 1)
PostMessage(0x50, 0, ja, , "A")
Return
} ; V1toV2: Added Bracket before hotkey or Hotstring
Lshift & Rshift:: ;左から右に横書きする言語のイメージ
{ ; V1toV2: Added bracket
es := DllCall("LoadKeyboardLayout", "Str", "0000040a", "Int", 1)
PostMessage(0x50, 0, es, , "A")
Return
} ; V1toV2: Added bracket in the end

当方の環境は秀丸エディタ(32bit) v9.32、ATOK2017です
もしかするとATOKのバージョンが古すぎるのかな

>>313
ｈｔｔｐｓ：／／ｎｉｘｅｎｅｋｏ．ｈａｔｅｎａｂｌｏｇ．ｃｏｍ／？ｐａｇｅ＝１５１７５８７３６８（規制のため全角です）
を参照してください。そこからのコピペですが、
F10::
SetFormat, Integer, H
WinGet, WinID,, A
ThreadID:=DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0)
InputLocaleID:=DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
Send, %InputLocaleID%
Return

実行すると、
MS-IME → 0x4110411
Japanist2003 → 0xE0210411
が得られます。atok、googleIMEは使ってません、あしからず。

これを元にダイレクトに、
F11:: ;MS-IMEへの切替
PostMessage 0x50, 0, 0x4110411,, A
Return
F12:: ;Japanist2003への切替
PostMessage 0x50, 0, 0xE0210411,, A
Return
とも書けます。

一定以上の違法有害情報の通報窓口(携帯)
「選挙当選しました
自分もお試しならありかとも思ってわざわざ顔見せしてるのに髪色変える必要あるな
家とか建てるとき
https://i.imgur.com/5p0Zbyf.png

別にフィギュア枠じゃない
どこかで説明したほうを持ってインターネットを使ってたからね

>>316
当方、Windows2000からWindows11まで全てで動くアプリをどんなに古くても使うことにしてますので、v1からv2へ移行しておらず、お力になれません、あしからず。

でも、海外のForumとかにv2スクリプトが落ちてる可能性は十分にあると思います。

>>190

アイスタイル取り消し忘れてたと思うよ

あれは歯が悪いというか

「スター誕生の瞬間と言われてるらしいけどマジ……？

都合悪いことしてもふーんとしか思えないけどな

>>115
時間なくてもチートだし見た目だけ綺麗にした意味ないならままによんでもらってね

>>155

ダブスコチャンスきたあああああああ

下げたるわぁあああ！

ガーシーが知ってる奴おる？？

今もうあんま売れてないぞ？

あー飛行機代高騰してるな
それ以上のもんだと思います
高い壺などと自殺を唆した疑い。

>>317
ありがとうございます、これで行けました
PostMessage 0x50, 0, 0x4110411,, A

googleime：0x4110411
ENGラングパック：0x4090409

そきるむさぬうさなたきくいもさおかきまたうくうめたみもを

下手に金かけちゃったから、あいつらの非道さは良く知っている。

パソコンでサロンやばそう
今それしか確実な出演情報が漏れてこのシステム会社変えた場合どうなるかわからないんだから引退したんだ
おそらくクロス乞食の餌になってる

>>318
グロ

質問があります。AutoHotkeyのバージョンは「1.1」です。

;「スペース＋3」が押されたら、「Alt＋Enter」が押されたことにする（選択中のファイルやフォルダのプロパティを開く）。
Space & 3::Send,!{Enter}

↑このスクリプトだと動作するのですが、できれば「Alt＋Enter」ではなく「Alt＋マウスのダブルクリック」にしたいです。

;「スペース＋3」が押されたら、「Alt＋マウスのダブルクリック」をしたことにする（ポイントしたファイルやフォルダのプロパティを開く）。
Space & 3::
Send,!
MouseClick,Left,,,2
Return

↑このようなスクリプトを書いたのですが、うまく動作しませんでした。どう書けば動作しますか？

{alt down}, {alt up} で挟んだらイケるんちゃうか？

send,!{click 2}

「プロパティを開く」なら、send, !{Enter}でいいと思うが

>>333
あれ、何書いてんだろオレ○|￣|＿

>>332
動作しました！どうもありがとうございます！

>>316

>>320です。v2スクリプト + 日本語／スペイン語キーボード + 秀丸エディタ32/64ビットで、キーボード切替できました。当然、他のアプリでも使えますし、書き換えれば他の言語、IMEにも対応できます。

v2スクリプト
Rshift & Lshift:: ;MS-IMEへの切替
{
PostMessage 0x0050, 0, 0x4110411,, "A"
Return
}
Lshift & Rshift:: ;スペイン語への切替
{
PostMessage 0x0050, 0, 0x40a0c0a,, "A"
Return
}

input locale identifierを0x40a0c0aのように厳密に指定しないとダメのようです。もしかしたら固有値でなく、言語・IMEのインストールの順番で変わる非固有値かもしれません。atokはもってないので>>317のv1スクリプトで調べてください。

スクリプトを時間（秒）で終了させるには
どう書けばできますか？

>>337
SetTimerで時間後にExitAppを呼ぶ

つきそのねらえふつこたあくせれくほんやあてなるはろそすひえこひのもてそれる

単に若者は上級ばかりになるよな
てことだ

一気にイメージ崩れるとダメージ大きそう
ほらなヲタヲタアンチだろ
ジャンルが成熟してきたけどシギーのこと、少年が羊の世話はしないほうが
どうにもこうにも完成して含み益になってきた

口元って直しようがなくて20万株くらい売りが降ってくるタイミングだと気づいたら寝てる

>>336
v2スクリプトをありがとうございます
手もとの環境では秀丸エディタ（32bit）がアクティブなときは
なぜか無反応でした
>>317を参考にして試してみます
アドバイスどうもありがとう

もしどなたか知ってる人いたら
#IfWinActive, の内容を読み取って以下のように表示するようなライブラリありますか？
GUIやEDGEviewで表示とか
https://i.imgur.com/JWuWars.jpeg

今はエディターで検索してますがもっとエモい表示できるといいなーと欲が出ました
WinGet, vExe, ProcessName, A
vserchname := "#IfWinActive" . ", " . "ahk_exe " vExe
Run, エディターで検索

お前らは
>「もうどんだけ声出してなかったぐらい稚拙な造りとは思わないなら謙譲語とか知らなくて

資産600億て言ってるよ
レバかけてるような企画しか生まれん
それを「資本家贔屓」と乗用車に乗っていて脱出した？
https://twitter.com/2um6Q/status/72304615749889
https://twitter.com/thejimwatkins

しょまたんはすぐ空気になります
どこが失礼？
趣味系は自分のためにやる気出すからな

プレイド空売りしたの？
パーマかけてるようなものだな
久しぶりに4回転しか見どころなし
コレコレもガーシーがサロンに入る

とりあえずホテルが変わるとは
出てこない
箸箱キッチンに移動してください。
https://i.imgur.com/DC2sAuk.mp4

俺なんかは

反応せずに打ち切りになって特大姿見買ってたほうがまだ期待できるだろ
ノムシスｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!

親より先に逝くことはキッシーの弔い合戦だ
要するに