自動化ツールUWSC使いよ集まれ19 [無断転載禁止]©2ch.net

**名無しさん＠お腹いっぱい。** · 2016/12/04(日) 17:04:38.16

Windowsの作業を自動化するツール
フリーソフト版とシェアウェア版の2種類がある
ttp://www.uwsc.info/download.html

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

●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://park14.wakwak.com/~simizu/uwsc/fruwsc.html
http://canal22.org/
http://big.tm.land.to/handbook/uwsc.htm
http://www.game-rev.com/review/gameut/uwsc.html

●スクリプトテンプレサイト
http://izagne.com/uwsc/
http://scripts.web.fc2.com/
http://www.nagomi-jp.net/~liners/
http://nem.symphonic-net.com/uwsct/0610uwsct.html
http://siromasa.digi2.jp/uwsc/
http://iriyak.adam.ne.jp/uwsc.html

前スレ　自動化ツールUWSC使いよ集まれ18
http://potato.2ch.net/test/read.cgi/software/1469866649/

**名無しさん＠お腹いっぱい。** · 2017/02/17(金) 21:53:12.63

>>452
自分でデータベース作るって発想はないのかな？
csvでファイルを扱えるAPIがあるんだから、超巨大なデータじゃなければ自前でできるよ。

**名無しさん＠お腹いっぱい。** · 2017/02/17(金) 23:00:40.04

だからそれは自動化ツールの域超えてるだけじゃん

**名無しさん＠お腹いっぱい。** · 2017/02/17(金) 23:12:44.72

だからもなにも、UWSCにはそういうAPIが用意されてると言ってるんだが？
自分に作る能力がない？自分の用途では不要？だから粋を超えてるとか、お前何様すかｗ

**名無しさん＠お腹いっぱい。** · 2017/02/17(金) 23:29:21.56

>>454
自分が低能だからって他もそうだなんて考えたらいかん

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 00:30:10.80

やりたいことできないAPIって
無いのと同じだろ

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 04:31:09.41

どういう意味で行ったか知らんが枠超えてるってのは俺も昔から思ってる。
データベース処理はデータベースアプリケーションを使って処理し、
そのアプリを自動化するならUWSCの範疇だが、
UWSC内に何でもかんでも実装してこなすのは、EXCEL方眼紙と一緒。
公式掲示板でもたまにいるが数万件レベルのデータ処理を
スクリプト内で文字列操作とループ使って遅々とした処理するとか、
趣味ならまだしも仕事でやるの迷惑でしょ。

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 04:55:08.41

そうはいってもここにいる連中はUWSC"しか"使えないんだろｗ

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 05:47:46.46

だってIEオブジェでウインドウ簡単に作れるからデータ入力楽なんだもの
Submit押したらデータベースにダイレクトに格納したくなるじゃないの

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 07:06:59.85

いきなり数万レコードとかハードルあげてくる馬鹿ｗ

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 10:50:03.32

エクセル方眼紙で1マス1字で文章書いてる役所があったな
活版印刷かよ？

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 13:23:36.20

sqlite取り敢えず動くようなのでペタリ
ttp://pastebin.com/GqEez7mT

調べながら書いたので間違い多いと思うし速度も調べてない
暇つぶしにどうぞ

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 13:57:50.07

>>463
ほほう

**名無しさん＠お腹いっぱい。** · 2017/02/18(土) 15:47:58.54

>>463
山県さん？

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 01:17:15.04

0から9までの数字をランダムかつ同じものを使わないで1個ずつクリップボードに送りたいんですがどうしたらできるでしょうか？
SLCTBOXでボタンを押すたびに送ろうと思ってます

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 01:38:40.77

引いた数字を除外しつつランダムで数字選べばいいだけでは？

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 01:52:47.26

>>467
どういうコードになる？
さわりだけでいいのでお願いします

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 02:19:51.22

>>468
逆に余った数字を引くまで回す、ではなくて
0…9、0…8って乱数の数を減らしていく
残っている数字を0…8に割り当てておく
みたいな感じ

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 02:48:52.49

最初に全要素を配列か何かに格納しておいて
その要素数までの乱数で1個選ぶ
選んだ要素を除いた配列を作る
以後繰り返し

扱うのが1桁の数字なら、配列にしなくても
連結して文字列で扱う方が簡単だな

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 02:55:08.19

>>466
DIM RNDarry[] = 0,1,2,3,4,5,6,7,8,9;//初期化
FOR i=0 TO 9;rnd = random(9);tmp = RNDarry[rnd];RNDarry[rnd] = RNDarry[i];RNDarry[i] = tmp;NEXT //シャッフル
FOR i=0 TO 9;SENDSTR(0,RNDarry[i]);MSGBOX((i+1)+"個目");NEXT;//転送

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 03:12:31.38

MsgBox(　GetRundom()　)

Function GetRundom()
　Str = "1234567890"
　While Length(Str)
　　Cut = Int(Random(Length(Str) * 10 + 9) / 10)
　　Tmp = Copy(Str, Cut, 1)
　　Result = Result + Copy(Str, Cut, 1)
　　Str = ChgMoj(Str, Tmp, "")
　WEnd
FEnd

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 08:43:09.32

UWSCほぼ関係ないロジックの問題なのに、コードまで提供して甘やかすなあｗ

>>468
DIM n[9]=0, 1, 2, 3, 4, 5, 6, 7, 8, 9

こういう配列があったときに、どうやったら中身をシャッフルできるか考えてみよう。
シャッフル終われば順に取り出すとその数字はランダム。

**名無しさん＠お腹いっぱい。** · 2017/02/19(日) 23:20:50.57

シンプルに質問と答えのやりとりならいいが
クイズ形式みたいのは他でやってくれないかなあ

**名無しさん＠お腹いっぱい。** · 2017/02/20(月) 00:05:47.94

魚の取り方を教えるよりも魚をくれと言う

**名無しさん＠お腹いっぱい。** · 2017/02/20(月) 22:11:44.99

本職のプログラマなら答えを見る前にアルゴリズムを自力で考案する試みをすべきかもしれんが…
所詮エンドユーザーなので、アルゴリズムの回答をググって見つけ出す方法を教えたほうが良い。
この場合、シャッフルというキーワードを思いつけばあとは自力でググれる。

**名無しさん＠お腹いっぱい。** · 2017/02/21(火) 10:57:35.81

5.2.2や5.2.3にするとsleepが1桁増えたみたいに遅くなって使い物にならない・・・
5.2.1に戻すと大丈夫だから良いけどバージョンアップできないのはなんか気持ち悪いなぁ

**名無しさん＠お腹いっぱい。** · 2017/02/21(火) 14:46:38.50

>>477
コードを上下を挟んでモジュール化してオーバーロード
overload.Run()
MODULE overload
PROCEDURE Run()
※自前のコード部分※
FEND
PROCEDURE sleep(sec)
DEF_DLL SleepEx(DWORD,BOOL): void: kernel32
SleepEx(sec*1000,false)
FEND
ENDMODULE

**名無しさん＠お腹いっぱい。** · 2017/02/21(火) 15:07:21.04

俺のところではpeekcolorがやたら遅い

**名無しさん＠お腹いっぱい。** · 2017/02/23(木) 12:49:17.48

PyAutoGUIなんてあるんだな。
そろそろUWSC卒業したいわ。

**名無しさん＠お腹いっぱい。** · 2017/02/23(木) 19:14:03.97

IE.document.get~
みたいに、.で次々参照できるオブジェクトみたいなものを
UWSCで自分で作りたいのですがどうすればいいのか教えていただけませんか？

**名無しさん＠お腹いっぱい。** · 2017/02/24(金) 08:06:24.38

・moduleを使う（ただしオブジェクトではない）
・「C言語などで」COMを作って、UWSCでcreateoleobjectして使う

**名無しさん＠お腹いっぱい。** · 2017/02/24(金) 18:54:26.19

三次元配列はどのように記述するのでしょうか？

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 04:10:39.82

UWSCでウインドウのメニューなどを含まない描画領域を取得するにはどうすればよいでしょうか？
APIのGetClientRectの値が欲しいです。よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 11:36:13.83

>>483
どう、って二次元配列と同じように

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 11:51:08.99

>>484
statusで

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 11:59:21.87

>>486
ステータスだとウインドウ領域でしょ
クライアント領域ならWin32API使うしかないんじゃね
64bitアプリだとメモリ読めないからシステムの例外設定に放り込む必要があるかな

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 12:21:58.41

クライアント領域の座標取得できるが、これとは違うって意味？

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 12:22:42.64

ヘルプ読んでない類なのかな…

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 12:58:20.48

>>487
念のために確認しちゃったよ

left,topは0固定なので置いといて
right,bottomはST_CLWIDTH, ST_CLHEIGHTで取れます

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 13:04:40.38

>>490
> left,topは0固定なので置いといて

何を言っている

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 13:21:01.72

>>485
すみません、三次元配列の要素の書き方が分からないです、括弧などは使えませんよね

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 13:29:18.00

>>484
ヘルプからそのまま
//　ウィンドウの各種状態を返す
戻値 = STATUS( ID,　取得したいもの )

ST_CLX　　　　 // クライアント領域のX座標を返す
ST_CLY　　　　 // クライアント領域のY座標を返す
ST_CLWIDTH　　 // クライアント領域の幅を返す
ST_CLHEIGHT 　 // クライアント領域の高さを返す

これじゃだめなの？

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 13:48:00.81

>>491
GetClientRect 関数
https://msdn.microsoft.com/ja-jp/library/cc364604.aspx

>lpRect
>構造体へのポインタを指定します。この構造体にクライアント領域の座標が格納されます。
>left メンバと top メンバは 0 になります。right メンバと bottom メンバは、クライアント領域の幅と高さになります。

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 13:51:35.47

>>492
たとえば

dim ary[3][4][5]

for i=0 to 2
for j = 0 to 3
for k = 0 to 4
ary[i][j][k] = i + j + k
next
next
next

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 13:56:41.60

あ、あれUWSCって配列サイズ指定は要素数じゃなくてインデックス上限値だっけ…

うう、よしなに読み替えてください

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 19:49:59.72

>>495
伝わりづらくてごめんなさい
既に入れる要素が決まってる場合の記述を知りたいです

一次元の場合
dim ary[1] = 1,2

二次元の場合
dim ary[1][1] = 1,2,_
3,4,

三次元の場合
dim ary[1][1][1] = ??

と、言う具合です

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 20:57:15.29

>>497
え、そんな書き方があったのか…
と思ったけど、それ単に "_" で形結合してるだけね

配列初期化は単純に順に埋っていくだけのようなので
三次元だろうが書き連ねていけばいいみたいです
dim ary[1][1] = 1,2,3,4
dim ary[1][1][1] = 1,2,3,4,5,6,7,8

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 21:31:47.61

>>498

＞＞配列初期化は単純に順に埋っていくだけのようなので
三次元だろうが書き連ねていけばいいみたいです

検索してもなかなかヒントにたどり着かなかったので助かりました
ありがとうございます！

**名無しさん＠お腹いっぱい。** · 2017/02/25(土) 21:51:22.98

>>499
念のため
ヘルプに明記されてないし、仮に他に掲示板等での公式回答もないとすれば
公式の記法ではないということですので
ご了承ください

**名無しさん＠お腹いっぱい。** · 2017/02/26(日) 19:07:09.68

comオブジェクトで開いてないブラウザを特定の位置にスクロールさせたい場合どうしたら良いでしょうか？

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 07:04:33.42

>>486
>>493
どうもありがとうございます。
ヘルプをもっと読むべきでした。すいません。

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 07:26:52.23

>>484で教えていただいたのですが
思った通りに出来なったのかでもう一度質問させてください。

IEでhtmlが表示されている描画領域の座標を取得したいのですが
どうすればよいでしょうか？
(メニューやアドレスバー、ツールバーのせいで座標が狂ってしますのです)

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 08:46:56.65

>>498
マジで！？裏ワザすぎるｗ

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 08:57:48.49

>>503
まず
GETID(GET_FROMPOINT_OBJ)
を使ってIEのウェブページが表示される部分にマウスを持っていきIDを取得する
STATUS(id,ST_CLASS)
でウェブページが表示される部分のクライアントIDのクラス名が
Internet Explorer_Server であることがわかるので

id = GETID("Internet Explorer", "IEFrame", -1)
n = GETALLWIN(id)
for i = 0 to n -1
ifb pos("Internet Explorer_Server",STATUS(ALL_WIN_ID[i],ST_CLASS))
id = ALL_WIN_ID[i]
endif
next
MMV(STATUS(id,ST_CLX),STATUS(id,ST_CLY))//動作チェック用

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 11:20:36.47

>>504
裏ワザも何も、最初からそれが標準の記述法だけど…

アンダースコアで改行してあるのは多少見やすいようにしてるだけだぞ

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 11:45:31.92

他の言語は普通は｛　｝でくくるけどな

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 19:06:15.36

FlashPlayerで動いている数字の取得って無理なんですか？

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 19:16:46.26

>>508
動いてなくても無理でしょ。

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 19:39:49.13

>>508
数字のサンプルを画像切り抜いてchkimgで処理するとか

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 20:28:35.74

>>508
回転、伸縮してなけりゃ画像としての認識は余裕だと思う
回転伸縮してても色がユニークなら1ピクセルで認識できたりとか
透過色つかって認識できるまで周囲削ったりとか…

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 22:08:26.29

>>508
> FlashPlayerで動いている数字の取得って無理なんですか？

あなたの日本語すごく分かりにくいね。
エスパーなしで額面解釈すると、
「動いている数字を、FlashPlayerを使って取得したい」
と読めてしまう。
ただ、このスレでその質問は無いだろうからエスパーするんだが、もはやそういう日本語を使う人の文面は疑ってかかることになるから、「動く」の概念もハッキリさせてくれ。

FlashPlayerでworkされた数字なのか、
FlashPlayerの表示の中でmove(motion)している数字なのか。

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 22:30:49.28

君コミュ苦手そうやなあ

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 23:00:55.30

実際俺が作ったやつだと、flash作ったやつがアホか何かで、
数字の配置のX座標が小数点まで設定されていて、
位置によってアンチエイリアスの掛かり方が変わって、同じ画像では認識できず、
全ての位置で違うマッチング用の画像を用意した

**名無しさん＠お腹いっぱい。** · 2017/02/27(月) 23:44:47.16

>>512
ネイティブじゃない人がそういうこと言うのはどうかと…

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 09:19:29.75

>>512
確かに分かり難い日本語だけど
普通に前者だと推定して二人がレスしてるからね・・・

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 10:55:08.87

「無理でしょ」も合わせて3人だな

UWSCから利用できるOCRライブラリとかあれば出来そう

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 12:06:31.53

UWSCだけでは無理
UWSC以外も含む全世界のソフト結集したら…多分出来る

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 12:07:31.16

フラッシュで再生中の数字的な画面表記（画像）を認識
　→　アンチエイリアスがかかるから通常の画像認識では無理
　　　グラボやブラウザによっても発色が違うので別機種動作は保証できない

フラッシュ中でカウンタやメモリ的に管理されている数字を取得
　→　システム上介入は困難、それなりのＡＰＩを扱える知識が必要
　　　専用アプリや、Ｆｌａｓｈプレイヤーなどはもはや論外レベル

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 12:20:49.57

>数字的な画面表記（画像）
って正確でもないし分かりにく過ぎるｗ
「画像で表示された数字」でいいんじゃないの

検索してみるとUWSCからのOCRは
MicrosoftのMODIってのとか
googleのCapture2Textとかってのが利用できるらしい

OCRは普通二階調化するから発色は関係ないと思うよ
回転や歪みがあったり分かりづらい背景だと難しいと思う

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 12:35:44.43

てか>>508はそのサイト貼れば的確な答えかってくるのにな

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 14:27:51.76

>>520
http://mgg.wp.xdomain.jp/archives/367
ここ参考にMODI試してみた。
そのサンプルのテキストエディタの画面コピーして

全画面　→　　エラー
「modidoc.Create( GET_UWSC_DIR+"\ocrtest.bmp" )」ここだけ切り取り　→　エラー
「Create」ここだけ切り取り　→　認識して Createの表示

画像のゆがみもゆらぎもなくてこれでは、なかなか厳しいすね。

なお、CONST miLANG_JAPANESE = 17　を追加して日本語指定も試してみたけど一文字も
認識できなかった。

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 14:49:16.92

>>522
>テキストエディタの画面コピー
普通のOCRソフトで試したことあるが画面上の通常の大きさのフォントは認識率悪いね
508のがシンプルな数字のみ大映しとかの場合、もしかしたら行ける？てくらいかも

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 15:11:56.47

>>523
そういうのはwaifuとかで拡大処理したものをOCRに掛けるとかなり認識率高くなると思う

**名無しさん＠お腹いっぱい。** · 2017/02/28(火) 15:17:07.70

そうだろうね
そこまでUWSCに組み込むのは大変そうだけどｗ

**名無しさん＠お腹いっぱい。** · 2017/03/02(木) 14:28:42.64

UWSCで排他制御しようと思ってるんですが
http://d.hatena.ne.jp/junjun777/20110810/uwsc_mutex
ここのソースを実行してみたところ（スレッド数は4にしてます)
以下のようなログが出力されるのですが、同じログが複数出るのと
finやstartが出力されない時があるのが理解不能です。何故なのか教えてくれませんか？
21:10.308 TestThread init 1
21:10.346 TestThread start 1 True
21:10.364 TestThread init 2
21:10.385 TestThread init 3
21:10.406 TestThread init 4
21:10.462 TestThread end 1(154)
21:10.475 TestThread fin 1 True(167)
21:10.475 TestThread start 2 True
21:10.582 TestThread end 2(218)
21:10.610 TestThread fin 2 True(246)
21:10.611 TestThread start 4 True
21:10.719 TestThread end 4(313)
21:10.723 TestThread start 3 True
21:10.723 TestThread start 3 True
21:10.881 TestThread end 3(496)
21:10.885 TestThread fin 3 True(500)

**名無しさん＠お腹いっぱい。** · 2017/03/02(木) 17:03:01.74

>>526
Log("TestThread fin " + id + " " + Mutex.Unlock(id), s)

log()に渡すパラメータ作る時点でmutexのアンロック行われるから、その後に交錯しちゃって
るんじゃないすかね？PRINTの中身がスレッドセーフかどうかもわからんし。
それこそ、log()自体をmutexで排他制御しないとｗ

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 13:33:52.21

オブジェクト指向をはじめてみた
よくわかんないけど
「主語（クラス） + 動詞（メソッド：クラスの中に置く自作関数） + 目的語（引数）」
って認識でいいんか？

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 13:47:38.41

>>528
最初はそれでもいいかも

同じ指令でも中の人が違えば動きが違うので用途に応じて中の人を変えるとか、
同じ命令でも引数に渡したクラスが違えば動作変えられるとか、
中の人がその人に合ったデータ覚えていて、頼む人が全部用意する必要がないとかは、
後でやってれば覚える

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 14:05:25.76

>>529
ありがとう
中の人ってなんだ？　って調べたらアンサイクロに超絶わかりやすい説明があったわ
ギャルゲーでも作ってみようかなｗ

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 22:32:47.45

以下のような形でchkimgxを使い、目的の画像を見つけたら押すという処理にしたかったのですが。
画像は見つけられてもクリック位置がずれてしまい、うまく押してくれません。
画像を見つけた位置をクリックするようにするにはどうしたら良いのでしょうか？
MID = GETID("ブラウザ名","Chrome_WidgetWin_1")
GID = GETCTLHND(MID,"Chrome_RenderWidgetHostHWND")
id = HNDtoID(GID)

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 22:33:37.14

MOUSEORG(id)
sleep(1)
if chkimgx("無題.png",0) then
print "見つけたスコア:" + G_IMGX_SCORE
acw(id)
mmv(G_IMGX_X, G_IMGX_Y)
btn(LEFT, CLICK, G_IMGX_X, G_IMGX_X)
endif

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 22:58:19.61

ずれてるって言ってもランダムとかめちゃめちゃじゃなくて
一定の値でずれてるはずだと思うんだけど
何に使ってるか知らんけど、ずれてる値を自分で調べて補正すればいいだけ
俺もChromeでそういうふうだからラップ関数作って補正して使ってる

**名無しさん＠お腹いっぱい。** · 2017/03/03(金) 23:54:23.13

>>533
確かにランダムではなく一定の値でずれてそうですね。ありがとうございます、補正してみます。

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 09:53:42.09

>>531
chkimgxのdll欲しいです

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 20:28:51.31

（環境）
Windows7
Office2007

これで、ExcelをUWSCで操作することを考えているのですが

EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.open("C:\Users\pro7\Desktop\1.xls")

SENDSTR(0,"=20160000+VALUE(LEFT(B12,2))*100+IF(MID(B12,4,1)=< #DBL> < #DBL>,0,MID(B12,4,1))*10+VALUE(MID(B12,5,1))")

//絶対移動＋入力「Excelの日付算出」
EXCEL.Range("N9")
EXCEL.ActiveCell.value = "=20160000+VALUE(LEFT(B12,2))*100+IF(MID(B12,4,1)=< #DBL> < #DBL>,0,MID(B12,4,1))*10+VALUE(MID(B12,5,1))"

と言う文で18行目でCOM_Errorが起きるのですが、原因が分かりません
18行目の""で囲ってある数式内のIF(MID(B12,4,1)=< #DBL> < #DBL>,0,MID(B12,4,1))*10を消せば動きますが、""で囲っている内部の文字列・数式が影響することはあるんでしょうか？
どうにかしてifの部分も消さずに使いたいで消したくないのです

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 22:18:52.37

動作中にトリガーが発生したらUWSC自体を一時停止するように組もうとしています。
そのために
kbd(vk_alt, down, 100)
kbd(vk_F1, down, 100)
としましたが、こうすると一時停止にはなるものの、その間どうもALTキーが押されっぱなしのようでほかの作業に支障をきたしました。

上の2行のあとに
kbd(vk_alt, up, 100)等を付け加えても改善しませんでした。

もし解決策がありましたら教えていただけませんでしょうか。
よろしくお願いいたします。

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 23:04:52.33

>>537
トリガー発生したら自分自身で一時停止するようにすればいいんじゃないの？

> 上の2行のあとに
> kbd(vk_alt, up, 100)等を付け加えても改善しませんでした。
停止してるんだから意味ないのでは？

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 23:17:41.06

slctboxかmsgboxでも出しとけ

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 23:23:31.11

>>538
そうなんです
そうとは知りつつも他に策がなかったのでやってみました

基本的にはUWSCをまわしているパソコンから離れ、放置をしたいです
しかしそのトリガーを目視で確認する必要もあるので、
トリガーが発生　→　一時停止（音鳴らす）　→　自身で処理　→　再開
という流れをとっています

いただいた回答からみるに意図していることは無理なんでしょうか

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 23:40:50.46

>>540
「自分自身」ってのは*お前*のことじゃないんだけどなｗ
書いたスクリプトそのものを自分自身という意味で書いてる。

音鳴らしたら無限ループに入るなり上に出てるmsgbox()なりで、今度はおまえ自身の手動操作でその
後に抜けるようにコードを書けばいい。

**540** · 2017/03/04(土) 23:41:50.83

すみません
時にはまわしているPCで作業も行い、その時にALTキーおしっぱ状態が続くため、不便ということでした。

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 23:43:22.79

>>541
ああ、理解足らずで申し訳ありません。
実際に試してきます。ありがとうございました

**名無しさん＠お腹いっぱい。** · 2017/03/04(土) 23:44:42.99

スクリプトの途中で中断させときたい、ってことだろ？
>>539でいいじゃねえか

**536** · 2017/03/05(日) 09:20:41.36

< #DBL>を<#DBL>にしたら動きました
""で囲っていても特殊記号はエラーとして扱われるんですね

**名無しさん＠お腹いっぱい。** · 2017/03/05(日) 22:18:24.60

うん

**名無しさん＠お腹いっぱい。** · 2017/03/07(火) 00:06:33.14

初めてこのスレにお邪魔して質問なのですが
使用中のExcelのセルに日付を入れるにはどうしたらいいのでしょうか

xls=GETACTIVEOLEOBJ("Excel.Application")
xls.range("A1:A100").value=xls.VBA.Datavalue("2017/1/2”)

こんな感じにしたのですがエラーがでまして

**名無しさん＠お腹いっぱい。** · 2017/03/07(火) 06:24:23.02

日付 × data ○ date

**名無しさん＠お腹いっぱい。** · 2017/03/07(火) 22:23:35.26

あー　dataはJaneにソラで打ったので間違えました

**名無しさん＠お腹いっぱい。** · 2017/03/07(火) 23:45:21.59

>>547
どんなエラーですか？

そもそも、UWSCのエラーなのかエクセルのエラーなのかもわからない。

**名無しさん＠お腹いっぱい。** · 2017/03/09(木) 15:21:01.09

>>547
COMからVBAのDateValueを扱う方法がわからないので

//代案1　ワークシート関数式を入れる
xls=GETACTIVEOLEOBJ("Excel.Application")
xls.range("A1").formula="=DATEVALUE(<#DBL>2017/1/2<#DBL>)"
xls.range("A1").copy
xls.range("A1:A100").PasteSpecial(-4163) //xlPasteValues

//代案2 UWSCのGETTIMEからExcelの日付シリアル値を算出する
xls=GETACTIVEOLEOBJ("Excel.Application")
xls.range("A1:A100").value=INT(GETTIME(0,"2017/01/02")/86400)+36526 //86400=60*60*24, 36526:2000/1/1のExcel側シリアル値

**名無しさん＠お腹いっぱい。** · 2017/03/10(金) 12:05:06.41

UWSCでキャッチできるエラーはどうやって投げるんですか？