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

1 名前：名無しさん＠お腹いっぱい。 [2006/08/24(木) 19:54:44 ID:x9yegvov0] Windowsを自動化させるツールUWSC。 ttp://www.h7.dion.ne.jp/~umiumi/ uwsc使いよ　己のスクリプトを晒すのだ。 前スレ 自動化ツールuwsc使いよ集まれ pc7.2ch.net/test/read.cgi/software/1107738590/ 357 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 19:10:25 ID:rtCP1keL0] ファイル名入力フィールド（type="file"） ブラウザからWWWサーバーにファイルをアップロードする際に用います。 入力フィールドの横には参照ボタンが表示されます。 WWWサーバー側にはファイルを受け取るための特別なCGIスクリプトなどを設置しておく必要があります。 セキュリティのために、初期値を設定したり、スクリプトで値を操作することはできません。 www.tohoho-web.com/html/input.htm 358 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 21:10:31 ID:rtCP1keL0] クリップボードへ入力したいものを送っておいて フォーカスを移動して右クリック貼り付け SCKEY(getid("- Windows Internet Explorer"),VK_APPS,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_RETURN) 359 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 00:38:41 ID:TfVwWult0] IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("headline.2ch.net/bbynews/")// 掲示板 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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 03:17:03 ID:4dBMWCwl0] お前等2chにアクセスすんのにいちいちIE使うなボケ。 361 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 03:34:03 ID:lDz8eYVx0] 基本は wget と curl だよな。 寂しくなったりしたときは telnet で喋るのもいいが。 362 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 10:31:03 ID:PMUEJKEi0] まだ難しいよな、数学で言えば、掛け算の九九をすっとばして、高等数学やるような気持ち 363 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 15:04:59 ID:UmSZpxfc0] でも「UWSCは難しい、もっと簡単にせよ」というのはこのスレでは一人なんだよな 364 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 16:39:26 ID:Xx8yar820] すれ違いかもしれないけど、 特定の時刻に決まった座標位置をダブルクリックしたい場合 このソフトうまく動かないんだけど、ネットゲームで使いたいんだけど 365 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 17:28:39 ID: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 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 18:54:35 ID:PMUEJKEi0] うーんうまくいかない。自分はタイマー自動でファイル（Ｆ）⇒名前をつけて保存 ⇒ファイル名（Ｎ）でファイル名の後ろに日付をつけて保存したいんだけど、 マウスとカーソルだけでプログラム作れるようになればいいのになあ 367 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 19:07:09 ID:PMUEJKEi0] >>365 あーできた ありがとうただ ファイルの種類をアーカイブで保存したかった。 368 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 19:17:24 ID:PMUEJKEi0] //　文字の送信 SENDSTR( ID,　文字列,　[番号,　送信モードフラグ,　ACC指定] ) 引数 　　ID：　Windowを識別するID 　　　　　（ID = 0　であれば クリップボードへ） 　　文字列：　送りたい文字列 　　番号：　左上から数えたエディトコントロールの順番 （１から指定） 　　　　　　　（デフォルトはフォーカスを持ったエディトコントロール）　　　　　　　 　　送信モードフラグ：　 　　　　　　　FALSE：　追加 （デフォルト） 　　　　　　　TRUE：　置き換え 　　ACC指定：　 　　　　　　　FALSE：　APIによる （デフォルト） 　　　　　　　TRUE：　アクセシビリティ用インターフェースを利用 番号の部分が難しい、ウインドウみたいにソースが使えない 369 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 19:28:22 ID:PMUEJKEi0] なきゃないでかまわんがやはり フリーのソフトはつかわんほうがいいのかな。 なんか怪しいソフトでも困るしなあ。いくら便利でも社長がちゃんとした人物 でないと、ウィンドウズＸＰ作ったビルゲイツはエイズの研究費出したり して悪人でないだろうと思って使っているが、社員全部を管理できるかといえば というきがする。 370 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 19:43:58 ID:TbpDXn5y0] な フ な で し と 371 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 20:07:59 ID:lDz8eYVx0] とりあえず難しいから使えない=>フリーソフトは怪しいから使わない、 っていう論法にワラタ。 バカは無理して使わなくてもいいお? 372 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 20:41:20 ID:kin3Zm3D0] 個人的には、uwscがオートメーションサーバー機能搭載してくれたら最高なんだが・・・ wshから簡単に利用できると使用者激増するだろうなー。 独自言語だと、どうしても習得に手間と時間かかるし 373 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 02:56:21 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 03:01:40 ID:+7fqDNkb0] あっそ 375 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 03:41:13 ID:FAzu1gps0] >>372 要らん事言うな。 やり兼ねないだろ。VBS有るのに。 俺はもっと退化してほしい。 376 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 05:31:27 ID: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 名前：名無しさん＠お腹いっぱい。 [2006/12/06(水) 13:43:20 ID:BvKVwaQG0] エッフェル塔のライブカメラの画像を日付つけて保存、（スケジューラーで1時間ごとにするときれい） IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("www.paris-live.com/paris_webcam/eiffeltowerwebcams.htm")// 掲示板 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 名前：続き [2006/12/06(水) 13:43:49 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 15:11:21 ID:adcM/QV70] NGWordに追加　KBD 380 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 15:46:24 ID:KUjaXZFz0] SCKEYっていうとっても便利な命令があるんだけどなーwww 381 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 17:45:57 ID:GLEwdEWu0] >>378 いいですね！ レスをまとめて参考にしたいのでコテにしてくれませんか 382 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 19:44:23 ID:FU5gZqhb0] 何この日記帳 383 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 21:10:02 ID:quIrFEQz0] >>377 わざわざIE起動せんでも、直接DLしたほうがいいんでないかい。 url = "www.images2-abcparislive.com/eiffelcam1.jpg" 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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 22:55:14 ID:JB2DjNOW0] 近頃異様にﾚｽ伸びてんなあ。 どこかで紹介されたか？ そういや、これでLotusNotesって操作出来るんかな？ 385 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 01:59:16 ID:VyEoqVxS0] できないものはない あえて言うとすればUWSCそれ自身 386 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 02:02:14 ID:PZ8cfJA90] DirectInput にイベント放り込んだりできないじゃない。 DLL 呼び出せばできるが。 387 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 14:44:40 ID:FRC6maaU0] キーボード操作で KBD(VK_RALT,UP,100) KBD(VK_D,DOWN,100) とあるのですがUPとDOWNの違いは何なんでしょうか？ 普通のクリックしかしていないつもりなんですが表記が違ってて… 388 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 16:21:19 ID:7TNBYEsO0] DOWNがキー押下げ UPが押していたキーを離す 389 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 16:32:10 ID:FRC6maaU0] >>388 有難う御座います。 390 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 16:50:46 ID:3GkzlLog0] どういたしまして 391 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 18:33:21 ID:hs1oaTsD0] KBDとMMV以外は廃止したほうがいい。 392 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 18:43:49 ID:7lLokSkD0] むしろKBDとMMVを廃止したほうがいい。 393 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 19:33:07 ID:hs1oaTsD0] >>392 mmvとkbdだけなら他のOSでも動く。 mmvとkbdだけにしてそれを拡張したほうがいい。 394 名前：名無しさん＠お腹いっぱい。 mailto:sage NGWord KBD [2006/12/07(木) 20:04:35 ID:ICY6rlFi0] >>369 >>378 かの有名な社長はきちんと偽善事業していますが 名前からして怪しい！そう思いませんか？ 怪しいフリーソフトは使わない方が良いと思います。 KBDは便利ですが…手遅れになる前に… あなたに感謝してます。 貴重な情報ありがとう。 395 名前：名無しさん＠お腹いっぱい。 [2006/12/07(木) 22:14:57 ID:7ZOeS0w50] >>394 桜田門の人？ 個人情報取るときは、本人に教えてほしい、共和党が選挙で破れたのは 国民の盗聴しすぎたからでないのかな、 民主党になれば権力のトップが替わるので不正が発見しやすい。 396 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 23:37:18 ID:2dPIF4520] Excelからマクロでスクリプトを出力してUWSCを起動させてる馬鹿は、俺以外にいるか？ 397 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/08(金) 00:03:09 ID:chHOovwv0] 漢だな 使ってるCADでショートカット割り振れないアイコン、しかも右下の辺鄙なとこにあるやつね、 そいつをクリックするのがめんどいんでロジの８つボタンマウスに割り振ってる、俺は。 398 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/08(金) 00:10:40 ID:ec1k12CL0] 連動させてファイルの圧縮も自動化させたいんだけどなにか相性いいやつある？ できればコマンドラインで操作したい LHAはファイル名の制限きついし…… 399 名前：396 mailto:sage [2006/12/08(金) 00:37:07 ID:0g+qQw1G0] >>397 エンドユーザが作成したデータを元に、 コマンドプロンプトもどき（メインフレームと通信する奴）に 入力する作業を自動化したら、そうなってしまったんだよ。 ホント レガシーシステムは地獄だぜ！ フゥハハハーハァー 400 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/08(金) 14:52:07 ID:nDsO2FL70] >>398 引数につけたファイルがアーカイブでなければ圧縮する その際の設定は事前に設定しておく っていうアーカイバを使えばいいんじゃないか？ 401 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/08(金) 16:42:24 ID:0zLBfT2k0] >>398 アイコンに D&D すると圧縮してくれる奴なら、 コマンドラインから渡せるんじゃないの? と言うか別に DLL 叩けばいいんジャマイカ? 402 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/08(金) 19:32:34 ID:9NJfuLhZ0] ずーっと前から気になってたんだけど○○叩くって何からきてんの？ DLL叩く、Winsock叩くとか日本語として変じゃない？ 403 名前：名無しさん＠お腹いっぱい。 [2006/12/08(金) 20:27:49 ID:dcPVzq7I0] IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("prog-etc.bbs.thebbs.jp/1164265310/")// 掲示板 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 名前：続き [2006/12/08(金) 20:29:21 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/08(金) 21:23:09 ID:nDsO2FL70] そのURL覗いてみたら早速試されてる形跡があってﾜﾛﾀ 406 名前：名無しさん＠お腹いっぱい。 [2006/12/08(金) 21:33:55 ID:hZKfmjKg0] ありがとう！ 407 名前：名無しさん＠お腹いっぱい。 mailto:sage NGWord KBD [2006/12/09(土) 03:45:45 ID:himiiWWI0] >>403 >>404 >>406 あ！まだやってるんですか…驚きました。 賢明なあなたのことですから全て理解して戴けたと思っていたのですが… 残念です、しかし、まだ間に合います、 過去の私の書込みを思い起こしてください。 気になる情報が有った時には下記スレッドへお願いします。 24時間注目してますから。 KBDqb5.2ch.net/test/read.cgi/operate/1165491164/ 408 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/09(土) 05:20:01 ID:J16nIrh00] >>406 無意味な文章を定期的に書き込むのは「迷惑」行為に当たるぞ。 良く考えて行動してくれ。 UWSCがとばっちりを受けて公開中止になったらどう責任取るんだ！ 削除要請出しとけ！ 409 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/09(土) 06:19:57 ID:CpeVJ4Nj0] >>402 英語の kick から来てるんだからおかしくても問題無いだろ。 410 名前：名無しさん＠お腹いっぱい。 [2006/12/09(土) 06:23:07 ID:MrCYpI9z0] どういたしまして 411 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/09(土) 17:54:50 ID:nWYe904v0] ２チャンに自動書き込みするマクロの例プリーズ 412 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/09(土) 20:52:45 ID:8gCVgCO70] sendstr(getid（"OpenJane 【ソフトウェア】 - 自動化ツール"）,"ウルセー馬鹿") 413 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 04:08:19 ID:dN5jDykH0] 某競馬ゲームに自己開催レースを開始する際に4数字を入力しなければならず 当然その文字はサイズ及び位置が微妙に変化しキャプチャしたファイルを用意するには 膨大な量になるのですが、、、こういった方法以外で4つの数字を判別して自動的に 入力する様なスクリプトを組むには何か方法はありますでしょうか？ 414 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 06:03:24 ID:D/A7riMi0] ０−９９９９まで順番に入力。 415 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 06:10:07 ID:K3uOep/x0] その4つの数字ってテキストじゃなくて画像データなの？ 416 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 06:47:30 ID:0UNXTb3i0] 最近いろんなフォームで、画像で数字を表示して「この数字を入力してください」って出るよな。 自動処理よけなんだろうな。 画像の領域さえ分かれば、それをBMPに保存して、OCRソフトに送り込んで… スゲー面倒くさそう。 こういう不正処理の仕方ばっかり話し合って不正ユーザー御用達ソフトのイメージがついちゃうのもちょっとアレだなあ。 417 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 13:32:45 ID:WZj2QqSU0] 既存のOCRソフトは印刷物とかのフォントが整った文字しか読めないんだよね。 結局自分でプログラム書かないと無理だった。 大学の図書館で画像認識の教科書借りてきたよ。 418 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 18:53:40 ID:7pZAjrPi0] >>415 テキストのような綺麗な文字を大小の組み合わせ4文字にしている画像データですね。 >>416 不正というかこういったツールが無いお陰で過疎化が進んでいて金をがめたい企業が 課金アイテムを更に高額化させて（役所考え的）悪循環を生んでいる状態で 自主開催レースを行うと微々たるアイテムですが手に入るという条件から 一つの防衛手段であり、ハッキングを促すツールではないですしGAMEデータを直接改変 するものでは無いのでユーザーの同士の為なら企業の意思に反しても咎めません特には・・ね。 OCRか・・・ 419 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/10(日) 19:26:30 ID:D/A7riMi0] ていーうかーそれくらい手入力しろよ。 420 名前：ｷﾀ━━━━━━m9( ﾟ∀ﾟ)━━━━━━!! [2006/12/10(日) 19:50:22 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/11(月) 17:44:49 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 05:19:39 ID:xrHkevWY0] トライって何? 423 名前：名無しさん＠お腹いっぱい。 [2006/12/12(火) 07:43:07 ID:hRXY00b50] ＜＜ ありがとうございます。 424 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 08:09:05 ID:xAxZUHOq0] >>423 > ＜＜ ? 425 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 18:15:36 ID:LtBtwK3a0] メモ帳が開いていれば以下の動作をする と言う文を作る場合、式の部分はどの様に書けばいいのでしょうか すみませんが教えてください。 426 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 20:18:36 ID:xrHkevWY0] while メモ帳が開いていれば() 以下の動作をする() Wend Function メモ帳が開いていれば() Result= getid("メモ帳")>=0 Fend Procedure 以下の動作をする() : Fend 427 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 20:21:38 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 20:34:05 ID:xrHkevWY0] 誰かUWSCの基本関数(バージョン1.0からあったようなヤツ)を VBS用にしたのを公開してくれないか? 対応リストがあるとどっちのユーザにも便利だと思うんだが? 429 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 20:43:06 ID:FgZSUGnE0] そんな便利なものがあったらUWSC必要なくなるな。 430 名前：名無しさん＠お腹いっぱい。 [2006/12/12(火) 21:08:13 ID:I4NEN3JE0] 質問です。 FOpenで開いたファイルを別名で保存したいのですがFCloseすると上書きになってしまいます。 開いたファイル名+"処理済"として出力したいのですがこういった事は出来ないのでしょうか？ 431 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/12(火) 21:09:51 ID:xrHkevWY0] それでもやっぱりUCSWの法が便利だよ。 ただ、誰かに配る時はVBSにしておいた方が便利だから。 432 名前：名無しさん＠お腹いっぱい。 [2006/12/13(水) 00:29:48 ID:08giVOq70] >>430 俺も知りたい。 現状doscmdで処理ファイルを別フォルダにコピーしてdoscmdでリネーム、その後処理を行っている。 この方法だとコピー＞読み込み＞処理＞書き出しになってしまう。 コピーする分時間的ロスになるので 読み込み＞処理＞書き出しで出来る方法があれば知りたい。 433 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/13(水) 00:51:10 ID:YBAilhCV0] >>432 多分close時にﾌｧｲﾙを別名保存は無理なような気がス… というか、ﾌｧｲﾙのOpen前に doscmd("copy /y hoge.txt hoge,txt.bak") とかではダメなんか？ 434 名前：名無しさん＠お腹いっぱい。 [2006/12/13(水) 01:52:17 ID:Ofnypsy40] FID1 = FOPEN(ファイル名) 　　STR = FGET(FID1, F_ALLTEXT) FCLOSE(FID1) // 処理 FID2 = FOPEN(ファイル名+"処理済",F_WRITE) 　　FPUT(FID2,STR) FCLOSE(FID2) 435 名前：425 mailto:sage [2006/12/13(水) 01:52:34 ID:XdCi3l4y0] >>426 >>427 遅くなりましたが有難う御座います。 436 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/13(水) 03:13:53 ID:WrpxBZ3A0] >>426　ID:xrHkevWY0 「Procedure 以下の動作をする()」 でメモ帳を閉じないと悲惨なことになるが… ケアレスだと信じたい。 なんで while なの？ 437 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/13(水) 03:19:04 ID:FjqYCp2T0] で？ 438 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/13(水) 12:03:10 ID:e2lwdiCv0] >>433 >>434 ありがとうございます。 ファイルサイズが大きい＆多いのでコピーはしたくなかったんです。 確かに>>434のやり方ならロス無いですね。 ありがとうございました。精進します。 439 名前：名無しさん＠お腹いっぱい。 [2006/12/14(木) 10:52:57 ID:b++jM5LY0] 面白いプログラムだけどWinnyの作者が有罪判決されたしな プログラムこれから 作りにくい、悪用したやつがわるいと思うが、作った者を悪いとした判決 440 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/14(木) 11:34:27 ID:+YYrk/aI0] >>439 日本語でおk あと、京都地裁は ny を作ったことが悪いとは言っていない。 判決ちゃんと読むべき。 441 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/14(木) 14:53:35 ID:4kasxE8b0] UWSCだっていくらでも悪用できるし、たぶん作者だってそれを認識した上で公開してるでしょ？ 他の様々なソフトとその作者もしかり・・・ 半ケツをチラっと見たうえで、俺も439と同じように感じた。 442 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/14(木) 15:08:00 ID:F2PcCtXj0] 良くは知らないけど、 あれの場合は2chで認識してる旨の発言をしてるのが決め手なんでしょ？ 少なくともそれすらないのに>>441みたいに「たぶん」なんて理由では裁けないでしょ 443 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/14(木) 23:36:46 ID:mjghHbZ+0] 使い方を紹介しまくった、某雑誌も有罪にして欲しいです 444 名前：名無しさん＠お腹いっぱい。 [2006/12/14(木) 23:56:24 ID:3Kt7T7f60] Winnyのにたようなソフトが外国にあったと思うが、その場合どうなるんだろう． 外国人は罰せず日本人だけ罰したら日本のプログラム技術 がどんどん遅れるだろう、 445 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/15(金) 00:03:35 ID:k+l3BTdp0] ツール自体は白って明言されてるだろ。 446 名前：名無しさん＠お腹いっぱい。 [2006/12/15(金) 08:59:40 ID:Ez6AWitt0] ツール自体と、その開発行為が白でも、ツールが悪用されるのを認識したうえで、提供を続ければ、 幇助とみなされるってことじゃないの？判決の意味は。 色んなソフトの作者の掲示板に、 「このソフトは、悪用できる可能性がありますが、どうお考えですか？」 とか、 「このソフト悪用しようと思います」 みたいなことを書いてまわれば、次から次へと公開停止になるんじゃまいか？ｗ 447 名前：名無しさん＠お腹いっぱい。 mailto:sage NGWord KBD [2006/12/16(土) 01:29:55 ID:uS95ovKx0] >>439,444,446 「UWSCの知名度を上げたい」という趣旨は充分承知してます。 しかし、既ユーザーのスレッドに幾ら数多く書き込んだとしても 「状況は何も変わらない」と思えるのは私だけでしょうか？ むしろ現状では逆効果のような気がして成りません。 やはり、ご自分でサイトを立ち上げてUWSCの優位性を 力説された方が最も効果的ではないかと考えています。 あなたはどのように思われますか？ ついでに、余り足跡を残し過ぎない方が安全です。 448 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/16(土) 03:22:04 ID:OQ3z3BDQ0] ↑意味不明ｗ　誤爆？ 449 名前：名無しさん＠お腹いっぱい。 mailto:sage NGWord KBD [2006/12/16(土) 04:45:48 ID:q5NvKemv0] あ、バカには理解できないかもしれませんね。 450 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/16(土) 08:05:00 ID:bV4BfKKU0] >>445 > ツール自体は白って明言されてるだろ。 だったら有罪はおかしいだろ。お前もこじつけで逮捕されやがってみやがっれ 451 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/16(土) 14:01:25 ID:3qaG3LqX0] >>447 日本語でおk >>450 だから判決文くらい読んでレスしろと。 452 名前：名無しさん＠お腹いっぱい。 [2006/12/16(土) 17:35:17 ID:Qs/JjjiN0] さて、自作スクリプトを晒していきますよ。最近このツールに嵌ったからな 453 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/16(土) 17:38:45 ID:44Kiz7S30] >>452 そういう需要はないのでお引取りください。 454 名前：名無しさん＠お腹いっぱい。 [2006/12/16(土) 18:01:52 ID:Qs/JjjiN0] あーあ萎えたわ 455 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/16(土) 19:05:47 ID:3qaG3LqX0] >>454 これは素晴らしいスクリプトですね。 目から鱗です。 456 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/17(日) 00:25:01 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/17(日) 00:25:36 ID: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>

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef