AutoHotkey スレッド part25 [無断転載禁止]©2ch.net

■配布元
http://ahkscript.org/download/

■前スレ
AutoHotkey スレッド part24
http://egg.2ch.net/test/read.cgi/software/1487149472/

■日本語解説等
AutoHotkey Wik
http://ahkwiki.net
AutoHotkeyを流行らせるページ(ミラー)
http://ahk.xrea.jp/ (不調時は http://hdd.s300.xrea.com/ahk/ )
AutoHotkeyJp(過去ログdatあり)
http://sites.google.com/site/autohotkeyjp/
Autohotkey日本語ヘルプ(chmファイル）
http://www6.atwiki.jp/eamat/
Autohotkey専用うpろだ
http://ux.getuploader.com/autohotkeyl/
簡易スクリプト掲示板
http://pastebin.com/

■派生版
IronAhk (.NET製、クロスプラットフォーム)
https://github.com/polyethene/IronAHK
AutoHotkey.dll (真のマルチスレッド対応など, AHKLの派生)
http://www.autohotkey.com/board/topic/39588-autohotkeydll/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)

>>590 >>591
ショートカットキーを使って、既存のブラウザのコントロールにアクセスしたいというのが
もともとの願望でした。
（会社の基幹システムの提携作業をマクロ化したいという動機）

検索すると、HotKey制御ならAutoHotKeyらしいということがわかって、
いろいろ試行錯誤してみた次第です。

ずっとVBAで業務支援ソフトなんかを同僚のために作ってきたのですが、
HotKeyの制御はC#やVBなんかでもできるのでしょうか？
初心者ですが、VisualAtudioは最近ちょろっと触ってるので、
HotKeyを使ったブラウザ制御なんかを学べる環境を教えていただけると幸いです。

>>589

| IEウインドウを最大化
| IEを最前面表示固定
| 座標100,200　を左クリック
| 1秒待つ
| 座標100,220　を左クリック
| 0.5秒待つ
| 座標300,200　を左クリック
| 1秒待つ
| 座標300,220　を左クリック
| ・・・
| IEを最前面表示固定解除

みたいなのにすればいいだろ
＃スクリプト動作中はマウス、キーボードを触らない


AHKじゃなくても、マウスユーティリティー系で可能
openmausujiならソースが公開されているから、業務で使用も可能だろ

>>589
テンプレにあるACC.ahkでDoDefaultActionでいいんじゃないかな
それでできないならUI AutomationのSetFocus()でフォーカス合わせるぐらいしか思いつかないけど
UI AutomationのほうもAutoHotKeyである程度使いやすいようにされたものがどっかにあったはず

>>593 >>594
ありがとうございます。
レスが遅くなって申し訳ありません。

上記を参考に一度トライしてみます。

マウスのホイール操作全般（WheelUp WheelDown WheelLeft WheelRight）にキーを割り当てると、単純な　a とか一文字でも
不定期に反応しなくなります
すり抜けとかではなく全く反応しなくなるのですが、リロードすれば直ります
右クリック、左クリック、サイドボタンでは全く問題ないです

定期的にリロードするよう書き込んだ方が良いのか、それとも
他に何か原因があるのでしょうか？

>>596
まず、余分なものをどんどん省いていって、それが再現する必要最低限のスクリプトにしてみましょう。
その結果、原因が分かって自分で解決できる場合もあるし、その最低限のスクリプトをここに書き込めば
誰かにヒントをもらえる確率が上がると思います。

>>597
WheelRight::send,a
return

これだけしか書いてないスクリプトでも急に受け付けなくなるのですが・・

再インストールしてみるとか？

うちの環境だと問題なく動いてるけどなぁ

一体どういう状況でソレが使いたいのかが分かれば精査しようもある
ただ言えるのは、短く書こうとして誤動作おきてるなんてことはよくある

WheelRight::
send,{a down}
keywait,WheelRight
send,{a up}
Return

くらいは書かないとダメかも

もうちょっというなら、キーヒストリーはちゃんと確認しよう
早すぎて抜けてるとかなら調節しないといけないわけだし、そもそもキーが送られてないとかになると、マウスとの相性まで疑ったほうが良い。
WheelLeft、Rightはうちも反応して無くて、しょうがないからF13,F14をレジストリレベルで割り当ててF13に設定してたりする

それロジマウス使ってるだけじゃねえの

LogicoolのSetpointのような他のカスタマイズ系ツールが入ってて競合していたり
仮想PC上で動かしていたりするんじゃない？
もしそうなら思考錯誤すればなんとかなったりするけど
Autohotkeyとの併用だと根本的解決は厳しいのでどこかで妥協が必要

ロジの左右スクロールはWindows標準APIじゃないから反応しないだけ
質問者の様に途中から反応しなくなると言った症状とは全く別問題

その手の質問するときはちゃんと環境書いたほうがいいよ
反応しなくなるのは件のホットキーだけ？
それとも他のホットキーも全滅になるん？

リダイレクトホイール系のスクリプト入れてるけど
ブラウザとかでページの読み込みが重いとスクロール処理に遅延が生じてしまって
それ以降他のアプリ上でホイール回しても一切スクロールしなくなることはあった
ただ処理はロストしてるわけじゃなく溜まっててるだけで
数分〜10分後に え今更？ってタイミングでスクロールされるけど
(win8 x64 & ahkL U64 v1.1.24 & m570)

>>601
ありがとうございます
そのスクリプトでやってみると初めの一文字だけしか出てきません
キーヒストリーを見ると

002: Send,{a down} (0.09)
003: KeyWait,WheelRight (2.81)

で止まって　Send,{a up}　が送られていないようでそれ以降反応しません
WheeｌLeft、,WheelUp　とかでも同じ挙動です

WheelRight::send,a
return
で反応しなくなるときはキーヒストリーにも何も記述されなくなってます

環境は win8 x64 & ahk v1.1.26.01(Unicode 32-bit) マウスはエレコム　です

>>607
#NoEnv
#InstallKeybdHook
#UseHook
SendMode,Input

WheelRight::send,a

このスクリプトのみを書いたAHKを実行させてみたけど、問題なく動いてるよ。
何回目のホイール右倒しで無反応になるの？

>>607
とりあえず>>601は無視した方が良いぞ
ろくに確認もしてないやつだから

>>608
ありがとうございます

WheelRight::
send,{a down}
keywait,WheelRight
send,{a up}
Return

で反応しなくなるのは2回目からです

とりあえずスクリプトの頭に
#NoEnv
#InstallKeybdHook
#UseHook
SendMode,Input
を付けてうまくいくのか様子を見てみます

俺のロジクールマウスの場合、ホイールに関しては d のみで u の発行は無い。
ボタンのアップ待ちは無駄かもよ。

だからホイールには「離す」なんて概念は無いって
keywait,WheelRight とか言ってるやつがアホなだけ

そもそもお前らにとってマウスは仇なの？
そこまでキーボードでやりだい心境ってどうなの？

keywaitがだめと言うならSleepでもいいぞ。とにかく押し下げて離すをエミュレートさせたほうが確実って話だから

脳波でカーソルうごかせたら万事解決するのに

>>613
お前何と戦ってんの？
全く真逆のこと言ってんだがｗ

>>614
>551の時は代替キーがモデファイヤ含んでたからそういう処理が必要だったけどそうでないなら助長じゃね
WheelLeft/Rightは倒してる間中リピート発生するみたいだし本来なら
WheelRight::a
だけでいいはず

書き方じゃなく環境的な問題な予感

>>610です
#NoEnv
#InstallKeybdHook
#UseHook
SendMode,Input

スクリプトの頭に上のを付けてもやっぱり不定期にホイールは反応しなくなるので
諦めます

WheelScroll.ahkとかWheelaccel.ahkだと、WINDOWS10の modern UI でスクロールできないです。
MGLを使った回避はあったのですが、単体利用での回避方法を誘導していただけないでしょうか。
よろしくお願いいたします。

あれってスクロールメッセージ送ってるはずだからそれがないなら反応しないとかだったような

>>619
WheelScroll.ahk modernUI対策版を上げました
ただwin10の場合は標準でリダイレクトホイール可能ですのでもうこのスクリプトは要らないかも
http://www6.atwiki.jp/eamat/pages/30.html

FileGetShortcutを使って指定したショートカットファイルのアイコンをGUIに表示させたいのですが、FileGetShortcutで取得したアイコンのフルパスは「C:\Users\ユーザー名」の部分が%USERPROFILE%となっているようで、GUIに表示できません。
%USERPROFILE%を展開する方法などはないでしょうか。

Path := "C:\Users\ユーザー名\Desktop\Google Keep - メモとリスト.lnk"
FileGetShortcut,% Path,,,,, OutIcon
Gui, Add, Picture ,w32 h32 ,%OutIcon%
Gui, Show, AutoSize x60y60

>>622
%USERPROFILE%を直接展開する方法は分からないが、
A_UserNameでログインしているユーザー名を
または、A_Desktopでデスクトップフォルダのフルパスを
取得することは出来るから置換すればいいような…

>>623
ありがとうございます。
StringReplace, OutIcon, OutIcon,% "%USERPROFILE%" , %USERPROFILE%, All
この一行で解決しました。

>>621
お世話になってます。
WheelScroll.ahkの作者さんがいらっしゃったのですね。
スクリプトの修正ありがとうございました。

業務用ソフトだからでしょうか。
特殊なコントロールが多いせいか、必須スクリプトです！
加速以外は全部の機能を使ってると思います。

横スクロールのコメントがございました。
Shiftホイールで横スクロール部分を有効にしました。

もしお時間をいただけるならば、ご確認、ご対応いただければ幸いです。。

20150711バージョンにて、excelのシート切り替えのため、下記を追加しておりましたが
20171219バージョンで機能しなくなりました。
スクリプトを比較してみて、競合しそうな追加部分は無いように見えるのですが、いかがでしょうか。

WheelScroll.ahkの最終行に追加
#IfWinActive ahk_exe EXCEL.EXE
XButton1::Send ^{PgUp}
XButton2::Send ^{PgDn}
Return

あと、諦めていたことなのですが、excelにて、列の固定(ウインドウ枠の固定）をしていると横スクロールできません。
環境依存などあれば書き込みます。
よろしくお願いいたします。

send {5 down}

の５を変数でできないです？

evalがあったのか〜

a:=5
send　{down %a%}

>>630
%か〜さんんきゅ〜

>>627
ご説明賜り感謝致します。
コメントアウトの方法は理解しており間違っていませんでした。。
これから出張なので、来週改めて確認していきたいと思います。
その他含め、ありがとうございました！
私はm510でチルト出来るのですが、shift横スクロールの方がスクロール量をコントロールできるので便利です。

>>627

>>627
632です。
ahk_classで指定したらシートの切り替えができました。
あとコメントにありました互換固定のテストは、| modeの方でないと動かないソフトがありました。
ありがとうございました。

最近　本体アップデートされないですね

github見ると前回の更新からFixedが大分溜まってきてるし落ち着いたら更新するんでない

ソートはせずに、前に出てきたものを同じ行を省く操作ってありますか
たとえば、
aaa
bbb
ccc
aaa
ddd
bbb
を
aaa
bbb
ccc
ddd
としてほしいのです。ソートはしません

>637
var =
(
aaa
bbb
ccc
bbb
aaa
)
Loop, Parse, var, `n
{
If(!InStr(newvar, a_loopfield "`n"))
newvar .= a_loopfield "`n"
}
Msgbox, %newvar%

すべての変数を一個ずつIfで比較して、一致しなければ出力してけばいいんじゃね

ポインタの使い方がよく分かりません

i := 4
p := &i

MsgBox, % *p
MsgBox, % NumGet(p + 0, "int")

のように書いても両方共iとは関係のない値が出てしまいます
どうすればpからiの中身にアクセスできるのでしょうか？

すいません、自己解決しました
VarSetCapacityとNumPutを使えば良かったのですね

あるアプリでツリービューをクリックするとサーバーと通信してその結果を
隣のリストボックスに表示する、というのがあります
今はAHKでmousemoveでカーソル移動してツリービュー上でクリックして
隣のリストボックスの情報をControlGet等でとっています
これをもっとスマートにしたいのですが、
ツリービューをクリックしてネットに情報を送るところを直接httpで送ることは
できませんか。具体的にどういうメッセージを送ってるのかを知ることは出来ないのでしょうか
URLDownloadToFileというのは見つけたのですがここまでのことはAHKでは出来ませんか

アプリの名前伏せられても通信プロトコルすら分からないわけだが
質問内容から想像つく範囲で答えるならdllcallからwinsockAPI叩けばおそらく可能ではある
ただSendMessageみたいに1発投げればいいってもんじゃないし
相手サーバーとのネゴシエート必要だし通信プログラムの知識は必要になると思うが

v.1.1.27.00にアップデートした

●AutoHotkey Downloads
https://autohotkey.com/download/

エディタであるように二打鍵からなるホットキーを設定したいのですが
どうやればいいのでしょうか？
たとえば
Ctrl+K→Ctrl+T
など

>>644
v.1.1.27.00にしたらremap用スクリプトがエラーで起動しなくなった
sc073::+vkE2sc073という記述が一箇所あってそこでエラー発生したてので、
sc073::+sc073としたらスクリプトが正常に動いた
今バージョンからvk**付けるとエラーになってしまうのか？

>>645
wiki読め

>>646
変更履歴によるとこれまでの「vk**sc***」という記述は廃棄されてsc***を削除した「vk**」でOK

●Changes & New Features
https://autohotkey.com/docs/AHKL_ChangeLog.htm

ahk2なんて作ってるのか
期待はしたいが現状のコード1万行を移植しないといけないと思うとめっちゃだるいな

ソースコードはテキストだ
つまり文章をコンバートするスクリプトさえ作ればなんとかなんじゃね？

A_Argsは嬉しい

#IfWinActive,無題 ahk_exe notepad.exe
としてもメモ帳を認識しない。
無題をやめて - にすると大丈夫。
何か問題ある？

スクリプトはUTF-8。
環境は、Windows10で、v.1.1.27.00です。

>>652
UTF-8のBOM付きやSJISしたら動作した。

ウィンドウタイトルの日本語を探すのは初めてだから、ごめんちょ。

マウスの中ボタン＋右クリックにホットキーを当てると
中ボタン単体では動作しなくなってしまうので

Mbutton::send,{Mbutton}
return

としていたのですが、これだと中ボタンでドラッグアンドドロップできなくなることに気付いて

Mbutton::MouseClick,middle,,,,,d
return
Mbutton up::send,{Mbutton Up}
return

と書いてみたのですがうまくドラッグアンドドロップ出来ません
どのように書けば良いのでしょうか？

>>654
中ボタン＋右クリックにホットキーを当てた時点で
中ボタン単体の判定は中ボタンを離した時に行われる様になるので
通常の方法ではドラッグは出来なくなる
別の対処策としては2度押しでドラッグにするとか、別のボタンにドラッグ割り当てるとか幾つかやりようはあるけど
どうしても普通にドラッグしたいなら中ボタン＋右クリックを諦めた方が良い

Hotkeyコマンドでホットキーをトグルさせるのは？
特定のウィンドウがアクティブ時、または中クリック長押しで切り替えとか

>>654
中ボタンでドラッグアンドドロップ出来るアプリを持っていないので確認できないけど、
オートスクロールのキャンセルはCtrlで出来るから、
#if GetKeyState("MButton","P")
RButton::
Send,{Ctrl}
ToolTip,M+R
Sleep,1000
ToolTip
return
#if
こんな感じでどうだろ

>>657
出来ました！ありがとうございます
GetKeyStateを使えばホットキーとして割り当てなくて済むのですね！

>>658
それだと中+右ボタンを押す時にも中ボタン単体押しが送信されるのでは？
それで構わないならば
~MButton & RButton::
にすればいいだけだな

>>659
>>657でも出来るのですが　 ~MButton & RButton::　でも出来ますね
~ の意味を調べたら　イベントを乗っ取らず、そのままシステムに通す　って書いてあったのですが
元のキーの機能を殺さずに的なことなんでしょうか？

v1.1.27.01が公開されたよ

●Changes & New Features
https://www.autohotkey.com/docs/AHKL_ChangeLog.htm

>>661
vkF3SC029::rerurn ;全半角
vkF4SC029::rerurn ;全半角up
でエラー出る
俺環かな
スキャンコードなし指定ならokだた

>>662
久しぶりにアップデートしたら自分もInvalid hotkeyってエラー出たわ
とりあえず1.1.26に戻した

仕様変更あったのね
チェンジログ読んだらちゃんと書いてあったや
Scripts containing hotkeys of the form VKnnSCnnn:: will need to be corrected by removing SCnnn, which was previously ignored.

しかし互換性持たせてくれればいいのになぁ

エラーが出るかと何かと思った
スキャンコード全部削除したけど動作がおかしくならないか不安

え？scxxxのみで何も問題ないけど…

あー、先にここ見とくべきだった。更新したら動かなくて何だろうかと
せっかくなので、これからverup予定の方に、自分が修正したキー一覧を以下に
変換…vk1Csc079
無変換…vk1Dsc07B
:(コロン)…vkBAsc028
:(コロン)…vkBAsc03A
;(セミコロン)…vkBBsc027
;(セミコロン)…vkBBsc03B
,(コンマ)…vkBCsc033
\(バックスラッシュ)…vkE2sc073
CapsLock…vkF0sc03A
ひらがな/カタカナ…vkF2sc070
全角/半角…vkF3sc029
全角/半角…vkF4sc029
grepツールで済ませてそんなに時間はかからなかったけど、久しぶりに面倒な更新作業だった

vkxxscxxxが使えなくなって
vkxxまたはscxxxのどちらかで指定と理解してるんだけどいいんかな?

使ってる人いるかわからないけど･･･
vkff系のscはkeywaitでエラー出たので
sc056::
keywait,vkff
return
としたらエラー無しで動いた。

sc05eは使えなくなったが、こいつだけvkff::をアテた。
とりあえず他とバッティングしてない。

こんばんはー、ホットストリングって機能に初めて手を出してみたんですけど、
ちょっと？？？な部分があるのでお伺いしたいです。
「[[」って打ったら「『」、「[[[」って打ったら「【」になるようにするにはどう書けばいいんでしょう？
Z0オプションでバッファが残るっていうならそれ指定するだけでいいのかなーと思ったら思うように動かず。
フラグを変数に格納するなり、複数行書かないとダメでしょうか？

ここ↓見るとか具体的にスクリプト晒すとかしないとレス付かないぞ
ホットストリング - AutoHotkey Wiki
http://ahkwiki.net/Hotstrings

ああいえ、読んだんですがイマイチ仕様を把握できず、
シンプルな構文で書けるのか書けないのか書けないのか、単にそれだけを慣れている人に聞きたかったんです。
必要ないでしょうけど一応晒すと、
:*Z0:[[::『
:*:[[[::【
で[を３回押したら【になりそうだなーと思ったのですがならないなーってことでして。

ホントにちゃんと読んだのか?
特に「終了文字」の項目を・・・

>>672
……？ *で不要化してますよね？

本当にちゃんと読んだか？
「置換後のテキストに2バイト文字を使うことはできないので、スクリプト実行型でクリップボードを経由して貼り付けるなどの方法を取る必要がある」

>>674
ご自分で試されましたか？
大分前から２バイト文字送信も実装されているようですが
そもそも質問の方向性が全く違います

>>671
『が入力される時に[[がBSで消されたことになるので、続けて[を打っても:*:[[[::が実行されない。

ホットストリングでやっても出来なくはないけど、ややこしいし色々問題あるからおすすめしない

>>677
あー、簡単に上手いことはいかないんですね。
B0にして、かつスクリプト実行型に変えたらようやく入力バッファ残りました。
しかもバグなのか、必要とされるBackspaceの量（置換後に本来消す文字数）まで引き継がれてしまい、
後続もB0で手動でBackspaceの数を調整しないといけないハメに。
さらに言うと、「:B0 O*:abc::」のあとは「:B0 O*:bcd::」では反応せず、「:B0 O*:abcd::」のみ受け付けると仕様がよーわからん…。
とりあえず↓のように出来ましたけど、もっとスマートな書きかたあります？

:B0 O*:[[[::{Backspace}【
:B0 O*:[[::
Send, {Backspace}『
Return

>>678
?オプション付けないとa〜z打った直後に動いてくれないから付けた方が良い
ちなみに、他にキー入力をいじるソフト（やまぶきRとか）使ってるとちゃんと動かない事がある

ゲームにAHKを利用しているのですが以下はQキーを押したとき
�@Iキーを送る
�A指定座標上で右クリ
�B再びIキーを送る
という単純なものです

Q::example() ;
examplel(){
BlockInput On
Send {i}
Click right 1305,829
Send {i}
BlockInput Off
return
}

ここで質問なのですが、このマクロによる操作（�@〜�Bですね）が一通り終わった後、マウスポインタをもとの位置に戻ってこさせるということは可能でしょうか？

>>680
移動する前に座標取得
MouseGetPos

>>681
ありがとうございます

RegExReplaceでファイルパスのファイル名だけを置き換えようとしたんですけどこう書いてしまうと

NewStr := RegExReplace("C:\a\b", "([^\\]+?)?$", "c")
tooltip,%NewStr%

結果が「C:\a\cc」となってしまいます。なぜか置き換え文字に指定した文字が二重で入力されます
以下のように置き換え回数を1に制限すると「C:\a\c」となってくれます

NewStr := RegExReplace("C:\a\b", "([^\\]+?)?$", "c",,1)
tooltip,%NewStr%

使っている正規表現がまずいのかRegExReplaceの記述の仕方がまずいのかわかりませんが置き換え文字が二重に入力されないようにするにはどうしたらいいんでしょうか？

>>683
RegExReplace("C:\a\b", "(.*\\).*", "$1c")

>>683
拡張子、ファイルかフォルダの考慮も忘れずに

>>683
正規表現がまずくて、量指定子"?"とグループ化"()"の使い方が迷走してるんだと思う
個人的にはこう
RegExReplace("C:\a\b", "[^\\]+$", "c")

いつの間にかバグフィックスが進んで
1.1.27.04になっとるやないかい

>>684
>>685
>>686
ありがとうございます
参考になりました

以下のスクリプトを「常時」「全てのウィンドウに」適用する(キャプションバーを隠す)にはどうすれば良いでしょうか

;キャプションバーをなくす
LWIN & LButton::
WinSet, Style, -0xC00000, A
return

「bug.n」の以下のスクリプトでも同様のことができているようなのでこの方法でもかまいません
(キャプションバーの非表示という部分の抽出の方法)
https://github.com/fuhsjr00/bug.n/blob/master/src/Window.ahk

実はこれで1年以上悩んでおります。
どうかよろしくお願いします。

>>689
https://arak.jp/diary/?20091030S1

>>690
できました！
本当に助かりました
ありがとうございました

sc と vk だが，フォーラム読む限りはvkのほうがいいみたいだぞ．scは”still supported”とか書いてあるが，いつ消されるかわからんしな．