自動化ツール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/ 321 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 11:26:03 ID:07NVT8wX0] 引っ越したばかりでネット環境が部屋にない。でも2chは見たい。 ネカフェで1個1個スレをクリックしてログを保存…面倒くさい。右手が吊る。 そんな時、UWSCを知りました。 openjane＋UWSCでスクリプト再生。あら雑誌を読んでる内に板全部のスレが保存できる。 700スレくらいの板で3分くらい。USBメモリで持ち帰って、家でゆっくりROM。 なんて便利なんだろう、作者さんありがとう。 同時接続エラーが出ない程度のスピードにしてるんだけど2chの鯖に負担かかる？ なんかもっと便利な使い方ありそうだ。過去スレ読んできます。 322 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 17:18:07 ID:Gb6WewGR0] アクティブにしないで、その操作だけを送るって事できないですよね 323 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 17:57:07 ID:KbN23QcZ0] 残念ながら出来ないっすね 324 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 19:44:28 ID:ppyEoi2B0] >>321 自動巡回できるちゃんぶら使えばいいのに。 325 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 21:16:49 ID:Gb6WewGR0] >>323 ですよね。 自分でプログラム核しかないかぁ 326 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 21:45:40 ID:7wzpHdM90] //おみくじ.UWS DIM 運勢[3]="大吉","中吉","吉","末吉" R=RANDOM(4) FOR A=0 TO 3 　IFB R=A 　　MSGBOX(運勢[A]) 　　EXIT 　ENDIF NEXT 327 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 22:28:14 ID:5koHXnxi0] //おみくじ.UWS DIM 運勢[3]="大吉","中吉","吉","末吉" MSGBOX(運勢[RANDOM(4)]) 328 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 00:13:13 ID:JeM0K0y/0] ああそうなのか、直接入れれば2行ですむのか。 どうもありがとう。 329 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 01:39:34 ID:i7V3wzgJ0] >>323 UWSCってWin32API呼べるんでしょ? SendMessage とか PostMessage でやれるんじゃないの？ 330 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 04:47:42 ID:BhIz7lT80] test test test むずい むずい むずい test こんなのみつけました 331 名前：名無しさん＠お腹いっぱい。 [2006/12/01(金) 06:45:36 ID:HqQsiF3P0] // Internet Explorer 上での文字設定、ボタンのクリック　（COM利用） // エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認 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 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 名前：名無しさん＠お腹いっぱい。 [2006/12/01(金) 07:12:38 ID:xAQgo5dN0] 手軽に画像の更新をしたいなあと思って 画像をショートカット(実行ファイル)に放り込むと特定のアップローダーにpostする、ということをやりたいんですけど、 このツールで出来ますか？ 333 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 09:35:19 ID:bhBGT+M70] >>332 まぁしこしこスクリプト書けばできるが、あまりUWSCが向いてるようには思わない。 PerlとかでHTTPしゃべらす方がスマートだと思う。 334 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 11:48:02 ID:i7V3wzgJ0] >>331 smは、documentの直下じゃないよ。 　　IE.document.Fm.sm.click() とか 　　IE.document.all["sm"].click() formsから辿る方法とか、いくらでもやり方ある ※ Fmは、FROMタグのname 335 名前：名無しさん＠お腹いっぱい。 [2006/12/01(金) 21:30:51 ID:Xs7RUjw90] CHKIMGをFPSゲームで使おうと思っているのですが、動的なところでどうしても画像判別ができません。 マウスがアクティブになるところ（メニュー画面など）では一応読み込めるようです。 フルスクリーンやウィンドウ両方で試しても読み込むことができませんでした。 CHKIMGなどでは判別することは不可能なのでしょうか？ わかる方がいましたらお願いします。 336 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 22:24:41 ID: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 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 00:03:58 ID:CWQeQlur0] >>334ありがと できた、 338 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 00:34:00 ID:lizCI7GG0] 06年12月02日00時33分 339 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 07:48:39 ID:43OZZphG0] しかしまだ難しい、ちょっと�Wを全角．半角間違えただけでエラーがでて、その理由までＵＷＳＣは教えてくれない、 １０分もプログラムにらめっこ状態になった 340 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/02(土) 17:42:44 ID:hvFLwMCZ0] エラーが出て教えてくれてるわけだが。 341 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 19:33:04 ID:DDIOW/mZ0] // Internet Explorer 上での文字設定、ボタンのクリック　（COM利用） // エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認 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 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 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 08:13:53 ID:Zdl4S4Sj0] ソースにnameが無い場合、どうやってｃｌｉｃｋを設定するの？ 343 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 13:24:17 ID:snS6N3rq0] 　sleep(0.1)を入れるといいかも 344 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 19:09:01 ID:JP0s2lkY0] >>341 せっかく新しい関数が追加されてるので IESetData(IE,True,"TAG=input",4)　とか IESetData(IE,True,"sm") IE.document.Fm.sm.click()　でもいけると思うけど 345 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 19:35:32 ID:JP0s2lkY0] >>342 IE.document.all.tags["input"].item[3].click() 　みたいな感じで あと最近追加されたIE操作用の関数もあります 346 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 20:13:39 ID:Ww/6AySw0] マウス動かしたりchkimgとか使わずにCOMの操作だけで済む場合は UWS使わずにVBスクリプトで書くほうがスマートだなと最近気付いた。 まだWebで調べながら試行錯誤しながら書くレベルだけど どこでも実行できるから便利だよね。 347 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 21:04:09 ID:VUpqkTxs0] 最近スレ伸びてるね もしかしてどこか厨雑誌で紹介された？ 348 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:25:23 ID:JOKqZmnZ0] // Internet Explorer 上での文字設定、ボタンのクリック　（COM利用） // エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認 IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("pc7.2ch.net/test/read.cgi/software/1156416884/200n-")// 掲示板 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 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:30:43 ID:JOKqZmnZ0] 06年12月03日21時30分 350 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:31:57 ID:JOKqZmnZ0] 成功21時40分に自動書き込み設定 351 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:40:40 ID:JOKqZmnZ0] 06年12月03日21時40分 352 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:41:16 ID:JOKqZmnZ0] よっしゃー 353 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 00:28:04 ID:MJakTm8F0] ↑喜んでるところまで自動なら神 354 名前：名無しさん＠お腹いっぱい。 [2006/12/04(月) 03:25:18 ID:WHrXC3Jy0] ありがとうございます 355 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 04:10:21 ID:OmF4uqP80] テストはテストスレでやれよボケ 356 名前：名無しさん＠お腹いっぱい。 [2006/12/04(月) 09:02:00 ID:Qn4XOe5q0] type="file"のボックスのvlalueに入力する方法ってある？ type="text"と同じように指定しても入らない 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, "保存")

---

---

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

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