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

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/04/16(月) 07:57:49 ID:+HI9MOeK0] Windowsを自動化させるツールUWSC。 ttp://www.h7.dion.ne.jp/~umiumi/ uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。 前スレ 自動化ツールuwsc使いよ集まれ2 pc11.2ch.net/test/read.cgi/software/1156416884/ 755 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 06:10:50 ID:7B/GQZFQ0] STOPFORM(true) ID = Exec("C:\WINDOWS\system32\mspaint.exe") while ID = (-1) // 負荷が高いとID拾えないので sleep(0.1) ID = GetID("無題 - ペイント") wend Repeat; sleep(0.1); Until GetKeyState(VK_CONTROL) StartX = G_MOUSE_X StartY = G_MOUSE_Y sleep(1) While !GetKeyState(VK_CONTROL) CLKITEM( ID, "ファイル\新規", CLK_MENU ) sleep( 0.1 ) // Ctrlキーで中断・再開 ifb GetKeyState(VK_CONTROL) then sleep(5) Repeat; sleep(0.2); Until GetKeyState(VK_CONTROL) sleep(1) endif MMV( StartX, StartY ) BTN( LEFT, DOWN, StartX, StartY ) EndX = Status(ID, ST_X) + 30 EndY = Status(ID, ST_Y) + 10 MMV( EndX, EndY ) BTN( LEFT, UP, EndX, EndY ) If DlgWait(ID, EndX , EndY) Then Continue If Status(ID, ST_TITLE) = "無題 - ペイント" Then break CLKITEM( ID, "ファイル\上書き保存", CLK_MENU ) DlgWait(ID, EndX , EndY) wend CtrlWin(ID, Close) MsgBox("処理が終了しました。") 756 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 06:12:23 ID:7B/GQZFQ0] // マウス形状が通常の状態が１秒ほどあればタイムアウト。 // その間にダイアログが表示されるかどうかで戻り値が変わる。 // ダイアログが出た場合、OKをクリックする。 // True: 窓出現　　False: 窓出ず Function DlgWait(ID, EndX , EndY) Result = False cnt = 0 while cnt < 6 sleep(0.1) MMV( EndX , EndY ) if MUSCUR() = CUR_ARROW Then cnt = cnt + 1 CID = GetChldID(ID) Ifb CID Then sleep(1) ClkItem(CID, "OK") Result = True break endif wend Fend // 子ウィンドウを探す // 戻り値:子ウィンドウのＩＤ。見つからなければ０。 // PID：親ウィンドウＩＤ // CID:子ウィンドウＩＤの候補 // GW_ENABLEDPOPUPはWindows2000以降のみでサポート // // GetWindowによる子ウィンドウ取得を、GetChldIDに使ってみたが、 // Zオーダーで手前のウィンドウを全て取得するので選別する必要がある。 // メニュー Class:"#32768" // ダイアログ Class:"#32770" // ツールチップ Class:"tooltips_class32" 757 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 06:17:23 ID:7B/GQZFQ0] Function GetChldID( PID, CID = 0 ) 　Ifb CID Then 　　Ifb PID = STATUS( CID, ST_PARENT ) Then 　　　result = CID 　　　exit 　　endif 　endif 　h = GetWindow( IDToHnd(PID), GW_ENABLEDPOPUP ) 　Ifb h Then 　　S = Status(HndToID(h), ST_CLASS) 　　Select S 　　　case "#32768" 　　　　Result = 0 　　　case "tooltips_class32" 　　　　Result = 0 　　　default 　　　　Result = HndToID(h) 　　Selend 　Else 　　Result = 0 　Endif Fend // エクスプローラーとペイントを使った、Jpeg画像ファイルダイエットスクリプト 2008/10/21 // 使用方法：対象ファイルをエクスプローラーで表示し、ペイントが起動したら、エクスプローラーの // 　　　　　　　ファイル一覧画面の一番下のファイルにマウスカーソルを合わせ、Ctrlキーをクリックする。 // Ctrlキーで中断。 ソースは >>755-757 ※エクスプローラーで、ファイルを詳細表示し、表示中ファイルの一番下のやつをクリックすると勝手に一つスクロールする。 　これを使うと簡単に順番に処理することができる。スクロールしない場合は窓の高さを変更する。

---

---

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

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