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
457:名無しさん＠お腹いっぱい。
06/12/17 00:25:36 2fiNqHEX0
>>456 URLdecoder.uws
■Jane 派生から実行する時は
実行するコマンド：
"UWSC.exeのパス" "URLdecoder.uwsのパス" "$TEXT$LINK"
としてコマンド登録。
■IEの右クリックメニューから
以下を "URLdecoder.htm" として保存。 IE MenuExt 等でレジストリへ登録。
<html><!-- URLdecoder.htm -->
<script language="JScript">
// パスの \ は \\ と２個続けて記述（後端にスペース1個有）
var UWSC = '"?:\\?????\\UWSC\\UWSC.exe "'; //■UWSC.exe のパス
var uwsf = '"?:\\???\\???\\URLdecoder.uws "'; //■URLdecoder.uws のパス
//----------------------------------------------
var doc = external.menuArguments.document;
var elm = doc.activeElement;
var str = doc.selection.createRange().text; // 選択文字列
str = str.replace(/^[\s ]+|[\s ]+$/g,""); // 前後の空白を削除
if ((str == "") && (elm.tagName == "A")){ // 選択文字列が無く、リンク上ならURLリンクを取得
str = elm.href;
if (str.match("%") == null){ // UTF8 のリンクはアンエスケープされる
str = escape(str).replace("%3A",":")
}
}
var ws = new ActiveXObject("WScript.Shell");
ws.Run(UWSC + uwsf + str);
</script>
</html>
458:名無しさん＠お腹いっぱい。
06/12/17 01:24:09 FBnR/vwV0
decode(PARAM_STR[0], CODE_URL)
で終了 逝ってよし
459:名無しさん＠お腹いっぱい。
06/12/17 04:52:14 E2cqNZWM0
uwscからAPI利用でキー操作できないのか。。。。
460:名無しさん＠お腹いっぱい。
06/12/17 05:25:11 FBnR/vwV0
>>459
メッセージ送るウィンドウのハンドルさえ分かればできるはずだよ
461:名無しさん＠お腹いっぱい。
06/12/18 00:40:14 30950Apt0
ｽﾚﾘﾝｸ(software板:67-69番),71-73,77-79,82-84,86,101
ｽﾚﾘﾝｸ(software板:102番),104,126,133-135,136,140,142
ｽﾚﾘﾝｸ(software板:146番),156-157,160,165,169,173-175
ｽﾚﾘﾝｸ(software板:177番),195-196,198,200,206,208,249
ｽﾚﾘﾝｸ(software板:264-265番),275-276,278,282-292,294
ｽﾚﾘﾝｸ(software板:300番),305-306,331,338,341,348-352
ｽﾚﾘﾝｸ(software板:359番),362,366-369,377-378,395,410
ｽﾚﾘﾝｸ(software板:403-404番),406,439,444,446,452,454
＞87,408
462:名無しさん＠お腹いっぱい。
06/12/18 01:55:59 b3Wgu4wI0
>求人
> UWSCの会社ができました。
> スクリプトを書く人を求めています（企業からの自動化の案件を受けプログラムを作成）
> 興味のある方、是非ご連絡下さい。
急にスレが伸びたのはこういうことだったのか
463:名無しさん＠お腹いっぱい。
06/12/18 02:18:02 i8cgyTWR0
>>458
残念ですが逝けませ～ん。
【URL】エンコードは、ほとんどが「EUC-JP」>>29 か「UTF8」。
decode()の変換指定が拡張されると良いですね。
s1="%8E%A9%93%AE%89%BB%83%63%81%5B%83%8BUWSC" // Shift_JIS
s2="%BC%AB%C6%B0%B2%BD%A5%C4%A1%BC%A5%EBUWSC" // EUC-JP
s3="%E8%87%AA%E5%8B%95%E5%8C%96%E3%83%84%E3%83%BC%E3%83%ABUWSC" // UTF8
d1=decode(s1, CODE_URL)
d2=decode(s2, CODE_URL)
d3=decode(s3, CODE_URL)
d4=decode(s3, CODE_UTF8)
msgbox("SJIS="+ d1 +"<#CR>EUC="+ d2 + "<#CR>UTF8="+ d3 +"<#CR>UTF8="+ d4)
464:名無しさん＠お腹いっぱい。
06/12/18 06:15:12 njPYSj3q0
>>462
いつの話だよ
465:名無しさん＠お腹いっぱい。
06/12/18 10:05:51 oWhwdrgm0
>>447
URLﾘﾝｸ(www3.bigcosmic.com)
ここの人？
UWSCが広まらずウィニーの作者が捕まるのは仕方ないのかな
ｳｨﾝﾄﾞｳｽﾞの
ﾋﾞﾙｹﾞｲﾂはエイズの研究費に金を出したりして悪人でないのだろうけど社員がみな善人と言う保証はないもんな、
466:名無しさん＠お腹いっぱい。
06/12/18 10:14:10 oWhwdrgm0
439と444が同一人物ということがわかるということはUWSCがパソコンの個人情報をぬけるｿﾌﾄということ?
467:名無しさん＠お腹いっぱい。
06/12/18 10:25:15 oWhwdrgm0
umiumiさんが善人なのか悪人なのかがわからんので広めるべきかどうかわからん､
ヨーロッパはLinuxをひろめようとしているし.中国もIBM買収したり
しているからWindowsに
不信感あるんだろうな､民信無くばたたず.
468:名無しさん＠お腹いっぱい。
06/12/18 10:33:16 oWhwdrgm0
汎く衆を愛して仁に親しむ（多くの人々の幸せを願い思いやる)
が目的ならWindowsが広まることは止めないが､
そうでないなら 交通費かけてまで使うもんじゃないね
469:名無しさん＠お腹いっぱい。
06/12/18 10:38:18 mfmoIXFm0
何この電波レスの嵐
470:名無しさん＠お腹いっぱい。
06/12/18 10:53:04 oWhwdrgm0
マイクロソフトのｰ社独占体制というのがいかんよな.ｿﾌﾄに不正
があってもわかりにくいから､どうも信用されない､平家が横暴なら対抗して源氏がでて､譜代に対抗して外様大名､自民党に対抗して民主党､イスラム教ならスンニ派に対抗してｼｰｱ派
キリスト教ならカトリックに対抗してプロテスタントというのが0Sにも欲しい､マイクロソフト独占体制だもんな､
471:名無しさん＠お腹いっぱい。
06/12/18 16:11:44 OQogrX0O0
日本のことわざにただより高いもの無し,
472:名無しさん＠お腹いっぱい。
06/12/18 18:08:47 0DrUvuEP0
俺もこの流れに異様なものを感じた。
473:名無しさん＠お腹いっぱい。
06/12/18 20:28:35 G41PQh210
>>459
できるの！？
474:名無しさん＠お腹いっぱい。
06/12/19 12:45:13 KjI/0F620
マイクロソフト1社独占体制だと
不正があってもチェックが客はしにくい、
自動車会社が
フォード１社だとブレーキが故障
する車を売って客に被害を与えても比較する別の自動車会社
がないため不正をチェックしずらいのと同じ
475:名無しさん＠お腹いっぱい。
06/12/19 13:10:32 +uay/HBu0
クンニ派？
476:名無しさん＠お腹いっぱい。
06/12/19 17:22:02 MKmgxx7j0
NGEx
タイプ：
NG Addr 正規（含まない）
キーワード：
.←ピリオド１個だけ
ぽっぷあっぷ推奨
とりあえず緊急避難的abn。
477:名無しさん＠お腹いっぱい。
06/12/20 22:05:07 QZ1hyQmB0
//ストップウォッチ(最初の0秒～1秒の長さがランダムなのが課題)
X = GETTIME()
REPEAT
Y = GETTIME()-X
S = Y MOD 60
N = INT(Y/60)
H = INT(Y/3600)
IF S<10 THEN S = "0"+S
IF N<10 THEN N = "0"+N
IF N>59 THEN N = N MOD 60
FUKIDASI(H+":"+N+":"+S,0,0,0,12,"",$00F800,$000001)
SLEEP(0.2)
UNTIL GETKEYSTATE(VK_ESC)
REPEAT
FUKIDASI(H+":"+N+":"+S,0,0,0,12,"",$0FC80F,$000001)
SLEEP(0.2)
UNTIL GETKEYSTATE(VK_ESC)
478:名無しさん＠お腹いっぱい。
06/12/21 02:33:27 ZpmcWbzF0
>>477
分解能が秒単位だからどうしようもないでしょ。
0～1秒をスキップさせたらストップウォッチにはならないし…
X = GETTIME()
while GETTIME()-X <> 1
SLEEP(0.1)
wend
X = X+1
479:名無しさん＠お腹いっぱい。
06/12/21 05:21:46 MGH4sRj90
>>463
一部訂正です。
UTF8のところをミスった。
UWSCでのURLデコードは、Shift_JISとUTF8が可能。
s1="%8E%A9%93%AE%89%BB%83%63%81%5B%83%8BUWSC" // Shift_JIS
s2="%BC%AB%C6%B0%B2%BD%A5%C4%A1%BC%A5%EBUWSC" // EUC-JP
s3="%E8%87%AA%E5%8B%95%E5%8C%96%E3%83%84%E3%83%BC%E3%83%ABUWSC" // UTF8
d1=decode(s1, CODE_URL)
d2=decode(s2, CODE_URL)
d3=decode(decode(s3, CODE_URL), CODE_UTF8) // * 修正 *
//d4=decode(s3, CODE_UTF8) // 全く意味がないので削除
msgbox("SJIS="+ d1 +"<#CR>EUC="+ d2 + "<#CR>UTF8="+ d3)
480:名無しさん＠お腹いっぱい。
06/12/21 19:53:30 uRAZ97BC0
>>478
どうも。
なるほど…今度はふきだしの出現タイミングがランダムになるだけで
確かにストップウォッチにはなりませんね。
まあ自分が使う分にはそれでも良いのですけど。
481:名無しさん＠お腹いっぱい。
06/12/22 06:41:58 /gikv5V/0
自作スクリプト晒す奴ってなにがしたいんだ？
糞ほどにも役に立たないっていうのによ
482:名無しさん＠お腹いっぱい。
06/12/22 06:52:14 yJ1KS64a0
俺には役立ってるよ。
うｐされるたび毎日使ってる。
483:名無しさん＠お腹いっぱい。
06/12/22 06:58:39 Kcn8Xv4o0
>>1を見れ。ここが何のスレか。
たしかに他人が自分の必要に応じて作ったスクリプトが、そのまま自分の役に立つことは殆どない。
大勢の人間に需要がある機能なら、たいがいフリーの単機能ソフトを誰かが先に作っていて、ベクターなり窓の杜なりを探した方が早い。
欲しいけど自分にしか需要がないような特殊な用途を満たすためにUWSCはあるわけで。
他人のスクリプトが役立つ場合があるとすれば、そこに使われてる技術を理解して、自分がスクリプトを書くとき使う、という場合だけだろう。
そのスクリプト製作技術を学ぶ、という目的のためには、ここよりも、本家掲示板やそこに出入りしている常連の掲示板の方がはるかに役立つのは事実だがね。
484:まとめ
06/12/22 08:34:27 Xwk1xWxI0
uwscがパソコンの個人情報を手に入れるソフトなんだから気味悪がって誰も使わないんではないかな
問題なのはＯＳがマイクロソフト1社しかいない独占体制のところ、
ビルゲイツが悪人でなくても、株主や社員に悪人がいない保証はない。
自動車産業にたとえてみれば、フォード1社しかいないと客に危害を加える
自動車を作っても知識の少ない、客は泣き寝入りする。
ここへパリダカールラリーで優勝したトヨタがいれば、欠陥を見抜ける、
ブレーキホースにゴムホースを使って経費削減していたと見抜ければ、
そういう欠陥商品を作ったフォードの責任を客は追及できる。
485:まとめ
06/12/22 08:38:36 Xwk1xWxI0
RE:完全に処理が終わったかどうか判定するには？ いりや
これは Downstair を前提にした話 (つまり status(ID,ST_BUSY) の ID は downstair のウインドウ) でしょうか??
DATE：2006/12/21(Thu) 21:41
--------------------------------------------------------------------------------
はい。downstairのIDです。 mikeneco
はい。その通りです。でもなぜソフトがdownstairと分ったんですか？
ダウンローダーは色々あるのに。
DATE：2006/12/21(Thu) 23:44
486:まとめ
06/12/22 08:42:13 Xwk1xWxI0
やはりＵＷＳＣは使用者のパソコンの情報が抜き取れるのかあ。
リモートコントロールかprintsc＋Ｆｎかな、隠しファイル機能使ってる？
487:まとめ
06/12/22 08:49:25 Xwk1xWxI0
IGなんとかという相手のパソコンを操作できるソフトあったような、
それと関係者かな、
とにかくマイクロソフトの独占体制だと、広まるのに限界あるような気がする
、客は不良品を見抜く知識がない。
パソコンはIBM。シャープ、富士通といろいろあるんだけどOSは1社独占だからなあ
488:名無しさん＠お腹いっぱい。
06/12/22 09:24:13 OjPRjtZl0
>>487
あなたノートPC使ってるね
ちょっと覗かせてもらいました
489:まとめ
06/12/22 09:45:09 ZpaxbskV0
やはりウィニーの作者が有罪なのは仕方がないよ。
マイクロソフト独占体制では、利用する客がソフトの不正をわかりにくい
490:名無しさん＠お腹いっぱい。
06/12/22 10:00:10 0FrAMZe70
このスレも末期だな
491:名無しさん＠お腹いっぱい。
06/12/22 11:40:46 gV4mdUld0
久々に強い電波が
492:名無しさん＠お腹いっぱい。
06/12/22 12:53:01 2R60IAFo0
等質患者はメンヘル板へ逝け
493:名無しさん＠お腹いっぱい。
06/12/22 12:57:19 2R60IAFo0
>はい。その通りです。でもなぜソフトがdownstairと分ったんですか？
>ダウンローダーは色々あるのに。
直前のスレで自分自身で書いてる。
>DLは「Downstair」というダウンローダーを使うことにしました。（以下略）
494:名無しさん＠お腹いっぱい。
06/12/22 14:03:04 1GofhoYH0
ソフト の制作会社は．社長が誰だかはっきりしないとトラブルのときのこと考えて
使いにくい、
ｙａｈｏｏは孫社長だったか、２ちゃんねるは、ひろゆき氏、マイクロソフトはビルゲイツ会長とはっきりしている．
495:名無しさん＠お腹いっぱい。
06/12/22 15:46:16 9M14q4t50
>>484 >>486は、uwscがスパイウェア／トロイだという意味ですか？
>>489に、なんでいきなりnyの話がでてくるの？ 日本語変だし、意味がいまいち理解できないし・・・
HNに「まとめ」を使うんだから、責任もってまとめてください。
出来れば、Q&A形式で、誰が読んでも理解できるようなのたのんます。
496:名無しさん＠お腹いっぱい。
06/12/22 16:01:18 qZX/YtVr0
>>495
ほっとけ
でも狂おしいほど同意
497:名無しさん＠お腹いっぱい。
06/12/23 11:56:02 SqdwFAqA0
初心者ですが
ウインドウを端に押し込んだ状態であっても
見えない部分でもいつもどうり処理させる方法ってありませんか？
MouseOrgでも見える部分しかやってくれないみたいなので…
498:名無しさん＠お腹いっぱい。
06/12/23 13:51:44 cqwLIQCX0
>>497
APIでメッセージ送る
499:名無しさん＠お腹いっぱい。
06/12/23 15:54:44 SqdwFAqA0
>>498
メッセージを送るってのを詳しく教えてください＞＜
500:名無しさん＠お腹いっぱい。
06/12/23 16:11:46 grXAJPzT0
>>497
初心者ならsckeyの方が馴染みやすくないか？
501:名無しさん＠お腹いっぱい。
06/12/23 16:37:19 SqdwFAqA0
画面の色を判別してるんですが
画面に写ってる部分でしか判別してくれなくて…
画面を端っこに追いやっても通常どおり動くようにしたいんです。
あとクリックもするんですけどそのたびにマウスが勝手に動くから
マウスポインタを増やして裏でコンピュータが勝手にやってくれるとかはできないでしょうか？
502:名無しさん＠お腹いっぱい。
06/12/23 20:07:03 grXAJPzT0
>>501
俺はVirtualPC使ってる。
スペックがあるなら試してみては？
ホスト<->ゲスト間で全く干渉無く自動化できるし複数のマシンで同一環境を用意するのも簡単。
503:名無しさん＠お腹いっぱい。
06/12/23 20:20:57 grXAJPzT0
>>501
試してないけど
URLﾘﾝｸ(www.forest.impress.co.jp)
URLﾘﾝｸ(www.forest.impress.co.jp)
この手のソフトでデスクトップを仮想的に作ってみるとか。。
それでもマウスポインタは移動してしまう気がするけど。
504:名無しさん＠お腹いっぱい。
06/12/23 22:23:56 ztPkPf5i0
ブラウザに画面が表示されたのを知る方法はあるでしょうか？
（UWSCでキーボード操作させて）自動巡回させてスクリーンショットを取りたいのですが…
505:名無しさん＠お腹いっぱい。
06/12/23 23:29:24 vf+OctvP0
それならスクショをとるソフトをスクリプトで動かした方がいくね？
CrenaHtml2jpg
URLﾘﾝｸ(dip.picolix.jp)
Url2bmp
URLﾘﾝｸ(www.pixel-technology.com)
とか
あとWEBでAPIで提供されてんのもあったような
506:名無しさん＠お腹いっぱい。
06/12/24 03:43:27 +S7MD9u60
>>501
マウスポインタの問題は↓で…
mx = G_MOUSE_X // 移動前のマウスポジションを取得
my = G_MOUSE_Y
MOUSEORG(ID)
// どこかをクリックしてマウスポインタ移動
MOUSEORG(0)
MMV(mx,my,0) // マウスポジションを元へ戻す
>>504
ブラウザ名が不明だけど、ヘルプで
GETID, STATUS, GETITEM 辺りを調べたらどうかな。
書いたスクリプトを晒してくれたほうが話は早いと思うが、
BTN,KBD,MMVの羅列はゴメンだよ！
>>505の方法が適当かもね。
507:名無しさん＠お腹いっぱい。
06/12/24 08:34:27 eHbJ4LjT0
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
BTN(うるせー)
KBD(タコ)
MMV(うんこ)
508:名無しさん＠お腹いっぱい。
06/12/24 13:47:50 85Pm+X4p0
>507
Syntax Error
509:名無しさん＠お腹いっぱい。
06/12/29 22:04:59 3U4V39yi0
独自のスクリプトってのが面倒だよねぇ～。
インタプリタ作っちゃう技術力はすごいと思うけどさ。
もっと一般的なスクリプト言語とか、API形式ならいいのに。
510:名無しさん＠お腹いっぱい。
06/12/30 11:27:00 /Z9WeWQd0
インタプリタはそれほど難しくない。
一般的なスクリプト言語とか別に無い。
このスレの最近の状況からするとUWSCはやや一般的になってきてる。
API形式とは何? 意味不明。
511:名無しさん＠お腹いっぱい。
06/12/30 12:34:47 ANEL7PPk0
覚えちゃえば簡単でも最初の一歩が面倒だなぁ～と。
PythonとかRubyとかWSHとか一般的なスクリプト言語なら、
元々使える人も多いだろうし覚えれば他でも役に立つから、
いっちょ勉強してみようかという気分になるんだけど、
UWSC専用のスクリプト言語だと勉強する気になれなかった。。
俺がヘタレなだけですね・・・すみません。
API形式って書いたのは、VBとかで作った他のアプリから、
UWSCの機能を直接利用できれば便利かなぁ～と思いますた。
512:名無しさん＠お腹いっぱい。
06/12/30 13:48:27 /Z9WeWQd0
>>511
> PythonとかRubyとかWSHとか一般的なスクリプト言語なら、
> 元々使える人も多いだろうし覚えれば他でも役に立つから、
ならそれ使えよ。Win32API用のDLL使えば同じような事が出来る。
そんでもってスレ違いになるだけ。
そもそもUWSCのが簡単だからUWSCなんだろ。
駄目なところは一杯あるがご指摘の点は的外れだと思うね。
513:名無しさん＠お腹いっぱい。
06/12/30 13:58:02 SutnxafG0
結局一般的なスクリプト言語で～云々言ってる奴は、
一般的なスクリプト言語とやらで同じ物を実装できないから
こんな事言ってるんだろうね。
まぁ、hook dll 書くのは面倒くさいが。
514:名無しさん＠お腹いっぱい。
06/12/30 14:35:28 vjHGIByN0
もしも、UWSCが、独自スクリプトだけでなくVBSにも対応したら、俺は迷うことなくVBSを選ぶけどなｗ
515:名無しさん＠お腹いっぱい。
06/12/30 16:18:39 ChwbhOea0
UWSCは独自スクリプトだからこそ、学習が早いと思うけどな。
Helpの量も少ないし分かり易いし。
516:名無しさん＠お腹いっぱい。
06/12/30 16:26:37 63TfBtzq0
ちゃんとしたリファレンスが整備されないと使う気になれん
あとデバッカがほしい
517:名無しさん＠お腹いっぱい。
06/12/30 18:06:19 vJlv9HOx0
>>511
探したらこんなソフトがあった
DLLとしてC#から利用できるみたいだから、VBからも使えるかも
でも .NET必須ってのが微妙…
WindowController
URLﾘﾝｸ(www.vector.co.jp)
最終的にUWSCを使うにしても、制御対象の解析に便利っぽい
てか、これの操作記録機能すごくね？
518:名無しさん＠お腹いっぱい。
06/12/30 18:27:29 /Z9WeWQd0
>>514
VBSに対応って何?
VBSを迷わず使うって事はUWSCをWSHに対応って意味じゃないよな?
正直ぜんぜんスレ違い。WSHでWin32API呼び出すDLL使えよ。
最近のUWSCが妙に凝ってきてるからこういう考えが出て来るんだよな。
COM対応辺りからおかしくなってきた。
519:名無しさん＠お腹いっぱい。
06/12/30 18:56:48 vJlv9HOx0
UWSCに対する意見や期待は、スレ違いなんかじゃないのでは？
君がプチキレて的外れな揚げ足取りしてる理由がわからない。
520:名無しさん＠お腹いっぱい。
06/12/30 19:02:33 vJlv9HOx0
ごめん。俺もちょっと喧嘩腰だね。いろんな意見があってもいいんじゃないかなと言いたいだけ。年末に喧嘩（・A・）ｲｸﾅｲ
521:名無しさん＠お腹いっぱい。
06/12/30 19:43:40 xZEP9LDN0
こちらも言い過ぎた、すまない。
522:名無しさん＠お腹いっぱい。
06/12/31 00:05:12 GUv77j/A0
年末も年始関係無い。
いろんな意見があっていいのは当然だが
それが的外れかどうかはそれとはまた別。
523:名無しさん＠お腹いっぱい。
06/12/31 00:51:34 bUzWRwUR0
s1 = "<#CR> <#CR> <#TAB> UWSC Ｕスクリプト <#CR><#TAB> <#CR>"
s2 = TrimJS(s1); msgbox("使用前=("+ s1 +")<#CR><#CR>使用後=("+ s2 +")")
function TrimJS(str) // 全角スペース対応TRIM (JScript)
sc = CreateOLEObj("ScriptControl")
sc.language = "JScript"
sc.AddCode("function t(s){return s.replace(/^[\s ]+|[\s ]+$/g,'')}")
Result = sc.Run("t", str)
fend
-----------------------------------------------------------------
// Ｕスクリプトだけの時は…
function TrimU(str) // 全角スペース対応TRIM (UWSC 4.0～)
str = TRIM(str)
while str<>""
ifb POS(" ",str)=1 then
str = TRIM(COPY(str,2,LENGTH(str)-1))
elseif POS(" ",str,-1)=LENGTH(str) then
str = TRIM(COPY(str,1,LENGTH(str)-1))
else
Break
endif
wend
Result = str
fend
-----------------------------------------------------------------
// …んで、いろいろ弄っているうちに、こんな事に…
// CHGMOJ がグローバルな置換をするとは今の今まで全く気付かなかったorz
// 文字列中の全角スペースを半角にしてしまうのでTRIM互換とは言えないけど。
s1 = "<#CR> <#CR> <#TAB> UWSC Ｕ スクリプト <#CR><#TAB> <#CR>"
s2 = TRIM(CHGMOJ(s1," "," ")) //■全角スペース対応TRIM擬
msgbox("使用前=("+ s1 +")<#CR><#CR>使用後=("+ s2 +")")
524:名無しさん＠お腹いっぱい。
06/12/31 00:53:47 JE6fLdkp0
喧嘩すんなよ。
525:名無しさん＠お腹いっぱい。
06/12/31 10:50:35 QsbDX1sl0
>>517
これいいね。開発の助けになる。
あとはウインドウメッセージをモニターできれば最高なんだが。
みなさんは、UWSCでの開発の補助にどんなソフト使ってますか？
自分はWinspector使ってます。spy++みたいにウィンドウの構造を見たりメッセージをモニタできます。
URLﾘﾝｸ(www.windows-spy.com)
526: 【中吉】 【1049円】
07/01/01 00:15:35 4F92swbf0
今年もUWSCにはお世話んなりますわ。
527:名無しさん＠お腹いっぱい。
07/01/01 04:14:01 Yovlgfkv0
// madocon.uws
if GETID("窓コン","#32770",0.1)>0 then ExitExit
MadoCon = "MadoCon.exe" //■MadoCon.exe のパス
x = 365; y = 461 //■表示位置
idm = EXEC(MadoCon,False,x,y)
CLKITEM(idm,"作成",CLK_BTN)
idn = GETID("新規作成","#32770")
CLKITEM(idn,"コマンド",CLK_LIST)
CLKITEM(idn,"取込み",CLK_BTN)
while GETID("取り込み","#32770",0.1)>0; SLEEP(0.1); wend
while GETID("新規作成","#32770",0.1)>0
// wtitle = GETSTR(idn,1) // タイトル
// wclass = GETSTR(idn,2) // クラス
wparam = GETSTR(idn,3) // パラメータ (コマンドID)
if wparam="" then Break
SLEEP(0.1)
wend
if wparam<>"" and GETKEYSTATE(VK_CTRL) then SENDSTR(0,wparam) // クリップボード
CTRLWIN(idm,CLOSE2) // ダイアログが出ていてもメインウインドウを閉じる
528:名無しさん＠お腹いっぱい。
07/01/01 05:41:16 HgQCbgDB0
ウィンドウの情報はWinmapでメッセージはSPY++かな?
あと窓コンも。
WinspectorとかSystree++とかも試した痕跡があるけど使って無いな。
たぶんなんか不都合があったのかSpy++があるからかだと思うが。
spy++ to MsgIDってのもあるけどこれ何だっけ?
※UWSCはやたら拡張するよりこの手のツールと統合化した方がいいと思うよ。
529:名無しさん＠お腹いっぱい。
07/01/01 10:28:17 Y8saALnE0
文字の数、色、太さで識別して指定した場所をクリックさせることは可能？
530:名無しさん＠お腹いっぱい。
07/01/01 10:59:06 4ne/Fmdr0
これは、エスパー待ちだな。
531:名無しさん＠お腹いっぱい。
07/01/01 20:00:27 HgQCbgDB0
>>529
その前にそれをやるとどこがどう気持良いのか書けよ。
532:名無しさん＠お腹いっぱい。
07/01/02 00:51:03 bFlzVkGw0
>>529
俺なりにエスパーした結果、やって出来ないことはないかもしれないけど
自前でソフト作ったほうが早いという結論が出たぞ。
533:名無しさん＠お腹いっぱい。
07/01/02 03:28:00 SqVYKNkF0
プロセスのメモリを簡単に操作できるというMemory.dllをUWSCで使おうとしたのですが、
戻値が正しく出力されません。
def_dll ReadMemory(string,int,int,int):Memory.dll
pname="UsaTest2.EXE"
adr=00402148
rdata=0
ReadMemory(pname,adr,rdata,2)
msgbox(rdata)
どうやったらrdataに戻値を入れることが出来るでしょうか？
Memory.dll
URLﾘﾝｸ(www.vector.co.jp)
UsaTest2.EXE
URLﾘﾝｸ(www.vector.co.jp)
よろしくお願いします。
534:名無しさん＠お腹いっぱい。
07/01/02 06:28:18 v+0SAelo0
>>533
これは勘だが、第三引数は参照渡しするべきじゃないか?
535:名無しさん＠お腹いっぱい。
07/01/02 13:32:23 f/EOdE580
id= getid("●×","▽□")
Ver1.xの頃から思っていたがこれはやめたほうがいいよな?
見つけたウィンドウの寿命なんて保証が無いんだし。
俺は殆どのスクリプトでターゲットウィンドウに何かする時に
いちいちgetidでさがしなおしている。つまりsenstr(id,xxx)とか
idを引数に取っている関数は全てラッパをかけている。
autoitなんかもいちいち検索するようになってるみたいだが
uwscのこの点は根本を直して欲しい。
例えばターゲットディスクリプタみたいのを用意して
target= maketarget( ウィンドウタイトル、クラス名、その他もろもろ）
とかでターゲットハンドルをつくってあとはそれでコントロールするとか
そんな感じにすべき。
536:名無しさん＠お腹いっぱい。
07/01/02 14:04:08 sr7fsaDq0
>idを引数に取っている関数は全てラッパをかけている。
すまんラッパーの意味が分からんので教えて頂けますか？
537:533
07/01/02 14:13:57 SqVYKNkF0
>>534
回答ありがとうございます。
解説サイト読んでみて一行目を
def_dll ReadMemory(string,int,var int,int):Memory.dll
この様に書き換えたのですが、やはり値が反映されません。
どこか間違えているのでしょうか？
538:名無しさん＠お腹いっぱい。
07/01/02 14:34:07 f/EOdE580
>>536
ラップ流行ってるから知ってるだろ?
それともオッサンか?
539:533
07/01/02 14:34:30 SqVYKNkF0
すみません試行錯誤した結果、自己解決してしまいました。
三行目の
adr=
の後に$をつけるのを忘れていました。
540:名無しさん＠お腹いっぱい。
07/01/04 12:07:57 CRC0/rhe0
x+y (x,yは任意の自然数)
このような形で書かれた文字列があるとします
この時、xだけを数値として取り出したいのですが、どうしたらよいのでしょうか？
C言語で書くとするとこんな感じのことをやりたいのですが
while(str[++i]!='+');
str[i]='\0';
atoi(str);
541:名無しさん＠お腹いっぱい。
07/01/04 13:37:24 CDtr7kFp0
>>540
// 文字列に指定文字列があるか探す
戻値 = POS( 探す文字, 探される文字列, [n個目] )
// 文字列コピー
戻値 = COPY( 文字列, 開始位置, コピー文字数 )
// 文字型を数値に変える
戻値 = VAL( 文字列 )
これで適当にやってちょ
542:名無しさん＠お腹いっぱい。
07/01/04 13:43:59 CRC0/rhe0
ありがとうございます
543:名無しさん＠お腹いっぱい。
07/01/04 14:12:24 NfNDeecx0
>>540
'+'が固定ならTOKENで良いのでは？
544:名無しさん＠お腹いっぱい。
07/01/04 15:45:22 CDtr7kFp0
// トークンの切り出し （指定文字で区切ったものを返す）
戻値 = TOKEN( 区切文字, var 文字列, [ 区切方法, ダブルコーテイションフラグ ] )
で一発だったね
545:名無しさん＠お腹いっぱい。
07/01/05 10:42:25 VyUiwUts0
数字をJISとかのの数字の文字に直すにはどうしたらいいですか？
１０だと31 30のようにしたいのですけれども
546:名無しさん＠お腹いっぱい。
07/01/06 00:24:00 A77H/DD/0
>>545
a = "１０"
c = ""
for i=1 to length(a)
c = c + format(asc(strconv(copy(a,i,1),sc_halfwidth)),1,-1)
if i<length(a) then c = c + " "
next
msgbox(c)
547:名無しさん＠お腹いっぱい。
07/01/06 13:55:55 /QWIOIEx0
リストボックスの値をCLKITEMを使って変更しようとしても変更されないことがあります
というより「見かけ上は変化しているが、実際は変化していない」といった感じです
例えば下のようなリストボックス・ボタンがあったときに左を選択しようとすると、
見た目は左に変わるのですが、実行ボタンをクリックした時の動作は上のままなんです
そのリストボックスはCLK_ACCを使わないと動かない、マウスを上に乗せないと見た目すら変わらない、
というようにいくらか不可解な動作をしています
関係ないのかもしれませんが、何かの参考になれば
上▼ ｜ [実行]
上 ｜
下 ｜
左 ｜
右 ｜
―┘
548:名無しさん＠お腹いっぱい。
07/01/06 18:37:25 Cxfu2A0o0
>>546
サンクス天才！
549:名無しさん＠お腹いっぱい。
07/01/08 11:33:30 4gmlHrqp0
全画面表示してるときに、スクリプトによっては必ず画面が切り分かるのとそうでないのがあるんですけど
なぜですかね？？
550:名無しさん＠お腹いっぱい。
07/01/09 00:27:13 gU8Ryzlh0
エスパー待ちだな
551:名無しさん＠お腹いっぱい。
07/01/10 00:05:07 ua/+mf/b0
>>549
全画面表示してるときに、スクリプトによっては必ず
画面が切り分かるのとそうでないのがあるからだろ。
？？
552:名無しさん＠お腹いっぱい。
07/01/11 15:46:47 3AaqofY20
ローカルのIPをuwscで取得するにはどうすればいいですか？
553:名無しさん＠お腹いっぱい。
07/01/11 23:52:48 WqkycWkF0
ipconfig
554:sage
07/01/12 01:23:04 ThZzr6Oc0
UWSC使ってみようと思いましたが
エクセルで c:\tes.xls を開き方がわかりません
どうやるの？
555:名無しさん＠お腹いっぱい。
07/01/12 14:20:29 yd7QDL2U0
doscmd("c:\tes.xls")
556:名無しさん＠お腹いっぱい。
07/01/14 01:34:27 beBI/GOV0
>>555
どうもありがとうございました。
557:名無しさん＠お腹いっぱい。
07/01/14 04:11:13 x3aoKvoK0
URLﾘﾝｸ(ssl.gcrest.com)
こちらのソフトウエアなんですが、定時に異なるIDで多重起動させ
既存のUWSファイルで馬券購入を自動で行わせる方法など
「私なら出来ますよ」という方、「アイデアなら思いつきます」という方
いらっしゃいませんか？
558:名無しさん＠お腹いっぱい。
07/01/14 09:54:17 im1/hPU60
>>557
> 「私なら出来ますよ」
で、いくらくれるの?
559:名無しさん＠お腹いっぱい。
07/01/14 12:25:50 TMgxZHyJ0
ＵＷＳＣの会社が出来てます。
560:名無しさん＠お腹いっぱい。
07/01/14 14:38:31 vP4ye07F0
マウス左を下ろしているときに連打するってスクリプトを作りたいのですがうまくいきません。
while true
ifb BTN(LEFT) = 1 then
BTN(LEFT,click,1)
BTN(LEFT,click,1)
BTN(LEFT,click,1)
BTN(LEFT,click,1)
BTN(LEFT,click,1)
BTN(LEFT,click,1)
Exit
endif
wend
これでやるとずっとクリックし続けます（左クリックしてなくても）
アドバイスお願いします。
561:名無しさん＠お腹いっぱい。
07/01/14 15:55:55 ZUVXcmxo0
>>560
BTN(LEFT)の比較の際にクリックされてる
while true
BTN(LEFT)
wend
これを実行してみろ
で、そもそもBTN()はボタンを押す関数であって、ボタンの状態を知るための関数じゃない。
そのための関数はGetKeyState()、これを使えばうまくいく。
562:名無しさん＠お腹いっぱい。
07/01/14 17:09:44 vP4ye07F0
ifb GETKEYSTATE(BTN(LEFT,down))
構文がミス・・・これでもダメなようです・・・
勉強してきます；；
563:名無しさん＠お腹いっぱい。
07/01/14 18:15:09 uoqeTuE50
>>562
ifb 使ってるんだから条件を書かなければいけないでしょ。
ifb GETKEYSTATE(BTN(LEFT,down))=1
とか。
564:名無しさん＠お腹いっぱい。
07/01/14 18:28:32 gkw6cH5c0
>>560-563
レベル低すぎ
565:名無しさん＠お腹いっぱい。
07/01/14 18:29:50 mLbNjCsz0
getkeystateにはvk_で始まる仮想キーしか渡せないんじゃなかったっけ？
左クリックの仮想キーはヘルプの一覧には見当たらなかった。
諦めて
if getkeystate(vk_alt) and getkeystate(vk_c) then btn(left,click,1)
とかにするしかないかもしれない。
566:名無しさん＠お腹いっぱい。
07/01/14 19:48:15 l0qXvX3Z0
仮想キーって名前判ってるならググればすぐ判りそうなもんだけど…
VK_LBUTTON ($1)
567:名無しさん＠お腹いっぱい。
07/01/14 22:24:57 TMgxZHyJ0
ゲームでイライラしている子供に熱心に教えるなんてエエハナシヤ（ ´Д⊂
568:名無しさん＠お腹いっぱい。
07/01/15 02:43:47 xk6goVHU0
[1]キーを１.0～2.0秒(0.1秒単位のランダム)で押すのを繰り返す
を作ってくれん？
569:名無しさん＠お腹いっぱい。
07/01/16 01:38:38 47Ugvl4S0
このソフトはフルスクリーンのゲームも操作できるんでしょうか？
570:名無しさん＠お腹いっぱい。
07/01/16 02:00:34 47Ugvl4S0
止め方教えてｋづあさい
571:名無しさん＠お腹いっぱい。
07/01/16 02:45:07 aGcj4GdP0
Alt + F2
572:名無しさん＠お腹いっぱい。
07/01/16 23:37:14 XqBFUv3j0
>>568
レベル低すぎ
573:名無しさん＠お腹いっぱい。
07/01/16 23:37:44 XqBFUv3j0
>>569
できるよ。相対座標使えばどうとでも
574:名無しさん＠お腹いっぱい。
07/01/20 01:24:34 zDsd7Kso0
ヘルプ見たけど
スクランブルのかけ方がわかりませんでした
よかったら教えてください
575:名無しさん＠お腹いっぱい。
07/01/20 06:15:44 EgRjIOdf0
俺はスクランブルというコピーに引かれ
スクランブルになるためにはどうすればよいのか考えた
スクランブルなのだからどんなこともできる
手始めに全裸で姉の部屋にアンゲロ、アンゲロとつぶやきながら飛び込む
タンスをこじ開けブラジャーを腰に巻きパンティーを頭にかぶる
姉が呆然としながら見てくるがスクランブルなので気にしない
姉のベッドに潜りこみ「幸せだから！幸せだから！」と絶叫
姉は無言で部屋から立ち去る
だがまだ最強には不十分
次は妹の部屋にムッシュムッシュと叫びながら飛び込む
妹は着がえをしている最中だったがスクランブルなので無視
半裸で逆立ちをしながら
「俺に充電しろ！！俺に充電しろ！！」と絶叫
妹は大泣きで退散
確実にスクランブルに近づく
開脚後転でトイレに飛び込み便座を外し首に掛ける
ゾンビの真似をしながら母の部屋に突撃
タンスを開けると一枚の写真発見
死んだ親父が俺を抱いている写真発見
俺は泣いた
576:名無しさん＠お腹いっぱい。
07/01/20 13:23:40 rqmoT2lU0
ヒント・・コマンドプロンプトでパス指定 /a
でスクランブルかけれる
577:名無しさん＠お腹いっぱい。
07/01/20 19:05:25 uRMPRV7/0
ぜんぜんわからないんだけど、vbスクリプト（wsh？）とどっちがいいのかな。
どっちか勉強しようかとおもってるんだけど、、、
エクセルとIEを連携させていろいろしたいんだ。
578:名無しさん＠お腹いっぱい。
07/01/20 20:24:51 RFPdD2MV0
>>577
VBAでいいじゃん
579:名無しさん＠お腹いっぱい。
07/01/21 05:22:39 Q4nEdwmO0
>>577
初めて勉強するならWSHがおすすめ。何よりも資料が豊富。
UWSCの書式は(VBS+JS)/2+αって感じだから… >>376
エクセル使いなら>>578が適当かも。
580:名無しさん＠お腹いっぱい。
07/01/21 22:12:07 YnB2PVtI0
IE_SelectItem(1, "Tag='A',LinkText='文字列'")
IE_ItemProc(1, "CLICK", "")
IEとあるページで
<td width="30%"><a href="URL">文字列</a></td>
の「文字列」のところをクリックしたいんだけど
どうしてもできないので手助けお願いします。
エラー内容
IE_SelectItem の引数の形式が不適切です。
「'」が多すぎるか「,」が少なすぎます。
該当箇所： Tag='A',LinkText='現物買'
URLﾘﾝｸ(www.icnet.ne.jp)
ここの例が間違ってるの？
581:名無しさん＠お腹いっぱい。
07/01/21 22:33:46 YnB2PVtI0
ついでにこのエラー
//
でコメントにしても
同じエラーになる
582:名無しさん＠お腹いっぱい。
07/01/22 01:27:03 iOAPnPki0
>>580
UWSC Ver4～には対応してないらしい。
そのサブルーチンを使わなくても標準でできる。
ヘルプを見よう。
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(????)) // ←アドレス
while IE.Busy or IE.ReadyState<>4; SLEEP(0.1); wend
IELink(IE,"現物買") // ←クリックするリンクの表示文字
583:名無しさん＠お腹いっぱい。
07/01/22 01:34:13 pabBt9LS0
ielink(IE,"文字列")
じゃダメなの？
584:名無しさん＠お腹いっぱい。
07/01/22 03:05:22 a8PeaC4D0
>>582 >>583
ありがとうございます
再度 書き直してみます。
585:名無しさん＠お腹いっぱい。
07/01/22 05:37:39 a8PeaC4D0
また行き詰ったorz
超速マクロテクの例では フォーム 要素名指定での入力は
うまく入力できるんだけど
Eトレサイトではなぜか
フォームへの入力ができない
IE.document.trg.price.value = "100"
エラー
Uスクリプト com_error
IE.document.trg.price.value = "100"
ここでは要素名では使えないってことなのかな？
586:名無しさん＠お腹いっぱい。
07/01/24 16:28:19 UY8qL/2O0
特定ウインドウの文字列を取得したい場合、OCR機能を外部から取り入れて
入力欄にその取得文字列をインプットする様なコマンドってわかります？
587:名無しさん＠お腹いっぱい。
07/01/24 16:41:18 oOdl/NuF0
日本語でおｋ
588:名無しさん＠お腹いっぱい。
07/01/24 16:55:36 Tu3OEDDA0
>>586
INPUT( 表示メッセージ, [デフォルト値])
デフォルト値に取得した文字列（もしくはその変数）
589:名無しさん＠お腹いっぱい。
07/01/24 19:43:58 QNCrSZg7O
リストビューの項目を選択するのを自動化したいんですが
ClkItem(id,"リストビュー項目",CLK_LSTVEW)
で、できないんですけど間違ってるんですか？選択したいのはインターネットブラウザの項目なんですが、
ClkItem(id,"リストビュー項目",CLK_ACC)だとできるんです。
ただこの場合リストビュー上にマウスを持っていかないと変わらないんです。
インターネットブラウザのリストビュー項目を自動選択するにはどうしたら良いですか？
590:名無しさん＠お腹いっぱい。
07/01/25 17:58:40 r0DwPlYF0
URLﾘﾝｸ(www.k-den.jp)
このネットゲームのフリレ自動化のプログラムが組める方がいらっしゃれば、お願いしたいのですが？
登録などは無料となっております。
591:名無しさん＠お腹いっぱい。
07/01/25 23:41:51 XH7KwjZi0
＞お願いしたいのですが
いくらぐらいで？
592:名無しさん＠お腹いっぱい。
07/01/26 13:41:53 Pav5kCE90
c=peekColor(55,28)
ifb G_赤(c)<127
print "OK"
Else
endif
function G_赤(c)
Result = c and $FF
fend
これのG_赤(c)<127 の部分が良く分からないのですが
何方か解説してくれませんか？
593:名無しさん＠お腹いっぱい。
07/01/26 15:26:52 L9rKW3Kv0
あまり赤くなければ
ってこと
594:名無しさん＠お腹いっぱい。
07/01/26 17:08:03 gpe3xmDS0
横からで申し訳ない。
Result = c and $FF の 'and' ってどういう計算だろ？
考えてたら訳わかんなくなった…
595:名無しさん＠お腹いっぱい。
07/01/26 17:30:52 L9rKW3Kv0
>594
ビット積やね。
論理積のandとは意味が違うので注意
596:名無しさん＠お腹いっぱい。
07/01/26 17:35:37 L9rKW3Kv0
本家ＢＢＳ過去ログより
URLﾘﾝｸ(www3.bigcosmic.com)
597:名無しさん＠お腹いっぱい。
07/01/26 17:36:10 P2hWYSFw0
peekcolorの返り値は、ＲＧＢ、16進数でＢＢＧＧＲＲで入ってるから、c and $ff0000 で 青、 c and $00ff00 で緑、 c and $0000ffで赤の値が取り出せる
ヘルプに書いてあるがな
598:名無しさん＠お腹いっぱい。
07/01/26 17:37:01 gpe3xmDS0
>>595
おぉ 即レスさんくすです。 ひとつ賢くなった…
599:名無しさん＠お腹いっぱい。
07/01/26 18:39:02 76a1bqKG0
BGRなんだ。。なんで青とってるのに関数名が赤なのかと悩んだｗ
600:名無しさん＠お腹いっぱい。
07/01/26 21:50:39 IQwz3Hx50
>>591
ただでお願いします。
無理言ってすいません。
601:名無しさん＠お腹いっぱい。
07/01/27 11:43:07 G4PUCkhd0
いや、言うのは自由だから。
602:名無しさん＠お腹いっぱい。
07/01/27 14:41:39 doRzyfmA0
//基本的なことをやってみました
id = status(getid("Microsoft Internet Explorer","IEFrame",0.02),st_title)
ifb id = "";fukidasi("ページがありません");for x=1 to 5;sleep(0.2);next;exit;endif
IE = GETACTIVEOLEOBJ("InternetExplorer.Application",id)
Name = IE.LocationName
URL = IE.LocationURL
//IE.Quit
WSH = CREATEOLEOBJ("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop")
Link = WSH.CreateShortcut(Path+"\"+Name+".url")
Link.TargetPath = URL
Link.Save
//fid=fopen(Link.FullName,f_read or f_write);fdelline(fid,3);fclose(fid)
603:名無しさん＠お腹いっぱい。
07/01/29 22:05:37 fcyz6KYn0
ヘルプを参考に「最小化」ボタンをグレーにしてみようとしたのですが、上手くいきません。
DEF_DLL ModifyMenuA(HWND,Long,Long,Long,Long):Long:user32.DLL
MF_GRAYED = $1
SC_MINISIZE = $F020
id = exec("notepad")
hwnd = GetCtlHnd(id,GET_SYSMENU_HND)
ModifyMenuA(hwnd,SC_MINISIZE,MF_GRAYED,0,0)
どこがおかしいのでしょうか。。。
604:名無しさん＠お腹いっぱい。
07/01/30 19:14:54 C9/gwCO90
すみません、教えてほしいのですが
MojiRetsu = "abcdefg"
を一文字づつ取り出して、文字の処理をしたいのですがUWSCではどのようにすればいいのでしょうか？
VBの場合
for i = 1 to Length(MojiRetsu)
txt = mid(MojiRetsu, i, 1)
もしくは
txt = Right(Left(MojiRetsu, i),1)
.... 処理....
Next
でとりだせるはずですが、UWSCの場合の処理を教えていただけませんか？
よろしくお願いします。
605:604
07/01/30 19:28:38 C9/gwCO90
すみません、自己解決です。
ヘルプをよく読んでませんでした。
COPY関数がMIDに相当するものだったんですね。
COPYですから、文字列の単純コピーだと思い込んでました。
すみません。
606:名無しさん＠お腹いっぱい。
07/01/30 22:14:21 IHRQvlYn0
>>603
グレーにはならないけど、無効状態にはなってるね。
「SC_MAXIMIZE = $F030」も試してみたが同じだった。
「MF_DISABLED = $2」の挙動みたいだが？
API使いの光臨を待とう…
607:603
07/01/31 00:09:22 ylP9utd10
>>606
返答ありがとうございます。
そのような場合には最後に
acw(id,status(id,st_x),status(id,st_y))
を書き足してウィンドウの再描写をすれば解決しそうですが、
自分の環境では最小化ボタンの無効化が行われません。
左上のプログラムのアイコンをクリックする事によって出てくる
ポップアップメニューからは「最小化」が削除されているし、
ModifyMenuの戻値は1なのですが。。。
自分はXPなのですが、環境によって違うのでしょうか。
608:名無しさん＠お腹いっぱい。
07/02/01 04:05:02 C4wyYcBXO
天才にご指導願いたい。
指定したウィンドウに画像で４桁の数字がランダムに何種類か表示される。
このウインドウの数字を解析し、テキストボックスにその答えを打ち込みたい。
こんなものはマクロで出来ますか？
できるなら式を教えてください。
609:名無しさん＠お腹いっぱい。
07/02/01 08:50:32 cGUezFrd0
OCRでぐぐって少し考えてみろ
610:名無しさん＠お腹いっぱい。
07/02/01 21:02:52 S0Ax5EkM0
特定のフォントでいいならAUTOITのOCRスクリプトが公開されている。
特定フォントの数字だけならUWSCでも簡単だろ。
611:名無しさん＠お腹いっぱい。
07/02/02 02:12:12 jlqlXg/70
UWSCでは指定ウィンドウに表示されている画像を解析し、その画像に表示されている数字を解析後にテキストボックスに打ち込むなんて事は可能でしょうか？
612:名無しさん＠お腹いっぱい。
07/02/02 02:20:36 zIadodU90
>>611
どこのサイトのどんな画像？
613:名無しさん＠お腹いっぱい。
07/02/02 02:35:07 jlqlXg/70
>>590であがっている
ネットゲームのレースキー入力ウィンドウなんです。
ウィンドウ内に画像が表示され、その表示されている数字を打ち込まないとレースが開始されない。
この面倒な作業を無人で行えないものかと思いまして。
以前はUWSCでマクロのみでレースが発走できたのですが、今はキーを打ち込むという作業が追加されてしまいまして、
その作業がみな面倒だというのでなんとか作れないものかと思い。
このようなスレを見つけ、詳しい皆様に教えを乞いたいです。
614:名無しさん＠お腹いっぱい。
07/02/02 16:40:42 qRWklRGG0
なんのためにそういう面倒な処理が追加されたと思う？
マクロ蔓延への対策だよ
このスレ読んでできないようならあきらめたほうがいい
615:名無しさん＠お腹いっぱい。
07/02/02 17:17:28 O3A6Wfi+0
つまり作る技術も知識も無い奴しかここには居ないってことさ
616:名無しさん＠お腹いっぱい。
07/02/02 17:39:12 K3C4+/Yt0
どこもタチの悪い質問が増えてるな
617:名無しさん＠お腹いっぱい。
07/02/02 22:03:28 NWOMEjb/0
IE.Navigate("URLﾘﾝｸ(ameblo.jp) 0, null, 1, "Referer: URLﾘﾝｸ(ameblo.jp));
こういう感じで実行しても、表示はするけどリファラが残りません＞＜
誰かリファラの残し方教えてください
618:名無しさん＠お腹いっぱい。
07/02/03 00:44:28 rAFsDkfj0
本日、ｸｿｯﾀﾚなWORDファイルの整形に大活躍しました。
特定の文字列を検索
→インデント指定
コレをループさせてずいぶん楽できた。
手の操作をエミュレートしてるだけだから、失敗してもCtrl+Zで気楽に戻せるのがいいな。
619:名無しさん＠お腹いっぱい。
07/02/03 01:39:52 jgpOFn4V0
>>617
"\r\n" → "<#CR>"
620:名無しさん＠お腹いっぱい。
07/02/04 16:33:00 wsNHttRV0
赤に近い色がある場所を取得したいのですが、どうやったら出来ますか？
chkimgだと～に近い色という設定が出来ず、peekcolorで1ドットずつ調べるのは重いので。。。
while true
for i=0 to g_screen_w
for j=0 to g_screen_h
c=peekcolor(i,j)
red=c and $FF
green=(c and $FF00)/$100
blue=(c and $FF0000)/$10000
if red>$F0 and green<$10 and blue<$10 then print i+","+j
next
next
sleep(0.1)
wend
peekcolorを使うとこんな感じですが、重すぎてまともに動きません。
621:名無しさん＠お腹いっぱい。
07/02/04 23:29:19 AZ3768rq0
対象物がどういう画像かにもよるけど
まずはchkimgで色無視で探して
見つかったらその部分だけに範囲を絞ってpeekcolorで色判定するとか。
あと赤に近い色ならR成分だけの比較でよくね？
速度的には改善されると思う。
peekcolorでやるなら走査を1ドットずつじゃなくて例えば10ドット間隔にするとか。
美術品とかの防犯用赤外線センサーみたいなイメージ。
ただ対象物があまりに小さいと見逃すかも。
622:名無しさん＠お腹いっぱい。
07/02/04 23:38:08 acEjdmZB0
R成分だけだと白とかもヒットしてしまうから無理でしょう
>>620
速度求めるならCなりでDLL作って、画面キャプチャ→クリップボード内の画像を走査 が速そう。
623:620
07/02/05 00:27:24 R6II9j8F0
>>621,622
レスありがとうございます！
>>621
赤っぽい物体がランダムな形で表示されているので、色無視は無理です・・・
調べる間隔を離すのは試してみます！
>>622
やはりUWSCだけでは難しいですか・・・
コンパイラ形式の言語はまだよく分からないのですが、これから勉強してみます！
624:名無しさん＠お腹いっぱい。
07/02/05 00:42:36 2cLewcZO0
>622
おっと、確かにそうでした…<白とかもヒット
とりあえずpeekcolorでやってみたけど
うちの環境(1280*768)でループ一回まわすのにかかったのが「3分19秒78」
こりゃ確かに使い物にならん…
色判定部分を工夫して
if (c and $f0f0f0) = $f0 then print i+","+j
これで速度５０％ほどアップして「2分2秒422」
あとは走査をxy両方10ドット間隔にして「1秒297」
これならまあなんとか使い物になるかも？
625:名無しさん＠お腹いっぱい。
07/02/05 01:02:44 2cLewcZO0
追記
c=peekcolor(i,j)
//↓削除ここから
//red=c and $FF
//green=(c and $FF00)/$100
//blue=(c and $FF0000)/$10000
//if red>$F0 and green<$10 and blue<$10 then print i+","+j//→3分19秒78
//↑削除ここまで
if (c and $f0f0f0) = $f0 then print i+","+j//→2分2秒422
626:620
07/02/05 01:25:03 R6II9j8F0
>>624
そういうやり方もありましたか。
参考になります。
このスレにはやさしい人が沢山いて助かります。
ありがとうございました。
627:('A`)ﾏﾝﾄﾞｸｾ ◆2zoWxZ0KXY
07/02/06 10:14:23 N8aNtigh0
口癖とかｗｗｗｗｗｗｗｗｗｗｗｗ
628:名無しさん＠お腹いっぱい。
07/02/07 23:40:57 NIA0HC/g0
すみません、初心者なのですが、
ゲーム上で使う時は
While True
KBD(VK_XXX,DOWN,0)
KBD(VK_XXX,UP,0)
KBD(VK_YYY,DOWN,0)
KBD(VK_YYY,UP,0)
SLEEP(12)
Wend
(VK_XXX、VK_YYYは何かしらのボタンです)
を記述したものを再生するのみでは繰り返さないのでしょうか？
試してみたところ、1回行った後ゲーム上では繰り返しませんでした。
ゲーム上でなければ問題なく繰り返しの動作を行っています。
629:名無しさん＠お腹いっぱい。
07/02/08 00:33:21 IHNssdF00
ヒント:DirectInput
630:名無しさん＠お腹いっぱい。
07/02/08 07:42:37 j0ePCC9y0
// While Wend 文
WHILE 式 // 式が True の間実行
処理
WEND
WHILE 式 // 式が True の間実行
WHILE 式 // 式が True の間実行
WHILE 式 // 式が True の間実行
631:名無しさん＠お腹いっぱい。
07/02/08 10:08:02 kgzJBX1p0
メッセージ投げてるわけでもないからDirectInputも関係ないし
構文もあってる
ゲーム上の動作確認がおかしいだけじゃねーの
632:名無しさん＠お腹いっぱい。
07/02/08 11:25:00 FKJuKnE50
>>628の
While True
ってのは「何が」Trueの間繰り返すという意味なんですか？
633:名無しさん＠お腹いっぱい。
07/02/08 12:44:40 ZEUQBsQ/0
>>632
While True = True
634:名無しさん＠お腹いっぱい。
07/02/08 14:23:56 wOF5n7Uf0
フォーカスがあってないんじゃ？
635:名無しさん＠お腹いっぱい。
07/02/08 22:25:03 8w4lo9zN0
フォーカスを合わせる必要があるのですね…
もしよろしければ、その記述についても教えていただけますか？
636:名無しさん＠お腹いっぱい。
07/02/09 00:14:51 CVVEcBKi0
つヘルプファイル
637:名無しさん＠お腹いっぱい。
07/02/09 00:37:33 xRDFOrHc0
ネトゲなんかでさ、GETIDはできるのは想像つくんだけど、
中のウインドウはGETITEMで操作できんの？
試せよって話なんだが、もう寝る時間なんだ
638:名無しさん＠お腹いっぱい。
07/02/09 04:15:57 R85AHkSa0
バックグラウンドで使うのは難しいのでしょうか？
他の作業をしながら
特定のウインドウで単純にF1キーを押し続ける作業をさせたいのですが、
言語も何もわからないので困っています。
639:名無しさん＠お腹いっぱい。
07/02/09 05:34:00 RTUEj3qb0
>>638
APIを使う。
Windowsアプリの仕組みを知らないのであれば難しい。
640:名無しさん＠お腹いっぱい。
07/02/09 07:53:31 mxygUe7L0
TeamSpeak2( URLﾘﾝｸ(www.goteamspeak.com) )というボイスチャットのスクリプトを作ろうと思ったのですが
GETITEMでアイテム情報を取得できませんでした。
このような場合はどう対応したらよいのでしょうか？
641:名無しさん＠お腹いっぱい。
07/02/09 10:42:08 U7MLjCC+0
おねがいします。
UWSC.exe名を変更するにはどうしたら良いのでしょうか？
エロイ人教えてください
642:名無しさん＠お腹いっぱい。
07/02/09 10:45:58 9N5pvLBZ0
>>641
スレ違いだカス
643:名無しさん＠お腹いっぱい。
07/02/09 12:12:03 Eho8eh0PO
>>641
低レベルな質問をする前に少しは勉強しなさい
644:名無しさん＠お腹いっぱい。
07/02/10 16:00:56 DagaOjlC0
>>641
exec("cmd /c ren uwsc.exe cswu.exe")
645:名無しさん＠お腹いっぱい。
07/02/12 23:11:21 GqqG+y+o0
>>641
UWSC.exeをエロ胃人にに帰るには制てゃpぎおｗｎ
646:名無しさん＠お腹いっぱい。
07/02/13 00:36:42 FAav4dLC0
// 時報
While !GetKeyState(vk_esc)
sleep(0.2)
GetTime()
T = g_time_ww+":"+g_time_hh+":"+g_time_nn+":"+g_time_ss
ifb g_time_nn = 0 and g_time_ss = 0
Fukidasi(g_time_hh+":"+g_time_nn2,0,0,0,72,"Arial","$ffff","",-2)
for i = 1 to 25; sleep(0.2); next
Fukidasi()
endif
//Timer(T = "0:12:34:56","メッセージ")
Wend
Fukidasi("時報を終了します。"); for i = 1 to 5; sleep(0.2); next
//
Procedure Timer(T,str)
ifb T
Fukidasi(str); for i = 1 to 25; sleep(0.2); next; Fukidasi()
endif
Fend
647:名無しさん＠お腹いっぱい。
07/02/13 13:56:17 vkIAvlxP0
>>640
muri
648:名無しさん＠お腹いっぱい。
07/02/13 20:08:16 pgEpS4cV0
>646
なんだ？添削希望か？
649:名無しさん＠お腹いっぱい。
07/02/13 21:59:53 FAav4dLC0
おながいします。
650:名無しさん＠お腹いっぱい。
07/02/13 22:49:24 pgEpS4cV0
とりあえず
for i = 1 to 25; sleep(0.2); next
は
sleep(5)
でいいかと
あと、
Timerは何がしたいの？
651:名無しさん＠お腹いっぱい。
07/02/13 23:44:52 FAav4dLC0
＞>sleep(5)
＞でいいかと
ホントだ…。前に>>115を読んだときに
＞0.5sec待機するより0.01secを5回程度回した方が～
ってところを何を勘違いしたのか間違って解釈しちゃったようですorz
Timerは指定の時間にメッセージを出すだけです。
別に何でも、アプリ起動とかでも良かったんですけど…
指定の時間になったら何かするっていう、つまりタイマー
どっちにしろ一行で済むしそれだけなら別にわざわざサブルーチンにしなくても良かったようですがorz
652:名無しさん＠お腹いっぱい。
07/02/14 10:34:58 g3LUNaLB0
現在のディレクトリを得る方法ってない？
UWSCから、WSH利用するしかないのかな？
653:名無しさん＠お腹いっぱい。
07/02/14 13:42:26 x+7ZQl1v0
GET_CUR_DIR // 現在のカレントディレクトリ
654:名無しさん＠お腹いっぱい。
07/02/15 00:20:10 nGU/ckMc0
サイズの一様(640×480)な中身が違うビットマップファイルが数百個あります。
そのBMPの中から、例えば、ある一定の区画 500, 200, 100 ,100を切り出した新しいBMPファイルを作りたいと思います。
数百もその作業をやるのはしんどうし、
切り出す区画は全ファイル同じ部分なので、uwscなどを用いて簡単に処理できないかと考えてみました。
充分なsleepを与えつつ、画像編集アプリケーションに取り込ませ実際操作する自動化は思いつきましたが、
それは非常にスマートではありません。
uwscのみで行うにはどういった手法があるでしょうか？
WINAPIとかを導入しないとできないでしょうか？
655:名無しさん＠お腹いっぱい。
07/02/15 00:25:42 d0mE+fGw0
ｐｓのアクション＋パッチで十分な話だと思う
uwscさえ必要ねえ
656:名無しさん＠お腹いっぱい。
07/02/15 00:41:57 SGEKa07X0
IRfanでもできるかな
657:名無しさん＠お腹いっぱい。
07/02/15 01:36:36 0kiNIKH70
ImageMagick でやるのが楽かと
658:名無しさん＠お腹いっぱい。
07/02/15 01:38:23 0kiNIKH70
>>654
と言うか、
> 充分なsleepを与えつつ、画像編集アプリケーションに取り込ませ実際操作する自動化は思いつきましたが、
> それは非常にスマートではありません。
こういうスマートじゃない処理をするためだけに uwsc があると思うんだが。
659:名無しさん＠お腹いっぱい。
07/02/15 02:16:43 4zVU3Oy00
>>654
こういうのは、PhotoShopのアクションと自動処理のバッチを使えば一発なんだけどね('A`)
俺なら、ImageMagickでも使うかなあ。
660:名無しさん＠お腹いっぱい。
07/02/15 12:48:27 bY/cVw6K0
>>654
自分なら、>>656の人と同じくIrfanViewを使うかな。
661:名無しさん＠お腹いっぱい。
07/02/15 15:50:26 l9DhUzp90
> GET_CUR_DIR // 現在のカレントディレクトリ
ちょっと前とちょっとあとのカレントディレクトリはどうやって取得すればいい？
662:名無しさん＠お腹いっぱい。
07/02/15 17:12:45 VdGp7gLH0
>>661
ちょっと前に Get_Cur_Dir を使えばいい
663:名無しさん＠お腹いっぱい。
07/02/15 17:13:18 VdGp7gLH0
>>661
同じく、ちょっと後に Get_Cur_Dir を使えばいい
664:名無しさん＠お腹いっぱい。
07/02/15 17:15:14 VdGp7gLH0
>>661 冗談だと思うな、本当のことだぞ。
665:名無しさん＠お腹いっぱい。
07/02/15 18:29:55 VJCrc4le0
>>661
確かに>>662-664以外の方法はないと思う
ちなみにちょっとあとのカレントディレクトリを取得するのは不可能
未来を予知できるなら別だが。
666:名無しさん＠お腹いっぱい。
07/02/15 18:47:09 RqXFGw0H0
てか、UWSCでカレントディレクトリ変更できるの？
667:名無しさん＠お腹いっぱい。
07/02/15 19:02:09 VJCrc4le0
>654
皆が言うように、uwscよりも、内部マクロのようなものが使える画像処理アプリケーションを使う方がスマートだとは思う。
餅は餅屋ということで。
ただuwscを使ってという条件で（まあuwscのスレだし）
よりスマートに改善するなら
>充分なsleepを与えつつ
ここを見直してみるべきでは？
まあ自分ならあえてuwsc+ペイントでやるかなw
668:名無しさん＠お腹いっぱい。
07/02/15 20:35:48 6ZnakJ6o0
>>666
色んな方法があるでしょ
ヘルプ見れば。
君がどういう方法でカレントディレクトリを変更したいのかにもよる。
DOSCMD コマンドもあるし とにかくHELP嫁
669:名無しさん＠お腹いっぱい。
07/02/15 21:01:54 RqXFGw0H0
いや、別に俺がしたいわけじゃないんだけど、できるのかなと疑問に思っただけ。
とりあえずDOSCMDではUWSC自体のカレントディレクトリは変更できない。
670:名無しさん＠お腹いっぱい。
07/02/16 07:25:23 aEdQXwcP0
こんなのはられてたｗ
ｽﾚﾘﾝｸ(mmosaloon板:644-646番)
671:名無しさん＠お腹いっぱい。
07/02/16 08:18:53 CMWBeYzi0
>>670
ﾊﾞﾛｽ
もっと見破られないようにしないとｗ
672:名無しさん＠お腹いっぱい。
07/02/16 10:19:10 RClLESTD0
kbd(VK_LEFT, DOWN, 50) //左ナビ
kbd(VK_LEFT, UP, 50)
このへんのDOWN・UPコンボで
一目で厨ぶりがわかるな
673:名無しさん＠お腹いっぱい。
07/02/17 00:35:46 vy3y0xxR0
ゲームによってはclickが正常に作動しないこともあるんだぜ？
674:名無しさん＠お腹いっぱい。
07/02/17 21:48:54 RM+qUXCD0
その通り。
クリックの放す速度が速いと押したことにならないゲームもある
675:名無しさん＠お腹いっぱい。
07/02/18 12:32:49 EOUmUz5k0
while True
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
IEの表示待ちはこれですけど
他のアプリケーションの表示待ちする場合の方法ってありますか？
676:名無しさん＠お腹いっぱい。
07/02/19 17:39:32 P5MUdYEo0
>>675
ヘルプで『GETID』をキーワード検索しろ
677:名無しさん＠お腹いっぱい。
07/02/19 18:39:43 eyre+X9O0
>>670のリンク先、延々uwscの話題をしていてワラタ
678:名無しさん＠お腹いっぱい。
07/02/19 22:15:18 K8AGIvtf0
操作すんのが面倒ならデモ画面でも見てりゃいいのにな。
679:名無しさん＠お腹いっぱい。
07/02/19 22:52:16 16dl77Y30
comでエクセルを呼び出して作業させているのですが、
呼び出したエクセルのモジュールに作成した「sub処理()」を実行できずに、悩んでいます。
EXCEL.RUN("処理")やEXCEL.RUN "処理"とかやったのですがダメでした。
どなたか、ご教示願います。
680:名無しさん＠お腹いっぱい。
07/02/20 02:05:52 jUqXQ7cY0
>>675
STATUS, GETSTR, POSACC, CHKBTN
CHKIMG
681:名無しさん＠お腹いっぱい。
07/02/20 19:23:08 Xpux+e7b0
>>675
>>680以外ではGETITEMとか
//例(Jane): ステータスバーの表示が "|0 |完了 " になるまで待つ
repeat
GETITEM(ID, ITM_STATUSBAR)
sleep(0.2)
until all_item_list[0] + all_item_list[1] = "0完了"
682:名無しさん＠お腹いっぱい。
07/02/21 01:04:00 wkuVEwNm0
1.WEBサイトの特定の英語のテキスト箇所をコピー。
2.翻訳サイト（Excite翻訳など）のフォーム部分に先程コピーしたテキストをペースト。
こんな感じの流れはこのソフトで可能ですか？
683:名無しさん＠お腹いっぱい。
07/02/21 01:43:41 U+6PFKs/0
可能ですけど、2. をするくらいなら直接 http で POST しちゃって、
結果をツールチップで表示とかのほうがいいんじゃ。
むしろ、そういうことをしてくれるソフトやアドオンはいっぱいあるんじゃ。