06/10/11 19:05:44 rpieq5070
JavaスクリプトあるいはVisual BasicとUWSC両方を使用している方がいたら質問させてください
Photohop7のスクリプト機能
URLﾘﾝｸ(www.adobe.com)
のCOMコンポーネントをUWSCで動かそうとしているのですが、
マニュアルの例文(JavaとVISUAL BASIC)に、
textItemRef.Position = Array(0.75, 0.75) という具合にArrayを使用して数値を入れている箇所があるのです。
マニュアルでは、このposition というパラメータは、
position . . . . . . . . . . . Object[ Array of two Numbers(double) ])
position of origin (unit value)
UWSCではこのような場合、どうやってこの数値を入れたらいいのかご存知の方、知恵を貸して下さい
書いているスクリプトはこんな感じです（文字の位置を指定する以外の動作は確認）
ps= CreateOLEObj("photoshop.Application")
ps.Documents.Add(480, 590) //480*590の新規画像作成
ps.ActiveDocument.ArtLayers.Add //新規レイヤ
ps.ActiveDocument.ActiveLayer.Kind=2 // text //新規レイヤをテキストレイヤに
ps.ActiveDocument.ActiveLayer.TextItem.Contents = "wahaha"
// ps.ActiveDocument.ActiveLayer.TextItem.position=array(100,100) ＜－ここの書き方が分からない
ps.ActiveDocument.ActiveLayer.TextItem.Font = "Georgia"
ps.ActiveDocument.ActiveLayer.TextItem.size = 36
117:名無しさん＠お腹いっぱい。
06/10/11 19:06:41 3rPslZqQ0
While 1
user= geti(お前）
SendStr(id,"少しは働けタコ")
Wend
//自動スクリプト生成 (realworldsurf.uws)
118:117
06/10/11 19:08:19 3rPslZqQ0
まだユーザに真意が伝わらない。
バグがあるようだ。
(自動書込み realworldsurf.uws)
119:名無しさん＠お腹いっぱい。
06/10/11 19:17:04 1UcTqtwR0
>>1
>Windowsを自動化させるツールUWSC。
URLﾘﾝｸ(www.h7.dion.ne.jp)
uwsc使いよ 己のスクリプトを晒すのだ。
前スレ
自動化ツールuwsc使いよ集まれ
すれ違いばかりだ
120:名無しさん＠お腹いっぱい。
06/10/11 20:09:35 G7qiWYFp0
俺の良く使うスクリプト
--
acw(getid(PARAM_STR[0]),0,0)
--
BlueWindからつかう(アプリ登録は基本的にGetIdで引っかかる名前で入れてある)
皆様のよくつかう一行UWSCを教えてください
121:名無しさん＠お腹いっぱい。
06/10/11 20:16:43 3rPslZqQ0
オンラインゲームと
デイトレードと
競馬予測
こんなすくりぷとで一杯になりそうだな。
ウェブ検索するとそんなんばっか。
UWSCは人を幸せにしているね。
122:名無しさん＠お腹いっぱい。
06/10/11 21:15:48 9isb2QYR0
そうだね、プロテインだね
123:名無しさん＠お腹いっぱい。
06/10/12 07:49:23 XysNT8v10
Ｊａｖａより簡単だが、まだ難しいだよな
124:名無しさん＠お腹いっぱい。
06/10/12 09:23:54 rDlBU4fJ0
URLﾘﾝｸ(park14.wakwak.com)
125:116
06/10/14 00:01:02 tiD3tTjH0
自己解決
KAJIKAS TOWNにようこそ「UWSC/VBScriptの関数を使う」に答えがありました
ps= CreateOLEObj("photoshop.Application")
SC = CreateOleObj("ScriptControl")
SC.Language = "VBScript"
ps.Documents.Add(480, 590) //480*590の新規画像作成
ps.ActiveDocument.ArtLayers.Add //新規レイヤ
ps.ActiveDocument.ActiveLayer.Kind=2 // text //新規レイヤをテキストレイヤに
ps.ActiveDocument.ActiveLayer.TextItem.Contents = "wahaha"
ps.ActiveDocument.ActiveLayer.TextItem.position= SC.Eval("Array(100,100)") // "Array(100,100)"をScriptControlに送り、返り値を使用
ps.ActiveDocument.ActiveLayer.TextItem.Font = "Georgia"
ps.ActiveDocument.ActiveLayer.TextItem.size = 36
126:名無しさん＠お腹いっぱい。
06/10/14 08:02:02 tIzDCsWZ0
難しい、中学生でもわかる程度のプログラムにならないと、広まらない
127:名無しさん＠お腹いっぱい。
06/10/14 08:43:42 GMc6GASu0
すみません。
別のユーザーとして
アプリを実行したいのですが
できますでしょうか？
windowsのコマンドだとrunasに相当するものです。
今のユーザで起動するにはEXECでできたのですが・・・
128:名無しさん＠お腹いっぱい。
06/10/14 12:00:18 FMuMUYs00
>>1
129:名無しさん＠お腹いっぱい。
06/10/14 14:03:25 s1Q3HVfk0
すれ違いでしたね
ほか逝きます
130:名無しさん＠お腹いっぱい。
06/10/14 14:56:56 NOh62Hbu0
>>126
分かり易いかどうかは何を扱うかによるんよ。
ユーザに一番近いのはシェルとアプリだろうから
その範囲で使っていれば問題ないし本来そういうもの。
Win32APIとかOLEとか妙に凝ったヤツを無理して勉強する必要はない。
まずやりたい事があればそれができるアプリ(フリーソフトなど)を
捜してからその操作を自動的にやるように勤めた方がいい。
特にUWSCにはインターネット関連を直接扱う関数がないので
IEを使ったスクリプトを使う事が多いが、残念ながら普段自分がIEを
使っているようにスクリプトを作る事は難しい。
だったら無理してそれを使う事はないと思う。まずウェブページを
取得したりHTTPを扱える簡単なツールをさがして使いなれたら
それを使えば良いと俺は思う。
誰かが作った便利なライブラリを使うのもひとつの手。だが、ライブラリは
アプリと違ってそれ単体で使い慣れる事が出来ないから面倒だよね。
誰もが欲しがるカッコイイプログラムなんてまず出来ないんだし
出来る範囲で使ってやればいいと思うよ。
131:名無しさん＠お腹いっぱい。
06/10/14 14:57:53 NOh62Hbu0
>>127
UWSCへのショートカットのプロパティを参照
132:名無しさん＠お腹いっぱい。
06/10/14 17:13:25 Me109xHi0
>127
DOSCMDでrunas
133:名無しさん＠お腹いっぱい。
06/10/16 09:02:26 HYgbnD2O0
// WindowsXP/Windows2000 のデフラグの実行＆シャットダウン
dim disk[5] = "(C:)", "(D:)", "STOP_DFRG" // 調べるディスク名定義
exec(GET_SYS_DIR+"\mmc.exe dfrg.msc") // デフラグ起動
id = getid("ディスク デフラグ")
dcnt = 0
While ClkItem(id, disk[dcnt], CLK_SHORT)
ClkItem(id, "分析")
ifb KINDOFOS() >= 13 // Windows XP
Repeat; sleep(1); Until id<>getid("ディスク デフラグ ツール")
bnsekiid = getid("ディスク デフラグ ツール")
wks = GetStr(bnsekiid, 1)
sai_msg = "最適化してください"
else
bnsekiid = GetID("分析が完了しました", , -1) // Windows2000
wks = GetStr(bnsekiid, 1, STR_STATIC)
sai_msg = "最適化することを推奨"
endif
134:続き
06/10/16 09:02:56 HYgbnD2O0
ifb Pos(sai_msg, wks) > 0 // では最適化
ClkItem(bnsekiid, "最適化")
While True
Sleep(2)
ifb KINDOFOS() >= 13 // Windows XP
wks = GetStr(getid("ディスク デフラグ ツール"), 1)
ifb Pos("最適化が完了しました", wks) > 0
ClkItem(getid("ディスク デフラグ ツール"), "閉じる")
Break
endif
else
wks = GetStr(id, 1, STR_STATIC)
if Pos("一時停止", wks) > 0 then ClkItem(GetID("デフラグ ツール"), "はい")
ifb Pos("最適化済", wks) > 0
ClkItem(GetID("最適化が完了"), "閉じる")
Break
endif
endif
Wend
else
ClkItem(bnsekiid, "閉じる") // 最適化必要なし
endif
dcnt = dcnt + 1 // 次のディスクへ
Wend
POFF(P_POWEROFF or P_FORCE) // 電源断
135:名無しさん＠お腹いっぱい。
06/10/16 09:03:58 HYgbnD2O0
// マウスカーソル下のウィンドウのタイトルとクラス名を表示
While True
id = GETID(GET_FROMPOINT_WIN) // マウスカーソル下のウィンドウ
moji = STATUS(id, ST_TITLE) + " , " + STATUS(id, ST_CLASS)
Fukidasi(moji, G_MOUSE_X+8, G_MOUSE_Y, 3)
Sleep(0.2)
Wend
136:むっずかしい
06/10/16 11:29:51 jK9okWJi0
も少し簡単なプログラム製作ソフトないかな。
137:名無しさん＠お腹いっぱい。
06/10/16 15:25:04 H0BBNBLi0
開いているｓべてのウィンドウを
閉じるスクリプトを
どなたが組んでましたら
くださいませ～
138:訂正
06/10/16 15:25:35 H0BBNBLi0
開いているすべてのウィンドウを
閉じるスクリプトを
どなたが組んでましたら
くださいませ～
139:名無しさん＠お腹いっぱい。
06/10/16 18:36:45 jCNlzY+H0
POFF(P_SHUTDOWN)
140:むっずかしい
06/10/16 21:04:20 9pakctTK0
Windowsロゴキー＋ｄ
ショートカットキー 基本操作 一覧表（Windows初心者部屋）でプログラム
作るとよさそう、
URLﾘﾝｸ(www.geocities.jp)
しかしもう少し簡単でないと普及しない。
141:名無しさん＠お腹いっぱい。
06/10/16 21:52:15 xRwh19CP0
winKazu=GETALLWIN( )
for i=0 to winKazu-1
d=ALL_WIN_ID[i]
CTRLWIN( id, CLOSE )
next
142:むっずかしい
06/10/16 21:55:12 9pakctTK0
定義されていません、変数何たらのエラーばかりでる。
うーんどこがいかんのか
143:途中で投稿しちまったので修正
06/10/16 21:56:53 xRwh19CP0
>>137
winKazu=GETALLWIN( )
for i=0 to winKazu-1
id=ALL_WIN_ID[i]
CTRLWIN( id, CLOSE )
next
144:名無しさん＠お腹いっぱい。
06/10/16 22:21:35 Cp7ED5W+0
uwscの多重起動の方法を教えて下さい
145:名無しさん＠お腹いっぱい。
06/10/17 03:47:07 hsEE0z/U0
uwsc.exe baka.uws
uwsc.exe aho.uws
146:名無しさん＠お腹いっぱい。
06/10/17 08:07:01 05dtnnnT0
もっと日本語でプログラムをつくれんかな、
147:名無しさん＠お腹いっぱい。
06/10/17 08:29:17 13XjZlnd0
>>143
ありがとうございます。
sleepを挟んで使いたいと思います。
148:名無しさん＠お腹いっぱい。
06/10/18 20:10:56 7dQyfXGj0
>>135
これってさぁ～、もっといいツールがあるようなきがするのよね。。。
autoit の附属ツールとか、
halbow さんの windowtree とか、spy++ とか、自作してもいいしね...
でも、UWSC にもそういうツールほしいね orz
149:名無しさん＠お腹いっぱい。
06/10/18 21:44:36 ckDcH2dv0
もっと簡単にならないかな。日本語で命令するとそのとうりにパソコンが動くようにするとか、
せっかくここまで簡単にしたのだし。
150:名無しさん＠お腹いっぱい。
06/10/18 21:46:31 NosvHDYX0
>>149
5W1H をきちんと入れた命令をしないと予期せぬ動作をするツールとかでそうだな。
151:名無しさん＠お腹いっぱい。
06/10/18 21:52:19 7dQyfXGj0
GCC Frontend for Shakespeare Programming Language
とかみたいなものをいってたりする？
英語ならともかく、日本語ってここらへんむづかしいよね...
152:名無しさん＠お腹いっぱい。
06/10/18 21:55:39 7dQyfXGj0
予想、Basic みたいな構文になったのって、周知だとおもうけれど、
ScriptIt からきてるからだと考えてるんですけど。
Basic がきらいというのならともかく、日本語みたいのって
ロケットマウスとか？
153:名無しさん＠お腹いっぱい。
06/10/19 18:49:42 hUw7V4At0
とりあえずなでしこから始めてみればいいのか
154:名無しさん＠お腹いっぱい。
06/10/19 19:07:15 bOXSlL7v0
AutoHotkeyのとっつきにくい文法に較べれば実に分かりやすいよ
155:名無しさん＠お腹いっぱい。
06/10/19 23:53:10 j0mhiheX0
両方使ってますけど、常用してるのはUWSCで、フロントエンドっぽいのはAutoHotkeyでやってますね。
ウィンドウを作るようなGUI関数と、実行ファイル化がAutoHotkeyの長所かも。
いちいち変数を作らないといけないのと、配列が面倒なのが短所だと感じました。
156:名無しさん＠お腹いっぱい。
06/10/20 14:43:40 nOjFv8sg0
KBD(キーボード）Mmv(マウス）の動きの命令だというのはわりと
わかりやすいけど、
エラー表示がでても、じゃあどうすればいいのかが出てこないので素人にはまだ
むずかしい、
変数、やら定義されていませんとか意味がわからん
157:名無しさん＠お腹いっぱい。
06/10/20 14:47:45 nOjFv8sg0
自分がしたいのは、たとえば時間が来たらこのページをデスクトップに
ファイル名に時刻をつけて保存
して一定の時間が来たら、
決まった文をその掲示板に書き込むというのだけど
キーボードで作ろうとするとうまくいかない。
158:名無しさん＠お腹いっぱい。
06/10/20 15:36:16 UQidP5A50
>>156
> 変数、やら定義されていませんとか意味がわからん
とりあえずこれだけ調べればあとは簡単に使えるようになるよ。
159:名無しさん＠お腹いっぱい。
06/10/21 13:39:44 Jj0NU6bz0
getを変数として定義したと仮定
get = GETID(GET_ACTIVE_WIN)
CtrlWin(get, CLOSE2)
と設定して、アクティブウィンドウを閉じようとしてたんですが、
なぜか電卓やエクスプローラやメモ帳は閉じれるのに
インターネットエクスプローラ（ＩＥ）を閉じる事ができません。
どなたか解決する事ができるお方いらっしゃいますでしょうか？
160:名無しさん＠お腹いっぱい。
06/10/22 01:09:07 GGzo9HXt0
windowsマクロの本を買って読んでみたのだけど、いきなり中級
レベルに飛んでる感じでわかりにくい。
もっと日本語に近い文法でプログラム組める方法ないかな
161:名無しさん＠お腹いっぱい。
06/10/22 01:17:50 mY+cf5dT0
なぜ日本語に拘るのか不明。
識別番号にウィﾝドウ名が××でクラス名が□△のウィンドウ識別番号を取得して代入。
こんな感じだと判り易いわけ?
自分が理解できないとこが何なのかそこんとこよく考えてみよう。
162:名無しさん＠お腹いっぱい。
06/10/22 14:29:11 w4CyMUl70
>>161
触ってやるな
アルファベットアレルギーのジジイなんだろう
素直にひまわりに移行すればよい物をな
163:名無しさん＠お腹いっぱい。
06/10/22 18:42:14 mY+cf5dT0
そゆこととぜんぜんちがうだろ。
普通じじぃのほうがプログラム中の日本語に違和感を持つ。
164:名無しさん＠お腹いっぱい。
06/10/22 19:47:55 IRWE6rK+0
ぴゅう太でも引っ張り出してくればいいのか
BASICがこれほどまでに懐かしいものになるとは
165:名無しさん＠お腹いっぱい。
06/10/22 20:59:24 rkBVqnFx0
たとえば
命令、開始
スタートを左クリック。
インターネットを左クリック
表示されたらアドレスにｽﾚﾘﾝｸ(software板:101-200番)
を挿入。
書き込む欄に文、テスト、を挿入
書き込む、をクリック
命令、終わり
というプログラムにできれば初心者でもプログラム作ることが簡単
166:名無しさん＠お腹いっぱい。
06/10/22 21:10:31 bHP4QF9y0
確かに簡単だけど
日本語の分からない人に電話で操作を指示したのと変わらないぐらい
とんでもない動作をしそう。
167:名無しさん＠お腹いっぱい。
06/10/22 21:25:21 eZuX5i+y0
中学も卒業してないおれには無理だ
168:名無しさん＠お腹いっぱい。
06/10/22 21:35:45 nDElvutY0
日本語なんざ補完もろくにできないんだから
169:名無しさん＠お腹いっぱい。
06/10/22 21:38:24 rkBVqnFx0
日本語を英語や中国語に変換するプログラムがあるんだからできそうだがなあ
170:名無しさん＠お腹いっぱい。
06/10/23 00:10:17 L4idhItD0
>>169
>日本語を英語や中国語に変換するプログラム
未だまともな（ｒｙ
171:名無しさん＠お腹いっぱい。
06/10/23 00:49:47 NuMJr92f0
どうせ日本語が使えても
"C:Program Files\hogehoge\hogera.exe" をきどう
ほげらのはんどる に まどをさがせ "hogeraform" ""(ry
...うんざりだとおもうんだ
多少ましにするとしても
変数である"ほげらのはんどる" に "ウィンサンニーアプリケーションインターフェース"の
"ファインドウィンドウ"関数を第一引数に"hogeraform" また 第二引数に""
を渡した結果を代入せよ
はっきり言ってスパゲティ・ソースなんかではなくカオス・ソースができると思うんだ
こんなのより今の方がよっぽど中学生に優しいと思うのは私だけかな？
そもそも、日本語入力という最大の欠点を抱えているよ
漢字を対応させるべきか？ワイドスペースは空白類と見なすべきか？
そもそも、クラス名とかはアルファベットしかあり得ないから 日本語入力/直接入力/日本(ry
日本語でプログラムなんて英語を習っていない小学生のため"だけ"にあると思うんだ
172:名無しさん＠お腹いっぱい。
06/10/23 01:10:50 W3hSMU3B0
>>165
それを実行したら
「入力誤り」
と出たらどうするんだ?
173:名無しさん＠お腹いっぱい。
06/10/23 16:24:30 grMbzbux0
URLﾘﾝｸ(www3.bigcosmic.com)
２ちゃんでさえｕｗｓｃのスレがひとつしかないと思ったら専用のスレがあるんだな。
しかし日本語化はまだでてないようだ、
うーん一から覚えるのでは初心者には、めんどくさい。
覚えた用語で書いてもｓｙｎｔａｘエラーとか定義されていませんとか、
わかりにくいな、
例を挙げてこうすればわかるとエラーメッセージ出せればいいと思う
174:名無しさん＠お腹いっぱい。
06/10/23 16:32:40 grMbzbux0
人間に命令する場合は、簡単でいいのはわからないところ
人間が質問しかえしてくれるからだ。
ご飯作れ→何つくればいい？
玉子焼き→甘いのがいいか辛いのがいいか？
甘いのがいい→ＯＫ
このソフトの欠点はパソコンがエラーだけだして俺
わからんで終わり。
175:名無しさん＠お腹いっぱい。
06/10/23 16:37:30 grMbzbux0
ちょっと文字打ち間違えてもエラーと出るからめんどくさい、
ｇｏｏｇｌｅの検索なら、もしかして機能があって、近
い言葉を表示してくれる
176:名無しさん＠お腹いっぱい。
06/10/23 17:34:25 4/+/Xx960
>>174
パソコンがってｗ
万人向けのソフトではないのだから、しょうがないじゃん。
177:名無しさん＠お腹いっぱい。
06/10/23 22:10:03 f6X2ciKQ0
技術的には優れているとは思うが、日本人が難しい使えないといったらそれまで
WindowsXｐだって日本語キーボードが無ければこれほど広まらない。
一から言語憶えるんでは、んなひまねえよ、でおわり、
178:名無しさん＠お腹いっぱい。
06/10/24 00:34:54 ewQPZEFt0
日本語になった途端使いやすくなると甘い夢抱いてるんだろうな。
179:名無しさん＠お腹いっぱい。
06/10/24 01:10:16 f/S+mxkS0
>>177
一から覚えたほうが早いくらいの膨大な処理が必要な人が使うものなんでしょうね。
そりゃ、もっと簡単なほうがいいけど、他にないのだからしょうがない。
まさにないものねだりだね。
180:名無しさん＠お腹いっぱい。
06/10/24 04:18:00 BfgIMEMv0
盛り上がってるところ悪いけど日本語うんぬんじゃなくて、
なんかやりたい場合はそれに関するしくみを知らなきゃ駄目って事に気付け。
あとUWSCで何ができるかとか。これは人が誰かに何かを仕事を頼む場合も一緒。
相手が出来る事と自分がやりたい事の対象の仕組みを知らないと人にも伝わらん。
まずは自分が知っている事とUWSCに出来る事をちょっとずつ知っていって
その範囲でやればいいじゃないか。
人がPCを操作する事は画面表示や音を認識して判断してキーやマウスで
操作するだろ。これは結構高度な技だ。自分がいつもやっている事を曖昧さ
抜きの日本語の文章にしろといわれればそれを厳密に書くのはかなり難しい。
おっちゃんが書いた日本語じゃ正直誰にも判らんよ。しかもOfficeとかIEとかは
UWSCの基本機能じゃ使えんのよ。COMっていう借り物機能を使わなきゃならん。
まずはIEとかOfficeとか面倒なソフトは使わん事を考える。
どうしても使いたい場合は画面の位置を常に固定して邪魔が入らないように
ROCKHARD(邪魔禁止)して特定の位置をマウスクリックするだよ。
その場合は画面の判定とかは当面無しな。
判らん事があればここのにぃちゃん達が詳しく教えてくれるから
文句言う前に素直に質問することだべ。
じゃ、おっさん頑張れよ。
181:名無しさん＠お腹いっぱい。
06/10/24 16:26:36 mtncgBZ/0
これダメだとMSOffice付属のVBAもダメな奴だろうな
182:名無しさん＠お腹いっぱい。
06/10/25 00:57:12 PYju1L+70
VBAなどわからんのが普通。
それでも使えるヤツが多いのは給料もらうのに必死だから。
毎朝社屋の前の駐車場で長い社訓を大声で叫んでいるのも
給料もらうのに必死だからだろ。
しかも可愛そうに死ぬまで忘れられない。
183:名無しさん＠お腹いっぱい。
06/10/25 01:03:11 W4Wu7lr50
>>182
本来業務そっちのけで VBA やって遊んでる俺は？
184:名無しさん＠お腹いっぱい。
06/10/25 01:06:09 CQ3XmHN10
>>183
VBAを知ってから仕事が遅くなった俺も。
仕事にかかる前にVBAの教科書を2時間読んで実験しまくる。
この時間が楽しくって、本来の目的を忘れそうです。
185:名無しさん＠お腹いっぱい。
06/10/25 01:20:11 PYju1L+70
それで給料もらえるんだから皆必死必死
UWSCも競馬やらクリックビジネスで必死必死
186:名無しさん＠お腹いっぱい。
06/10/25 15:27:39 JKxRg+pa0
すまん今日から始めた超初心者で
練習代わりに「新着レスの表示」の所を三秒毎にクリックし続けるマクロ組んでるんだがどうにもうまくいかない。
新着レス～の部分だけ切り取って2ch.bmpで保存してある。
GETID(" ■2ch BBS .. - Microsoft Internet Explorer","IEFrame")
CHKIMG("2ch.bmp",0)//画像
BTN
(LEFT,CLICK,G_IMG_X+10,G_IMG_Y+10)//カーソル調整+10,+10
Sleep(3.0)//三秒停止
どこが悪いのか教えてくれい
187:名無しさん＠お腹いっぱい。
06/10/25 17:30:02 PamjFPFo0
画像を使う必要があるのか?
OPTION EXPLICIT
DIM url, ieobj
url = "ｽﾚﾘﾝｸ(software板)"
ieobj = CREATEOLEOBJ("InternetExplorer.Application")
ieobj.Visible = True
ieobj.Navigate(url)
wait(ieobj)
WHILE 1
DIM i
FOR i=0 TO ieobj.document.links.length-1
IFB ieobj.document.links[i].innerText = "新着レスの表示" THEN
ieobj.document.location = ieobj.document.links[i].href
ENDIF
NEXT
SLEEP(3)
wait(ieobj)
WEND
PROCEDURE wait(obj)
REPEAT
SLEEP(0.1)
UNTIL !(obj.busy) AND (obj.readyState = 4)
FEND
188:名無しさん＠お腹いっぱい。
06/10/25 19:02:49 PYju1L+70
俺は>>186の方法の方が自然だと思う。
ただ俺はCHKIMGは一度も浸かった事が無いし
実際やるなら>>187のような方法を使うだろうが…。
>>186で気になるのはCHKIMGの戻り値を判断している部分が見当たらない事。
↓こんな感じでデバッグして結果を報告せよ。
While(GetkeyKeyState(VK_ESC)=FALSE
id= GetId(" ■2ch BBS .. - Microsoft Internet Explorer","IEFrame")
x1= Status(id,ST_X)
y1= Status(id,ST_Y)
x2= x1+Status(ST_WIDTH)-1
y2= x1+Status(ST_HEIGHT)-1
IfB ChkImg("新着レスの表示.bmp",0,x1,y1,x2,y2)＝TRUE Then
Fukidasi("ここか? X=" + G_IMG_X + "Y=" + G_IMG_Y)
MMｖ(G_IMG_X, G_IMG_Y)
EndIf
WEend
189:名無しさん＠お腹いっぱい。
06/10/25 19:05:30 PYju1L+70
> x2= x1+Status(id, ST_WIDTH)-1
> y2= x1+Status(id, ST_HEIGHT)-1
> WEnd
190:名無しさん＠お腹いっぱい。
06/10/25 21:02:17 Mxv0KDZa0
ファイル名に日付つけるのわからん
191:名無しさん＠お腹いっぱい。
06/10/26 05:05:30 juUqixTa0
>>190
GETTIME(0)
fname = G_TIME_YY + "-" + G_TIME_MM + "-" + G_TIME_DD + ".txt"
// 例）
fid = FOPEN(fname, F_READ or F_WRITE)
FPUT(fid, "ファイル名に今日の日付をつけますた。", 0)
FCLOSE(fid)
// ヘルプを好く呼んで下さい。
192:名無しさん＠お腹いっぱい。
06/10/27 07:23:34 T3NlX0kS0
ウインドウやダイアログから、タイトルとクラス、CLKITEMで操作可能なオブジェクトの情報を取得する
URLﾘﾝｸ(blogs.yahoo.co.jp)
193:名無しさん＠お腹いっぱい。
06/10/27 13:38:46 lzM8EBWY0
静止画でないものを認識したいのですが、
動画判定のような事は可能なのでしょうか。
194:名無しさん＠お腹いっぱい。
06/10/27 18:28:03 fHSbTSOb0
防犯用の見張り番ソフトを使え。
195:名無しさん＠お腹いっぱい。
06/10/27 23:34:59 QfuoOcqJ0
//windowpicker.uws
//スクリプトここから
while 1
fukidasi("Alt+Clickでウインドウの情報を取得します")
ifb GETKEYSTATE(VK_ALT) and GETKEYSTATE(VK_LBUTTON) then
fukidasi("情報を取得しています")
id=GETID(GET_FROMPOINT_WIN)
fname = GET_CUR_DIR+"\windowPicker-"+STATUS(id,ST_CLASS)+".txt"
ifb STATUS(id,ST_CLASS)="#32770"
fname = GET_CUR_DIR+"\windowPicker-"+STATUS(id,ST_TITLE)+".txt"
endif
fid = FOPEN(fname,F_WRITE)
fput(fid, "st_title=" +STATUS(id,ST_TITLE))
fput(fid, "st_class=" +STATUS(id,ST_CLASS))
fput(fid, "st_parent=" +STATUS(id,ST_PARENT))
fput(fid, "st_path=" +STATUS(id,ST_PATH))
fput(fid,"")
196:名無しさん＠お腹いっぱい。
06/10/27 23:38:42 OgJ80jiw0
貼り付けようとしたら＞＞が多すぎますが出て書き込めなかった。
確実にいえるのはこのソフト難しくて広まらないな。
道理で寂れるわけだ。
197:名無しさん＠お腹いっぱい。
06/10/28 00:38:09 9/gP/OJb0
楽して金儲けする妄想にとりつかれているヤツがいる限り寂れない。
198:名無しさん＠お腹いっぱい。
06/10/29 06:44:07 4hkXHmjc0
ウインドウのタイトル取るときは簡単で右クリックプロパティでわかる、
しかしクリックするボタンを知ろうと表示（Ｖ）ソースでクリックしても
ごちゃごちゃ小難しい文字が並んでわからん
199:名無しさん＠お腹いっぱい。
06/10/30 06:51:33 oaQXzuQx0
おっちゃんさぁ、ウィンドウズのウィンドウとIEのウィンドウがごっちゃになってるよ。
IEの中身は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)
378:続き
06/12/06 13:43:49 BvKVwaQG0
KBD(VK_A,UP,0)
KBD(VK_CTRL,UP,0)
KBD(VK_RALT,DOWN,3465)
KBD(VK_I,CLICK,311)
KBD(VK_RALT,UP,170)
KBD(VK_RALT,DOWN,40)
KBD(VK_N,CLICK,40)
KBD(VK_SPACE,CLICK,40)
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"
SENDSTR(GETID("WEB ページの保存"),timeｂ+"EIFFEL TOWER")
KBD(VK_RALT,UP,340)
KBD(VK_RALT,DOWN,481)
KBD(VK_T,CLICK,30)
KBD(VK_RALT,UP,221)
KBD(VK_DOWN,DOWN,10)
KBD(VK_DOWN,UP,20)
KBD(VK_DOWN,DOWN,641)
KBD(VK_DOWN,UP,0)
KBD(VK_RETURN,DOWN,321)
KBD(VK_RETURN,UP,0)
KBD(VK_RETURN,DOWN,145)
ACW(GETID("WEB ページの保存","#32770"),322,283,379,168,0)
KBD(VK_RETURN,UP,0)
379:名無しさん＠お腹いっぱい。
06/12/06 15:11:21 adcM/QV70
NGWordに追加 KBD
380:名無しさん＠お腹いっぱい。
06/12/06 15:46:24 KUjaXZFz0
SCKEYっていうとっても便利な命令があるんだけどなーwww
381:名無しさん＠お腹いっぱい。
06/12/06 17:45:57 GLEwdEWu0
>>378
いいですね！
レスをまとめて参考にしたいのでコテにしてくれませんか
382:名無しさん＠お腹いっぱい。
06/12/06 19:44:23 FU5gZqhb0
何この日記帳
383:名無しさん＠お腹いっぱい。
06/12/06 21:10:02 quIrFEQz0
>>377
わざわざIE起動せんでも、直接DLしたほうがいいんでないかい。
url = "URLﾘﾝｸ(www.images2-abcparislive.com)
http = CreateOLEObj("MSXML2.XMLHTTP");
http.open("GET", url, false);
http.SetRequestHeader("If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT")
http.SetRequestHeader("Pragma", "no-cache");
http.SetRequestHeader("Cache-Control", "no-cache");
http.send("");
ifb http.status = 200 then
gettime()
s_time = g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"
ados = CreateOLEObj("ADODB.Stream");
ados.Open();
ados.Type = 1;
ados.Write(http.responseBody);
ados.SaveToFile(s_time+" EIFFEL TOWER"+".jpg", 2);
ados.Close();
ados = NULL
endif
http = NULL
384:名無しさん＠お腹いっぱい。
06/12/06 22:55:14 JB2DjNOW0
近頃異様にﾚｽ伸びてんなあ。
どこかで紹介されたか？
そういや、これでLotusNotesって操作出来るんかな？
385:名無しさん＠お腹いっぱい。
06/12/07 01:59:16 VyEoqVxS0
できないものはない
あえて言うとすればUWSCそれ自身
386:名無しさん＠お腹いっぱい。
06/12/07 02:02:14 PZ8cfJA90
DirectInput にイベント放り込んだりできないじゃない。
DLL 呼び出せばできるが。
387:名無しさん＠お腹いっぱい。
06/12/07 14:44:40 FRC6maaU0
キーボード操作で
KBD(VK_RALT,UP,100)
KBD(VK_D,DOWN,100)
とあるのですがUPとDOWNの違いは何なんでしょうか？
普通のクリックしかしていないつもりなんですが表記が違ってて…
388:名無しさん＠お腹いっぱい。
06/12/07 16:21:19 7TNBYEsO0
DOWNがキー押下げ
UPが押していたキーを離す
389:名無しさん＠お腹いっぱい。
06/12/07 16:32:10 FRC6maaU0
>>388
有難う御座います。
390:名無しさん＠お腹いっぱい。
06/12/07 16:50:46 3GkzlLog0
どういたしまして
391:名無しさん＠お腹いっぱい。
06/12/07 18:33:21 hs1oaTsD0
KBDとMMV以外は廃止したほうがいい。
392:名無しさん＠お腹いっぱい。
06/12/07 18:43:49 7lLokSkD0
むしろKBDとMMVを廃止したほうがいい。
393:名無しさん＠お腹いっぱい。
06/12/07 19:33:07 hs1oaTsD0
>>392
mmvとkbdだけなら他のOSでも動く。
mmvとkbdだけにしてそれを拡張したほうがいい。
394:名無しさん＠お腹いっぱい。
06/12/07 20:04:35 ICY6rlFi0
>>369 >>378
かの有名な社長はきちんと偽善事業していますが
名前からして怪しい！そう思いませんか？
怪しいフリーソフトは使わない方が良いと思います。
KBDは便利ですが…手遅れになる前に…
あなたに感謝してます。
貴重な情報ありがとう。
395:名無しさん＠お腹いっぱい。
06/12/07 22:14:57 7ZOeS0w50
>>394
桜田門の人？
個人情報取るときは、本人に教えてほしい、共和党が選挙で破れたのは
国民の盗聴しすぎたからでないのかな、
民主党になれば権力のトップが替わるので不正が発見しやすい。
396:名無しさん＠お腹いっぱい。
06/12/07 23:37:18 2dPIF4520
Excelからマクロでスクリプトを出力してUWSCを起動させてる馬鹿は、俺以外にいるか？
397:名無しさん＠お腹いっぱい。
06/12/08 00:03:09 chHOovwv0
漢だな
使ってるCADでショートカット割り振れないアイコン、しかも右下の辺鄙なとこにあるやつね、
そいつをクリックするのがめんどいんでロジの８つボタンマウスに割り振ってる、俺は。
398:名無しさん＠お腹いっぱい。
06/12/08 00:10:40 ec1k12CL0
連動させてファイルの圧縮も自動化させたいんだけどなにか相性いいやつある？
できればコマンドラインで操作したい
LHAはファイル名の制限きついし……
399:396
06/12/08 00:37:07 0g+qQw1G0
>>397
エンドユーザが作成したデータを元に、
コマンドプロンプトもどき（メインフレームと通信する奴）に
入力する作業を自動化したら、そうなってしまったんだよ。
ホント レガシーシステムは地獄だぜ！ フゥハハハーハァー
400:名無しさん＠お腹いっぱい。
06/12/08 14:52:07 nDsO2FL70
>>398
引数につけたファイルがアーカイブでなければ圧縮する
その際の設定は事前に設定しておく
っていうアーカイバを使えばいいんじゃないか？
401:名無しさん＠お腹いっぱい。
06/12/08 16:42:24 0zLBfT2k0
>>398
アイコンに D&D すると圧縮してくれる奴なら、
コマンドラインから渡せるんじゃないの?
と言うか別に DLL 叩けばいいんジャマイカ?
402:名無しさん＠お腹いっぱい。
06/12/08 19:32:34 9NJfuLhZ0
ずーっと前から気になってたんだけど○○叩くって何からきてんの？
DLL叩く、Winsock叩くとか日本語として変じゃない？
403:名無しさん＠お腹いっぱい。
06/12/08 20:27:49 dcPVzq7I0
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
select RANDOM(7)
case 0
moji="長すけ「ばかやろ！」"
case 1
moji="仲本「長さんのいうとうり」"
case 3
moji="加藤「すんずれいしました」"
case 4
moji="高木「ブー」"
case 5
404:続き
06/12/08 20:29:21 dcPVzq7I0
moji="荒井「なんだばかやろ」"
case 6
moji="志村「あいーん」"
case 7
moji="また来週"
selend
select RANDOM(3)
case 0
mo="志村"
case 1
mo="また来週"
case 2
mo="加藤"
selend
IE.document.all["crypt_moto"].value = moji// タイトル書込み
IE.document.all["name"].value =mo // 名前書込み
IE.document.all["body"].value =moji//テキスト書き込み
IE.document.all["sm"].click()
SLEEP(10)
ACW(GETID("THEBBS 書き込み - MICROSOFT INTERNET EXPLORER","IEFrame"),69,8,870,658,0)
IE.document.all["sm"].click()
405:名無しさん＠お腹いっぱい。
06/12/08 21:23:09 nDsO2FL70
そのURL覗いてみたら早速試されてる形跡があってﾜﾛﾀ
406:名無しさん＠お腹いっぱい。
06/12/08 21:33:55 hZKfmjKg0
ありがとう！
407:名無しさん＠お腹いっぱい。
06/12/09 03:45:45 himiiWWI0
>>403 >>404 >>406
あ！まだやってるんですか…驚きました。
賢明なあなたのことですから全て理解して戴けたと思っていたのですが…
残念です、しかし、まだ間に合います、
過去の私の書込みを思い起こしてください。
気になる情報が有った時には下記スレッドへお願いします。
24時間注目してますから。
KBDｽﾚﾘﾝｸ(operate板)
408:名無しさん＠お腹いっぱい。
06/12/09 05:20:01 J16nIrh00
>>406
無意味な文章を定期的に書き込むのは「迷惑」行為に当たるぞ。
良く考えて行動してくれ。
UWSCがとばっちりを受けて公開中止になったらどう責任取るんだ！
削除要請出しとけ！
409:名無しさん＠お腹いっぱい。
06/12/09 06:19:57 CpeVJ4Nj0
>>402
英語の kick から来てるんだからおかしくても問題無いだろ。
410:名無しさん＠お腹いっぱい。
06/12/09 06:23:07 MrCYpI9z0
どういたしまして
411:名無しさん＠お腹いっぱい。
06/12/09 17:54:50 nWYe904v0
２チャンに自動書き込みするマクロの例プリーズ
412:名無しさん＠お腹いっぱい。
06/12/09 20:52:45 8gCVgCO70
sendstr(getid（"OpenJane 【ソフトウェア】 - 自動化ツール"）,"ウルセー馬鹿")
413:名無しさん＠お腹いっぱい。
06/12/10 04:08:19 dN5jDykH0
某競馬ゲームに自己開催レースを開始する際に4数字を入力しなければならず
当然その文字はサイズ及び位置が微妙に変化しキャプチャしたファイルを用意するには
膨大な量になるのですが、、、こういった方法以外で4つの数字を判別して自動的に
入力する様なスクリプトを組むには何か方法はありますでしょうか？
414:名無しさん＠お腹いっぱい。
06/12/10 06:03:24 D/A7riMi0
０－９９９９まで順番に入力。
415:名無しさん＠お腹いっぱい。
06/12/10 06:10:07 K3uOep/x0
その4つの数字ってテキストじゃなくて画像データなの？
416:名無しさん＠お腹いっぱい。
06/12/10 06:47:30 0UNXTb3i0
最近いろんなフォームで、画像で数字を表示して「この数字を入力してください」って出るよな。
自動処理よけなんだろうな。
画像の領域さえ分かれば、それをBMPに保存して、OCRソフトに送り込んで…
スゲー面倒くさそう。
こういう不正処理の仕方ばっかり話し合って不正ユーザー御用達ソフトのイメージがついちゃうのもちょっとアレだなあ。
417:名無しさん＠お腹いっぱい。
06/12/10 13:32:45 WZj2QqSU0
既存のOCRソフトは印刷物とかのフォントが整った文字しか読めないんだよね。
結局自分でプログラム書かないと無理だった。
大学の図書館で画像認識の教科書借りてきたよ。
418:名無しさん＠お腹いっぱい。
06/12/10 18:53:40 7pZAjrPi0
>>415
テキストのような綺麗な文字を大小の組み合わせ4文字にしている画像データですね。
>>416
不正というかこういったツールが無いお陰で過疎化が進んでいて金をがめたい企業が
課金アイテムを更に高額化させて（役所考え的）悪循環を生んでいる状態で
自主開催レースを行うと微々たるアイテムですが手に入るという条件から
一つの防衛手段であり、ハッキングを促すツールではないですしGAMEデータを直接改変
するものでは無いのでユーザーの同士の為なら企業の意思に反しても咎めません特には・・ね。
OCRか・・・
419:名無しさん＠お腹いっぱい。
06/12/10 19:26:30 D/A7riMi0
ていーうかーそれくらい手入力しろよ。
420:ｷﾀ━━━━━━m9( ﾟ∀ﾟ)━━━━━━!!
06/12/10 19:50:22 kdkSxCJw0
ＵＷＳＣ 自動化ソフト
Ver 4.1c 2006/12/10版 フリーソフト
[Ver4.1c]
例外処理構文 Try-Finally, Try-Except を付けた
SENDSTR関数にてフォーカスが移動するようにした
IESETDATA関数にて input type="file" タグに文字を送れるようにした
MSGBOX, FUKIDASI, ログ等のフォントを変更可にした（INIファイルのDefaultFont）
一部のドロップダウン式のコンボボックスにて内容が変更できなかったのを修正
FGET, INPUT にて数字の時にゼロの小数点が消える、指数表記になるのを修正
RecIE ブラウザ(IE)上の操作を記録
Ver 1.0a 2006/12/10版 フリーソフト
[Ver1.0a]
IELINKにて複数行表示に対応していなかったのを修正
421:名無しさん＠お腹いっぱい。
06/12/11 17:44:49 JjGOR1vX0
str = GetPnirText()
MSGBOX(str)
function GetPnirText()
// 選択文字列を取得（UWSC 4.1c, Sleipnir 1.67 で動作確認）
Dim doc, idx, pnir
try
pnir = CreateOLEObj("Sleipnir.API")
except
MSGBOX(TRY_ERRMSG + "<#CR><#CR>" +_
"<#TAB><#TAB>Sleipnirを起動してから実行して下さい。")
Result = -1
Exit // ExitExit
endtry
idx = pnir.GetDocumentID(pnir.ActiveIndex)
doc = pnir.GetDocumentObject(idx)
try
while POS("FRAME",doc.activeElement.tagName)
//msgbox(POS("FRAME",doc.activeElement.tagName)) // デバッグ用
doc = doc.activeElement.contentWindow.document
wend
Result = doc.selection.createRange().text // 選択文字列
except
Result = ""
endtry
fend
===========================
>>376
//SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, W, VK_RETURN) // *.mht で保存
CLKITEM(id, "Web アーカイブ、単一のファイル (*.mht)", CLK_LIST) //←何故か成功する 4.1c
CLKITEM(id, "保存")
422:名無しさん＠お腹いっぱい。
06/12/12 05:19:39 xrHkevWY0
トライって何?
423:名無しさん＠お腹いっぱい。
06/12/12 07:43:07 hRXY00b50
＜＜
ありがとうございます。
424:名無しさん＠お腹いっぱい。
06/12/12 08:09:05 xAxZUHOq0
>>423
> ＜＜
?
425:名無しさん＠お腹いっぱい。
06/12/12 18:15:36 LtBtwK3a0
メモ帳が開いていれば以下の動作をする
と言う文を作る場合、式の部分はどの様に書けばいいのでしょうか
すみませんが教えてください。
426:名無しさん＠お腹いっぱい。
06/12/12 20:18:36 xrHkevWY0
while メモ帳が開いていれば()
以下の動作をする()
Wend
Function メモ帳が開いていれば()
Result= getid("メモ帳")>=0
Fend
Procedure 以下の動作をする()
:
Fend
427:名無しさん＠お腹いっぱい。
06/12/12 20:21:38 vPJ35X2l0
//ヤター、ホットキーランチャーもどき出来たよ【CTRL+L】
//ホットキーランチャーもどき.UWS
WHILE 1
SLEEP(0.02)
IFB GETKEYSTATE(VK_ESC)
MSGBOX("ホットキーランチャーもどきを終了します。")
EXIT
ENDIF
IF GETKEYSTATE(VK_CTRL) and !GETKEYSTATE(VK_ALT) and !GETKEYSTATE(VK_SHIFT) _
and GETKEYSTATE(VK_L) THEN CALL MENU
WEND
//MENU.UWS
DIM PP[]="0. メモ帳","1. 電卓","UWSC"
X=POPUPMENU(PP)
IFB X<0
EXIT
ELSEIF X=0
EXEC("NOTEPAD")
ELSEIF X=1
EXEC("CALC")
ELSEIF X=2
EXEC(GET_UWSC_DIR+"\UWSC")
ENDIF
>>425
ヘルプの例の一番あたまにあったと思います。
428:名無しさん＠お腹いっぱい。
06/12/12 20:34:05 xrHkevWY0
誰かUWSCの基本関数(バージョン1.0からあったようなヤツ)を
VBS用にしたのを公開してくれないか?
対応リストがあるとどっちのユーザにも便利だと思うんだが?
429:名無しさん＠お腹いっぱい。
06/12/12 20:43:06 FgZSUGnE0
そんな便利なものがあったらUWSC必要なくなるな。
430:名無しさん＠お腹いっぱい。
06/12/12 21:08:13 I4NEN3JE0
質問です。
FOpenで開いたファイルを別名で保存したいのですがFCloseすると上書きになってしまいます。
開いたファイル名+"処理済"として出力したいのですがこういった事は出来ないのでしょうか？
431:名無しさん＠お腹いっぱい。
06/12/12 21:09:51 xrHkevWY0
それでもやっぱりUCSWの法が便利だよ。
ただ、誰かに配る時はVBSにしておいた方が便利だから。
432:名無しさん＠お腹いっぱい。
06/12/13 00:29:48 08giVOq70
>>430
俺も知りたい。
現状doscmdで処理ファイルを別フォルダにコピーしてdoscmdでリネーム、その後処理を行っている。
この方法だとコピー＞読み込み＞処理＞書き出しになってしまう。
コピーする分時間的ロスになるので
読み込み＞処理＞書き出しで出来る方法があれば知りたい。
433:名無しさん＠お腹いっぱい。
06/12/13 00:51:10 YBAilhCV0
>>432
多分close時にﾌｧｲﾙを別名保存は無理なような気がス…
というか、ﾌｧｲﾙのOpen前に
doscmd("copy /y hoge.txt hoge,txt.bak") とかではダメなんか？
434:名無しさん＠お腹いっぱい。
06/12/13 01:52:17 Ofnypsy40
FID1 = FOPEN(ファイル名)
STR = FGET(FID1, F_ALLTEXT)
FCLOSE(FID1)
// 処理
FID2 = FOPEN(ファイル名+"処理済",F_WRITE)
FPUT(FID2,STR)
FCLOSE(FID2)
435:425
06/12/13 01:52:34 XdCi3l4y0
>>426
>>427
遅くなりましたが有難う御座います。
436:名無しさん＠お腹いっぱい。
06/12/13 03:13:53 WrpxBZ3A0
>>426 ID:xrHkevWY0
「Procedure 以下の動作をする()」 でメモ帳を閉じないと悲惨なことになるが…
ケアレスだと信じたい。
なんで while なの？
437:名無しさん＠お腹いっぱい。
06/12/13 03:19:04 FjqYCp2T0
で？
438:名無しさん＠お腹いっぱい。
06/12/13 12:03:10 e2lwdiCv0
>>433
>>434
ありがとうございます。
ファイルサイズが大きい＆多いのでコピーはしたくなかったんです。
確かに>>434のやり方ならロス無いですね。
ありがとうございました。精進します。
439:名無しさん＠お腹いっぱい。
06/12/14 10:52:57 b++jM5LY0
面白いプログラムだけどWinnyの作者が有罪判決されたしな
プログラムこれから
作りにくい、悪用したやつがわるいと思うが、作った者を悪いとした判決
440:名無しさん＠お腹いっぱい。
06/12/14 11:34:27 +YYrk/aI0
>>439
日本語でおk
あと、京都地裁は ny を作ったことが悪いとは言っていない。
判決ちゃんと読むべき。
441:名無しさん＠お腹いっぱい。
06/12/14 14:53:35 4kasxE8b0
UWSCだっていくらでも悪用できるし、たぶん作者だってそれを認識した上で公開してるでしょ？
他の様々なソフトとその作者もしかり・・・
半ケツをチラっと見たうえで、俺も439と同じように感じた。
442:名無しさん＠お腹いっぱい。
06/12/14 15:08:00 F2PcCtXj0
良くは知らないけど、
あれの場合は2chで認識してる旨の発言をしてるのが決め手なんでしょ？
少なくともそれすらないのに>>441みたいに「たぶん」なんて理由では裁けないでしょ
443:名無しさん＠お腹いっぱい。
06/12/14 23:36:46 mjghHbZ+0
使い方を紹介しまくった、某雑誌も有罪にして欲しいです
444:名無しさん＠お腹いっぱい。
06/12/14 23:56:24 3Kt7T7f60
Winnyのにたようなソフトが外国にあったと思うが、その場合どうなるんだろう．
外国人は罰せず日本人だけ罰したら日本のプログラム技術
がどんどん遅れるだろう、
445:名無しさん＠お腹いっぱい。
06/12/15 00:03:35 k+l3BTdp0
ツール自体は白って明言されてるだろ。
446:名無しさん＠お腹いっぱい。
06/12/15 08:59:40 Ez6AWitt0
ツール自体と、その開発行為が白でも、ツールが悪用されるのを認識したうえで、提供を続ければ、
幇助とみなされるってことじゃないの？判決の意味は。
色んなソフトの作者の掲示板に、
「このソフトは、悪用できる可能性がありますが、どうお考えですか？」
とか、
「このソフト悪用しようと思います」
みたいなことを書いてまわれば、次から次へと公開停止になるんじゃまいか？ｗ
447:名無しさん＠お腹いっぱい。
06/12/16 01:29:55 uS95ovKx0
>>439,444,446
「UWSCの知名度を上げたい」という趣旨は充分承知してます。
しかし、既ユーザーのスレッドに幾ら数多く書き込んだとしても
「状況は何も変わらない」と思えるのは私だけでしょうか？
むしろ現状では逆効果のような気がして成りません。
やはり、ご自分でサイトを立ち上げてUWSCの優位性を
力説された方が最も効果的ではないかと考えています。
あなたはどのように思われますか？
ついでに、余り足跡を残し過ぎない方が安全です。
448:名無しさん＠お腹いっぱい。
06/12/16 03:22:04 OQ3z3BDQ0
↑意味不明ｗ 誤爆？
449:名無しさん＠お腹いっぱい。
06/12/16 04:45:48 q5NvKemv0
あ、バカには理解できないかもしれませんね。
450:名無しさん＠お腹いっぱい。
06/12/16 08:05:00 bV4BfKKU0
>>445
> ツール自体は白って明言されてるだろ。
だったら有罪はおかしいだろ。お前もこじつけで逮捕されやがってみやがっれ
451:名無しさん＠お腹いっぱい。
06/12/16 14:01:25 3qaG3LqX0
>>447
日本語でおk
>>450
だから判決文くらい読んでレスしろと。
452:名無しさん＠お腹いっぱい。
06/12/16 17:35:17 Qs/JjjiN0
さて、自作スクリプトを晒していきますよ。最近このツールに嵌ったからな
453:名無しさん＠お腹いっぱい。
06/12/16 17:38:45 44Kiz7S30
>>452
そういう需要はないのでお引取りください。
454:名無しさん＠お腹いっぱい。
06/12/16 18:01:52 Qs/JjjiN0
あーあ萎えたわ
455:名無しさん＠お腹いっぱい。
06/12/16 19:05:47 3qaG3LqX0
>>454
これは素晴らしいスクリプトですね。
目から鱗です。
456:名無しさん＠お腹いっぱい。
06/12/17 00:25:01 2fiNqHEX0
// URLdecoder.uws
URLdecoder = "?:\?????\URLdecoder\urldecoder.exe" //■urldecoder.exe のパス
//--------------------------------------------------------------------
str = PARAM_STR[0]
select str
// case "/s"; str = GetPnirText() // Sleipnir から取得 >>421を利用
// case "/c"; // クリップボードを使う（コマンドラインが不可の場合）
// SLEEP(0.2)
// id = GETID(GET_FROMPOINT_WIN) // タイトル, クラス名 を指定した方が安定
// SCKEY(id,VK_CTRL,C); SLEEP(0.1); str = GETSTR(0)
case ""; str = GETSTR(0) // パラメータが無ければクリップボードから取得
default; str = ""
for i=0 to RESIZE(PARAM_STR)-1 // スペースで分離した文字列を結合
str = str + PARAM_STR[i]; if PARAM_STR[i+1]<>"" then str = str + " "
next
selend
ifb POS("%u",str) then // Unicodeタイプならデコードする
sc = CreateOLEObj("ScriptControl"); sc.language = "JScript"
sc.AddCode("function decodeUni(s){return unescape(s)}")
str = sc.Run("decodeUni",str) // %u30E6%u30CB%u30B3%u30FC%u30C9 - テスト用
endif // %E8%87%AA%E5%8B%95%E5%8C%96%E3%83%84%E3%83%BC%E3%83%AB - テスト用
id = GETID("URLdecoder","TMainForm",0.1)
if id<0 then id = EXEC(URLdecoder)
ifb id>0 then
CTRLWIN(id,ACTIVATE)
ifb str<>"" then
SENDSTR(id,TRIM(str),1,True)
SCKEY(id,VK_CTRL,VK_RETURN)
endif
endif