AutoHotkey スレッド part27

2019/04/20(土) 23:32:53.28

!extend:on:vvvvv:1000:512
!extend:on:vvvvv:1000:512
!extend:on:vvvvv:1000:512

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

■前スレ
AutoHotkey スレッド part26
https://egg.5ch.net/test/read.cgi/software/1524647289/

■日本語解説等
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: default:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:669e095291445c5e5f700f06dfd84fd2)

2020/02/09(日) 15:43:04.49

>>836
イエース！有難う。

2020/02/11(火) 23:56:48.73

みんなタスクバーの件すまない。
Classic Shell絡みの問題で、完全に環境依存だった・・・。

2020/02/13(木) 09:14:54.16

式展開、変数展開を一切しないただのヒアドキュメントってどうやって書くんですか？
urls=
(
http://www.foo.net/search?q=aaa%20bbb
)
とかくと変数20bbbを展開しようとしたけどできなかった的なエラーが出てしまいます
ヒアドキュメントの中身をエスケープせずにエラーを取り除きたいです

2020/02/13(木) 09:29:49.82

>>855
http://ahkwiki.net/

2020/02/13(木) 09:29:59.61

(%
hoge
)

2020/02/13(木) 21:49:14.43

「%」が一個だけなら「`%」でも良いのかな？よく分からんけど
数十個とか数多い時は>>857だよね当然

2020/02/14(金) 03:33:04.21

Windows10 x64日本語、AutoHotkey U64の環境で
WinTitle系の引数に日本語を書いたスクリプトをUTF-8で保存するとタイトルがマッチしないのはなんで？
ASCII文字だけにするとマッチするのは確認してます
あと何故かShift JISで保存するとマッチする
Unicode版とは一体

2020/02/14(金) 08:26:21.34

ちゃんとBOM付けて保存してるか？

2020/02/14(金) 19:10:29.35

>>860
完全にそれが原因でしたありがとう

2020/02/19(水) 21:51:29.80

古い自社製アプリの画面に、CB FF 00..などのデータが
EXCELのセル状に縦横に並んでいます。
Windows spyで調べると、ClassNN:MSFlexGridWndClass##と表示されました。
この中から或る位置のセルの値を取り出したいのですが、方法が分からないです。
どうすればよいか、何か情報頂きたいです。

2020/02/20(木) 01:34:34.25

>>862
VB6　フレキシブルグリッド（MSFlexGrid）コントロール
ListViewならSendMessageでメッセージ送れば操作や取得できるが
MSFlexGridにはメッセージが用意されて無いらしい（ざっと検索した限りでは）
アプリ側で何かしら用意されて無いなら外部から取得できないと思う

代案としては
アプリですべて出力できるならそこから抜き出す
座標やキー入力で移動してCtrl+C

2020/02/20(木) 17:21:06.89

タブレットペンの「消しゴム」に該当するキーってあります？
SAI Ver2などのペイントソフトで、タブレットのボリュームボタンなどを押している間だけ一時的に消しゴムツールに切り替えたいのですが
単純にeキーを割り当てると、ボタンを離した後もツール自体が切り替わってしまい困ってます

2020/02/20(木) 18:10:35.06

>>864
SAIは使ったことないが過去にPhotoshopで似たようなことしてた人がいたよ
https://hibari.5ch.net/test/read.cgi/software/1317156599/195-204

ググってで出てきたショートカット集によるとSAIもキー押しっ放しで一時切り替えモードになるみたいだし
押してる間中キーリピート発生させ続ければいけるのでは
http://blackstraycat.nobody.jp/digitalillustration/painttool-sai/painttool-sai-shortcut.html

2020/02/21(金) 22:05:20.72

>>864
AHKでやるとしたらボタンを押したときにE、ボタンを離したときにNやVを送って鉛筆や筆ツールにするとかその程度
「押してる間だけ」とか「一つ前のツールに戻る」みたいな機能がSAIというソフト側にあるかどうかはSAIの問題であって
AHKと関係ないのでスレチ
一行目の聞き方からしてAHKが何をするソフトか根本的に分かって無さそう

2020/02/22(土) 01:57:19.30

KeyHistory (AHKウィンドウの Key History and script info)で操作履歴は追えるから
ペンタブで消しゴム使った直後に見ればどういうキーコード吐いてるかはわかるよ
多分 eキーリピートしてるだけな気がするけど

2020/02/22(土) 12:56:15.49

クライアント領域の幅と高さを取得できる方法ってある？
WinGetPosだとウインドウ領域の幅と高さしか取得できなくて困ってる

現状やってる取得方法
➀
WindowSpyのActiveWindowPostionのwの差とhの差を自力で計算→それぞれwidthDifference, heightDifferenceと定義する
②
WinGetPosでwWidth, wHeightを取得
③
cWidth := wWidth - widthDifference
cHeight := wHeight - heightDifference

こんなめんどいことしなくてもWinGetPosでクライアント領域の幅高を一発で取得したい
それが無理ならせめて➀の自力計算の部分だけでもなんとかならないかと思う
ActiveWindowPostionのClientのw,hだけでも取得できれば…

誰かヒントでもいいからお願いします

2020/02/22(土) 13:21:41.85

GetClientRect

2020/02/22(土) 14:00:48.91

AHKにクライアント領域の幅高の組み込み変数って実装されてないのかな？
WindowSpyにあるからありそうではあるんだけど…まあとりあえず解決

>>869
ありがとう助かった
DllCall使うのは頭になかった

2020/02/22(土) 14:15:22.16

exeの指定アドレスに数値を書き込みたいんですけど、参考になるサイト等はありますか？。

2020/02/22(土) 22:48:11.32

「現在何か作業中である」というのを AHK で感知するにはどんな方法があるでしょうか
現在は以下のようなスクリプト (AHK x64 用) で画面の電源状態を取得しているのですが
最近たまに動かなくなってしまいました
スクリプトはかなり前にいろいろ調べながら書いたもので、内容はほとんど理解していません
(無駄に関数化されていますがご容赦ください)

2020/02/22(土) 23:20:25.65

>>872
A_TimeIdlePhysical という便利な変数がある
「作業」というのが具体的にはどんな内容を想定しているかわからないが
自分の用途ではそれを見ることで判定できている

2020/02/22(土) 23:37:39.08

>>871
「exeの指定アドレス」て実行中に使用されている
メモリ中のアドレスを書き換えたいってことじゃなく
EXEファイル中の特定アドレスを書き換えたいってことだよね
単に
File := FileOpen(Filename, "rw")
して
File.Seek(Distance, [, Origin = 0])
して
File.RawWrite(VarOrAddress, Bytes)
すればいいように思うけど

2020/02/23(日) 11:15:48.32

ラベルの動的生成ってできませんよね？

なので、必要な個数のラベルを羅列したfileを動的生成し、
そのfileを追加スクリプトとして読み込もうと思ってますが、
この方法であってるでしょうか？

2020/02/23(日) 11:27:04.07

それとも　>>237　みたいに唯一のラベルに飛んでから
処理を分岐というのがスマートですか？
とりあえず　>>237　さんの方法でやってみます。
ありがとうございました。

2020/02/23(日) 11:27:07.71

>>875
何やりたいんだかイメージできないけど
複数回その処理した場合ラベル名が重複してたら破綻するし
重複しないならしないで際限なくスクリプトが増えてきそうな気もするし
単純な文字列処理にすることはできないのか

例えばポップアップメニューのラベルということなら
ラッパー関数作ってしまえば
key := Menu("&File,&Edit,&Help");
if(key = "F")
　　...
if(key = "E")
　...
と表向きラベルに依存しない実装にすることもできる

2020/02/23(日) 13:57:45.64

どうしてラベルの動的生成とかって発想になるのか、、、
詳細がわからんので何ともだが
このままだとどのみちif文のお化けになりそうな予感
ifをloopで回すとかで綺麗に書けると思うぞ

**872** (ﾌﾞｰｲﾓ MMff-L7zd) · 2020/02/23(日) 17:06:19.15

>>873
それを忘れていました。ありがとうございます。
投稿規制にあってスクリプトはアップできませんでした

2020/02/23(日) 18:49:49.06

>>874
先生、もう少し具体的にお願い出来ないですか？。
例えばtool.exeのアドレス”0028ABA1”から”00 00”を”10 10”に書き換えたいのです。

2020/02/23(日) 18:56:49.81

>>880
ここはクレクレスレじゃないからあとはwikiで使い方勉強しな

2020/02/23(日) 19:29:40.06

バイナリーファイルのオフセットのことをアドレスとか言われることに違和感しか感じない

てか動的に実行ファイル書き換えてなにしたいんだろうね
そもそもahkでやるべき処理じゃない気がする
exe複数作って呼び分けりゃいいだけのような

2020/02/23(日) 21:37:04.33

アセンブラやってた頃は普通にアドレスって使ってたわ
stirlingとか使って手作業でやるんじゃあかんんの？
それかマクロ機能のあるテキストエディタでバイナリモードでゴニョゴニョするとか

2020/02/23(日) 22:26:37.57

>>880
利用場面がよくわからないが
使うなら必ず元のファイルを別箇所に保存した上で

https://pastebin.com/zKBrmi8v

一回書き換えるためだけにこれを使うなら

>>883 さんのいうように
https://www.vector.co.jp/soft/win95/util/se079072.html
のようなバイナリエディタ使うほうが
自分が何をしているのか直接はっきりわかるので安心感があると思う

どっちみち書き換えた後に確認するだろうし

あと
書き換え後の10 10がもし10進だとすれば当然
NumPut() のパラメータは 0x0A0A となります

ここではたまたま1バイト目も2バイト目も0x10(または0x0a)だけど
下位バイトから先に書き込まれるので
もしデータが0x1234ならファイルに書かれる順番は0x34 0x12になるので注意

2020/02/24(月) 00:00:14.68

>>884
ありがとうございます！このスクリプトは墓まで盛っていきます！。
ところで5バイト書き込みたいのに、4バイトしか書き込まないのは何故でしょうか？。
(&datToWrite, 5)にしているんですけどね。

2020/02/24(月) 13:03:34.74

>>885
”00 00”が5バイトなら、>>884の説明はかなり外れている
その上で書き込まれた4バイトが期待通りのはずは無いのにそれについて言及してないのは何故？

2020/02/24(月) 14:23:08.95

>>885
まず
https://pastebin.com/zKBrmi8v
でNumPut()のtype指定に間違いがありました
同じURLで訂正版を上げました
NumPut(... UInt)
は間違いで
NumPut(... "UInt")
が正しい指定です
さらにサンプルで実際に書き込むのは2バイトなので
"UShort"の指定があれば足ります

指定を間違っていると
デフォルトの"UInt"が指定されたとみなされます
この場合は結果として"UInt"が指定されたのと同じことになります
指定されているtypeがUInt(Int)だと4バイト分のサイズなので
下位バイト分以上のデータは入りません
参考 UChar:1バイト UShort:2バイト UInt:4バイト UInt64:8バイト
またRawWrite()で有効なサイズ以上の書き込みサイズが指定されると
不足分には0x00が書き込まれます
なので5バイトのデータを書き込みたければ"UInt64"を使う必要があります
8バイト以上のデータを書き込みたければ
単純にNumPut()とRawWrite()を続けて使えば続けて書き込まれます

たとえば
すべてNumPut()で"UChar"1バイトのデータを指定し
RawWrite()で1バイトづつ書いていけば
サイズや書き込まれる順番などを考えず書き込むことができます

2020/02/24(月) 14:24:16.08

>>886 の指摘があるまで
"00 00"を5バイトのデータとは思いもしなかった
そういうことなのか？
"00 00"という文字列を"10 10"という文字列で
上書きしたいということなのか？
サンプルはあくまでも
0x00, 0x00の2バイトを0x10,0x10の2バイトで上書きする
という例です

2020/02/24(月) 14:54:03.36

もしやりたいことが文字列の書き換えだとすると

実行するAutoHotkey*.exeが
A32版で書き込み先のEXE中の文字列も
CP932やANSIなのだとしたら
datToWrite := "10 10"
としてRawWrite()で5バイト書き込めばいいと思うが

AutoHotkey*.exeがU版で書き込み先の対象文字列がCP932やANSIの場合
AutoHotkey*.exeがA版で書き込み先がの対象文字列がUTF16LEなどの場合
はそれぞれの状況に合わせて対応する必要がある

2020/02/24(月) 17:25:33.16

>>889
やりたい事が全て出来ました！。
クレクレ君で申し訳なかったですけど、本当にありがとうございました。
他の皆さんにも申し訳なかったです。

2020/02/24(月) 18:55:55.05

>>887
>下位バイト分以上のデータは入りません
下位4バイト分以上のデータは入りません

>>888
>0x00, 0x00の2バイトを0x10,0x10の2バイトで上書きする
>という例です
正確には書き換え元のデータをチェックすることはなく
指定位置の2バイトを0x10,0x10の2バイトで上書きするという例です

>>889
文字として扱う場合には文字コード変換を考える必要があるが
短いデータならもちろんバイナリを直接指定可能
"10 10"のバイナリは ASCII だと 0x3130203130
UTF-16LE だと 0x00310030002000310030 なので

; ASCII/CP932
NumPut(0x3031203031, &datToWrite, 0, "UInt64")
File.RawWrite(&datToWrite, 5)
; UTF-16LE
NumPut(0x300031002000, &datToWrite, 0, "UInt64")
; 最初に"10 "だけ書き、次に残りの"10"を書く
File.RawWrite(&datToWrite, 6)
File.RawWrite(&datToWrite, 4)
もちろん実行するのがA版でもU版でも問題ない

>>890
"00 00","10 10"というのは文字列の例だったのか
それとも2バイトのバイナリデータの例で
5バイトというのはそれとはまた別の例だったのか
どっちだったの

2020/02/24(月) 19:15:12.50

迷惑きわまりない

2020/02/24(月) 20:09:50.30

クレクレにやりたがり説明したがりが加担すると猛烈に面倒くさくなるという実例
クレクレはクレクレなので細かく説明されてもわかりませんてなもんだろうし
こうなると誰のための長文なのか謎

2020/02/24(月) 20:23:03.96

知識ひけらかしたいだけのゴミクズ

2020/02/24(月) 21:14:01.12

これはクレクレになりすました吊りだろ

2020/02/24(月) 22:24:56.38

なにもしていない人が文句だけ言いに出てくる方が迷惑

2020/02/24(月) 23:11:47.59

>>891
2バイトバイナリの例だったんです。
試しに5バイト書き込んでみたら4バイトしか書き込めなかったので、追加でお尋ねした次第です。
紛らわしくて申し訳ないです。
改めて有難うございました。

2020/02/24(月) 23:40:29.31

>>897
ありがとう
そういうことかと
わかってスッキリしました

2020/02/24(月) 23:59:35.92

自己満足オナニーを見せびらかすのが趣味のキチガイ

2020/02/25(火) 14:02:29.67

x=a かつ y=b 　の時　って if (x=a && y=b) って書きますけど

x=a かつ y=b　かつｚはc か d　の時場合に～をするって書きたい時は
if (x=a && y=b && (ｚ=c || ｚ=d ) )
って書き方って正しいんですかね？
動いてはいるんですけど、偶々なのか仕様上アリな書き方なのか

2020/02/25(火) 16:28:56.89

>>900
何を気にしてるかいまいちわからないけど、
If(...) は、() 内の式の演算結果が0かそれ以外かで条件分岐を行うコマンド
式は演算子や関数、()等を組合わせて複雑な処理が行える(どうもAHK的には()は演算子(operator)ではなくsub-expressionらしい)
&&も||も=も、+-*/とかと同じ演算子の一種で、優先順位に従って前後を評価してるだけだから、仕様上普通にアリだぞ

2020/02/25(火) 17:02:57.72

コピって正しく動くか確認しようとしたら正しく動かなくておや？と思ったら全角ｚだった
紛らわしいもん貼るなクソが
仕様上はありだろ

2020/02/25(火) 17:32:02.22

ありがとうございます
何かを気にしているわけでもなく、自分にとって初めてのパターンだったので
今後の為に確かめとこう、というだけです

2020/02/26(水) 14:06:22.50

trimって`tは使えますが、`nは効いてくれないっぽいですね？
正規表現の方で取り除きますか。
用意されてる位だからtrimの方が正規表現より処理が高速なんだと思いますが

2020/02/26(水) 15:16:59.88

>>904
`r 忘れてませんか？

2020/02/26(水) 15:24:07.37

>>905
即できました。感謝です

2020/02/27(木) 21:31:24.10

AHK で今やっていることの一部 (テキスト処理) などを Python に移植・移行させようと検討中
なにかアドバイスいただけないでしょうか

2020/02/27(木) 21:56:51.63

ここはヤフー知恵袋ではありません
検討が終わって「試した結果」アドバイスがほしいなら
その試行結果を書きましょう

2020/02/27(木) 22:14:57.75

>>907
適切なアドバイス：やる気、根気、元気

2020/02/27(木) 23:28:22.65

PyAutoGuiってのを使えばできるんじゃない（よく知らない）

2020/03/03(火) 19:37:26.03

同一サイズのファイルを比較して分岐したいんですけど、VersionやCRC32比較以外で使用出来るコマンドってありますか？。

2020/03/03(火) 21:53:29.37

ファイルのサイズが同一のときに、そのファイル同士の何を比較したいのか
要求をもってる本人しかわからないのでは

2020/03/06(金) 02:01:57.18

powershell compare file (hash)
でググってPSに丸投げするのが楽そう

2020/03/06(金) 02:08:23.38

AHKにMGLの関数をIncludeで移植できないですか？
横スクロール関数とかそのまま使いたいんですが

2020/03/06(金) 13:28:07.26

依存関係がなく単体で動く関数集ならいける
外部関数やグローバル変数参照してるなら適宜修正
ここよりMGLスレで聞くほうがいいのでは？

2020/03/06(金) 15:28:23.83

確かにそうですね。

ところで、AHKで、Shift+Wheelに横スクロールをあてる方法がわからないのですが、
うまい方法はありませんか？

それこそMGLの作者様はうまい方法でそれをしていたのでIncludeしたいと思ったわけですが、
それを解析できるほどの能力はなく、困っています。

2020/03/06(金) 15:42:14.15

>>916
普通にリマップでShift+Wheelに横スクロールを割り当てればいいだけ
やり方はwikiに書いてあるし、その通りにやって出来ないというならまずそのスクリプトを貼れ
調べもせずに答えクレクレしてるならお門違い

2020/03/06(金) 16:13:50.53

>>916
>>1のアップローダに「AccelScroll.ahk」ってあるからそれ利用すれば良いんでないかい(改造は必要だと思うけど)

2020/03/06(金) 16:24:37.14

>>918
ただリマップするだけならそんな余計な手間かける必要ないだろう
たった二行書くだけなんだからリマップの使い方調べた方が早い
リマップすら分からん奴がそれの中身を調べる方が遥かに手間がかかるわ

2020/03/06(金) 16:42:09.76

#IfWinExist, ahk_class Fallout4
*RButton Up::
If (Toggle := !Toggle){
Send {Click Down Right}
}
Else{
Send {RButton up}
}
Return
これにshiftとwキー同時押しで右クリック押上の機能を追加したいと思い
~w & ~LShift::Send {RButton up}を書き足し

#IfWinExist, ahk_class Fallout4
*RButton Up::
If (Toggle := !Toggle){
Send {Click Down Right}
}
Else{
Send {RButton up}
}
Return
~w & ~LShift::Send {RButton up}
これで実行してみたが右クリック押下中にshiftとwキー同時押しするともう一度押下するのに二回右クリックする必要があった
上の問題を起こさずshiftとwキーで右クリック押上を追加する方法はありますか

2020/03/06(金) 17:09:41.48

>>920
WとLShiftを押したときにトグルをクリアすればいいんじゃね？
ちな問題とは関係ない余談だけどLShiftの前のチルダは不要かと

2020/03/06(金) 19:49:27.70

すごい剣幕の人いて草
そんなにあっさりしたスクリプトならどうぞやってみていただいて。
まあ普通に割り当てる「横スクロール」があればの話だけど

2020/03/06(金) 19:53:36.60

>>922
は？あるぞ？
どこにすごい剣幕の人が居るのかも分からんけど

2020/03/06(金) 20:59:17.22

>>923
>>917,919
この人ですよ

2020/03/06(金) 21:00:46.44

このスレ定期的にガイジが登場するね！

2020/03/06(金) 21:06:44.23

>>924
それのどこがすごい剣幕なんだ？的確なアドバイスじゃん
で、普通に割り当てる「横スクロール」は調べたの？
WinVistaの頃に「横スクロール」はOS標準APIになってAHKも対応してるぞ

2020/03/06(金) 21:18:35.26

単純にチルトを割り当てるレベルの話なら
+WheelUp::WheelLeft
+WheelDown::WheelRight
だけでいい

けどMGL内のMG_Scroll2() 相当のことがしたいという話ならいきなり面倒になるね
MG_Scroll2()の中身を見たが基本は WheelAccel.ahk (WheelScroll.ahk)からの改造っぽいので
とりあえずWheelScroll.ahkを#Includeで組み込んでみては
Shift+Wheelでの横スクロールはデフォでリマップされてるのでそのままでいけるはず

WheelScroll.ahk
https://w.atwiki.jp/eamat/pages/30.html

2020/03/06(金) 21:23:05.15

ほらな
質問の「Shift+Wheelに横スクロールをあてる方法」だけなら2行で済む話

2020/03/06(金) 21:28:04.94

そもそも、どのソフトに対して横スクロールを割り当てたいのかということも含めて
途中経過でいいから自分なりに作ってみたものを出すべきでしょう

2020/03/06(金) 21:39:18.65

「普通のやり方」では普通に動作してたわ
ごめんやでみんな

+WheelDown::Send, {WheelRight}
Return
+WheelUp::Send, {WheelLeft}
Return

ゆっくりスクロールしてみたら確かに横スクロールしていったけど、
普通に弾くようなスクロールだとスクロールがされないソフトもあるようで、気が付かなんだ

MGLの組み込み関数だとこれがしっかり動作してるけど、何が違うんだろう

ジェスチャー入力後にトリガー押しっぱのホイール回転で音量調整とか作れるくらいには
リファレンス読んでるけど、なにせ素人でこれ以上はわからなかった

2020/03/06(金) 22:20:27.84

最初から素直に言うこと聞きゃいいのに何で悪態付くんだか

2020/03/06(金) 22:22:43.09

何が違うんだろうって関数の中を見たなら全く違うのは分かるでしょ
チルトホイールは回転じゃなくて押し倒した状態をホールドする機構だから、ホイールの回転に割り当てても
アプリ側の想定とは違うタイミングでイベントが発生して思ったように動かない場合も当然あるよ

2020/03/06(金) 22:33:27.89

弾くようなスクロールとか言ってる時点で普通のマウスじゃないんじゃね
普通のマウスホイールはカチカチ感があって弾くような操作はしないし
標準の横スクロールに対応してるソフトなら>>927の2行だけで問題なく正常に動く

2020/03/06(金) 22:41:59.61

つまり馬鹿ってことだな

2020/03/06(金) 23:29:43.95

ID:fycGgJoa0 は素直に謝ってるのに、皆して攻撃しなくても……。

2020/03/07(土) 00:05:52.60

>>920
~w & LShift　だけの場合
修飾キーw　を先に押す必要があるので同時押しすると1/2の確立で失敗する
修飾キーShift　も追加すると同時押し対応になる

#IfWinExist A
*RButton Up::
~w & LShift:: ; wを先に押す
~+w:: ; Shiftを先に押す
if (Toggle := !Toggle)
ToolTip Send {Click Down Right}
else
ToolTip Send {RButton up}
return
#If

Esc::ExitApp

2020/03/07(土) 00:38:53.32

>>930
スクロール関係のメッセージは縦横それぞれ2種類あって

縦ホイール(WM_MOUSEWHEEL) / 横ホイール(WM_MOUSEHWHEEL)
縦スクロール(WM_VSCROLL) / 横スクロール(WM_HSCROLL)

縦はさすがにホイールでスクロールできないアプリはほぼ駆逐されたので問題ないが
横(チルト)はいまだに対応していないアプリがちらほらある、ExcelとかExcelとかExcelとかな
なのでMGLではWM_HSCROLL使って動かしてる模様

あとアプリによってはスクロールバーがあちこちにあるので
マウス直下のコントロールを確実にスクロールさせるための特定処理とか
スムースに動かすための加速処理とか諸々

2020/03/07(土) 00:52:40.38

>>936
WとShiftどっちを先に押すかはまあ両方書いておくに超したことは無いだろうけど
それだとshiftとwキー同時押し時も押すたびに{Click Down Right}と{RButton up}が交互になってしまうから
質問者のやりたいことと違う

質問者は
＞shiftとwキー同時押しで右クリック押上の機能を追加したい
　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~
なので>>920の後半のスクリプトに
Toggle :=
を加えてWとShift同時押しした時にToggleをリセットすればいいだけ
そうすれば次に右クリック押すときは必ず{Click Down Right}に戻るから2回右クリックしなくて済む
あとコマンドが複数行になるからReturnも書き忘れずに

2020/03/07(土) 01:22:22.38

>>938　ご指摘ありがとうございます、失念していました。
>>936　修正しました

#IfWinExist A ; ahk_class Fallout4
*RButton Up::
~+w:: ; Shiftを先に押す
~w & LShift:: ; wを先に押す
if (Toggle := !Toggle && A_ThisHotkey == "*RButton Up")
ToolTip Send {Click Down Right}
else
ToolTip Send {RButton up}
return
#If

Esc::ExitApp

2020/03/07(土) 02:01:04.77

押されている場合のみ

#IfWinExist A ; ahk_class Fallout4
*RButton Up::
if (Toggle := !Toggle)
ToolTip Send {Click Down Right}
else
ToolTip Send {RButton Up}
return
#If

~+w:: ; Shiftを先に押す
~w & LShift:: ; wを先に押す
if (Toggle) {
Toggle = 0
ToolTip Send {RButton Up}
}
return

Esc::ExitApp

2020/03/07(土) 02:20:12.93

>>940
横からで申し訳ないんですが、文末に #if を記述する意味ってなんですか？

#IfWinExist A ; ahk_class Fallout4
*RButton Up::
if (Toggle := !Toggle)
ToolTip Send {Click Down Right}
else
ToolTip Send {RButton Up}
return
#If ← これ。文末は、return で終わるもんだと思ってたんですが。

2020/03/07(土) 02:36:13.74

このコードで快適にfallout4をtoggle adsで遊ぶことができるようになりました 920です
回答してくれた方ありがとうございました(´・ω・｀)
エラーがでてコード書き込めなかった

2020/03/07(土) 03:44:00.38

>>941
#IfWinExist A ; ahk_class Fallout4 から #If まで囲った範囲が全て条件分岐の対象ってこと
#IfとReturnは関係ない

例）
#IfWinActive, ahk_class Notepad ;メモ帳がアクティブな場合
F1::
Msgbox, Notepad F1
Return

F2::
Msgbox, Notepad F2
Return
#If ;ここまで。これより下はメモ帳がアクティブでない場合

F1::
Msgbox, F1
Return

F2::
Msgbox, F2
Return

2020/03/07(土) 04:27:04.26

>>943
なるほど。解りやすい説明ありがとうございます。

2020/03/07(土) 22:59:14.36

デバッグログ出力や
自身の.ahkファイル解析してショートカットキー一覧を表示する場合
.md形式で出力してrun,markdown viewerで表示するのが楽だな

2020/03/08(日) 01:43:49.31

WinSet, Style, -0x00C00000, A
Sleep, 3000
WinSet, Style, +0x00C00000, A

これだとタイトルバーの下の数px分が消えない・・・・・
-0x00400000、-0x00800000、-0x00080000とかもやったけども変わらず
どしたら綺麗にタイトルバー消えるようになるべか？

2020/03/08(日) 03:24:14.14

>>946
「OS ウィンドウ枠」でググる

2020/03/09(月) 13:03:10.44

>>937
ありがとう
今は一旦、かざぐるマウスでこの機能は使っていますが、
いずれはMGLに移行したいと思います

2020/03/09(月) 20:53:57.60

>>947
どうも
以前からレジストリのCaptionHeight → -270 にしてて
今回ggってPaddedBorderWidth → 0 としてみたけど
それでも残り2～3pxぐらいが消えてくれなかった…

序でにBorderWidth → 0 やSmCaptionHeight → -270 にしてみても変わらずだった
中々うまく行かないな
あ、ahk 1.1.32.00 U32 win10 pro 64bit 1909という環境ですた(情報後出しスマン)

2020/03/09(月) 23:03:43.14

>>949
タイトルバーの下だけ少し残るって見たこと無いから画像UPしてほしい

**949** (ﾜｯﾁｮｲ cbb1-5EiH) · 2020/03/10(火) 00:24:19.26

こんな感じなんだけど…
今になって気づいたんだけどスクリプト実行した時の「メニューバーの色」が白じゃないのは何故だろ？
(他のウインドウも同様)

タイトルバー表示：https://dotup.org/uploda/dotup.org2083742.png
スクリプト実行：https://dotup.org/uploda/dotup.org2083746.png

一応レジストリ設定も
https://dotup.org/uploda/dotup.org2083748.png

…う～んこんな現象はいわゆる俺環ってやつなのかな？

2020/03/10(火) 01:46:07.59

>>951
win10枠線の設定が有効になっている
スタート → 設定　または　デスクトップ右クリック
個人用設定 → 色 → タイトルバーとウィンドウの境界線（既定チェックなし）

サイズ変更（0x00040000）も切らないと枠が消えないアプリがあったのでこれでテストしてみたら？
切るかどうかはWinGetでウィンドウスタイルを調べればいい

https://pastebin.com/AuD7BQ0R