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

自動化ツールUWSC使い ..

1:名無しさん＠お腹いっぱい。
15/11/11 13:45:28.80 +oPzgSay0.net
Windowsの作業を自動化するツール
フリーソフト版とシェアウェア版の2種類がある
URLﾘﾝｸ(www.uwsc.info)
●UWSC 掲示板（※作成依頼掲示版ではありません）
　質問の際には自力で作ったスクリプトを晒すか、具体的な解らない場所を提示すること
　上級者が常駐、たまに作者も現れるため過去ログには有益情報の宝庫
URLﾘﾝｸ(www3.rocketbbs.com)
URLﾘﾝｸ(www3.bigcosmic.com)
●UWSC - Wikipedia
Wikipedia項目ﾘﾝｸ
●使い方・基礎解説学習サイト
URLﾘﾝｸ(uwsc.g.hatena.ne.jp)
URLﾘﾝｸ(www.confrage.com)
URLﾘﾝｸ(necro.jp)
URLﾘﾝｸ(park14.wakwak.com)
URLﾘﾝｸ(canal22.org)
URLﾘﾝｸ(big.tm.land.to)
URLﾘﾝｸ(www.game-rev.com)
●スクリプトテンプレサイト
URLﾘﾝｸ(izagne.com)
URLﾘﾝｸ(scripts.web.fc2.com)
URLﾘﾝｸ(www.nagomi-jp.net)
URLﾘﾝｸ(nem.symphonic-net.com)
URLﾘﾝｸ(siromasa.digi2.jp)
URLﾘﾝｸ(iriyak.adam.ne.jp)
前スレ　自動化ツールUWSC使いよ集まれ15
ｽﾚﾘﾝｸ(software板)

2:名無しさん＠お腹いっぱい。
15/11/11 13:46:14.33 +oPzgSay0.net
Q.シェアウェア版で「L20が存在しません」「L22が存在しません」とエラーが出て一部機能が動作しない
A.割れシリアルを使った時に出�

3:驕Aささやかな割れ対策 Q.購入したのに上記エラーが出る A.ライセンスキーが正しいか確認（ベクターで購入した場合、登録するのは伝票番号の xxxxxxxxx ではありません） UWSCをアンインストール後、再インストールして正しい17桁のライセンスキーを入力してください。 ●Pro版の追加機能 EXE化ツールが付属しています。(EXE化後は単体での実行が可能であり、ライセンスフリーにて配布できます) IE(Web)用記録ツールが付属しています。(Web上の動作をUWSCのスクリプトとして記録する事ができます) HTMLを利用した画面関数が使えます。 EXCELシート用関数が使えます。(OpenOffice.org/LibreOfficeの表計算(Calc)に対しても可) デバッガが付属しています。 ●質問したい方へ「○○作れますか?」→ 可能か不可能かを聞いているのなら答えは「作れる」「○○が作りたい」→ 自分が作れば?並大抵の事ならググれば似たようなスクリプトや知識が見つかる「○○作って下さい」→ 依頼スレじゃありません。過去ログを見る、検索する等、自分で出来る事を書き込む前にするように。自力で作ったのを晒すか、具体的な解らない場所を提示して、改善点や解決策を求めるようにしましょう。備考：PRI NT文を利用してデバッグする。管理者権限で起動してみる。AEROを切る。fcuc.uwsを走らせてみる。 ●スクリプトを晒す上での注意他人が読みやすいようにインデントを付けるように。解らない人はググレ。 (タブインデントは使えないんだぜ全角スペース等に変換しておくべし) 言いたい事に関係無い部分は～○○の処理～や処理A 等のようにし、必要な部分を晒すようにする。 ●他人の書いたスクリプトを安易に実行しないように。ハードディスクをフォーマットされたりしても、自己責任。

4:名無しさん＠お腹いっぱい。
15/11/11 13:46:50.79 +oPzgSay0.net
画像認識関数 ChkImgX-ver1.2.1(2015/02/03)
URLﾘﾝｸ(googledrive.com)
ｽﾚﾘﾝｸ(software板:673番)
UWSC向け画像認識関数です。CHKIMGは（ほぼ）一致画像しか探すことができませんが、
CHKIMGXは似た画像の検出が可能です。使い方は中身のsample.uws や ChkImgX.uws を見てください。

5: 【だん吉】
15/11/11 13:54:22.45 k95kaPQv0.net
　　　　　 _
　　　　　 |O＼
　　　　　 |　　＼　ｷﾘｷﾘ
　　　　∧|∧ 　　＼　ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ　　　＼
　　　　∪　　|　　　　(~)
　　　　　∪∪　　 γ´⌒｀ヽ
　　　　　）　）　　　{i:i:i:i:i:i:i:i:}
　　　　（　（　　　　(　´･ω･)、>>1乙
　　　　　　　　　　　(O ⌒　)O
　　　　　　　　　　⊂＿)∪

6:名無しさん＠お腹いっぱい。
15/11/11 15:15:54.45 QGUfCker0.net
>>前スレ1000
>そんな当たり前の事一々指摘せんでもいいわｗ
>UWSC単独で出来ないのが残念って言ってるだけだろ
え、UWSC単独でできるよね・・・何言っ・・え？

7:名無しさん＠お腹いっぱい。
15/11/11 15:40:01.62 DWR2WWEp0.net
当たり前の事指摘されたくなかったら条件や情報を後出しにしないことだな
コードまで貼って教えてくれた丁寧な回答者に対する態度じゃないだろ二度と来るな

8:名無しさん＠お腹いっぱい。
15/11/11 16:00:51.36 uAtR0Bu+0.net
知識のないぼくちゃんは別プロセスで常時表示させてるslctboxとかinputでWriteiniして
threadでReadiniして無理矢理変更してたわ
前スレのやり方も試してみようかな

9:名無しさん＠お腹いっぱい。
15/11/11 16:28:56.45 MrsBdBBf0.net
シェアウェア版に付いて来るデバッガで、変数の書き換えとか出来るといいね。知らんけど

10:名無しさん＠お腹いっぱい。
15/11/11 17:06:46.18 rpEewyDo0.net
実行中の UWSC の挙動をＧＵＩで変えるために、
AutoIt3 + KODA FormDesigner で .ini ファイルを編集するGUIアプリ作って
UWSC からは、必要に応じて .ini を読み直すという構成にしたよ。

11:名無しさん＠お腹いっぱい。
15/11/11 17:07:15.29 oN5GYFPP0.net
そもそもoleevent使えばcreateformだろうが
非シェアのIEを使った擬似createformだろうが
イベントドリブンなスクリプト作れるしなぁ
まぁ其処までする位ならGUI構築、連動できる言語の出番って考え方もあるけれどね
（自分はどちらかと言うとそっち派）

12:名無しさん＠お腹いっぱい。
15/11/11 17:26:50.51 jGEVW+4x6
過去ログ
自動化ツールUWSC使いよ集まれ15
ｽﾚﾘﾝｸ(software板)

自動化ツールUWSC使いよ集まれ14
ｽﾚﾘﾝｸ(software板)

自動化ツールUWSC使いよ集まれ13
ｽﾚﾘﾝｸ(software板)

自動化ツールUWSC使いよ集まれ12
ｽﾚﾘﾝｸ(software板)

自動化ツールUWSC使いよ集まれ11
ｽﾚﾘﾝｸ(software板)

10 ｽﾚﾘﾝｸ(software板)
9 ｽﾚﾘﾝｸ(software板)
8 ｽﾚﾘﾝｸ(software板)
7 ｽﾚﾘﾝｸ(software板)
6 ｽﾚﾘﾝｸ(software板)
5 ｽﾚﾘﾝｸ(software板)
4 ｽﾚﾘﾝｸ(software板)
3 ｽﾚﾘﾝｸ(software板)
2 ｽﾚﾘﾝｸ(software板)
1 ｽﾚﾘﾝｸ(software板)

13:名無しさん＠お腹いっぱい。
15/11/11 20:30:11.22 mvp9IgBe0.net
UWSCでシェアウェアのシリアル入力欄に値を・・・
３日かかってやっと１つ見つけた

14:名無しさん＠お腹いっぱい。
15/11/13 08:45:57.85 3qksjFX10.net
uwsファイルをexe化したいんですがfree上位版じゃなく何かやり方ありませんか？

15:名無しさん＠お腹いっぱい。
15/11/13 08:54:17.45 Mcz5MFKc0.net
Free上位版て何だ？　金払えよ。その機能は無料じゃねえんだよ

16:名無しさん＠お腹いっぱい。
15/11/13 10:01:53.16 NDAx3tp60.net
>>13
exe化できる人に　金払ってやってもらう。

17:名無しさん＠お腹いっぱい。
15/11/13 15:46:47.76 wNx4EtEV0.net
自己解凍アーカイブでも作ればいいんじゃないかな

18:名無しさん＠お腹いっぱい。
15/11/13 22:05:27.26 Uo/qbExH0.net
UWSCに備わっているマウスの移動を手動で記録（座標指定や画像指定とか無し）
させたものをブラウザゲームにて使いたいのですが運営側に不振な動きとかってばれるものなんでしょうか？
24時間使うとかじゃなく1日数時間程度なのですが、どなたか教えて下さい。

19:名無しさん＠お腹いっぱい。
15/11/13 22:06:59.66 Z3RRarm70.net
巣に帰れ

20:名無しさん＠お腹いっぱい。
15/11/13 22:13:32.82 b0VOgiyP0.net
UWSCの質問ですらねぇｗｗｗ

21:名無しさん＠お腹いっぱい。
15/11/13 22:49:34.51 xAhnpw3q0.net
運営に問い合わせしてどう�

22:ｼ

23:名無しさん＠お腹いっぱい。
15/11/13 23:13:38.61 b445lS/m0.net
league of legendsってゲームでmouseorg(pvp.net Client, 1)
使うとPVPが定義されてません　って出てくるんだけどGETIDでアクティブ取得してPRINTしてやったらpvp.net Clientで間違っては無いんだがなんなのこれ？

24:名無しさん＠お腹いっぱい。
15/11/14 00:17:35.92 FIcKEvAv0.net
巣に帰れ

25:名無しさん＠お腹いっぱい。
15/11/14 00:18:11.82 mvqgNrFZ0.net
>>21
""

26:名無しさん＠お腹いっぱい。
15/11/14 03:37:05.40 BoPLs7GB0.net
ぐぐってみたのですがわからないので教えてください。
UWSC初心者ですが、bluestacks上のアプリを画像認識で無限ループするマクロを作りました。
しかし、アプリがフリーズすると画像が表示されずマクロが止まってしまいます。
そこで、マクロのループ処理が止まった場合、アプリを再起動してループを再開するような例外処理を作りたいのですが良い関数があれば教えてください。
ループ処理の前に時間を設定してもしタイムアウトが発生したら再起動をするといったものを作りたいです。

27:名無しさん＠お腹いっぱい。
15/11/14 03:49:36.32 mvqgNrFZ0.net
>>24
自分がコードを書けるように日本語を変換する
「マクロのループ処理が止まった場合」というのは「画像がなかった場合」のことで大丈夫だろう
それ以外で止まるならその条件も加える
「ループ処理の前に時間を設定してもしタイムアウトが発生したら」というのを、
「画像がなかった場合の回数を設定してもしその回数を超えたら」とすればいい

28:名無しさん＠お腹いっぱい。
15/11/14 04:43:03.64 uyToSXci0.net
while chkimg("a.bmp")
～処理～
wend
みたいに書いてるからループを抜け出して止まってしまうとかいうことなのかな？

29:名無しさん＠お腹いっぱい。
15/11/14 08:59:23.55 IhUc+KMu0.net
初歩的でスマンが質問させてくれ
去年の12月にDLしたフリー版を使ってたんだがwin10環境で動くのか試したら動かなかった
最新版DLしてもう一回動かしてみたら今度はIF文が閉じてませんみたいな構文エラーが出た
UWSC本体のバージョンで構文まで変わっちゃうのか？
win10で使おうと思ったらまた組み直さないとダメ？

30:名無しさん＠お腹いっぱい。
15/11/14 09:42:35.18 IpRJAxcj0.net
破壊的な仕様変更があれば更新履歴にあるさ
IF絡みだと
14/02/03 ver4.9c IF文のブロック文にてIFB-ENDIFではなく、IF-ENDIFでも可にした
これかな

31:名無しさん＠お腹いっぱい。
15/11/14 09:52:52.41 IhUc+KMu0.net
使ってた方のバージョン見たらVer 5.0.4.0 2014-12-14ってなってるから多分違うかな
でも更新履歴ざっと見てもそれらしいのが見当たらないし、ちょっと弄ってみるか

32:名無しさん＠お腹いっぱい。
15/11/14 09:56:22.61 tGYrtzLK0.net
仮想化でwin10使ってるが、win7で組んだ物をそのまま持って行っても動く
特定の構文にバグが起きてる可能性もあるが、勘違いの可能性のほうが大きいだろうな

33:名無しさん＠お腹いっぱい。
15/11/14 10:01:32.40 IhUc+KMu0.net
最新版をwin7でやってみたらやっぱり今まで使えてたのが構文エラー出たわ
過去のバージョンで大丈夫だったのがダメになってるっぽい

34:名無しさん＠お腹いっぱい。
15/11/14 10:59:52.55 PfOb/o3h0.net
そういうのは大体お前の記述ミスだ

35:名無しさん＠お腹いっぱい。
15/11/14 11:48:55.59 BNINhbNt0.net
>>27
せめて動いたUWSCのバージョンとOS、動かないUWSCのバージョンとOSを教えてあげないと
>>29さんでもエスパーしきれないかもしれない

36:名無しさん＠お腹いっぱい。
15/11/14 13:03:47.71 9wBwsNfQ0.net
構文エラーが出るソース

37:コードを提示できないってことはそもそも過去に動いてたってのが勘違い、あるいは妄想だろうどうせコードを全行コピーしてなかったとかいうオチだろ

38:名無しさん＠お腹いっぱい。
15/11/14 13:10:52.02 NA9ksDwd0.net
>>31
いいからさっさとコードうｐしてみろよ解析好きなおせっかいがいっぱいいるぞ

39:名無しさん＠お腹いっぱい。
15/11/14 13:22:40.54 IIbYKaCR0.net
win7からwin10にしたらスクリプトエラーではなくてフリーズするようになったな
そこまで実害はないけどちょっと面倒

40:名無しさん＠お腹いっぱい。
15/11/14 13:22:56.45 GE7AjOYz0.net
俺も5以上のバージョンのUWSCだと頻繁にフリーズするので未だに4.9c使ってる。
構文エラーだとどこの行がおかしいってすぐにわかるんだが固まるだけなのでわからん。
5000行近くあるのでどこがどうなってるのか調べる気が起きない…

41:名無しさん＠お腹いっぱい。
15/11/14 16:56:44.98 RCUdLg7b0.net
5000行とか。どんだけ低レベルなコーディングしてんだよ

42:名無しさん＠お腹いっぱい。
15/11/14 17:18:01.21 GE7AjOYz0.net
流石に1ファイルじゃないよ。
関数は分類して5つほどの別ファイルにして
CALLで一まとめにしてるけど、関数のどこがガンなのかわからんし。

43:名無しさん＠お腹いっぱい。
15/11/14 17:58:18.92 IpRJAxcj0.net
ある程度以上の規模になったら
デバッグ（トレース）フラグを用意して開発
普段はオフにしつつ運用
何かあったらオンにして診断するでしょ

44:名無しさん＠お腹いっぱい。
15/11/14 18:38:55.24 GE7AjOYz0.net
やたら大きくなってしまって収拾がつかないけど、プログラミング全般において素人で
遊びでやってるもんなので所謂デバッグとかやり方知らない。
触らぬ神にたたりなしって感じでバージョンアップできずにいる

45:名無しさん＠お腹いっぱい。
15/11/14 22:00:21.04 oICue9LH0.net
いつやるの？今でしょ！
書き溜めた無駄に長いコードの整理は考えてる以上に身になる
これとないチャンスやで

46:名無しさん＠お腹いっぱい。
15/11/15 01:28:43.76 l+eb1X660.net
おれが300行にまとめてやんよ

47:名無しさん＠お腹いっぱい。
15/11/15 11:15:02.57 De6xOu7/0.net
ちゃんと確認したら11ファイルに267個の関数になってた
どの関数がどの関数から呼び出されてるのかちゃんと把握してないし
フローチャートとか書いてないし、あんまりコメントも残してないから
我ながら訳が分からん。大体の流れしか把握してない…
こっちを書き換えたらあっちでトラブってとか日常茶飯事orz

48:名無しさん＠お腹いっぱい。
15/11/15 11:27:52.84 hnZ7/qL70.net
> ある程度以上の規模になったら
> デバッグ（トレース）フラグを用意して開発
> 普段はオフにしつつ運用
> 何かあったらオンにして診断するでしょ

フラグだと On/Off しかできないから　DebugLevel で制御してる。

49:名無しさん＠お腹いっぱい。
15/11/15 11:29:41.24 tIw6v2Vv0.net
変更が怖いならバージョン管理導入すればいいよ

50:名無しさん＠お腹いっぱい。
15/11/15 12:10:43.83 wd/6nnII0.net
ちゃんと動いて目的果たしてるなら
バージョンアップとかいらなくね

51:名無しさん＠お腹いっぱい。
15/11/15 12:23:24.06 De6xOu7/0.net
それ。
ただ、4.9cではfor-in構文が使えない。使いたいなとは思ってるんだけど。

52:名無しさん＠お腹いっぱい。
15/11/15 13:26:11.73 L+1ycDEI0.net
言うほど使うか?　for to で十分なんだけど

53:名無しさん＠お腹いっぱい。
15/11/15 13:51:26.50 3LQPqe8Y0.net
for inてfor eachと同じ内容？

54:名無しさん＠お腹いっぱい。
15/11/15 14:11:04.40 yRPypCxb0.net
Dim array[2];
print VARTYPE(array);
上記を実行すると、以下のエラーがでます。
なぜなのでしょうか。(uwscのverは5.2.0)
変数:ARRAY 次元

55:数が合いません 2行目:PRINT VARTYPE(ARRAY);

56:名無しさん＠お腹いっぱい。
15/11/15 14:44:31.81 3LQPqe8Y0.net
>>51
引数の配列に添字追加

57:名無しさん＠お腹いっぱい。
15/11/15 17:30:57.89 Xc7Hv4el0.net
SafeArray()で取った配列ならVAR_ARRAYが返るのに
DIMの配列だとVAR_ARRAYが返らないどころかエラーになるのは何故？って質問なのでは？

58:名無しさん＠お腹いっぱい。
15/11/15 18:03:21.92 JWUP4/i00.net
普通の配列はLENGTHかRESIZE使って判断しろって事でしょ
要するにVARTYPEは配列の中身のチェックしか出来ない

59:50
15/11/15 18:37:18.45 yRPypCxb0.net
>>53さんが書いてくれている通りの疑問です。

60:名無しさん＠お腹いっぱい。
15/11/15 20:41:38.88 YS+SiHiA0.net
>>55
作者がそう作ったからそうなのであって、作者以外の誰がその疑問に答えられると思ったの？

61:名無しさん＠お腹いっぱい。
15/11/15 23:16:55.13 UTZQ0cqw0.net
Dimで0～9を定義した配列から最後の数字(9)を取り除くにはどうしたらいいでょうか。
再定義するとエラーになり、SETCLEAR、RESIZEはうまく扱うことができませんでした・・・。
現在定義した数をシャッフルしていて、その結果から9を省きたいのです。
単純に任意の配列を削除、或いは再定義できればいいのですが・・・。
初心者のため発想が貧弱でして手詰まりです・・・アドバイスお願いします！
シャッフルはこんな感じのをCallで呼び出してます。
Procedure shuffle(var CarSel[])
Dim n = length(CarSel)
Dim i, r, tmp
for i = 0 to n -1
r = random(n)
tmp = CarSel[r]
CarSel[r] = CarSel[i]
CarSel[i] = tmp
next
Fend

62:名無しさん＠お腹いっぱい。
15/11/15 23:44:35.20 De6xOu7/0.net
普通にRESIZEすればいいだけの話では？
RESIZE(CarSel, 8)

63:名無しさん＠お腹いっぱい。
15/11/15 23:45:03.04 YS+SiHiA0.net
>>57
本当に配列のサイズを変更して最後を取り除くことができないなら、
扱う配列の長さをlengthで取るのではなく、
別の変数や配列の頭に入れるなりして管理すればいいのでは？
ちなみに
DIM CarSel[]=1,2,3,4,5,6,7,8,9
print length(CarSel) + ":" + JOIN(CarSel,",")
RESIZE( CarSel,　length(CarSel)-2 )
print length(CarSel) + ":" + JOIN(CarSel,",")
を実行したら
9:1,2,3,4,5,6,7,8,9
8:1,2,3,4,5,6,7,8
となる

64:名無しさん＠お腹いっぱい。
15/11/16 11:34:56.95 kzKcDPQp0.net
シャッフルで混ぜてるせいかうまくいかないですね・・・
URLﾘﾝｸ(i.imgur.com)
Dim n = length(CarSel) を毎回変化させられればResizeと合わせて実現できるっぽいんですが、
引数で変化させようとCALL ShuffleNumbers.uws(10)
として Dim n = PARAM_STR[0]にするとエラー、
Resizeのあとに手動で Dim n = 9 と
記述しても再定義でエラーになってしまいます。
多分Procedureで10桁用、9桁用みたいにそれぞれ作ればいいんでしょうが
できればシンプルなコードで柔軟に使っていけたらいいなと思っております・・・

65:名無しさん＠お腹いっぱい。
15/11/16 12:07:44.32 Xu2hTlmU0.net
>>60
shuffle関数に要素数の引数追加してみたら？

66:名無しさん＠お腹いっぱい。
15/11/16 12:45:32.71 9wFZf3al0.net
>>60
再定義でエラーってことは、nを2回定義してるんじゃないの？

67:名無しさん＠お腹いっぱい。
15/11/16 14:40:41.84 W0rLrKGS0.net
>>60
期待値が良くわからないけど、こういうこと？
Dim Original[] =0,1,2,3,4,5,6,7,8,9
Dim CarSel[0]
copyArray(Original, CarSel)
shuffle(CarSel)
print Length(CarSel) +":"+Join(CarSel,",")
copyArray(Original, CarSel)
Resize(CarSel,8)
shuffle(CarSel)
print Length(CarSel) +":"+Join(CarSel,",")
Function copyArray(var src[], var dst[])
　　for i=0 to Length(src)-1
　　　　Resize(dst, i)
　　　　dst[i] =src[i]
　　next
　　Result =i
Fend

68:名無しさん＠お腹いっぱい。
15/11/16 15:44:23.25 9tIhQjLx0.net
再定義でエラーになってるってことはその言葉通り定義が再び行われてるからエラーになってるんであって…
定義している部分を見れば一目瞭然なんでは？
既に定義された変数に値を代入するなら定義をする必要ないんだから
その部分のDIM外せばいいだけなんじゃ…

69:名無しさん＠お腹いっぱい。
15/11/16 15:55:39.20 9tIhQjLx0.net
今まで何を問題としてるかわからなかったけど、もしかして問題となってるのはここ？
> //結果(9通り最大8）
> 9： 9,1,4,6,8,5,7,3
2回目のシャッフル結果に9が入ってて最大が8ではないのは
1回目にシャッフルされた配列を入力してるから当然の話だよ。
resizeでは配列の最後を切り飛ばすだけで、内容の最大値を定義するなんて機能は無いから
1回目の結果の最後が9で無ければ2回目の結果に9が入る。

70:名無しさん＠お腹いっぱい。
15/11/16 16:32:44.46 NGCV+QQo0.net
「0-9の数字をランダムに使用するが、ある条件下で0-8、0-7のように振れ幅が変わる」
というような挙動をするものが必要だったのですが、>>63さんのコードで実現できました。
エラーになってる原因はわかるが、それに対する解決法がわからないため質問してました。
引数で渡すのはA = PARAM_STR[0]として、Aを関数に代入しても「Aが定義されてない」といわれよく分からず…
とりあえず自分が配列や要素について基本的な理解が足りていないことがよくわかりました。
引数の扱いやFunctionとProcedureの使い分けなど、皆さんのアドバイスを基に研究したいと思います。
ありがとうございました・・・

71:名無しさん＠お腹いっぱい。
15/11/16 17:41:55.59 U7RMM+Pu0.net
少し前に重複しない乱数を希望した数だけ予め用意したいって質問していた人かな？
その実装方法だと関数を呼ぶ側と呼ばれる側の連携密度が高すぎると思うよ
こんな感じで乱数配列が欲しい時に一度作成したらそれは捨てる位の方が疎結合になって保守性が上がると思う
For item In GetRandomArray(10)
　print item
Next
Function GetRandomArray(value)
　result = SAFEARRAY(0, value - 1)
　For i = 0 To value - 1
　　result[i] = i
　Next
　For i = 0 To value - 1
　　r = Random(value - 1)
　　swapValue = result[i]
　　result[r] = result[i]
　　result[i] = swapValue
　Next
Fend

72:名無しさん＠お腹いっぱい。
15/11/16 17:47:31.69 U7RMM+Pu0.net
繰り返しテストしてみたらこれ入替えでバグってるねｗ
すまん

73:名無しさん＠お腹いっぱい。
15/11/16 17:50:15.00 U7RMM+Pu0.net
入替え部分の添字だけ差し替え
　　r = Random(value - 1)
　　swapValue = result[i]
　　result[i] = result[r]
　　result[r] = swapValue

74:名無しさん＠お腹いっぱい。
15/11/16 22:57:57.42 NGCV+QQo0.net
>>67-69
おぉ、参考にさせていただきます！
そうです前スレの終わり頃に質問した者です。
運用することを考えたら独立させたほうが柔軟になると…なるほど
関数やSafeArray等ちゃんと理解して使えるよう頑張ってみます、ありがとうございました

75:名無しさん＠お腹いっぱい。
15/11/17 00:19:41.16 r3ygr5190.net
IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
IE.document.querySelector("#hogehoge").click()
このようなスクリプトで、querySelectorで実際には無いセレクタを指定した時
COMエラーで落ちるのですが、存在しない場合にエラー無しでスルーするような方法は
try-exceptを使ったり、あらかじめ存在確認してからクリック
if IE.document.querySelector("#hogehoge")&l

76:t;>NULL then IE.document.querySelector("#hogehoge").click() というような方法しかないのでしょうか？スクリプト実行中にページの内容が書き換わって目標とするセレクタが消えて COMエラーで落ちるというパターンが時々あって困っています。

77:名無しさん＠お腹いっぱい。
15/11/17 01:11:47.62 EmLKpCk20.net
//　COMエラーメッセージの抑止
COM_ERR_IGN
　　//　何等かのCOM処理
COM_ERR_RET
でどうですか

78:名無しさん＠お腹いっぱい。
15/11/17 02:35:05.29 X+X/Girc0.net
ハンゲのリングドリーム（Flashゲーム）でマクロを組んでるんだけど、MOUSEORGをMORG_DIRECTにするとフラッシュ上の
ボタンをうまく押せない（当該ボタン上にカーソルを合わせると押そうとしているような挙動はするんだけど実際には押せていない）
状態になってMORG_CLIENTを指定するとしっかりボタンを押せるんだけど、これってどうにかMORG_DIRECTでボタンを押せるよう
にすることは出来ないのかな？

79:名無しさん＠お腹いっぱい。
15/11/17 08:30:36.92 r3ygr5190.net
>>72
こんな機能あったんですね。ありがとうございます。

80:名無しさん＠お腹いっぱい。
15/11/17 15:14:10.19 r3ygr5190.net
> CALL　UWSファイル名.uws(xxx,　xxx,　...)　　//　引数を付けた場合に値は PARAM_STR[] 変数に入る
CALLでスクリプトを呼んだ時のように、不定個の引数を受け取って
内部で配列として扱う関数を作りたいのですが、どうしたら出来るでしょうか？

81:名無しさん＠お腹いっぱい。
15/11/17 16:20:50.27 t2yi2j7b0.net
SafeArry使いなよ

82:名無しさん＠お腹いっぱい。
15/11/17 16:58:26.39 r3ygr5190.net
SafeArrayを使うとは具体的には？
引数が不定数だと、実行時に引数の数が違うと怒られてしまうんですが。
配列を作る関数が欲しいのですが、順序が逆の
先に配列を作ってから関数に入れる事しか思いつかないです。

83:名無しさん＠お腹いっぱい。
15/11/17 19:35:50.10 kvx4k+FL0.net
pram[] が使える言語も受け側は配列として処理するだけの糖衣構文
あると便利な機能だけど無いとコレが出来ないって事はない
結果に加工した配列が欲しい場合はSafeArray使えって話でしょ
UWSCはpram[] は使えないので配列長なしの配列を引数に使うしか無いので
こんな感じで引数用の配列を用意する必要があるのは仕方ない
Dim a[] = 1,2,3
Dim b[] = 5,10
Print JOIN(test(a), ",")
Print JOIN(test(b), ",")
Function Test(value[])
　Dim iMax = Length(value) - 1
　result = SAFEARRAY(0, iMax)
　For i = 0 To iMax
　　result[i] = value[i] * 2 //2倍に加工
　Next
Fend
//実行結果
//2,4,6
//10,20

84:名無しさん＠お腹いっぱい。
15/11/17 23:27:48.86 3Sfs5iCK0.net
引数を多目に書いておいて関数内で処理するんはダメなのか？

85:名無しさん＠お腹いっぱい。
15/11/18 00:57:58.26 DCQo+QOr0.net
要するに不特定の因数を受け取って配列を吐き出したいんだろ?
関数内で配列を作るか関数外で用意しておいたところに入れるかの差はあるが
関数内で配列を作って外に放り出すにはSafeArrayしかないし
関数外であらかじめ用意しておくなら配列数でリサイズすればいいだけじゃないっていう話
関数に不特定の因数を渡す際には
セパレータ記号を付けて一つの因数にしておいて、関数内で分解すればよろし
dim array = test(a+"#"+b+"#"+c+"#"+d+"#"+e)
function test(param)
testarray = safearray(0, 0); testarray[0] = token("#", param)
while pos("#", param); testarray[resize(testarray, resize(testarray)+1)] = token("#", param); wend
result = testarray; fend

86:名無しさん＠お腹いっぱい。
15/11/18 10:58:24.63 R9oruk2c0.net
UWSC初心者です。つまづいてしまったのでどなたかお教えください。
Bluestacks上でアプリを起動してマウス操作などの自動化を行いたいのですが記録されても再生するとマウスがBluestacks上動いたりクリックしたりしません。PCゲーでは今まで動いていたのですが‥
なぜでしょう？どなたかお

87:願いします。

88:名無しさん＠お腹いっぱい。
15/11/18 11:08:48.43 6gzLq2020.net
>>80
内部で配列として扱いたいだけで、出力は配列というわけではないのです。
結局のところ、不特定数の引数を受け取りたいだけなんですが、
そのままの入力はどうやら無理のようですね。
素直に配列作って渡すことにします。
無名配列でも作れたらよかったのですが。
ありがとうございました。

89:名無しさん＠お腹いっぱい。
15/11/18 11:24:54.22 zICgyZ9/0.net
>>82
単純に受け側でsplitで良いような…

90:名無しさん＠お腹いっぱい。
15/11/18 11:37:45.83 6gzLq2020.net
受け取る変数も不特定なのでセパレータが被る恐れがあります

91:名無しさん＠お腹いっぱい。
15/11/18 14:17:53.45 95T98vMj0.net
特定の画像が出た時に直前の作業をもう一度起こす事で安定性を上げたいです
a→b→cと処理勧めてきて
while
if checking
処理dに進む
break
elseif checkingエラー画面
call b→c処理を書いた別ファイル
endif
wend
みたいな形でなんとか動かせてはいるんですけど修正の作業とかが面倒なので別のアイデア無いでしょうか

92:名無しさん＠お腹いっぱい。
15/11/18 15:02:48.84 WUTAg8ze0.net
>>85
b→cを別ファイルにするだけではあかんの？

a→
call b→c処理を書いた別ファイル
while
if checking
処理dに進む
break
elseif checkingエラー画面
call b→c処理を書いた別ファイル
endif
wend

93:名無しさん＠お腹いっぱい。
15/11/18 15:07:24.77 WUTAg8ze0.net
安定性を上げる手段としては、状態判定と処理をループにしておくという手も。
while true
状態判定 a →処理 a
状態判定 b →処理 b
状態判定 c →処理 c
状態判定 d →ループ抜ける
wend
処理 d

94:名無しさん＠お腹いっぱい。
15/11/18 15:15:35.51 gRViVlbY0.net
>>84
分ってるかもだけれど
セパレータは2文字でも3文字でもOK

95:名無しさん＠お腹いっぱい。
15/11/18 15:38:20.45 bJyAh8OV0.net
>>88
自前でセパレータを仕込むのなら
もう自分で配列造るのと何も変わらないさ

96:名無しさん＠お腹いっぱい。
15/11/18 16:34:39.80 95T98vMj0.net
>>87
なるほど
手探りで一本で書いて後から必要な部分だけ別ファイル用意してcall・・・みたいな事してぐちゃぐちゃになってしまったんですが最初かは処理毎に作っておいて判定してcallする形にすればあちこち修正しなくても済みそうですね
その方向で整理してみますありがとうございました

97:名無しさん＠お腹いっぱい。
15/11/18 16:56:34.30 nYaQHfF60.net
>>90
お前は次に、長時間動作させているとエラーでUWSCが落ちる、と書き込む

98:名無しさん＠お腹いっぱい。
15/11/18 17:20:08.96 bJyAh8OV0.net
そして私はスタックオーバーフローしないようにCALLは出来るだけ最初に1回
CALL先のスクリプトは関数化して本処理ではその関数を呼ぶと安定するよとFAQなアドバイスしておくのだった
CALLをループ内に仕込むのは展開された動作を把握しきっていないと
資源の衝突や初期化周りで予期しない動作が発生するトラブルの原因のトップランカーさんです

99:名無しさん＠お腹いっぱい。
15/11/18 20:34:52.95 ya19mM+o0.net
下記のように画像判定を使ってループを処理した際に
repeat
状態判定a →処理a
状態判定b →処理b
until chkimg(処理abが実行された後の画像)
ループ中にエラー（Flashがクラッシュするなど）が発生した際にどのように対処すればいいでしょうか。
現在苦肉の策としてFlashがクラッシュした際に出る画像を判定するプロシージャをThreadで走らせておいて
エラー画像を検出したらエラーフラグ（Publicなエラーフラグ変数）をTrueにして各repeat内でフラグが立っていたら
breakするように記述しているのですが、repeatすべてにこの処理を導入しているため大変見苦しいコードとなって
しまっているので何かいい方法はないかと・・・

100:名無しさん＠お腹いっぱい。
15/11/18 20:52:19.47 bJyAh8OV0.net
エラー画像を発見したら終わらせるだけなら
寧ろメインループをそっちにして
別スレッドで他の処理すると�

101:yだよ終わらせたくなったらメインループを抜けるだけで全て終わるからね処理毎の終了処理が必要なら今の方法しか無いかな

102:名無しさん＠お腹いっぱい。
15/11/18 20:57:06.76 bJyAh8OV0.net
但し、デバッガがメインスレッド以外のスレッドのデバッグにマトモに対応していないから
完成した後にそうするか最初からprintデバッグする必要があるけれどね

103:名無しさん＠お腹いっぱい。
15/11/18 20:57:49.77 JQ1Q8izi0.net
Flashのクラッシュみたいな大きなエラーはもう別プロセス（別ＵＷＳＣ）で監視しちゃえば。

104:名無しさん＠お腹いっぱい。
15/11/18 21:23:51.36 ya19mM+o0.net
クラッシュを検出したらリロードを行ってまた処理を行うようにしているので
メインループを抜けてしまうのは出来ないです。
別プロセスでエラーを監視した場合、メインプロセスを再起動させて処理を再開するというような感じになるのでしょうかか？

105:名無しさん＠お腹いっぱい。
15/11/18 21:49:32.35 bJyAh8OV0.net
終わらせないなら特に楽にならないから今まで通りで良いんじゃないかな
UWSCから他のスレッドを殺す事はやろうと思えば出来るけれど
予めスレッドの起動毎にプロセス番号をグローバルな配列に保存して
それらをゴニョゴニョって感じになるから
今のフラグでループ制御しているのと面倒臭さは大して変わらない
でも一旦終わらせて、それを検知する別スクリプトが再起動させるという考え方もあるんだけれどね
（ログに書き出すとか色々方法はある）

106:名無しさん＠お腹いっぱい。
15/11/18 23:05:59.51 R9oruk2c0.net
>81です
初歩的な質問すぎて呆れてしまわれましたかね？ごめんなさい

107:名無しさん＠お腹いっぱい。
15/11/18 23:15:08.17 xUeF/cfW0.net
失せろカス

108:名無しさん＠お腹いっぱい。
15/11/19 00:52:14.47 d6Osv4Zy0.net
誰か教えてやれよ

109:名無しさん＠お腹いっぱい。
15/11/19 19:16:18.41 5LbifL7P0.net
>>97-98
その辺の実践経験者から言わせてもらうと、
結局は人間が操作するならどういう流れで操作するか、その流れのコード化に尽きる。
処理の区切り区切りの尽くに、クラッシュその他の予期しない自体を検知する処理を行う関数を挟み込む。
何らかの無限ループがあればその内側に必ず挟みこむか、無限ループをやめて回数制限またはタイムアウトを設ける。
クラッシュを検知してリロードして処理を１からやり直すということは、
その１からの部分に何時でも戻れるよう、プログラムの十分な構造化が要求されることは言うまでもない。
関数化、関数化そして関数化だ。関数が出来過ぎてしまうので分類だ。凄まじい数の独自関数群になる。
>>81
使ったことのない対象なので無責任に答えるが、
記録できないだけなのであればキャプチャ画像から割り出した座標をDOWN-UPでゆっくりクリックするのを書いて、
それでも認識されないか否か試してみたら？認識されないのなら不可能だから諦めろってことだ。

110:名無しさん＠お腹いっぱい。
15/11/19 22:29:12.84 ZWZs69JY0.net
>>81
高レベルではなく低レベル記録する

111:名無しさん＠お腹いっぱい。
15/11/19 22:43:42.91 oG2sQJna0.net
仮想OS上のアプリをホスト側から操作しようなんてのは無理

112:名無しさん＠お腹いっぱい。
15/11/20 09:33:31.45 Pd39Iv5K0.net
フラッシュは、ジョブズが嫌ってた。
firefoxとも相性が悪くてクラッシュしまくりだから大嫌い！

113:名無しさん＠お腹いっぱい。
15/11/21 10:27:37.94 kt2iHckZ0.net
UWSCのスレッド内からIEの操作を行うと、
アプリケーションは、別のスレッドにマーシャリングされたインターフェースを呼び出しました
ってエラーが出るんですが、回避の方法はありますかね？
IEobj = CREATEOLEOBJ("InternetExplorer.Application")
thread test_thread(IEobj)
msgbox("")
// ここまでmain
procedure test_thread(IE)
PRINT "IE Navigate start"
IE.Navigate("URLﾘﾝｸ(www.google.co.jp"))

114:PRINT "IE Navigate end" wait(IE) fend procedure wait(IE) REPEAT SLEEP(0.1) UNTIL !IE.busy AND IE.READYSTATE = 4 fend

115:名無しさん＠お腹いっぱい。
15/11/21 11:26:31.22 B04dZN/C0.net
そのケースならメインで CREATEOLEOBJ する意味がないと思う
念のため thread test_thread(IEobj) で test_thread はメインとは別スレッドになるけれど
test_threadから wait を呼び出しでも wait は test_thread と同じスレッドだからね
同じ OLEOBJ を複数のスレッドで使いたい場合は
どちらかを GETACTIVEOLEOBJ にしたら良いと思う

116:名無しさん＠お腹いっぱい。
15/11/21 12:11:56.37 kt2iHckZ0.net
>>107
サンクス
メイン側で生成したオブジェクトをスレッドに渡しても（グローバル変数でも駄目だった）、動かないって事で
すかね。
メインでタブを二つ作ってそれぞれのオブジェクトをスレッドに渡して処理させようとしてたんだけど、タブは
作ったうえでスレッド側でオブジェクトを生成するようにしたら期待する動作になったようです。

117:名無しさん＠お腹いっぱい。
15/11/21 17:03:31.49 +ESe50Z90.net
UWSCでループを用いないキー入力待ちって作れる？

118:名無しさん＠お腹いっぱい。
15/11/21 17:25:25.61 B04dZN/C0.net
SETHOTKEYを使えば出来るよ
でも厳密にはこれは待たないからね
イベントドリブンなスクリプトになるイメージ

119:名無しさん＠お腹いっぱい。
15/11/21 18:07:35.61 +ESe50Z90.net
それってホットキーの入力を待つ時には結局ループ系必要にならない？

120:名無しさん＠お腹いっぱい。
15/11/21 18:24:22.67 valwfeOZ0.net
ならない

121:名無しさん＠お腹いっぱい。
15/11/21 18:34:12.81 +ESe50Z90.net
>>110,111
ありがとう
やってみるわ

122:名無しさん＠お腹いっぱい。
15/11/21 18:38:50.90 B04dZN/C0.net
ホットキーで割り込む隙もなくメイン処理が終わるなら当然終わるよ
キー入力の待機ループが不要なだけさ

123:名無しさん＠お腹いっぱい。
15/11/21 21:26:37.91 +ESe50Z90.net
>>114
sleep中でも無視して関数呼び出してくれるんだね
これでPCへの負荷が激減した
ありがとう

124:名無しさん＠お腹いっぱい。
15/11/24 17:32:21.47 3BpSGfNj0.net
test

125:名無しさん＠お腹いっぱい。
15/11/24 22:48:31.92 JF3Q3VkF0.net
UWSCのウィンドウを出しておいて
右クリックからランチメニューを辿って
スクリプトを実行しようとしたとき
メニューにある「タスクトレイに格納」で
左クリックしてるわけでもないのに
タスクトレイに格納されてしまうことがあるけど
これは仕様なの？
ゆっくりやれば問題ないけど
ササッとやりたいときに
タスクトレイに格納されてしまって萎える
Free版　ver5.2.0

126:名無しさん＠お腹いっぱい。
15/11/24 22:55:07.30 qS8AAPnY0.net
マウスが古くなっていてチャタリングが発生している可能性はゼロなの？

127:名無しさん＠お腹いっぱい。
15/11/24 23:07:09.04 W5FAQXAx0.net
何言ってんだと思ってやってみたらなるほど
右クリックするとメニューが表示されるわけではなく、右ボタンを押下した時点（離す前)でメニューが表示される
そして丁度カーソルの位置にタスクトレイに格納がある。
そのため、メニューを開く時に右クリック(押して離す)をしてしまうと格納されてしまうことがある。
こういうことかな？
それなら右ボタン押してメニューを開いたら、押したままドラッグでランチメニュー→スクリプトの上で離すってやればいいんじゃね

128:名無しさん＠お腹いっぱい。
15/11/24 23:30:20.08 s/LW23zM0.net
HOTKEYじゃ駄目なの？

129:名無しさん＠お腹いっぱい。
15/11/24 23:32:44.91 JF3Q3VkF0.net
右クリックメニュー上で右クリックしても
決定したことになるのか
それは知らなかった

130:名無しさん＠お腹いっぱい。
15/11/24 23:53:35.41 qS8AAPnY0.net
だからチャタリングが発生するマウスだとコンテキストメニューが誤爆しやすくなってしまうのよね

131:名無しさん＠お腹いっぱい。
15/11/25 11:13:45.29 rJNaTAeQ0.net
今Windows8.1を使用しているのですが
外付けHDDが短時間で休止状態になってしまって困っています
UWSCで定期的にアクセスして休止に入らないようなスクリプトは
どうやったらかけるのでしょうか

132:名無しさん＠お腹いっぱい。
15/11/25 12:42:30.98 txG9N8jK0.net
がんばって調べれば書けるよ
つか、わざわざUWSCでやることでもないだろそれ

133:名無しさん＠お腹いっぱい。
15/11/25 15:20:51.71 S/4vbjYn0.net
USBかATAコントローラーのドラ�

134:Cバ設定かサスペンドの設定だろUWSC関係ねえ OSがスリープ命令出したらたとえUWSCで自動書き込みさせても電源落ちるぞ

135:名無しさん＠お腹いっぱい。
15/11/25 15:51:54.62 Iap/Z3Jk0.net
UWSCでやる意味は全くないけど、OSのスリープタイマーをリセットするコマンドがあったような

136:名無しさん＠お腹いっぱい。
15/11/25 17:12:36.18 JO/DUQA90.net
A、B、C画像いずれかがなければDをクリックし
A、B、Cのいずれかの画像があればループを終了する
と言う感じで組みたい
WHILE (CHKIMG("A.bmp")=FALSE)
WEND
このままではAの画像がでるまでループ
ループ途中にA画像B画像C画像を検索し
なければDをクリック。
頭爆発しそう

137:名無しさん＠お腹いっぱい。
15/11/25 17:19:07.03 rT4L+apC0.net
ここはお前の日記帳じゃない

138:名無しさん＠お腹いっぱい。
15/11/25 17:29:57.74 y0cJp4zm0.net
ABCいずれかがなければDで
ABCいずれかあれば終了
どっちも同じ？
A　がなければ　D　だけど
AがなくてもBとCがあるから終了？
でもBとCがあってもAがないからD？

139:名無しさん＠お腹いっぱい。
15/11/25 17:37:42.03 txG9N8jK0.net
WHILE TRUE
IF Aあり BREAK
IF Bあり BREAK
IF Cあり BREAK
Dクリック
WEND
じゃいかんのか？

140:名無しさん＠お腹いっぱい。
15/11/25 19:31:02.42 JO/DUQA90.net
>>129
>>130
初歩的な勘違いやった。
申し訳ない

141:名無しさん＠お腹いっぱい。
15/11/27 03:04:57.99 uYW4zJhI0.net
初歩的な質問で失礼します
以下のマクロでchkimgを連続実行すると、検索対象のウィンドウの一部が点滅？してしまいます
repeat
　SLEEP(0.1)
until GETKEYSTATE(VK_LBUTTON)
PUBLIC id
id = GETID(GET_FROMPOINT_WIN)
MOUSEORG(id, MORG_DIRECT, MORG_BACK)
main()
procedure main()
　i=1
　repeat
　　chkimg("test.bmp")
　until i=100
fend
chkimgの後にsleepを入れても点滅速度が遅くなるだけで、根本的な解決にはなりませんでした
また点滅箇所はソフト毎に異なるようです(chrome、メモ帳、エクスプローラなどで確認)
UWSCは最新版、OSはWin7 64bitです
デスクトップコンポジションを無効にする以外の解決法はないでしょうか？

142:名無しさん＠お腹いっぱい。
15/11/27 03:10:30.73 6LeH5ZQ60.net
どうでもいい指摘だけど i が加算されないからそれ延々ループしまくるよね
CPUパワーの可能な限り延々チェックし続けて、そりゃウインドウも点滅するさね
リソース不足じゃない？

143:名無しさん＠お腹いっぱい。
15/11/27 03:24:45.08 uYW4zJhI0.net
>>133
chkimgの後のi=i+1が抜けてましたね
ご指摘の通り非力なPCを使っているのですが、
タスクマネージャーで確認したところCPU使用率は50%を下回っているようでした
chkimgの後にsleep(1)を入れても点滅するのでパワーの問題じゃないと思ってたのですが…

144:名無しさん＠お腹いっぱい。
15/11/27 04:39:10.35 gIPgqqH30.net
クリックしたときにその下のウィンドウのID取得してるのにわざわざMORG_BACKを指定してる
理由がよくわからないけど試しにMORG_FOREにしてみたらどうなるかな？

145:名無しさん＠お腹いっぱい。
15/11/27 11:40:45.00 qwTQlhP30.net
peekcolor・chkimgは実行された瞬間にウィンドウ内にちらつきが走る。
実際にどうなってるのかは一瞬過ぎてわからないが、タイトルバーの明滅からして
ウィンドウがアクティブ→非アクティブ→アクティブというようになっている感じがする。
大量にchkimgすると結構チラチラとして不快に感じる。

146:名無しさん＠お腹いっぱい。
15/11/27 12:27:45.06 AjRZAbKp0.net
MORG_BACKでやってるとなるよね
バックグラウンドでやる必要ないならFOREでやれば点滅しないはずだけど

147:名無しさん＠お腹いっぱい。
15/11/27 12:32:28.19 wntLhT

148:d20.net

149:名無しさん＠お腹いっぱい。
15/11/27 14:12:30.76 FeZzskVz0.net
>>134
2コアなら1コアがフルに使ってても50%超えないから

150:名無しさん＠お腹いっぱい。
15/11/27 14:23:32.71 qwTQlhP30.net
>>137,137
バックグラウンドで動作させてるわけではないんだが、IEだとちらつく。
他のアプリではあまり見ないのでIEだけが問題なのかもしれん。
あとposaccもちらつくな。
使ってる量的にはchkimgよりpeekcolorが、peekcolorよりposaccの方が多いから
原因はposaccかも。

151:名無しさん＠お腹いっぱい。
15/11/27 14:33:55.72 AjRZAbKp0.net
え、MORG_BACKにする＝バックグラウンドだろ
だったらMORG_FOREにしとけよ

152:名無しさん＠お腹いっぱい。
15/11/27 19:20:14.27 qwTQlhP30.net
俺と>>132は別人だよ。
最初からバックグラウンドにはしていない。

153:名無しさん＠お腹いっぱい。
15/11/27 21:21:48.29 AjRZAbKp0.net
おお、すまんな
IEだとFOREでもちらつくのか

154:131
15/11/27 23:19:54.60 uYW4zJhI0.net
みなさんありがとうございます
バックグラウンドで動かしたかったんですがMORG_BACKだと仕方ないみたいですね
諦めてちらつきは我慢することにします

155:名無しさん＠お腹いっぱい。
15/11/28 18:17:20.79 FR9Rv/l10.net
VMwareのゲストOS上で主に、たまにホストOS上で動かすスクリプトがあるんですが
スクリプトからホストかゲストか否かを判定する方法ないですかね？

156:名無しさん＠お腹いっぱい。
15/11/28 20:22:07.03 dldTCCO80.net
>>145
c:\ほにゃ.txt　とか置いといてそん中に Guest or Host って書いておく
起動時にそれを読んで判断じゃダメ？

157:名無しさん＠お腹いっぱい。
15/11/28 20:39:20.97 wN8TzbSm0.net
レジストリ読めばいいだけじゃん
UWSCじゃなくてバッチでもできることだしこのスレでは特に関係ない話題よね

158:名無しさん＠お腹いっぱい。
15/11/28 20:53:54.86 FR9Rv/l10.net
>>146
それ単純でいいですね。146さんもありがとうございます。

159:名無しさん＠お腹いっぱい。
15/11/28 21:25:51.53 qtPTFMZU0.net
>>146
もっと言えば、ほにゃがGuest or Hostで、そのファイルがあるかないかだけで、中まで見なくていいよね

160:名無しさん＠お腹いっぱい。
15/11/28 21:43:33.70 oqtIKp380.net
GET_APPDATA_DIRでユーザーネームあたりを確認してもいいよね
同じじゃなければだけど

161:名無しさん＠お腹いっぱい。
15/11/28 23:05:00.83 wN8TzbSm0.net
だからレジストリ見れば一発だろうが
DosCmd("wmic csproduct")　の戻り値を参照しろ
VMware Virtual Platform　ってのが入るから

162:名無しさん＠お腹いっぱい。
15/11/28 23:25:03.94 FR9Rv/l10.net
別に無視してるわけではないですが、ファイル作って判別する方が
仮想か否かだけでなくどのPC/OSかという判別が容易なのでこっち採用です

163:名無しさん＠お腹いっぱい。
15/11/29 00:47:57.33 JUXVZ/4C0.net
iniファイルで良いような…

164:名無しさん＠お腹いっぱい。
15/11/29 16:45:06.45 D3s05B910.net
chromeでバックグラウンド動作させたいんですけど
mouseorgでmorg_direct指定してるのにbtnでクリックするとアクティブになってしまいます
何所がいけないんでしょうか？
id = GetId("google chrome")
id = GetCtlHnd(id, "chrome_RenderWidgetHostHWND")
MouseOrg(id, morg_direct, morg_back)
hoge=0
WHILE hoge<20
　hoge=hoge+1
　btn(left, click, 100, 100)
　sleep(0.2)
wend

165:名無しさん＠お腹いっぱい。
15/11/29 22:40:44.71 PLkzB9890.net
callってどういう時に使えばいいんだろう
少しずつ部品となるプログラムを作って、それを大元のプログラムで呼び出すような作り方をしてるんだけど、
uwscファイルがどんどん増えていって、どんどんわかりにくくなる
・何度も、何行も書かなきゃならない処理を一行で書ける
・変更する場合も呼び出し先のファイルを変更するだけでいい
こういうのが利点なのかな？

166:名無しさん＠お腹いっぱい。
15/11/29 22:51:34

167:.18 ID:Eprjqt/E0.net

168:名無しさん＠お腹いっぱい。
15/11/29 23:10:30.89 PLkzB9890.net
やっぱり自作関数をつくるべきなのか
引数とか処理の流れとかがよくわからんままだったから敬遠してた

169:名無しさん＠お腹いっぱい。
15/11/29 23:16:48.50 Eprjqt/E0.net
今だとまんまファイル＝処理になってるんだろ？
それぞれ頭にprocedure　処理名、尻にfendつけて１ファイルにまとめるだけや
んでcallしてるところでcallやなしに処理名を書くだけのことや

170:名無しさん＠お腹いっぱい。
15/11/29 23:26:27.99 PLkzB9890.net
それだけでいいのか
やたら引数とか書いてあるから後回しにしてた

171:名無しさん＠お腹いっぱい。
15/11/30 04:20:23.49 FBOUUxt90.net
>>81
Androidエミュレータの事なら Win10Pro 64bit だとUWSCを管理者権限で起動したら反応する
逆に管理者権限で立ち上げないと書いてある通り反応しない

172:名無しさん＠お腹いっぱい。
15/11/30 04:40:32.11 FBOUUxt90.net
>>155
例えばアプリ上でフリック動作を再現したい場合以下ようなコードになるけど100,100をフリックしたいときもあれば200,200をフリックしたい場合もあるから
フリック動作させる度にイチイチ以下のコードを書かないといけない
x=100
Y=100
BTN(Left,DOWN,x,y,125)
FOR i = 0 To 10
tx = x-i*50
ty = y
MMV(tx,ty,10)
NEXT
BTN(Left,UP,tx,ty,10)

173:名無しさん＠お腹いっぱい。
15/11/30 04:43:07.50 FBOUUxt90.net
>>155
一方関数化して以下のコードを書いたファイルを事前にCALLしておけば
必要な時に必要な値を指定して FlickToLeft(200,200)と一行書いてやるだけで同じ処理が実現できる
PROCEDURE FlickToLeft(x,y)
DIM i =0
DIM tx = 0
DIM ty = 0
BTN(Left,DOWN,x,y,125)
FOR i = 0 To 10
tx = x-i*50
ty = y
MMV(tx,ty,10)
NEXT
BTN(Left,UP,tx,ty,10)
FEND
同じような処理を関数化しておくと可読性と保守性が上がるのが利点かな

次ページ