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)

>>312
出来ます

```
result2 := VarSetCapacity(point, 64, 0x00)
result := DllCall("kernel32\GlobalMemoryStatusEx", "Ptr", &point, "int")
lasterror := Dllcall("GetLastError")
ListVars
msgbox
```

このようなものを書いたのですが、GlobalMemoryStatusExが失敗しているようで、
Global Variables (alphabetical)
--------------------------------------------------
0[1 of 3]: 0
ErrorLevel[1 of 3]: 0
lasterror[2 of 3]: 87
point[0 of 32]:
result[1 of 3]: 0
result2[2 of 3]: 64

と表示されてます。
error codeの87は"パラメータが正しくない"だそうです。なにがだめなのでしょうか？
環境はwin8.1 64 のAutoHotkeyU64.exeです。
プログラム言語やスクリプトはAutoHotkey以外ほとんどやった事がないです。

>>314
https://msdn.microsoft.com/ja-jp/library/windows/desktop/aa366770(v=vs.85).aspx
NumPutで構造体のdwLengthを指定しないとだめでしょ

dwLength

The size of the structure, in bytes. You must set this member before calling GlobalMemoryStatusEx.

>>315
ありがとうございます！解決しました。
```
result2 := VarSetCapacity(point, 64, 0x00)
NumPut(64, point , 0, "int")
result := DllCall("kernel32\GlobalMemoryStatusEx", "Ptr", &point, "int")
;dwLength := NumGet(point, 0, "Int")
dwMemoryLoad := NumGet(point, 4, "Int")
ullTotalPhys := NumGet(point, 8, "Int64")
ullAvailPhys := NumGet(point, 16, "Int64")
ullTotalPageFile := NumGet(point, 24, "Int64")
ullAvailPageFile := NumGet(point, 32, "Int64")
ullTotalVirtual := NumGet(point, 40, "Int64")
ullAvailVirtual := NumGet(point, 48, "Int64")
;ullAvailExtendedVirtual := NumGet(point, 56, "Int64")
MsgBox,
(
メモリ使用率:%dwMemoryLoad%`%
全物理メモリ:%ullTotalPhys%B
利用可能メモリ:%ullAvailPhys%B
ページング可能な最大ファイルサイズ:%ullTotalPageFile%B
現在ページング可能なファイルサイズ:%ullAvailPageFile%B
全仮想メモリ:%ullTotalVirtual%B
利用可能仮想メモリ:%ullAvailVirtual%B
)
```

これはバグでしょうか。　ツールチップなのですが
下記のスクリプトで、tipwindowというのを表示させてこれをアクティブにして
ActiveWindowsInfoを見てもWindowTitleのところに
tipwindow
というのが出てきません。にもかかわらず
WinGet, aid, ID, tipwindow
WinGetTitle, t1, ahk_id %aid%
とすると拾えて、t1にはtipwindowと入っています

これにExcludeTitleを加えて
WinGet, aid, ID, tipwindow,,ahk_exe AutoHotkey.exe
WinGetTitle, t1, ahk_id %aid%
とすると取れないだろうと思ったのですが、これでも
t1には、tipwindow
が入ってきます。　なぜでしょうか
idでもpidでも同じ結果です

^a::
ToolTip, tipwindow, 100, 500, 2
WinSet, AlwaysOnTop, On, ahk_class tooltips_class32
WinGet, aid, ID, tipwindow,,ahk_exe AutoHotkey.exe
WinGet, apid, PID, tipwindow,,ahk_exe AutoHotkey.exe

WinGetTitle, t1, ahk_id %aid%
WinGetTitle, t2, ahk_pid %apid%
MsgBox aid=%aid%`napid=%apid%`nt1=%t1%`nt2=%t2%
return

あ、AHKのバージョンは、v1.1.24.04です
ToolTip, tipwindow, 100, 500, 2の最後の2にはなんの関係もありません。これはなしでも同じ結果です

#If MouseIsOver("ahk_class Shell_TrayWnd")
このコードがwikiにありますが
タスクバー上で、Wheelの左右が効かないのはなぜでしょうか？

>>318
少し試してみた感じだと、Tooltipの内容をタイトルとして取得できるのは同一のプロセス内だけっぽい？
AWIは別スクリプトだから取れてないのかと

あとExcludeTitleにはahk_??は使えなかったような

>>321
ToolTipsのときは、ActiveWindowsInfoのWindowTitleには出てないのに
WinGet等で取れるっていうのがなんとも気持ち悪いです
デバッグするときにあれって思う

ああ、ActiveWindowsInfoっていうのは
Window Spyのことね

>>318
WindowSpyがTooltipの内容をタイトルとして拾えないのは昔から仕様扱いだったと思う。
ahkとWindowSpyの両方から全く同じコードでGetWindowText()を呼び出しても、
ahkからしか取得できないので、OSの仕様じゃねーの？という扱いだったような。
ahkのcppソースのコメントにWM_GETTEXT()とGetWindowText()のどちらを使うかってのが説明してあって、
WindowSpy改造すればタイトルとして取得できるけど、問題のほうが多そうということで仕様扱い。

まあ、tooltipにはタイトルなんてない、で誰も困らないような。

>>324
複数のアプリを立ち上げていて、そのWinTitleがたとえば
アプリ１
アプリ２
アプリ３
となっていて、ToolTipsにアクティブになってる同じタイトル名を表示する、ということをしたのですよ
で、WinGet, v, PID, アプリ１
ってやったら、なぜかAutoHotkey.exeのPIDを取ってきたのです
で、なんで？　ってなって今回の話になりました
ToolTipsはWindowSpyで見たらタイトルにはなかったのでテキストに入ってるのかと思ってて
原因究明にめっちゃ時間がかかりました。まさかToolTipsのPIDを取って来てたなんて思っても
いなかった

結局、こういう場合、WinTitleからは確実にアプリ１のPIDをとることが出来ません
現状ではアプリ１のexe名を憶えておいて、それを利用するとかしか出来ません
ExcludeTitleも使えないなんてなあ
でもexe名もWinTitleからは得られないんですよね。AutoHotkey.exeになっちゃうから

>>325
やろうとしたことは大まかにわかったけど詳細がわからないので解決できるのか知らないけど、
WinGet使う前にtooltip非表示にしてしまえばいいのでは？

>>326
WinGetで取る前にtooltip非表示にして取ってから
再度表示にする、ということですね
非表示にすると取らなくなるのかな
でも可能性はありますね
でもなあ、ExcludeTitleが使えたら解決するんですけどねえ

ahk_XXのときは使えないとか、なんでやねんw
今日は疲れました

>>324
＞まあ、tooltipにはタイトルなんてない、で誰も困らないような。

それとここですが、結局、Tooltipsの場合は、そこに表示されている内容も
WinTitleになる、ということですね。でもWindowSｐｙには出ないので要注意です

ほんとこれこそちょっとしたTIPSになりましたw

ActiveWindowInfo.ahkをモジュール化して組み込んだら
自分のtooltipはちゃんとタイトル表示されるようになったわ

>>325
俺も似たようなことやってるけど
「アクティブウィンドウ：t1」みたいに表示させてたおかげで無自覚回避できてたようだな

というか真面目な話、バグとして報告していい案件なんじゃないの

>>325
>ToolTipsにアクティブになってる同じタイトル名を表示する
この部分がよく分からないんだけど、アクティブになってるウインドウのPIDを取得して、
それを元にウインドウタイトルを取得して、
そのタイトルをtooltipに表示する
ということだろうか？

だとしたら、
^a::
WinGet, v, PID, A
WinGetTitle, title, ahk_pid %v%
ToolTip, % title, 100, 500, 2
return
というのは？

wingetにおけるPIDの説明には
PID　条件に一致する一番最初(前面)のウィンドウのPID(プロセスID)。
となっており、「一番最初(前面)」というのは必ずしも「アクティブ」とは限らないと思うんだが…

間違っていたらスマン

1.app1というアプリが起動してあり、さらに
2.tooltipにapp1と表示させてた状況で
3.WinGetでタイトルがapp1のappを釣ろうとしたら、tooltipの中身のほうにひっかかった
という話でしょ。

で、そのとき
appとtooltipを区別して釣ることができない、ということ

タイトル指定でツールチップを除外したいだけなら普通にやりようあるけど
あまり相手したくない感じの人だから関わらないほうがいいかな

TrayTip の Seconds って機能してるのかな
10 も 30 も変わりないように感じるけど

Note: This parameter has no effect on Windows Vista and later.

>>335
本家ヘルプによるとvista以降で機能しない

>>334
横からだけどよかったら触りだけ教えて

>>336
>>337
書いてあったんですね、ごめんなさい。
ありがとうございます。

>>337
ahk_class ^(?!tooltips_class32$)

>>339
その正規表現の意味がわからなかったけど試したらできたわありがとう
正規表現の勉強しなおしてくる

aaa()
{
実行文字列
}
で読み込んだ関数が

この後に
v::
while (GetKeyState("v","p") )
{
aaa()
}
return

で読み込めないのなんでだ…
aaaの実行ラインは
v::
の後に書き込むと問題なく動いてる

1.関数化できてない？
2.引数できてない？

あまり恥ずかしい内容なので中身を詳しく書けませんが
原因として考えられることがあれば教えてください

よーわからんがとりあえずtooltipで試しすとちゃんと動くので
恥ずかしい内容の中身に問題があるのでは？


v::
while (GetKeyState("v","p") )
{
aaa()
}
tooltip
return

aa(){
tooltip,aaa
}

>>342
確かにtooltipで動かすと問題なく作動してますね
中を確認してみます
ありがとうございます

１つの処理だと問題ないんですが
a::
の中と

b::
の中に
同じ処理を入れようとすると
Duplicateエラーが出るのは同じ関数を使っているから？
対応策はありますか？

記述を隠したがるやつ妙に増えたな

a::
goto label1
label1:
return

b::
goto label1
label1:
return

だとエスパー

最近､AHKが動かないソフトが増えている気がするけど､俺だけかな？
トライアル版を試したこれも動かなかった。
HippoEDIT
https://www.hippoedit.com/

俺のバージョンはv1.1.22.04。OSはWin7 64bit。
外国ののソフトは動かないのが多い気がする。

一年半まえに使い始めたわいので
v1.1.23.05やで

最新の
v1.1.26.01
試してみたらどうや
ｱﾌﾟﾃﾞって言っても置き換えるだけだし

>>344
>>347
AHKの「なにが」動かない？
書かなければ「分からない」

>>349
ホットキーが無視されてしまいます。v1.1.26.0.1でも同様です。キーをフックする優先順位がAHKよりも高いような印象です。
皆様はいかがでしょうか？
最近､海外のソフトでは案外ひんぱんに経験します。AHKを管理者権限でインスコすればいいのかな？

管理者権限で試すのはインストールではなくスクリプトの起動では

>>350
問題が起こる最小限のスクリプトを書いていれば話がスムーズに進む

F1::MsgBox フックなし
$F2::MsgBox フックあり

フックの有無
管理者権限　>>10

質問が頓珍漢過ぎて、さすがに釣りとしかw

>>351
おお､動きました。ありがとうございました。
管理者権限で起動する方法は↓にありましたので早速やってみます。

管理者権限で実行しなければいけない常駐アプリのスタートアップ設定方法
http://tanweb.net/2015/10/21/5101/

>>352
私はいわゆるSpaceFNをやっていまして､それがSpace押下でSpaceが入力されて困っていました。
何故外国のマイナーなソフトだとこういう現象が起きるのか不思議ですね。定番のソフトでは経験したことありませんでした。

windows APIのABM_SETSTATE messageを使って「タスクバーを自動的に隠す」をオンにしたいのですが、 APPBARDATA構造体のlParamメンバーには何を入れればいいのでしょうか?また、hWndメンバーに入れるのはタスクバーのハンドルということでいいのでしょうか?

ABS_ALWAYSONTOP = 0x0002
ABS_AUTOHIDE = 0x0001

>>357
よろしければ出典を

「タスクバーを自動的に隠す」とは全く違う内容だが、こんなのあったの思い出した

1 Hour Software by Skrommel - DonationCoder.com
http://www.donationcoder.com/Software/Skrommel/index.html

【RunAndHide】

#NoEnv
#SingleInstance,Force
#NoTrayIcon
SetWinDelay,0

IfWinExist,ahk_class Shell_TrayWnd
{
　WinHide,ahk_class Shell_TrayWnd
　WinHide,Start ahk_class Button
}
Else
{
　WinShow,ahk_class Shell_TrayWnd
　WinShow,Start ahk_class Button
}

>>359
あ
「Start」は「スタート」と日本語にしないとスタートボタンに適用されないはず

ま、どうでもいいけどスレ汚しスマン

>>358
http://anago.5ch.net/test/read.cgi/software/1317156599/7のﾏﾝﾄﾞｸｾがすげー便利だからブクマしとくといい

>■リンク等
>AutoHotkey メモ - Principia
>http://principia.s54.xrea.com/index.php?AutoHotkey%20%A5%E1%A5%E2
>なまず日記
>http://www.tierra.ne.jp/~aki/diary/
>eamatの日記
>http://d.hatena.ne.jp/eamat/
>1 Hour Software by Skrommel - DonationCoder.com
>http://www.donationcoder.com/Software/Skrommel/
>Rosetta Code (さまざまな処理を各種プログラム言語で書いた場合の比較)
>http://rosettacode.org/wiki/Category:Programming_Tasks
>
>以下公式フォーラムより
>http://www.autohotkey.com/forum/topic8795.html　 Tips N Tricks
>http://www.autohotkey.com/forum/topic26855.html　ListViewで大きな画像を扱いたい
>http://www.autohotkey.com/forum/topic19509.html　GUIで標準のもの以外を使いたい
>http://www.autohotkey.com/forum/topic20097.html　GUIを手軽に作りたい
>http://www.autohotkey.com/forum/topic39598.html　DllCallで定数調べるのﾏﾝﾄﾞｸｾ
>http://www.autohotkey.com/forum/topic22975.html　コンパイルユーティリティ%28Compile_AHK II)
>http://www.autohotkey.com/forum/topic23072.html　HIDを直に読んで、キーボードやマウスの拡張ボタンの状態を得たい
>http://www.autohotkey.com/forum/topic19367.html　Windowsのイベントをフックして色々やりたい
>http://www.autohotkey.com/forum/topic20701.html　ShellFolder()　： エクスプローラのPathおよび選択ファイルを取得
>http://www.autohotkey.com/forum/topic20701-42.html　ShellDesktop()　： デスクトップで選択されたファイルを取得
>http://www.autohotkey.com/forum/topic21451.html　ポップアップメニューの情報を得る

昔はテンプレにあったんだがいつの間にか消えてたんだな

ジョイスティックの傾き検出して逆にキーボード操作に置き換えるスクリプトが出来たけど需要ある？
G13使用とかでジョイスティックの傾きで歩き、走りを検出できるようにしたもの
Fallout4用に作ったけどジョイスティックが使えないゲームとか、他にも応用が効くはず
あるならうpします

JTKで間に合ってます

内部的にどうしてんのかは見てみたいからうぷっていいのよ

ブログとかにアップして、アドレス貼ってくれる方が読みやすいから好き。

アップしてみました
JTKまがいなジョイスティックの傾き入力をキーボードに変換するということをAutohotkeyでやりたいという人
興味があればどうぞ
https://ux.getuploader.com/autohotkeyl/download/125 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)

入力角度まで検出できんのか
ありがてえありがてえ
JTKより好みにキーコンフィグできそうだ

この設定ってAHKで実現できますかね..?
https://qiita.com/hakomo/items/a19eb4b08bc2b3aa1533
緑文字の「Ctrlキーと(SandSの)Shiftキーを押しながら」のところが実現できるのか...

JTKで出来るのになんでこんなもの作ったのかというと
JTKの特殊入力のアナログレベルによって切り替えるってところに不満があったから
多分、座標のXYの傾きだけで長方形判定してる。斜め入力時のときに誤操作が起きるって理由から
コッチは半径を求めてそれを目安にすることにした
それと内部的にキーおしっぱループの処理がわかってないのが怖い、連打してるかもしれないから
なので作った

>>361
ありがとうございます。もう少し調べてみます。

https://ux.getuploader.com/autohotkeyl/download/126
>>366のものを二軸対応しました。ゲームパッドは二軸が主流でしたね。 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)

>>371
右スティックの軸はゲームパッドによってZ/Z回転だったり
X回転/Y回転だったりモデルによって異なるぞ

>>372
ああ、そうか、そうなっちゃうともうデバッグonにして動いてるパラメーターから同じ要領で変更してください。
関数化してもよかったか

そのうち角度計算、半径計算は関数化してもう少しシンプルに各軸設定出来るようにします。お待ち下さい

いや別に要らんけど

ジョイなんとかは自分とこだと暴発しておっかないから使うのやめたなあ

三角関数とか半径計算とか思いつかなかったしめんどくさいことを代わりにやってくれただけでも俺としては助かったか
これだけあれば無理にバージョンアップしなくてもええで
軸情報さえ与えればいいからな
GPDwin用に使わせてもらうわ

Menuで出すホップアップメニューがたまに外クリックしても消えなかったりするんだけど対策とかある？

>>378
対策は知らんけど、消す方法ならある

loop, 5 {
ifwinexist
break
winactivate, ahk_class #32768
send, {alt}
}

ifwinexist
じゃなくて
ifwinnotexist, ahk_class #32768

>>378
ポップアップメニュー表示中は、SetTimerの割り込みでさえ出来なくなるので、
ポップアップメニューを別AHKにして呼び出さないと、表示後の対策は何も出来ない。

使ってたフリーソフトがたびたび落ちるから、似たようなの自作して安定してたけど
元がmigemo対応してたんで、こっちにも組み込んでみたら落ちるようになったつらい

#usehook

^b::
send,^a
return


^a:: ;コピー
send,^c
return


^bでコピーのスクリプトを動かす方法ってないですか？Goto、Gosubは使わないで

何がしたいのかさっぱりわからん

この手の質問にあるあるだな
何をしたいのか具体的に書かずに、省略した謎コードを添削させるという

なぜそうしたいのかなんて書く必要ねーからだろアホ

質問に答えねーでケチつけるだけのゴミがでてくることこそあるある

クイズ問題だと思って答えれば良いってことだな。

^b::
^a::
send,^c
return

いやいやそこでクイズに答えてしまうと質問者は己のコードミスに気が付かないまま終わるで

send,^a はどこ行っちゃったんですかねぇ

ああ^cと^a間違えてるわけじゃなくてソフトウェアホットキー有効にしたいのね
#usehook外せばいいんじゃないすか

>>389
すいませんその方法も使えないんです。
>>391
そうですソフトウエアホットキーを使いたいということです。
ですが#usehookや$がないと無限ループがおこるとかリスクがあるみたいなのでもう少し調べてなかったらあきらめます。
ありがとうございました。

無限ループ起こるのは

^a:: send,^a

とかやった場合だよ
A_ThisHotkeyと同じものをsendしたい場合だけ ラベルに$つければいいだけじゃね

ダメだ。マウスエミュレーションじゃゲーム上でカメラ動かないわ
何が条件なんだろう

3つを一度に比較ってできませんか？

space::
a:=10
b:=20
c:=30

z:=(a < c > b)
tooltip,%z%,600,800
return

そういう関数を作ればいい

ここ2，3か月前に同じような質問見たな
まああれは質問というか文句言いに来て恥かいただけだったが

and使うのが嫌ってこと？
まとめて一行で書く方法が分からないってこと？

だいぶ説明不足でしたすいません。
3つの数字は常に変動してて、ホットキー押したときにそのとき一番大きい値のを選択するってことがしたいです。
ifを沢山書けばできるけど一行でやる方法ないかなあと調べたのですが分からず。
一つ増えまして4つで比較ができればいいのですが。

z := (a >= b ? a : b) >= ( c >= d ? c : d ) ? (a >= b ? a : b) : ( c >= d ? c : d )

1行で書けるけど、1年後とかに見たら何をやってるのか分かり難いので
ifで書いといたほうが視認性はいいんじゃないかな

参考演算子使えばやれないこともないが素直にif書くほうが楽だと思うわ

おっとかぶった

可変長引数を取るmax関数でも定義すればいいじゃない

Max(params*) {
t := params[1]
Loop % params.MaxIndex() - 1 {
b := params[A_Index + 1]
t := t > b ? t : b
}
Return t
}

a := 10
b := 20
c := 30
d := 40
MsgBox % Max(a, b, c, d)
Return

>>403
これはすばらしい。　こんなこと出来たんだ

integer限定でよければこういう方法も

Max_integer(params*) {
o := object()
Loop % params.MaxIndex() {
o[params[a_index]] := true
}
Return, o.MaxIndex()
}

質問です

対話形式プログラムの自動化ってできるんでしょうか？
コマンドプロンプトに対してControlSendで送ることは出来ても
返答メッセージの読み取り方が分かりません。

>>400
>>403
>>405
おー、すごい
できるようになりましたありがとうございました。
ahkを一年以上使ってるけどwiki読んだり検索して似たようなことやってる人のスクリプトを見てもわからなくてちょっと改変して移植もできない場合が多すぎて自分のポンコツぶりが悲しいｗ

>>406
uwscは doscmd で出来るけど、ahkでは試そうとしたこと無いので出来るかどうか解らない

>>406
大昔に無理やり実装してた人はいた、オリジナルANSI版の頃のだからたぶん今だと動かないと思うが
ここの プロセスを起動して標準出力を読み書き
http://lukewarm.s101.xrea.com/myscripts/

最近のだとこの辺とか？
AutoHotKey_Lで、標準出力を得る方法。
http://poimono.exblog.jp/22219786/

単純に出力見たいだけだったらファイルにリダイレクトしちゃうのが簡単だけど
(書き込み規制に引っかかるので全角化)
ＲｕｎＷａｉｔ，　ｃｍｄ．ｅｘｅ　／ｃ　ｅｓ．ｅｘｅ　検索文字列＞ｔｅｍｐ．ｔｍｐ，，Ｈｉｄｅ　／ＵｓｅＥｒｒｏｒＬｅｖｅｌ
ＦｉｌｅＲｅａｄ，ｖａｒ，ｔｅｍｐ．ｔｍｐ
ｍｓｇｂｏｘ，％ｖａｒ％

|clip

>>406
例えば rmdir を使ってフォルダとその中にあるファイルを削除する場合

app := ComObjCreate("WScript.Shell").Exec(ComSpec)
app.StdIn.WriteLine("rmdir /s D:\DeleteMe") ; D:\DeleteMe と DeleteMe フォルダの中にあるファイルを削除するコマンド
While (1) { ; DeleteMe フォルダの中に一つでもファイルやフォルダがないと無限ループするから注意
msg .= app.StdOut.Read(1) ; ReadLine だとこちらの入力待ちの時にデッドロックする
If (InStr(msg, "よろしいですか (Y/N)?")) {
MsgBox % msg
app.StdIn.WriteLine("Y") ; 確認を求められたので y を入力して削除を実行
break
}
}
app.StdIn.WriteLine("exit")
Return

こちらの入力待ちになるまでの処理は色々なやり方があると思う

https://autohotkey.com/board/topic/82732-class-command-line-interface/