自動化ツール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/ 307 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/25(土) 21:49:12 ID:wNqQP6lN0] CMサイトのCMを全自動で見るスクリプトをオネガイします。 308 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/26(日) 02:54:34 ID:58R/cqLI0] >>307 >>306 309 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/26(日) 05:11:30 ID:HmE0+f6Z0] >>308 ありがとー、出来ましたｗ 310 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 01:50:40 ID:zlEMbgyG0] uwscってKey Batや joy to keyみたいに キーボードとマウスにドライバレベルで割り込むのは不可能？ 311 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 04:12:33 ID:R+5LV7PM0] 不可能 312 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 10:27:14 ID:pSAEAzZ60] >>310 何したいの？ 入力内容のすげ替えだったら無理っぽいけど、 UWSCスクリプトを実行中にマウス・キーボードの 入力を禁止する関数ならあったと思った。 313 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:04:11 ID:qfSYCWZK0] 16進数にして表示するにはどうしたらいいのでしょう？ a=32767 print $a としてもエラーが出てしまいます。 314 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:13:47 ID:pSAEAzZ60] っ【FORMAT関数】 315 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:50:04 ID:qfSYCWZK0] >>314 でｋちあーーーーーーありいいい 316 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 23:40:17 ID:tuCDpiEC0] // DROPFILE サンプル "df.uws" - ファイル比較 DF 1.36 の場合（ファイラーのDFでは無い） app = "?:\?????\DF\DF.exe" //■DF.exe のパス wtitle = "DF" //■タイトル wclass = "Afx:400000:8:10011:0:" //■クラス //-------------------------------------------- fpath = PARAM_STR[0] id = GETID(wtitle, wclass, 0.1) if id<0 then id = EXEC(app) ifb id>0 then 　　CTRLWIN(id, ACTIVATE) 　　ifb fpath<>"" then 　　　　fso = CreateOLEObj("Scripting.FileSystemObject") 　　　　dir = fso.GetParentFolderName(fpath) 　　　　fname = fso.GetFileName(fpath) 　　　　DROPFILE(id, dir, fname) 　　endif endif === Unknown File & Directory へ関連付け "reg.uws" === uws = GET_CUR_DIR + "\df.uws" //■↑df.uws のパス keyname = "DF" //■ caption = "DFで比較(&A)" //■ pth = "<#DBL>"+ GET_UWSC_DIR +"\UWSC.exe<#DBL> <#DBL>"+ uws +"<#DBL> <#DBL>%1<#DBL>" //-------------------------------------------- ws = CreateOleObj("Wscript.Shell") ws.RegWrite("HKCR\*\shell\"+ keyname +"\", caption ,"REG_SZ") ws.RegWrite("HKCR\*\shell\"+ keyname +"\command\", pth ,"REG_SZ") ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\", caption ,"REG_SZ") ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\command\", pth ,"REG_SZ") // DropHandler （本家サンプルで *.uws を関連付けた場合） ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ") 317 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/29(水) 01:58:18 ID:Ysr2cqrx0] >>316 補足 DropHandler �@�Aどちらでも可。 //�@ Shell Extension For Windows Script Host - wshext.dll 使用 >>316 ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ") //�A .exe drop target - shell32.dll 使用 ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{86C86720-42A0-1069-A2E8-08002B30309D}","REG_SZ") 318 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/29(水) 15:48:46 ID:M/KTBCL60] tabキーやFキーの操作も記憶させたいのですが？ 319 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/29(水) 18:52:47 ID:ZG/xeMMU0] >>318 記憶してください？ 320 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 08:57:36 ID:KKb4lyTL0] >>319 uwscだと記憶できなくなかった？ 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/

---

---

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

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