自動化ツールUWSC使いよ集まれ24

2021/07/07(水) 11:17:44.59

Windowsの作業を自動化するツール
フリーソフト版とシェアウェア版の2種類がある
・UWSC Free版　Ver5.3.0.2
http://www.uwsc.info/uwsc5302.zip
・UWSC Pro　Ver5.3.0.2　（スレ建て時点で、現在シェアレジはできません。）
http://www.uwsc.info/uwscpro5302.exe　

●UWSC 掲示板（※作成依頼掲示版ではありません）
　質問の際には自力で作ったスクリプトを晒すか、具体的な解らない場所を提示すること
　上級者が常駐、たまに作者も現れるため過去ログには有益情報の宝庫
http://www3.rocketbbs.com/13/bbs.cgi?id=umiumi
http://www3.rocketbbs.com/601/siromasa.html

●UWSC - Wikipedia
http://ja.wikipedia.org/wiki/UWSC

●使い方・基礎解説学習サイト
http://uwsc.g.hatena.ne.jp/cx20/20100131/1264938584
http://www.confrage.com/uwsc/
http://necro.jp/dev/uwsc/
http://canal22.org/
http://big.tm.land.to/handbook/uwsc.htm
http://www.game-rev.com/review/gameut/uwsc.html

●スクリプトテンプレサイト
http://scripts.web.fc2.com/
http://nem.symphonic-net.com/uwsct/0610uwsct.html
http://iriyak.adam.ne.jp/uwsc.html
※前スレ
自動化ツールUWSC使いよ集まれ23
https://egg.5ch.net/test/read.cgi/software/1600515815/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/12/07(火) 00:35:40.16

なんで仮想キーボードはMMOで対策されてるのにフローティングキーボードは使えるんだ？

2021/12/07(火) 20:22:25.73

別のものだから

2021/12/07(火) 20:37:35.96

解説してください（切実）

2021/12/09(木) 16:28:51.20

2021ってシートをアクティブにするにはどうしたらいいの？
因みに
XLACTIVATE(Excel, 2021)
では、2021番目のシートをアクティブにしようとしてFalseになってしまいます。
あ、大量のブックとシートがあるので、シート名は変えない方法で

2021/12/09(木) 16:40:55.91

>>485
ブック指定しなくていいのか

2021/12/09(木) 17:23:52.47

自己解決、COMを使えばいけた

2021/12/09(木) 17:45:12.99

マニュアル見てないレベルですか

2021/12/14(火) 06:08:49.18

KBDが押しっぱなしになる現象が発生するんだが回避策ある？
shift＋alt+1をやりたいんだけど

KBD(VK_SHIFT,DOWN)
KBD(VK_ALT,DOWN)
KBD(VK_1,CLICK)
KBD(VK_SHIFT,UP)
KBD(VK_ALT,UP)

これをやるとshift と altが押しっぱなしになってしまう
auto hot keyというアプリでも押しっぱなし現象が起きるらしいけど

2021/12/14(火) 06:15:04.40

CPUがプログラム処理するのに比べて、キースキャンの反応が遅いからじゃないかな
2つUPをする前に、300msくらいウエイト入れてみたら？

2021/12/14(火) 06:23:47.50

>>490
ダメだった
key監視してみたらなぜかUPが効いてないっぽい
これはこっちの環境の問題かもしれないなあ

2021/12/14(火) 06:30:21.78

window_id = 0
sckey( window_id, VK_SHIFT, VK_ALT,VK_1 )
これで試しても押しっぱなしになる

2021/12/14(火) 06:35:10.28

何だったか正確には忘れたけど
key upの命令構文が、ver違いで変わってたことがあったけど

2021/12/14(火) 06:41:13.51

ver 5.3.0.2です。

2021/12/14(火) 06:44:04.22

sckeyでも同じなら関係ない気はするけど先にaltをupしてみては

2021/12/14(火) 09:17:58.46

KBD(VK_SHIFT,DOWN)
KBD(VK_ALT,DOWN、50)
KBD(VK_1,CLICK)
KBD(VK_ALT,UP,50)
KBD(VK_SHIFT,UP,50)

2021/12/14(火) 12:50:44.79

>>496
ほぼいつもこれで書いてる
ウエイトは適当に、最大500入れても「少し引っかかるな」程度
テストで1000-3000入れて様子見たりもする

2021/12/14(火) 17:22:56.75

>>489
KBD(VK_SHIFT,DOWN)
KBD(VK_ALT,DOWN)
KBD(VK_1,CLICK)
WHILE GETKEYSTATE(VK_SHIFT);KBD(VK_SHIFT,UP);SLEEP(0.01);WEND
WHILE GETKEYSTATE(VK_ALT);KBD(VK_ALT,UP);SLEEP(0.01);WEND

ごりごりの力業

2021/12/15(水) 01:58:38.79

>>495-498
全部やってみたけどダメだ
SHIFTをCTRLにしたけどそれもダメ
2種類の修飾キーがあると押しっぱなしになる
1種類なら大丈夫

2021/12/15(水) 02:17:52.37

F13～F24のファンクションキー使えないかと思ったけど、UWSCだと使えないのかな？
VK_F13が定義されていない
というエラーになる

2021/12/15(水) 05:38:46.52

F13～F24で操作記録とってみれば分かるんじゃないの

2021/12/15(水) 06:28:29.20

UWSCのせいじゃなくて
おま環

2021/12/15(水) 08:36:47.23

>>500
数値そのまま入れてみたら？
https://docs.microsoft.com/ja-jp/windows/win32/inputdev/virtual-key-codes

2021/12/15(水) 21:42:25.55

F13～24ってSHIFT+F1～12の扱いじゃないの？

2021/12/18(土) 14:49:45.92

気付いたら、ALT +F2で実行終了が出来なくってたのだけど、
設定で、ALT + F10とかにすれば終了できるので、
他のソフトのショートカットと被っているのが原因っぽいけど、
現在環境で使われているショートカット一覧を調べる方法ってある？

2021/12/18(土) 20:38:14.58

そんなに大量に常駐ソフト使ってんでもないなら一つ一つ見たほうが早いんでないか

2021/12/18(土) 20:43:19.30

何となく気になってググったらショートカットキーに対応するアプリリスト作ってるサイトなんかあんのね
https://defkey.com/what-means/alt-f2
まあUWSCない辺りどこまで網羅してるのやらだけども参考にどうぞ

2021/12/18(土) 22:35:24.28

使いやすいキーに終了処理を割り当てる

SETHOTKEY(VK_ESC,,"終了")

PROCEDURE 終了()
EXITEXIT
FEND

2021/12/25(土) 12:44:46.48

msgboxの行が多くて、下まで見られないとき、どうやってウィンドウを移動させたらいい？
ALT +space 、Mでは出来なかった

2021/12/25(土) 12:49:14.46

>>509
fukidasi併用すれば？

2021/12/25(土) 21:26:31.67

スクロールしなきゃならないような内容だとしたら
自分なら割り切ってメモ帳に渡す

DIM sDat = DOSCMD("dir c:\windows\system32")
// メッセージボックスのサイズ変更
THREAD ResizeMsgbox(3, 300, 0,500, 500)
MSGBOX(sDat)
// メモ帳に表示
IFB TRUE = WriteFile("$dirdat$", "読み終えたら閉じてください<#CR><#CR><#CR><#CR><#CR>"+sDat) THEN
　DOSCMD("notepad.exe $dirdat$")
　DOSCMD("del $dirdat$")
ENDIF
MSGBOX("おわり")

FUNCTION ResizeMsgbox(wait,x,y,w,h)
　SLEEP(wait)
　DIM idMB = GETID(GET_UWSC_NAME,"TUmsgDlg_uwsc")
　ACW( idMB, x,y,w,h)
　RESULT = 0
FEND

FUNCTION WriteFile(sFname, sDat)
　RESULT = FALSE
　DIM fid = FOPEN(sFname, F_WRITE)
　IFB -1 < fid THEN
　　FPUT(fid, sDat)
　　FCLOSE(fid)
　　RESULT = TRUE
　ENDIF
FEND

2021/12/25(土) 21:41:44.70

フォーム使って内容がスクロールできる専用メッセージボックス作ったら

2021/12/26(日) 00:43:13.43

なるほどです
吹き出しやメモ帳やフォームで代用するしかないのですね、、、
でも一行だけで簡単に済ませるmsgbox( )が楽なんだよなあｗ
UWSCRに期待するしかないのかな

2021/12/26(日) 04:46:12.68

好きなように一回で作って関数化したら後は一行で使いまわせるだろう

2021/12/26(日) 05:58:22.17

>>513
セレクトボックスだとスクロールできる
出力文字 = DOSCMD("dir c:\windows\system32")
SLCTBOX(SLCT_BTN ,0,出力文字)

2021/12/26(日) 06:04:22.24

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

2021/12/26(日) 06:11:37.36

SLCTBOXってハイパーリンク出来ない？

2021/12/26(日) 12:10:06.87

質問なのですが、chkimgxとchkimgを組み合わせて使うことは出来ないのでしょうか？
ファイルの先頭文にCALL ChkImgX.uwsを置いて
基本はifb chkimg
曖昧な画像の検索をしたい所だけ
STARTUP_CHKIMGX()
ifb chkimgx

shutdown_chkimgx()
にしているんですが、最初はいいのですが、ループさせているとchkimgx設定していない所まで
曖昧な画像の範囲になっているのか、誤クリックが多発しだします

おそらく出来ると思うので別の原因だと思うのですがわかる方よろしくお願いします

2021/12/26(日) 12:13:40.40

組み合わせて使える
>>518の作ったスクリプトに問題がある

2021/12/26(日) 12:23:17.02

質問も曖昧やな

2021/12/26(日) 13:30:42.59

呼び出される関数が違うのにいきなり曖昧とかありえんて

2021/12/26(日) 13:49:34.23

chkimg()のパラメータや返り値や見るべき変数の扱いに間違いがないなら
それとは無関係にクリックを発生させている場所があるのでは

2021/12/29(水) 08:29:59.50

keytokey使ってる人いない？
画像認識の異常なまでの精度の悪さどうにかならない？
まったく違うところで点数出したり、逆にどう見ても一致してるのに点数でなかったりするんだけど
なんで画像認識ってこんなに安定しないの？
明らかに欠陥があるんだけど

2021/12/29(水) 08:36:55.03

>>523
明らかにお前の頭に欠陥があるんだが

2021/12/29(水) 10:08:10.95

>>524
同意

2021/12/29(水) 15:32:43.87

欠陥ワロタ

2021/12/31(金) 14:21:19.56

NOXエミュレーターでバックグラウンドでのキー操作を実装したいのですがどなたかご存知でしょうか？
タップ操作は以下のコマンドで動いています。shell input Kbd(VK_1)と書いてみましたがエラーが起きました。
DOSCMD(dir + "adb shell input touchscreen tap 400 500")

2021/12/31(金) 14:24:03.02

コマンド逆引きページ見ればのってました失礼しました

2021/12/31(金) 16:54:51.21

adbはchkimgXで見つけたG_IMGX_XとG_IMGX_Yがそのまま使えないので止めた
画像判別無しでただタイミングでタップするだけは怖い

2021/12/31(金) 17:21:41.56

何ピクセルズレるか固定なんだから補正すりゃいいだけじゃん

2021/12/31(金) 17:43:48.32

うちではG_IMGX_Yを48減じるだけだな
ただし本当にそれだけだとスミをタップするから
アイコンなり画像なりの中央を押すように
X Yともに適宜加算する

2021/12/31(金) 19:28:32.96

>>531
適当すぎｗ

おれはエミュレーターの実ウィンドウ内でandroidが認識してるエリアの位置とサイズ見て補正かけてる
環境変わってもいいようにスクリプト開始時に実ウィンドウのサイズをACWで固定値に変更

2021/12/31(金) 19:41:05.75

adbのタップ位置 = G_IMGX_Y × 「比例定数」 + 「定数」

に該当する比例定数と定数が無かったけど、
実則でadbのタップ位置とG_IMGX_ を何例も調べた上で

一次関数じゃ無いのか？

2021/12/31(金) 19:51:59.29

何いってんだコイツ

2021/12/31(金) 20:39:44.58

>>533
どのエミュレーター使ってるのか知らんけど、上だけじゃなく左右にも数ピクセル余白あったりするよ
1ピクセル程度ならいいだろーだと思うだろうけど、タップする関数を一つ作ればいいだけなんで、きちんとやっといた方がいいと思う

2021/12/31(金) 20:55:36.09

そもそも探索用の画像をぴったり端に合わせて作らなければ大体解決する

2021/12/31(金) 21:10:38.91

取得したウィンドウサイズと
自分が指定している描画サイズの差がウィンドウ枠だから
それを加算すればいい

2021/12/31(金) 21:45:26.35

・ACWで実ウィンドウサイズを固定
・adbのタップ位置は、adb shell settings put system pointer_location 1、で調査
・G_IMGX_XとG_IMGX_Y はprint出力
でやってるけど、「比例定数」と「定数」がないんだよね。

でも、おまえらは関数化できているようなので、もう少し調べるわ

2022/01/01(土) 11:52:03.19

まあ時には迷走が得難い経験になることもあらぁな

2022/01/01(土) 12:09:45.16

https://www.youtube.com/watch?v=N1tlwbgliEs

2022/01/06(木) 12:13:09.54

久しぶりにnox＋uwscでマクロ組んでてドツボにハマってたがなんとか抜けたので備忘録

特定のアプリでだけ動かないケースが発生して試行錯誤してたんだけど
"shell input touchscreen tap"だと、タップが瞬間的過ぎて
もっさりアプリだと認識が遅くて拾わなないことがある
"shell input swipe"に置き換えてクリアできた

shell input swipe x y x2 y2 time(ms)

スワイプの終点のx2/y2をx/yと同値にして、5番目（スワイプ時間 ms単位）を調整することで
”ちょっぴり長いタップ”になる
スワイプ時間を上げると”長押し”になる
2回目のx/yを違う値にすればスワイプになる

2022/01/06(木) 14:39:59.25

>>541
ありがとう
考え方の引き出しとしていい情報だと思う

2022/01/13(木) 13:46:21.84

文章の中に「この人の名前は○○さんです。」という文が大量に含まれていて（○○の部分はそれぞれ違う）
これを一気に削除する方法ってないの？
ワイルドカードが使えれば楽なんだけどダメだった

文章 = REPLACE(文章 , "この人の名前は" + * + "さんです。" , "")

2022/01/13(木) 13:53:51.71

UWSC 正規表現でググって

2022/01/13(木) 19:31:01.50

テキストエディタでよくね

2022/01/13(木) 20:12:32.38

>>543
obj = CreateOLEObj("VBScript.Regexp")
obj.pattern = "この人の名前は.*さんです。"
m = obj.Execute(文章)

msgbox(m.item[0].value)

2022/01/13(木) 20:37:26.15

>>546
ありがとう、そのレスで合格だ

>>544>>545
不合格

2022/01/13(木) 21:52:17.41

恥の上塗り

2022/01/14(金) 04:55:19.44

日本語を変数に使えるって知らんかった

2022/01/14(金) 05:43:36.29

ユーザー定義関数にも日本語使えて便利

2022/01/14(金) 08:28:01.21

日本語もコンピューターからすれば数字の羅列だもんな

2022/01/14(金) 08:44:15.81

その羅列にいくつも方言があるのが問題なんだけどね

2022/01/14(金) 08:48:33.55

今話してる日本語は文字の話でUnicode対応してればOKじゃないの？

2022/01/14(金) 09:10:14.48

>>547
これだと最長一致だから
文章= "この人の名前は佐藤さん、私の名前は鈴木です。"
なんてのにもマッチしちゃうけど、それはいいのかい？

2022/01/14(金) 09:23:34.00

>>554
例文間違えた orz
文章= "この人の名前は佐藤さん、私の名前は鈴木さんです。"
に訂正。

なにが言いたいかというと「.*」って便利だけど予想外のが
マッチすることがあるから状況によっては「[^。、]+」とか
使った方がいいんじゃないかってことなんだけど
揚げ足取ってるように思われたらごめんね。

2022/01/14(金) 09:24:55.50

これはコミュニケーションヘタクソなオタクですね
定形のデータから個人情報を削除したいんじゃないの

2022/01/14(金) 09:44:32.84

正規表現の調整くらいは自分ですれば済むでしょ
修正すべき内容を把握しているのは本人なんだし

2022/01/14(金) 10:19:59.58

コード貼られるなり態度悪くなったし
ザマーってことでいいんじゃねｗ
正規表現を知らなかった人には>>544がむしろ良回答なんだと思う

2022/01/14(金) 11:15:46.67

どのような文章が入ってくるのか次第だが、普通に

文章 = REPLACE(文章 , "この人の名前は" , "")
文章 = REPLACE(文章 , "さんです。" , "")

ループさせて正規表現1行との速度差を測定してはやいほうを使えばいい

2022/01/14(金) 12:26:06.37

おいおい課題は
この人の名前は[^\r\n]+?さんです。
みたいなパターンの全削除だよ
普通にやるならBetweenStrとReplaceのループだと思うが

2022/01/14(金) 13:31:31.56

どうでもいい

2022/01/14(金) 15:17:21.08

いや絶対uwscでやることじゃないだろｗ
テキストエディタでやることだろうって

2022/01/14(金) 15:43:42.27

大量にあるテキストファイルを処理する
みたいなことをやりたいんでしょ

2022/01/14(金) 15:58:43.62

UWSCで正規表現使おうとするとVBScript経由ってのは面倒くさい
自分でやるならやっぱりテキストエディタで処理するか
sed、awk、perl、ruby、pythonのようなスクリプト言語で自動化するな

2022/01/14(金) 21:01:05.48

>>563
複数のファイルを指定して処理できるテキスト整形ツールとか昔からあるだろ
https://www.vector.co.jp/vpack/filearea/winnt/util/text/conv

2022/01/14(金) 21:34:08.28

>>565
こいつ最高にバカ

2022/01/15(土) 00:45:38.63

chkimgxなんだけど、これchkimgみたいに色無視ってのできないの？
着目する色を-1にすればいいのかなと試したけどスコア全く変わらないし

2022/01/15(土) 01:30:40.12

>>554
確かに最長一致で最初から最後までがまとめて削除されますね、、
改造して以下で落ち着きました

obj = CreateOLEObj("VBScript.Regexp")
obj.Global = TRUE　// ← これも必要だった
obj.pattern = "この人の名前は.*?さんです。"
m = obj.Execute(文章)

for i = 0 to m.count -1
　　文章 = REPLACE(文章,m.item[i].value,"")
next

2022/01/15(土) 12:34:52.04

>>566
具体的にどこがバカなのか理論的に説明してくれませんかねぇ

2022/01/15(土) 12:40:30.25

それを言うなら論理的だろ
要求にマッチしてないところじゃね

2022/01/15(土) 13:04:21.85

>>568
うーん中途半端
.Execute は抽出用のメソッドだぞ
置換なら　文章 = obj.Replace(文章, "")　だけでいいのに

2022/01/15(土) 13:06:44.64

>>570
べ、勉強になりました(´・ω・)

2022/01/15(土) 18:06:05.88

>>543
//UWSCで普通に書けるよ

文章 = "あいうえお。この人の名前はAAさんです。この人の名前はBBさんです。この人の名前はCCさんです。この人の名前はDDさんです。この人の名前はEEさんです。かきくけこ。"

WHILE 名前サーチ(文章) <> ""

IFB 名前サーチ(文章) <> ""
文章 = REPLACE(文章 , "この人の名前は" + 名前サーチ(文章) + "さんです。" , "")
ENDIF

WEND

msgbox(文章)

FUNCTION 名前サーチ(a)
RESULT = BETWEENSTR(a,"この人の名前は","さんです。")
IFB RESULT = TRUE;RESULT = BETWEENSTR(a,"この人の名前は","さんです。");ENDIF
FEND

2022/01/15(土) 18:55:21.52

>>573
while TRUE
　name = BetweenStr(文章, "この人の名前は", "さんです。")
　if name = EMPTY then break
　文章 = Replace(文章, "この人の名前は" + name + "さんです。", "")
wend

だけでいいよ

2022/01/15(土) 19:48:34.95

>>574
GJ

2022/01/16(日) 01:36:27.49

色々な方法があって勉強になりました。因みに、

文章 = "ああああ"
for i = 1 to 1000
　　文章 = 文章 + "ああああこの人の名前は" + i + "さんです。いいい" + 10000 +i
next

で予め長文章を作っておいて、各処理時間を計測すると
>>568
0.11秒
>>571
0.003秒
>>573
0.36秒
>>574
0.175秒
となった

2022/01/17(月) 23:59:05.94

てか何度も言うけどなんでuwscでやんねん・・・
縛りプレイか何かかっちゅうねん

2022/01/18(火) 10:08:50.98

>>577
目の前にあるもので、ググッたら？

2022/01/18(火) 10:11:21.17

他人の思考知りたい検索

2022/01/18(火) 12:07:35.37

草

2022/01/18(火) 17:48:26.63

>>577
UWSCスレで何を言ってる？

UWSC縛りで何とかするスレなのは承知の上だろ