自動化ツールuwsc使いよ集まれ2

自動化ツールuwsc使い ..

200:名無しさん＠お腹いっぱい。
06/10/30 14:38:07 /PcfHUDW0
URLﾘﾝｸ(find.2ch.net)

スレたった一個、こりゃ廃れるわ、勉強する気にならない

201:名無しさん＠お腹いっぱい。
06/10/30 14:41:49 Jg/vjkrL0
vistaでも動く？

202:名無しさん＠お腹いっぱい。
06/10/30 22:31:54 shlNE38y0
アクティブじゃないウインドウ・最小化してるウインドウを
アクティブにしないまま命令を送るのって
どうしたらいいんでしょうか？SendMessageを使うとできるかも？と聞いたんですが。
たとえば一回クリックするとしたらどんな感じの構文になりますか？

203:名無しさん＠お腹いっぱい。
06/10/30 23:42:39 UiAP8X6Z0
>>200
必要ないと思えば勉強しなくていいじゃん。
いちいち他人にいうことじゃないな。

204:名無しさん＠お腹いっぱい。
06/10/31 00:17:02 eeg3cCck0
>>201
ああ、俺のとこじゃ動いてるよ

205:名無しさん＠お腹いっぱい。
06/10/31 02:59:09 5Lbg2LJl0
>>202
一回クリックって言っても、どんなメッセージとパラメータが送られてんのか分かんなきゃムリ。
例えば『タスクバーと [スタート] メニューのプロパティ』を表示さすには以下。

DEF_DLL SendMessageA(hwnd, uint, uint, long): long: user32.dll

SendMessageA(IDTOHND(GETID("", "Shell_TrayWnd")), 273, 413, 0)

第二引数がメッセージで、第三・第四引数がパラメータ。

206:名無しさん＠お腹いっぱい。
06/10/31 09:58:26 T4LiwXDt0
C言語URLﾘﾝｸ(www.google.co.jp)
C言語の検索結果約 2,100,000 件中 1 - 10 件目 (0.04 秒)

アセンブリ言語の検索結果約 205,000 件中 1 - 10 件目 (0.04 秒
URLﾘﾝｸ(www.google.co.jp)

ｕｗｓｃの検索結果約 136,000 件中 1 - 10 件目 (0.12
UWSC
の知名度低ーいい。そりゃ勉強するものすくないわい、

207:名無しさん＠お腹いっぱい。
06/10/31 13:42:02 rN1G2J+30
>>206
> UWSC
> の知名度低ーいい。そりゃ勉強するものすくないわい、
いや、UWSC は勉強するほど難しくないだろｗ
Windows のメッセージとかを理解してればいいだけだし。

208:名無しさん＠お腹いっぱい。
06/10/31 16:04:50 g8FIEyTL0
C言語=標準語
ＵＷＳＣ＝アイヌ語
そりゃアイヌ人から見ればアイヌ語は簡単かもしれん。

209:名無しさん＠お腹いっぱい。
06/10/31 18:39:30 nuallxxM0
便利ならアイヌ語でもスワヒリ語でも勉強しますよ。
言語なんて道具。

210:名無しさん＠お腹いっぱい。
06/10/31 19:36:44 Khc4wo+K0
つーかこの程度で勉強とか言ってる奴って
どんな低脳だよｗ
生きてる価値ないんじゃねｗ

211:名無しさん＠お腹いっぱい。
06/10/31 19:42:06 xiYW93nk0
windows上のautoexec.bat　バッチファイルかなと思った。

212:名無しさん＠お腹いっぱい。
06/11/01 11:29:58 gED/VXQX0
もう触れてやるなって。。。

213:名無しさん＠お腹いっぱい。
06/11/02 19:14:02 5j4wX5u/0
ロケットマウスと比べるとどんなメリットあるの？

214:名無しさん＠お腹いっぱい。
06/11/02 19:53:56 An5vb/de0
ないから使わなくていいよ

215:名無しさん＠お腹いっぱい。
06/11/03 01:39:17 jNYovIZx0
違いが分からないレベルでは
どのみちUWSCのアドバンテージは使いこなせない。
おとなしくロケットマウス使ってなさい。

216:名無しさん＠お腹いっぱい。
06/11/03 06:42:30 GMiEkE1O0
ロケットマウスは有料ジャン。学生のバイトが作ったレベルの会社なのか。
じゃあ広まらないな。

217:名無しさん＠お腹いっぱい。
06/11/03 12:53:15 8UL9ZUwh0
>>213
ロケットマウチングは初心者用です

218:名無しさん＠お腹いっぱい。
06/11/03 17:51:42 VM0D+/6c0
EXEC("C:\Documents and Settings\おれの名前\デスクトップ\DE\GR208\GRAPP.exe")
GR =GETID("G a m e r e s i s t a n c e 2 . 0 8 v")
ifb GR <0 then
MsgBox("GRが起動してません")
Exit
endif
これでやってもGRAPPが起動しないんですけど、どこか間違ってますか？
（起動していませんのメッセージは出ます。）

219:名無しさん＠お腹いっぱい。
06/11/03 18:47:14 jNYovIZx0
Pathに<#DBL>が足りんよ

220:名無しさん＠お腹いっぱい。
06/11/03 23:55:56 VM0D+/6c0
>>219
ありがとうございます。
無事に起動することができました＾＾

221:名無しさん＠お腹いっぱい。
06/11/04 01:57:58 gwVvP2CF0
どういたしまして

222:名無しさん＠お腹いっぱい。
06/11/04 22:38:53 Qt37AhPX0
>221
誰よ？w

223:名無しさん＠お腹いっぱい。
06/11/05 16:26:49 JKljbBg20
accessで記録しようとするとaccessが固まったり、暴走したりするんですけど、これっと既知の現象ですか？
デスクトップとノートPCの両方でなりました。win2000SP4とaccess2002SP3とwinXPSP2とaccess2002SP3の構成です。
vba面倒だからuwscを憶えようと思ったのに・・・

224:名無しさん＠お腹いっぱい。
06/11/05 16:47:17 xRqGMCA/0
現象は初耳だが、マイクロソフトはマイクロソフト製品をスクリプトで操作するためにVBAを用意してるんだから、動かしたい物がマイクロソフト製品だけならVBAを覚えた方が良くないか？
俺はマイクロソフト製品以外の（Comのない）いろんなアプリも操作したいからuwscを選んでいるが。

225:名無しさん＠お腹いっぱい。
06/11/05 17:15:13 JKljbBg20
>>224
フォームがいろいろ出現するタイプだと難しいのですかね？
一人の顧客について作業をするためにボタンを8回押さないといけないのでうんざりしていたので。。顧客が何百人・・・
vbaもやっていますが、難しい。
keybatならうまくいくんだけど、修正が面倒なんですよね。。。コメントもかけないからどの操作が何に相当するか訳が分からなくなるし。。
他のマクロソフトを探しますか・・・

226:名無しさん＠お腹いっぱい。
06/11/05 20:57:54 JKljbBg20
Windowsマクロテクニックをこつこつ読んでいます。
125ページのマクロトレーニング例題2番のページが見つからないのですが・・
このページなんですが。。。
URLﾘﾝｸ(www.izagne.com)

227:sage
06/11/05 22:41:16 NwyqjV3A0
>>226
猫の写真が並んでるのが見えるど。

228:名無しさん＠お腹いっぱい。
06/11/05 22:49:15 JKljbBg20
>>227
あれ！？さっきまで真っ白の画面だったのに。。
メンテ中だったのかな？

229:名無しさん＠お腹いっぱい。
06/11/06 07:59:50 LcW+hZ8t0
ｓｅｎｄｓｔｒがうまくいかない、

230:名無しさん＠お腹いっぱい。
06/11/06 09:25:02 rX2xj5A50
>>229
全角で打っちゃってるとか

231:名無しさん＠お腹いっぱい。
06/11/06 13:03:18 pTvgcTgu0
全角だとだめ？調べてみます

232:名無しさん＠お腹いっぱい。
06/11/06 14:02:41 rX2xj5A50
あ、いや、"ｓｅｎｄｓｔｒ"の方がね・・・

単なる茶々だったんだ、スマン

233:名無しさん＠お腹いっぱい。
06/11/07 23:21:54 nbYnkFvx0
exec("timedate.cpl")
で日付と時刻のプロパティが開くと思うんだけど
何故か開けない…
コマンドプロンプトから timedate.cpl って打てば
起動するのに…??

234:名無しさん＠お腹いっぱい。
06/11/08 01:22:12 dYDEs1RJ0
あと一息だったのに！
DOSCMD("timedate.cpl")
または
EXEC("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")

235:名無しさん＠お腹いっぱい。
06/11/08 02:16:02 kkwdccLW0
EXEC("control.exe timedate.cpl")
でもおｋ

236:名無しさん＠お腹いっぱい。
06/11/08 07:23:56 7gy21ohK0
>>234
>>235
ありがとうございました.
…というわけで「ntpで時刻同期」のできあがり↓

doscmd("timedate.cpl", true)
id = getid("日付と時刻")
sleep(0.1)
clkitem(id, "インターネット時刻", CLK_TAB)
sleep(0.1)
sckey(id, VK_ALT, U)
REPEAT
sleep(0.1) // 処理待ち
UNTIL (pos("お待ち", getstr(id, 2, STR_STATIC))) < 1
clkitem(id, "OK") // 「OK」押して window閉じる

237:名無しさん＠お腹いっぱい。
06/11/08 07:33:09 7gy21ohK0
ところで↑の UNTIL の行の条件を
なぜ
UNTIL (pos("お待ち", getstr(id, 2, STR_STATIC))) == 0
って書けないの？
(書き方がわからなかったので < 1 としている)

「数値が等しい」は == では無いということかなぁ？
数値の比較の書式についてマニュアルに載ってます？？

スクリプト言語は Rubyしか知らないんで…一般的な
書き方がどんななのかよくわからない..

238:名無しさん＠お腹いっぱい。
06/11/08 10:13:27 QV90xeYa0
RecIE 　ブラウザ(IE)上の操作を記録
　Ver 1.0　2006/10/09版　　フリーソフト
[機能]
　ブラウザ(IE)上の動作をUWSCのスクリプトとして記録します

こんなの作ってたのか。しかもUWSCもややバージョンアップ。

UWSC　Ver4.1b　(uwsc41b.zip　794KB)　ダウンロード

※IEはもういいよ。せめて記録したのをIE無しで実行できるようにして欲しい。

239:名無しさん＠お腹いっぱい。
06/11/08 10:15:18 QV90xeYa0
>>236
> clkitem(id, "インターネット時刻", CLK_TAB)

んなもんないんだが?

240:名無しさん＠お腹いっぱい。
06/11/08 11:30:23 in+oSbY90
>>238
それはかなりムリぽ
Geckoでも載せれば出来るだろうけど、おそらくだがすごく重たくなるよ
まぁそれでも俺はやってほしいとは思うけど実装の手間を考えたらとても…
推測ばかりでごめん

>>239
この手のコードはかなり環境に依存するからなぁ…
OSは2k？こっちはXP Proだけどその名前のタブがあるよ
でも素直にntp倉使った方がフォーカス気にしないで済むし手っ取りばｙｹﾞﾌﾝｹﾌﾞﾝ

241:名無しさん＠お腹いっぱい。
06/11/08 15:36:56 QV90xeYa0
>>240
素直に低レベルのHTTPアクセス関数載せればいいのに。
でもIE自動操作は圧倒的に要望が多いんだろうな。
もう実装されたんだから必要になれば俺も使うと思うが…。

それよかOSに依存しない簡単スクリプト欲しいけどな。
この条件だけで既に出来る事は限られるが、それでも
欲しい場面は有る。さがしてみてもちいさくて古典的で
しかも低レベルていうのはなかなか無い。

しかしUWSCもでかくなったもんだなぁ…。
もうフロッピーにスクリプトと一緒に入れて使うのは困難。

うちは２Kだからそんなタブは無いよ。
2Kのサービスは使わないでAutomachronを起動時に
一回だけ実行してる。

242:名無しさん＠お腹いっぱい。
06/11/08 18:48:39 LfqD85Qi0
１つだけだと作業の効率が悪いので、UWSCの多重起動の方法を教えて下さい

243:名無しさん＠お腹いっぱい。
06/11/08 19:06:30 QV90xeYa0
スクリプトをパラメータとして渡せばいくらでも起動できる。

244:240
06/11/09 01:43:37 Z8zk+dGG0
>>241
>素直に低レベルのHTTPアクセス関数載せればいいのに。
ところが、CookieとかJavaScriptとか前提の操作もかなりあるから、
HTTPだけ喋れればよいというわけではないんよ。
で、JavaScriptのエンジンは相当ﾓﾆｮる。

>OSに依存しない簡単スクリプト
UWSCのスレでいうのも何だけど、Cygwin入れてbashとかどう？
シェルスクリプトはすごく古典的だし、wgetとかも使えるし、
書き方次第だけど、OSに依存しないコードもかけるよ。

>フロッピーにスクリプトと一緒に入れて使う
UPXとかどうだろう？4.0a1 2006/04/25でだけど、
1322496 -> 434176 32.83%
っていう結果がでたよ。これなら十分FDに収まるよ。
普通にlzhとかzipで圧縮しろって言われたらそれまでだけど…

245:名無しさん＠お腹いっぱい。
06/11/09 03:53:11 AGEL77cW0
>>237
keyword = "演算式"
uwschlp = "E:\Programs\UWSC\uwsc.chm" // ！パス

id = GETID("uwsc","HH Parent", 0.1)
if id<0 then id = EXEC("hh.exe " + uwschlp)
ifb id>0 then
　　SCKEY(id, VK_ALT, N)
　　SENDSTR(id, keyword, 1, True)
　　SCKEY(id, VK_RETURN)
endif

246:名無しさん＠お腹いっぱい。
06/11/10 07:59:33 FqCSfKXW0
配列の数を取得するのはどうやったらいいの？
hoge.lengthとかでは取れないし
それかforeachみたいなの希望

247:名無しさん＠お腹いっぱい。
06/11/10 08:52:13 +EBXIIWo0
>>244
サンクス。
Cygwinは脚下だが…。

>>246
Dim hage= 1,2,3,4
For i= 0 to length(hage)-1
Print hage[i]
Next

だったような気がする。ヘルプ見れ。

248:名無しさん＠お腹いっぱい。
06/11/11 04:04:32 5q7PbBGn0
chmhlp = "?:\?????\UWSC\uwsc.chm" //■uwsc.chm のパス
wtitle = "uwsc" // タイトル

keyword = TRIM(PARAM_STR[0])
if keyword = "" then keyword = TRIM(GETSTR(0))

id = GETID(wtitle, "HH Parent", 0.1)
ifb id<0 then
　　LockHard(True)
　　id = EXEC("hh.exe " + chmhlp)
　　LockHard(False)
endif
ifb id>0 then
　　CTRLWIN(id, ACTIVATE)
　　ifb !GETKEYSTATE(VK_SHIFT) then
　　　　CLKITEM(id, "キーワード", CLK_TAB)
　　　　i = 100
　　　　while GETSTR(id, 1, STR_EDIT)<>keyword and i>0
　　　　　　SLEEP(0.1)
　　　　　　SENDSTR(id, keyword, 1, True)
　　　　　　i = i-1
　　　　wend
　　　　if i>0 then CLKITEM(id, "表示", CLK_BTN)
　　endif
endif

249:名無しさん＠お腹いっぱい。
06/11/11 13:09:53 pCHTRHAl0
KBD(VK_WIN,CLICK,0)
ACW(GETID("スタートメニュー","DV2ControlHost"),0,244,400,494,0)
MMV(656,164,1021)
KBD(VK_P,DOWN,932)
MMV(656,164,350)
KBD(VK_P,UP,0)
MMV(656,164,180)
KBD(VK_DOWN,CLICK,70)
KBD(VK_DOWN,CLICK,29)
KBD(VK_DOWN,CLICK,32)
KBD(VK_RIGHT,DOWN,12)
MMV(656,164,50)
KBD(VK_RIGHT,UP,0)
MMV(656,164,551)
KBD(VK_DOWN,CLICK,0)
KBD(VK_RIGHT,DOWN,2)
MMV(656,164,3)
KBD(VK_RIGHT,UP,0)
MMV(656,164,53)
KBD(VK_DOWN,DOWN,20)
MMV(656,164,120)
KBD(VK_DOWN,UP,40)
MMV(656,164,36)
KBD(VK_RETURN,DOWN,50)
MMV(656,164,24)
KBD(VK_RETURN,UP,0)
MMV(608,211,901)
ACW(GETID("システムの復元","PCHShell Window"),124,96,776,576,0)
//システムの復元,パソコンの調子が悪いとき

250:名無しさん＠お腹いっぱい。
06/11/11 13:25:33 Ragr+mkN0
amaki@volvic.ddo.jp

251:名無しさん＠お腹いっぱい。
06/11/11 15:41:22 ejBrbwXn0
>>248
もう分かったから照れないでちゃんと能書き書いとけよ。

252:名無しさん＠お腹いっぱい。
06/11/11 17:57:20 FmFOw0WF0
>>246
RESIZE

253:名無しさん＠お腹いっぱい。
06/11/11 23:25:03 mDJ3ZaCE0
そんなに金がﾎｼｲんか

254:名無しさん＠お腹いっぱい。
06/11/12 01:27:50 Ujv7bdMC0
>>251
・クリップボードへキーワードをコピーして>>248を実行。
　または
・コマンドラインでキーワードを渡す。

255:名無しさん＠お腹いっぱい。
06/11/12 01:34:33 X0vOhbHT0
ありがとうございます。

256:名無しさん＠お腹いっぱい。
06/11/12 03:55:18 rdB3AhDT0
「KAJIKAS TOWNSへようこそ」が消えてる！
Webアーカイブでも見れねえ！ガーン！

257:名無しさん＠お腹いっぱい。
06/11/12 17:16:00 Sto4IFRa0
>>102
// 強制電源断
POFF(P_POWEROFF or P_FORCE)

// 00秒後にシャットダウン
DOSCMD("shutdown.exe -s -t 00")

>>249
// システムの復元
EXEC("C:\WINDOWS\SYSTEM32\Restore\rstrui.exe")

＊クラス名："DV2ControlHost"って何の？
動作記録で得られたスクリプトを他の環境で試すときは要注意。
特に>>103の羅列は致命的な動作をする場合が有。

258:名無しさん＠お腹いっぱい。
06/11/12 19:46:54 MhRyhUT00
>>251
どういたしまして。

259:名無しさん＠お腹いっぱい。
06/11/13 11:33:28 VXdvoq500
すごい初歩的な質問ですが

>// 強制電源断
>9POFF(P_POWEROFF or P_FORCE)
>
>// 00秒後にシャットダウン
>DOSCMD("shutdown.exe -s -t 00")
とかはC言語ですか・・・？
差し支えなければ教えてください。

260:名無しさん＠お腹いっぱい。
06/11/13 12:24:09 o4Cff82N0
　　　　　　　　　　　　ｽﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟｰﾝ!!!
　　　　　　。　　　　　。
　　　　　　　　。　　｡　。　。ﾟ
　　　　　　。　　｡ﾟ。゜。ﾟ｡　。
　　　　　　/　／/ ／／
　　　　　(　Д ) Д)Д))

　　　　　　　　　　　　ｽﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟｰﾝ!!!!!!
　　　　　　　　　+　,,　　*　　　　+
　　　　＋※　+　∴　　*　※　*
　　　　*　　* +※　ﾞ*　※　* ＋
　　　+　　※　∴　*　+　*　
　　　　　(　Д ) Д)Д))

261:名無しさん＠お腹いっぱい。
06/11/14 08:06:47 p4NCBUUJ0
工ラーがすぐでるのでめんどくせー
エラーのどこ直せばよいか、教えてくれれば、よいソフトと言えるが

262:名無しさん＠お腹いっぱい。
06/11/14 09:30:27 gziMcojK0
もう少し
スレタイを長くしないと検索にかからず人が増えない

263:名無しさん＠お腹いっぱい。
06/11/14 17:09:14 mcbR0tcA0
>>261
エラーは君が間違った場所を教えているんだよ。
つか、すなおに質問しろよ。
親切に教えてもらえるぞ。

264:名無しさん＠お腹いっぱい。
06/11/15 20:37:40 nx6se5lf0
KBD(VK_WIN,CLICK,0)
MMV(868,38,10)
ACW(GETID("スタートメニュー","DV2ControlHost"),0,260,400,478,0)
MMV(868,38,5)
MMV(868,38,11)
KBD(VK_R,DOWN,1)
MMV(868,38,2)
KBD(VK_R,UP,7)
ACW(GETID("ファイル名を指定して実行","#32770"),3,562,403,168,0)

265:続き
06/11/15 20:39:21 nx6se5lf0
MMV(868,38,7)
MMV(868,38,5)
KBD(VK_SHIFT,DOWN,3)
KBD(VK_SHIFT,DOWN,4)
KBD(VK_SHIFT,DOWN,4)
KBD(VK_SHIFT,DOWN,3)
KBD(VK_C,DOWN,10)
MMV(868,38,5)
MMV(868,38,0)
KBD(VK_C,UP,10)
KBD(VK_SHIFT,UP,1)
KBD(VK_OEM_1,DOWN,2)
MMV(868,38,20)
KBD(VK_OEM_1,UP,11)
MMV(868,38,280)
KBD(VK_OEM_5,DOWN,1)
MMV(868,38,20)
KBD(VK_OEM_5,UP,10)
MMV(868,38,12)
MMV(868,38,2)
KBD(VK_RETURN,CLICK,20)
MMV(868,38,20)
MMV(868,38,1)
ACW(GETID("ローカルディスク (C:)","CabinetWClass"),295,54,631,600,0)

// ローカルデスクＣを開く、
これをsendstrで開くにはどうすればいいですか？
スタート⇒ファイル名を指定して実行でsendstr使いたいんだけどうまくいかない

266:名無しさん＠お腹いっぱい。
06/11/16 01:04:54 sj7WjVf90
OEMキーってなんだっけ？
ボリュームとかIEランチャの所謂インターネットキー？

267:名無しさん＠お腹いっぱい。
06/11/16 01:55:56 LP5m8d9x0
>>265
EXEC("explorer.exe C:")
↑これで C: は開けるけど駄目なんだろうね。

どうしても「ファイル名を指定して実行」を使いたいなら
shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")

ところで、"DV2ControlHost"って何？
あと、自動取得スクリプトは貼らなくていいから…

268:名無しさん＠お腹いっぱい。
06/11/16 03:10:57 0dNnVeDD0
>>266
URLﾘﾝｸ(yokohama.cool.ne.jp)

269:名無しさん＠お腹いっぱい。
06/11/16 09:05:27 xFDHWS7+0
>>265
ｍｍｖとｋｂｄしかいらないツー事だな。

270:名無しさん＠お腹いっぱい。
06/11/16 16:32:09 sj7WjVf90
>>268
ども、全然違ったしorz

271:続き
06/11/17 07:54:02 pu68rP8u0
shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")

KBD(VK_RETURN,DOWN,0)
MMV(661,39,140)
KBD(VK_RETURN,UP,0)

>>267
開いたーTHX

272:名無しさん＠お腹いっぱい。
06/11/18 00:33:19 QYr4TQXC0
>>271
おいおい！
//CLKITEM(id, "OK")
↑このコメントを外せばいいんだよ。
下の３行は不要。

ヘルプをよく読んだ方がいいと思うぞ。
KBD MMV から卒業しようよ。

273:名無しさん＠お腹いっぱい。
06/11/18 01:35:17 t7NB8bux0
uwscスクリプトのブログ
URLﾘﾝｸ(blogs.yahoo.co.jp)

274:名無しさん＠お腹いっぱい。
06/11/18 05:04:49 gz9EZxfT0
いらねぇスクリプトばかりだった。
それが普通だけどな。

275:名無しさん＠お腹いっぱい。
06/11/18 09:29:28 GJb2QK8r0
ｕｗｓｃがはやるには、よいスクリプトランキング付け．や、こんな命令をパソコンにやらせたいアンケートいるなあ、

276:名無しさん＠お腹いっぱい。
06/11/18 13:33:47 40Sw6ctk0
パソコン１台しかもたんからKBD MMV で充分、

277:名無しさん＠お腹いっぱい。
06/11/21 05:03:59 e3PWmBC/0
KBD MMV　しか使えないとDQN

278:続き
06/11/21 11:49:43 xXhUGEUE0
>>267
shell = CreateOLEObj("Shell.Application")
　　　　　　　　　　　　　　↑
　　　　　この情報はどうやってとるのですか？
右クリックでプロパティでもだめだし
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")

>ところで、"DV2ControlHost"って何？
わかりません、マウスとキーボードで作ってるから

279:名無しさん＠お腹いっぱい。
06/11/22 03:32:22 MZ4cnudL0
print文で出てくるちっこいウィンドウの位置って指定できないのかな？
UWSC起動してからマクロ実行すればUWSCにくっついて表示されるけど
引数に指定してマクロ動かすとデスクトップの左上隅に表示されてしまう。
複数実行すると重なって見えないんだよね。

280:名無しさん＠お腹いっぱい。
06/11/22 04:11:53 b7Nu0a2F0
試さずに提案するが、GETIDでGET_LOGPRINT_WINのウインドウIDを取得して、それをACWで位置指定してみたら？
やってみたら結果報告ヨロ

281:名無しさん＠お腹いっぱい。
06/11/22 04:36:50 MZ4cnudL0
>>280
なるほど。いい手です。
試してみたらうまくいきました。ありがとうございました。

282:続き
06/11/22 21:12:36 DUEoKZur0
test

283:続き
06/11/22 21:13:37 DUEoKZur0
shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "ｽﾚﾘﾝｸ(software板:281番)n-", 1, True)
CLKITEM(id, "OK")
ACW(GETID("自動化ツールUWSC使いよ集まれ2 - MICROSOFT INTERNET EXPLORER","IEFrame"),0,0,1024,734,0)
sleep(8)
BTN(LEFT,DOWN,542,347,6)
MMV(542,347,30)
BTN(LEFT,UP,542,347,90)
MMV(542,347,1012)
KBD(VK_SHIFT,DOWN,6)
KBD(VK_TAB,CLICK,2)
KBD(VK_TAB,CLICK,5)
KBD(VK_SHIFT,UP,6)
KBD(VK_T,CLICK,9)
KBD(VK_E,CLICK,190)
KBD(VK_S,CLICK,1)
KBD(VK_T,CLICK,4)
KBD(VK_SHIFT,DOWN,4)
KBD(VK_TAB,CLICK,3)
KBD(VK_TAB,CLICK,4)
KBD(VK_TAB,CLICK,3)
KBD(VK_SHIFT,UP,1)
KBD(VK_RETURN,DOWN,1)
KBD(VK_NEXT,CLICK,1)
KBD(VK_RETURN,UP,0)
MMV(542,347,90)

284:続き
06/11/22 21:26:32 DUEoKZur0
test

285:続き
06/11/22 21:32:35 DUEoKZur0
test

286:続き
06/11/22 21:34:02 DUEoKZur0
1分ごとのテスト

287:続き
06/11/22 21:35:38 DUEoKZur0
test

288:続き
06/11/22 21:36:37 DUEoKZur0
test

289:続き
06/11/22 21:37:37 DUEoKZur0
test

290:名無しさん＠お腹いっぱい。
06/11/22 21:38:34 DUEoKZur0
成功

291:続き
06/11/22 21:39:42 DUEoKZur0
sendstrを使ってやれたらもっといい

292:続き
06/11/22 21:42:57 DUEoKZur0
10時に一回だけtest

293:名無しさん＠お腹いっぱい。
06/11/22 21:59:39 PNW8OVuR0
ありがとう

294:続き
06/11/22 22:02:57 DUEoKZur0
失敗した

295:名無しさん＠お腹いっぱい。
06/11/22 23:09:10 f/WEUuv90
テストスレでやれよボケ

296:名無しさん＠お腹いっぱい。
06/11/22 23:15:56 CTlU+HiT0
IDをNG指定したが、どうせならトリップぐらいつけて欲しい物だな

297:名無しさん＠お腹いっぱい。
06/11/23 00:24:11 66H7nO9d0
だからIEはCOMを使えとあれほど…

298:名無しさん＠お腹いっぱい。
06/11/23 01:58:55 FN84/L8u0
KBD
SENDSTR
SCKEY
以外のキー操作方法はある？

299:名無しさん＠お腹いっぱい。
06/11/23 02:39:23 66H7nO9d0
ない。

ちなみにSENDSTRはキー操作ではない。

300:続き
06/11/23 12:58:15 QSlkSJJz0
礼あらざるは聞く無かれ(礼儀しらずの話は聞かなくとも
良い）

301:名無しさん＠お腹いっぱい。
06/11/23 13:03:16 h+KEICCL0
礼儀知らずは人の話を聞かない

302:名無しさん＠お腹いっぱい。
06/11/24 10:48:48 oXp7q/N00
ゲームとかで、キャラクターとかの画像を判別するってことできるんですか？
たとえば画面にそのキャラクターが出たら攻撃するとか。

303:名無しさん＠お腹いっぱい。
06/11/24 11:54:53 0i9kKllL0
　　　　　　　　　　　　ｽﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟｰﾝ!!!
　　　　　　。　　　　　。
　　　　　　　　。　　｡　。　。ﾟ
　　　　　　。　　｡ﾟ。゜。ﾟ｡　。
　　　　　　/　／/ ／／
　　　　　(　Д ) Д)Д))

　　　　　　　　　　　　ｽﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟｰﾝ!!!!!!
　　　　　　　　　+　,,　　*　　　　+
　　　　＋※　+　∴　　*　※　*
　　　　*　　* +※　ﾞ*　※　* ＋
　　　+　　※　∴　*　+　*　
　　　　　(　Д ) Д)Д))

304:名無しさん＠お腹いっぱい。
06/11/24 18:22:41 nUA6kiYl0
>>302
ComputerVisionでぐぐればいいよ

305:続き
06/11/25 20:14:20 Joh5GvcF0
ここの書き込むボタンをクリックするにはどうするんですか？

306:続き
06/11/25 20:23:09 +KR2N9Va0
自己解決しました

録画ボタン
書き込むの上にカーソルを持ってきて左クリック
停止ボタン

再生ボタン

307:名無しさん＠お腹いっぱい。
06/11/25 21:49:12 wNqQP6lN0
CMサイトのCMを全自動で見るスクリプトをオネガイします。

308:名無しさん＠お腹いっぱい。
06/11/26 02:54:34 58R/cqLI0
>>307
>>306

309:名無しさん＠お腹いっぱい。
06/11/26 05:11:30 HmE0+f6Z0
>>308
ありがとー、出来ましたｗ

310:名無しさん＠お腹いっぱい。
06/11/28 01:50:40 zlEMbgyG0
uwscってKey Batや joy to keyみたいに
キーボードとマウスにドライバレベルで割り込むのは不可能？

311:名無しさん＠お腹いっぱい。
06/11/28 04:12:33 R+5LV7PM0
不可能

312:名無しさん＠お腹いっぱい。
06/11/28 10:27:14 pSAEAzZ60
>>310
何したいの？
入力内容のすげ替えだったら無理っぽいけど、
UWSCスクリプトを実行中にマウス・キーボードの
入力を禁止する関数ならあったと思った。

313:名無しさん＠お腹いっぱい。
06/11/28 22:04:11 qfSYCWZK0
16進数にして表示するにはどうしたらいいのでしょう？
a=32767
print $a
としてもエラーが出てしまいます。

314:名無しさん＠お腹いっぱい。
06/11/28 22:13:47 pSAEAzZ60
っ【FORMAT関数】

315:名無しさん＠お腹いっぱい。
06/11/28 22:50:04 qfSYCWZK0
>>314
でｋちあーーーーーーありいいい

316:名無しさん＠お腹いっぱい。
06/11/28 23:40:17 tuCDpiEC0
// DROPFILE サンプル "df.uws" - ファイル比較 DF 1.36 の場合（ファイラーのDFでは無い）
app = "?:\?????\DF\DF.exe" //■DF.exe のパス
wtitle = "DF" //■タイトル
wclass = "Afx:400000:8:10011:0:" //■クラス
//--------------------------------------------
fpath = PARAM_STR[0]
id = GETID(wtitle, wclass, 0.1)
if id<0 then id = EXEC(app)
ifb id>0 then
　　CTRLWIN(id, ACTIVATE)
　　ifb fpath<>"" then
　　　　fso = CreateOLEObj("Scripting.FileSystemObject")
　　　　dir = fso.GetParentFolderName(fpath)
　　　　fname = fso.GetFileName(fpath)
　　　　DROPFILE(id, dir, fname)
　　endif
endif

=== Unknown File & Directory へ関連付け "reg.uws" ===
uws = GET_CUR_DIR + "\df.uws" //■↑df.uws のパス
keyname = "DF" //■
caption = "DFで比較(&A)" //■
pth = "<#DBL>"+ GET_UWSC_DIR +"\UWSC.exe<#DBL> <#DBL>"+ uws +"<#DBL> <#DBL>%1<#DBL>"
//--------------------------------------------
ws = CreateOleObj("Wscript.Shell")
ws.RegWrite("HKCR\*\shell\"+ keyname +"\", caption ,"REG_SZ")
ws.RegWrite("HKCR\*\shell\"+ keyname +"\command\", pth ,"REG_SZ")
ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\", caption ,"REG_SZ")
ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\command\", pth ,"REG_SZ")

// DropHandler （本家サンプルで *.uws を関連付けた場合）
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ")

317:名無しさん＠お腹いっぱい。
06/11/29 01:58:18 Ysr2cqrx0
>>316
補足
DropHandler ①②どちらでも可。

//① Shell Extension For Windows Script Host - wshext.dll 使用 >>316
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ")

//② .exe drop target - shell32.dll 使用
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{86C86720-42A0-1069-A2E8-08002B30309D}","REG_SZ")

318:名無しさん＠お腹いっぱい。
06/11/29 15:48:46 M/KTBCL60
tabキーやFキーの操作も記憶させたいのですが？

319:名無しさん＠お腹いっぱい。
06/11/29 18:52:47 ZG/xeMMU0
>>318
記憶してください？

320:名無しさん＠お腹いっぱい。
06/11/30 08:57:36 KKb4lyTL0
>>319 uwscだと記憶できなくなかった？

321:名無しさん＠お腹いっぱい。
06/11/30 11:26:03 07NVT8wX0
引っ越したばかりでネット環境が部屋にない。でも2chは見たい。
ネカフェで1個1個スレをクリックしてログを保存…面倒くさい。右手が吊る。

そんな時、UWSCを知りました。
openjane＋UWSCでスクリプト再生。あら雑誌を読んでる内に板全部のスレが保存できる。
700スレくらいの板で3分くらい。USBメモリで持ち帰って、家でゆっくりROM。
なんて便利なんだろう、作者さんありがとう。

同時接続エラーが出ない程度のスピードにしてるんだけど2chの鯖に負担かかる？

なんかもっと便利な使い方ありそうだ。過去スレ読んできます。

322:名無しさん＠お腹いっぱい。
06/11/30 17:18:07 Gb6WewGR0
アクティブにしないで、その操作だけを送るって事できないですよね

323:名無しさん＠お腹いっぱい。
06/11/30 17:57:07 KbN23QcZ0
残念ながら出来ないっすね

324:名無しさん＠お腹いっぱい。
06/11/30 19:44:28 ppyEoi2B0
>>321
自動巡回できるちゃんぶら使えばいいのに。

325:名無しさん＠お腹いっぱい。
06/11/30 21:16:49 Gb6WewGR0
>>323
ですよね。
自分でプログラム核しかないかぁ

326:名無しさん＠お腹いっぱい。
06/11/30 21:45:40 7wzpHdM90
//おみくじ.UWS
DIM 運勢[3]="大吉","中吉","吉","末吉"
R=RANDOM(4)
FOR A=0 TO 3
　IFB R=A
　　MSGBOX(運勢[A])
　　EXIT
　ENDIF
NEXT

327:名無しさん＠お腹いっぱい。
06/11/30 22:28:14 5koHXnxi0
//おみくじ.UWS
DIM 運勢[3]="大吉","中吉","吉","末吉"
MSGBOX(運勢[RANDOM(4)])

328:名無しさん＠お腹いっぱい。
06/12/01 00:13:13 JeM0K0y/0
ああそうなのか、直接入れれば2行ですむのか。
どうもありがとう。

329:名無しさん＠お腹いっぱい。
06/12/01 01:39:34 i7V3wzgJ0
>>323
UWSCってWin32API呼べるんでしょ?
SendMessage とか PostMessage でやれるんじゃないの？

330:名無しさん＠お腹いっぱい。
06/12/01 04:47:42 BhIz7lT80
test
test
test
むずい
むずい
むずい
test

こんなのみつけました

331:名無しさん＠お腹いっぱい。
06/12/01 06:45:36 HqQsiF3P0
// Internet Explorer 上での文字設定、ボタンのクリック　（COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"

IE.document.all["body"].value = timeｂ// タイトル書込み
IE.document.sm.click()

//IE.document.all["body"].value = "body"// タイトル書込み

IE.document.sm.click()

日付
書き込むところまでいくんだけど書き込みボタンクリックしない。

332:名無しさん＠お腹いっぱい。
06/12/01 07:12:38 xAQgo5dN0
手軽に画像の更新をしたいなあと思って
画像をショートカット(実行ファイル)に放り込むと特定のアップローダーにpostする、ということをやりたいんですけど、
このツールで出来ますか？

333:名無しさん＠お腹いっぱい。
06/12/01 09:35:19 bhBGT+M70
>>332
まぁしこしこスクリプト書けばできるが、あまりUWSCが向いてるようには思わない。
PerlとかでHTTPしゃべらす方がスマートだと思う。

334:名無しさん＠お腹いっぱい。
06/12/01 11:48:02 i7V3wzgJ0
>>331
smは、documentの直下じゃないよ。
　　IE.document.Fm.sm.click()
とか
　　IE.document.all["sm"].click()
formsから辿る方法とか、いくらでもやり方ある
※ Fmは、FROMタグのname

335:名無しさん＠お腹いっぱい。
06/12/01 21:30:51 Xs7RUjw90
CHKIMGをFPSゲームで使おうと思っているのですが、動的なところでどうしても画像判別ができません。
マウスがアクティブになるところ（メニュー画面など）では一応読み込めるようです。
フルスクリーンやウィンドウ両方で試しても読み込むことができませんでした。
CHKIMGなどでは判別することは不可能なのでしょうか？
わかる方がいましたらお願いします。

336:名無しさん＠お腹いっぱい。
06/12/01 22:24:41 9eh7+OGM0
if timeGetTime-Lasttiger > DWord(teletime.Value*1000) then
if GetForeGroundWindow=TargetWnd then
begin

keybd_event(VK_F2+cbAutoSC.ItemIndex,0,0,0);
keybd_event(VK_F2+cbAutoSC.ItemIndex,0,KEYEVENTF_KEYUP,0);
LastAutoShortcut:=timeGetTime;
end;
end
else
LastAutoShortcut:=timeGetTime;

337:名無しさん＠お腹いっぱい。
06/12/02 00:03:58 CWQeQlur0
>>334ありがと
できた、

338:名無しさん＠お腹いっぱい。
06/12/02 00:34:00 lizCI7GG0
06年12月02日00時33分

339:名無しさん＠お腹いっぱい。
06/12/02 07:48:39 43OZZphG0
しかしまだ難しい、ちょっと＂を全角．半角間違えただけでエラーがでて、その理由までＵＷＳＣは教えてくれない、
１０分もプログラムにらめっこ状態になった

340:名無しさん＠お腹いっぱい。
06/12/02 17:42:44 hvFLwMCZ0
エラーが出て教えてくれてるわけだが。

341:名無しさん＠お腹いっぱい。
06/12/02 19:33:04 DDIOW/mZ0
// Internet Explorer 上での文字設定、ボタンのクリック　（COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"

IE.document.all["body"].value = timeｂ// タイトル書込み
IE.document.all["sm"].click()

IE.document.all["sm"].click() //ここがうまくいかなくて書き込めないTHEBBS 書き込み

342:名無しさん＠お腹いっぱい。
06/12/03 08:13:53 Zdl4S4Sj0
ソースにnameが無い場合、どうやってｃｌｉｃｋを設定するの？

343:名無しさん＠お腹いっぱい。
06/12/03 13:24:17 snS6N3rq0
　sleep(0.1)を入れるといいかも

344:名無しさん＠お腹いっぱい。
06/12/03 19:09:01 JP0s2lkY0
>>341
せっかく新しい関数が追加されてるので

IESetData(IE,True,"TAG=input",4)　とか
IESetData(IE,True,"sm")

IE.document.Fm.sm.click()　でもいけると思うけど

345:名無しさん＠お腹いっぱい。
06/12/03 19:35:32 JP0s2lkY0
>>342
IE.document.all.tags["input"].item[3].click() 　みたいな感じで

あと最近追加されたIE操作用の関数もあります

346:名無しさん＠お腹いっぱい。
06/12/03 20:13:39 Ww/6AySw0
マウス動かしたりchkimgとか使わずにCOMの操作だけで済む場合は
UWS使わずにVBスクリプトで書くほうがスマートだなと最近気付いた。
まだWebで調べながら試行錯誤しながら書くレベルだけど
どこでも実行できるから便利だよね。

347:名無しさん＠お腹いっぱい。
06/12/03 21:04:09 VUpqkTxs0
最近スレ伸びてるね
もしかしてどこか厨雑誌で紹介された？

348:名無しさん＠お腹いっぱい。
06/12/03 21:25:23 JOKqZmnZ0
// Internet Explorer 上での文字設定、ボタンのクリック　（COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("ｽﾚﾘﾝｸ(software板:200番)n-")// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"

IE.document.all["MESSAGE"].value = timeｂ// タイトル書込み
IE.document.all["submit"].click()
//このスレに挑戦

349:名無しさん＠お腹いっぱい。
06/12/03 21:30:43 JOKqZmnZ0
06年12月03日21時30分

350:名無しさん＠お腹いっぱい。
06/12/03 21:31:57 JOKqZmnZ0
成功21時40分に自動書き込み設定

351:名無しさん＠お腹いっぱい。
06/12/03 21:40:40 JOKqZmnZ0
06年12月03日21時40分

352:名無しさん＠お腹いっぱい。
06/12/03 21:41:16 JOKqZmnZ0
よっしゃー

353:名無しさん＠お腹いっぱい。
06/12/04 00:28:04 MJakTm8F0
↑喜んでるところまで自動なら神

354:名無しさん＠お腹いっぱい。
06/12/04 03:25:18 WHrXC3Jy0
ありがとうございます

355:名無しさん＠お腹いっぱい。
06/12/04 04:10:21 OmF4uqP80
テストはテストスレでやれよボケ

356:名無しさん＠お腹いっぱい。
06/12/04 09:02:00 Qn4XOe5q0
type="file"のボックスのvlalueに入力する方法ってある？

type="text"と同じように指定しても入らない

357:名無しさん＠お腹いっぱい。
06/12/04 19:10:25 rtCP1keL0

ファイル名入力フィールド（type="file"）

ブラウザからWWWサーバーにファイルをアップロードする際に用います。
入力フィールドの横には参照ボタンが表示されます。
WWWサーバー側にはファイルを受け取るための特別なCGIスクリプトなどを設置しておく必要があります。
セキュリティのために、初期値を設定したり、スクリプトで値を操作することはできません。

URLﾘﾝｸ(www.tohoho-web.com)

358:名無しさん＠お腹いっぱい。
06/12/04 21:10:31 rtCP1keL0

クリップボードへ入力したいものを送っておいて
フォーカスを移動して右クリック貼り付け
SCKEY(getid("- Windows Internet Explorer"),VK_APPS,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_RETURN)

359:名無しさん＠お腹いっぱい。
06/12/05 00:38:41 TfVwWult0
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(headline.2ch.net))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
ACW(GETID("２ちゃんねる　電車男　ニュース　ヘッドライン BBY (NEWS) - MICROSOFT INTERNET EXPLORER","IEFrame"),68,54,870,658,0)
KBD(VK_ALT,DOWN,40)
KBD(VK_F,DOWN,31)
KBD(VK_F,UP,0)
KBD(VK_ALT,UP,170)
KBD(VK_CTRL,DOWN,30)
KBD(VK_A,DOWN,10)
ACW(GETID("WEB ページの保存","#32770"),72,77,654,411,0)
BTN(LEFT,UP,)
//日付を入れて保存するにはどうすればいいの？

360:名無しさん＠お腹いっぱい。
06/12/05 03:17:03 4dBMWCwl0
お前等2chにアクセスすんのにいちいちIE使うなボケ。

361:名無しさん＠お腹いっぱい。
06/12/05 03:34:03 lDz8eYVx0
基本は wget と curl だよな。
寂しくなったりしたときは telnet で喋るのもいいが。

362:名無しさん＠お腹いっぱい。
06/12/05 10:31:03 PMUEJKEi0
まだ難しいよな、数学で言えば、掛け算の九九をすっとばして、高等数学やるような気持ち

363:名無しさん＠お腹いっぱい。
06/12/05 15:04:59 UmSZpxfc0
でも「UWSCは難しい、もっと簡単にせよ」というのはこのスレでは一人なんだよな

364:名無しさん＠お腹いっぱい。
06/12/05 16:39:26 Xx8yar820
すれ違いかもしれないけど、
特定の時刻に決まった座標位置をダブルクリックしたい場合
このソフトうまく動かないんだけど、ネットゲームで使いたいんだけど

365:名無しさん＠お腹いっぱい。
06/12/05 17:28:39 eR0sB+8F0
>>359
ie = CreateOLEObj("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("about:blank")
while ie.Busy or ie.ReadyState<>4; SLEEP(0.1); wend

ＩＥのウインドウＩＤ = GETID(" - Microsoft Internet Explorer","IEFrame")
DEF_DLL PostMessageA(HWND,Long,Long,DWORD):Bool:user32.DLL
PostMessageA(IDToHnd(ＩＥのウインドウＩＤ), $111, $102, 0)

ページの保存ダイアログＩＤ = GETID("Web ページの保存","#32770")
日付 = "現在の日時を設定"　// GETTIME(0)～
SENDSTR(ページの保存ダイアログＩＤ, 日付 , 1, True)
CLKITEM(ページの保存ダイアログＩＤ, "保存")
// 敢えて変数に全角を使った。このままで動くから…

366:名無しさん＠お腹いっぱい。
06/12/05 18:54:35 PMUEJKEi0
うーんうまくいかない。自分はタイマー自動でファイル（Ｆ）⇒名前をつけて保存
⇒ファイル名（Ｎ）でファイル名の後ろに日付をつけて保存したいんだけど、

マウスとカーソルだけでプログラム作れるようになればいいのになあ

367:名無しさん＠お腹いっぱい。
06/12/05 19:07:09 PMUEJKEi0
>>365
あーできた
ありがとうただ
ファイルの種類をアーカイブで保存したかった。

368:名無しさん＠お腹いっぱい。
06/12/05 19:17:24 PMUEJKEi0
//　文字の送信
SENDSTR( ID,　文字列,　[番号,　送信モードフラグ,　ACC指定] )
引数
　　ID：　Windowを識別するID
　　　　　（ID = 0　であればクリップボードへ）
　　文字列：　送りたい文字列
　　番号：　左上から数えたエディトコントロールの順番（１から指定）
　　　　　　　（デフォルトはフォーカスを持ったエディトコントロール）　　　　　　　
　　送信モードフラグ：　
　　　　　　　FALSE：　追加（デフォルト）
　　　　　　　TRUE：　置き換え
　　ACC指定：　
　　　　　　　FALSE：　APIによる（デフォルト）
　　　　　　　TRUE：　アクセシビリティ用インターフェースを利用
番号の部分が難しい、ウインドウみたいにソースが使えない

369:名無しさん＠お腹いっぱい。
06/12/05 19:28:22 PMUEJKEi0

なきゃないでかまわんがやはり
フリーのソフトはつかわんほうがいいのかな。
なんか怪しいソフトでも困るしなあ。いくら便利でも社長がちゃんとした人物
でないと、ウィンドウズＸＰ作ったビルゲイツはエイズの研究費出したり
して悪人でないだろうと思って使っているが、社員全部を管理できるかといえば
というきがする。

370:名無しさん＠お腹いっぱい。
06/12/05 19:43:58 TbpDXn5y0
な
フ
な
で
し
と

371:名無しさん＠お腹いっぱい。
06/12/05 20:07:59 lDz8eYVx0
とりあえず難しいから使えない=>フリーソフトは怪しいから使わない、
っていう論法にワラタ。

バカは無理して使わなくてもいいお?

372:名無しさん＠お腹いっぱい。
06/12/05 20:41:20 kin3Zm3D0
個人的には、uwscがオートメーションサーバー機能搭載してくれたら最高なんだが・・・
wshから簡単に利用できると使用者激増するだろうなー。
独自言語だと、どうしても習得に手間と時間かかるし

373:名無しさん＠お腹いっぱい。
06/12/06 02:56:21 UsSPovY80
>>366,367
id = GETID("Web ページの保存","#32770")
GETTIME(0); 日付 = "_" + G_TIME_YY2 + "-" + G_TIME_MM2 + "-" + G_TIME_DD2
SENDSTR(id , 日付 , 1, False, True)
SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, VK_W, VK_RETURN)

//CLKITEM(id, "Web アーカイブ、単一のファイル (*.mht)", CLK_LIST) //←何故か失敗する
//CLKITEM(id, "保存")

>>362,368-369　ID:PMUEJKEi0
あんたの日記帳じゃないんだから、余計なレス＆コピペは不要！

374:名無しさん＠お腹いっぱい。
06/12/06 03:01:40 +7fqDNkb0
あっそ

375:名無しさん＠お腹いっぱい。
06/12/06 03:41:13 FAzu1gps0
>>372
要らん事言うな。
やり兼ねないだろ。VBS有るのに。
俺はもっと退化してほしい。

376:名無しさん＠お腹いっぱい。
06/12/06 05:31:27 yhihj9By0
>>372
いきなりではとっつき難いけど、WSHが書けるんなら楽勝だと思うよ。
ｵﾚはVBS,JSから入ったんで目から鱗状態だった。
WSHで出来ることはWSHでやればいいし。
UWSCからWSH等を利用するのは割と簡単なんだけどなぁ…

>>373
id = GETID("Web ページの保存","#32770")
tt = COPY(GETSTR(id, 1), 1, 8)　// ページタイトルの先頭から８文字をコピー
GETTIME(0); 日付 = "_" + G_TIME_YY2 + "-" + G_TIME_MM2 + "-" + G_TIME_DD2
SENDSTR(id, tt + 日付, 1, True)
SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, W, VK_RETURN)　// *.mht で保存

377:名無しさん＠お腹いっぱい。
06/12/06 13:43:20 BvKVwaQG0
エッフェル塔のライブカメラの画像を日付つけて保存、（スケジューラーで1時間ごとにするときれい）
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(www.paris-live.com))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
ACW(GETID("PARIS-LIVE.COM - PARIS WEBCAM - EIFFEL TOWER - MICROSOFT INTERNET EXPLORER","IEFrame"),68,54,870,658,0)
BTN(LEFT,DOWN,800,67,140)
ACW(GETID("PARIS-LIVE.COM - PARIS WEBCAM - EIFFEL TOWER - MICROSOFT INTERNET EXPLORER","IEFrame"),68,54,870,658,0)
BTN(LEFT,UP,800,67,91)
KBD(VK_RALT,DOWN,340)
KBD(VK_F,DOWN,441)
KBD(VK_F,UP,60)
KBD(VK_RALT,UP,80)
KBD(VK_CTRL,DOWN,40)
KBD(VK_A,DOWN,0)
ACW(GETID("WEB ページの保存","#32770"),72,77,654,411,0)

次ページ