自動化ツール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/ 730 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 16:11:48 ID:rt4k6YB30] >>728 出来るけど、ｼｮｰﾄｶｯﾄKey絡みならAHKの方が楽だと思う。 731 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 16:16:45 ID:dFd2Qpc10] 私はＡＨＫでuwscファイルを呼び出すけど 732 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 16:21:26 ID:rt4k6YB30] >>731 お、同志ｗ 自分も行数あるｽｸﾘﾌﾟﾄはすぐに面倒になってUWSCで書いてるわ… 733 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 18:00:21 ID:5VRwikzI0] ある株ソフトにアラーム機能がないので UWSCで出来たらいいなと思いましたが どうしたらいいのか分かりません。 そのソフトはシグナルが出たときに 一番上の行に時間やら銘柄やら株価などが更新されていきます。 上昇のシグナルは緑背景に白文字、 下降のシグナルは赤背景に白文字となっており 上昇の緑の時にだけアラームを鳴らしたくて WHILE TRUE IFB PEEKCOLOR(887 , 241) = $2F6B55 THEN SOUND("C:\WINDOWS\Media\notify.wav") sleep(2) else sleep(1) ENDIF WEND 分からないなりにやってみたけど これじゃあ赤いシグナルから緑に変わったときにしか 役に立たない・・・ ボクにも書けそうな簡単なスクリプトあれば教えてください。 734 名前：733 mailto:sage [2009/01/14(水) 21:00:55 ID:5VRwikzI0] 追記 とにかくソフトになにか変化があったらアラームを 鳴らさせるように出来ないでしょうか？ 735 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 22:46:19 ID:INWUQKt00] そこまで聞くならソフト名ぐらい晒せ 736 名前：733 mailto:sage [2009/01/14(水) 22:51:25 ID:5VRwikzI0] >>735 大人買検知機というソフトです。 www.vector.co.jp/soft/winnt/business/se359706.html 737 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 22:55:16 ID:hOB1qOFr0] いっこのループと、いっこの条件分岐が出来てるから… 後は、ほしい数だけ条件分岐を作れば出来るよ。 738 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 22:59:56 ID:rt4k6YB30] >>734 ttp://ochoja.web.fc2.com/uwsct/0610uwsct.html#MakingSupport UWSCコードの断片生成器 を使わせて貰って一番都合のよいもの（status,str,etc)選んでｽｸﾘﾌﾟﾄ書けば良い。 739 名前：733 mailto:sage [2009/01/14(水) 23:34:18 ID:5VRwikzI0] >>737 どういう条件分岐作ればいいのでしょう？ peekcolorだけでやるのは無理ですよねえ？ >>738 ***** getstr() sendstr() ******************** getstr(id,0,STR_STATIC)="大人買検知機" getstr(id,0,STR_ACC_STATIC)="時刻" getstr(id,1,STR_ACC_STATIC)="時刻" getstr(id,2,STR_ACC_STATIC)="銘柄" getstr(id,3,STR_ACC_STATIC)="約定値" getstr(id,4,STR_ACC_STATIC)="出来高" ちょっとやってみましたが getstrで更新される文字とれるのでしょうか？ むずかしい〜 740 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/14(水) 23:39:21 ID:3rpO1RzOP] >>733 えーと監視する項目の色が緑に変わったときにアラームを鳴らしたいんだよね？ ということは、前回チェックした時の色と今回の色を比較しなければダメだよ。 色は何種類あるの？　赤と緑以外に通常の表示色はある？ それと気になった点を言うと、何秒おきに監視するの？　１、２秒単位で監視する アルゴリズムになっているようだけど無駄にマシンパワーを食うんじゃない？ 30秒おきとか1分おきとか5分おきとかだよね？ アルゴリズムを書くけど　スクリプトにする時は文法と変数規約に則して変えてね。 ※←は代入の意味ね。 前回の色 ← 通常色 今回の色 ← 通常色 WHILE TRUE 　今回の色 ← 今回の色を取得して変数に代入 　IFB 前回の色と今回の色が違う　AND　今回の色は緑 　　アラームを鳴らす 　ENDIF 　前回の色 ←　今回の色 　次回チェックまでXX秒スリープ WEND 741 名前：733 mailto:sage [2009/01/15(木) 00:55:00 ID:tW7kX9XU0] >>740 緑背景から緑背景の場合もあるから 文字の入る場所も含めて取得する地点を複数にして 判断すればいいのかな 比較ののところがどう記述すればいいのかまったく分かりません。 今のところ１秒でやっても負荷たいしてかからないけど 複数地点にして比較すると相当負荷かかってくるカモですね。 その場合はもうちょっと間隔あけるようにします。 742 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/17(土) 11:18:45 ID:iMN83Hym0] // ＝＝＝ 前回の色 = "" WHILE TRUE 　　WHILE TRUE 　　　　今回の色 = (PEEKCOLOR(887 , 241) 　　　　　IF !(今回の色 = $白ーい色) THEN BREAK // 白以外ならループ抜ける // !で真偽反転だっけかな； 　　　　今回の色 = (PEEKCOLOR(111 , 222) 　　　　　IF !(今回の色 = $白ーい色) THEN BREAK // 白以外・・ 　　　　今回の色 = (PEEKCOLOR(333 , 444) 　　　　　IF !(今回の色 = $白ーい色) THEN BREAK // 白以外・・ 　　WEND 　　IFB !(今回の色 = 前回の色) THEN 　　　　// 同じ色ではない場合の処理 　　　　IF 今回の色 = $2F6B55 THEN SOUND("C:\WINDOWS\Media\notify.wav") // グリーンなら 　　　　IF 今回の色 = $レッドオ THEN SOUND("C:\WINDOWS\Media\レッドオ.wav") // レッドなら 　　ENDIF 前回の色 = 今回の色 sleep(1) WEND // ＝＝＝ 泥くせ；；； 743 名前：733 mailto:sage [2009/01/17(土) 20:56:43 ID:3elNHqC+0] 分からないなりに理解しようとしましたが 色を取得するってところが全然分からない。 今回の色とか前回の色oldcolor newcolor？ 744 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/17(土) 23:58:47 ID:70fVoJI80] >>743 ひょっとして変数が判ってない？ いずれにしろ、UBTrek使ってpeekcolorを検索すれば沢山ヒットすると思う。 745 名前：733 mailto:sage [2009/01/18(日) 00:49:03 ID:V1b5lGQF0] >>744 単純なpeekcolorの記述は何個か出てきましたが 前回の色と今回の色を比較するような例が見つかりませんでした。 746 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 01:13:45 ID:WQ5z9x9T0] >>745 dim color=peekcolor(100,200) while true newcolor=peekcolor(100,200) ifb !color=newcolor 　msgbox("変わった") 　color=newcolor endif sleep(0.5) wend 無限ループなので適当にBreak。 Mouseorg(id,2)使ってwindow指定した方がよいかも。 RGBが少しでも変化すれば反応してしまうので、RGBに分解した方がよいかも。 747 名前：733 mailto:sage [2009/01/18(日) 01:13:47 ID:V1b5lGQF0] 緑、赤とか関係なく ある一点の色変化があったときに アラームを鳴らす具体的なスクリプト教えていただけませんか なんとかそこから発展させてやっていきたいと思いますので。 748 名前：733 mailto:sage [2009/01/18(日) 01:18:03 ID:V1b5lGQF0] >>746 ありがとうございます でもまったく反応しないですね。 このままじゃダメなんでしょうか？ 749 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 01:21:04 ID:aouJYoBm0] >>748 プログラムの基礎から学び直したほうがいいよ 君にはまだ早い 750 名前：733 mailto:sage [2009/01/18(日) 01:29:38 ID:V1b5lGQF0] あ、反応しましたが なかなか反応しない感じです。 751 名前：名無しさん＠お腹いっぱい。 [2009/01/18(日) 03:18:31 ID:lcf3XQYB0] 皆さんのＵＷＳＣを使用する用途は大体何ですか？ 自分のＰＣ環境の最適化以外にＵＷＳＣというのは マスターしたとしても他に例えば何に役立つのでしょうか？ 例：仕事面　ＷＥＢ製作面 etc ﾏｼﾞ質問です 752 名前：WTTEkBtZS mailto:xthaterends@yahoo.com [2009/01/18(日) 03:22:58 ID:24LUwixi0] rybeiddery.awardspace.com/dominos-sub.html dominos sub maridoctoge.awardspace.com/ruff-ryders-columbus.html ruff ryders columbus caross.awardspace.com/darren-nadel.html darren nadel maridoctoge.awardspace.com/ruff-ryders-soccer.html ruff ryders soccer rybeiddery.awardspace.com/dominos-pizza-nutrition.html dominos pizza nutrition therybaive.awardspace.com/lenora-jubilee.html lenora jubilee caross.awardspace.com/nadel-jewish.html nadel jewish maridoctoge.awardspace.com/ruff-ryders-layout.html ruff ryders layout therybaive.awardspace.com/jubilee-history.html jubilee history deadingrain.awardspace.com/facbook.html facbook therybaive.awardspace.com/red-cedar-jubilee.html red cedar jubilee caross.awardspace.com/natasha-nadel.html natasha nadel rybeiddery.awardspace.com/pizza-hut-ottawa.html pizza hut ottawa caross.awardspace.com/nadel-sarasota.html nadel sarasota maridoctoge.awardspace.com/bay-ruff-ryders.html bay ruff ryders maridoctoge.awardspace.com/left-ruff-ryders.html left ruff ryders caross.awardspace.com/nadel-artist.html nadel artist maridoctoge.awardspace.com/ruff-ryders-do.html ruff ryders do caross.awardspace.com/bernard-nadel.html bernard nadel caross.awardspace.com/fred-nadel.html fred nadel 753 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 05:43:43 ID:85r780v+0] プログラムの何の知識も無いものがuwsc用のスクリプトを 作れるぐらいにったと仮定した場合に、既存のプログラミング言語では何が一番 とっつき易いでしょうか? 754 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 06:09:29 ID:7B/GQZFQ0] >>751 仕事面：決まりきった作業、繰り返し作業の効率化 Web製作面：ランダムな操作で想定外行動のチェック漏れ発見（意味あるかは知らない セキュリティ面：泥棒が侵入してきたとき、クイックメニューから一発でメールで連絡できる。 　　　　　　　　ある程度相手が分かってる時便利。 　　　　　　　　DOSコマンドでメール送信するのを使ってたけど、コマンドラインにパスワード入れなきゃいけなかったので削除されてしまった。 うｐろだのJpeg画像とか、一回ペイントで開いて上書き保存すると、サイズが半分近くになる場合が多い。 だからダウンロードした画像のリストをエクスプローラーで出して、ドラッグとCtrl+Sで更新を繰り返すのとか作った。 あとは、性能は低いけどパスワードクラックとか２Getスクリプトとか たくさんのID作りたいときに自動登録マクロとか。 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 ※エクスプローラーで、ファイルを詳細表示し、表示中ファイルの一番下のやつをクリックすると勝手に一つスクロールする。 　これを使うと簡単に順番に処理することができる。スクロールしない場合は窓の高さを変更する。 758 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 06:25:01 ID:7B/GQZFQ0] >>753 VBSかな。これもスクリプト言語だけど・・・ 次はVB.netかな。 >>750 sleepが0.5秒だから反応は遅いね。 759 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 09:12:15 ID:BRvZ2wPi0] >>733 とりあえず、最低限 ttp://big.tm.land.to/handbook/uwsc.htm の内容くらいは自分で理解してから質問してくれぃ。 760 名前：733 mailto:sage [2009/01/18(日) 11:55:00 ID:V1b5lGQF0] >>759 一応読んでみたのですが 取得した値と新しく取った値を比較 さらに新しく取った値と比較みたいなことは どこにも書いてないのではないでしょうか？ >>758 これって最初に取得した色と比較してＭＳＧＢＯＸが出るようになってますよね？ ある地点の色を取得して現在の色と比較 さらに取得して新しく取得した色と比較と これを繰り返していきたいんです。 761 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 12:41:56 ID:O40sJXqz0] >>760 あなたは日本語言語でちゃんと処理を記述してるじゃないか。 あなたがセンテンスを分割して2行で書いたとおり uwscで2回比較処理をすればいいじゃないか。 これ以上はちょっと俺は関与することに面白みを見出せないわ 別にアルゴリズム的に難題というワケでもなし。 単なる知識不足のサポートは自助努力で補うといいよ。 …書いたものに駄目だしをされるだけなのは疲れるからね。 　自分で書きなさい。想定がつけば駄目だしをしてあげるから。 762 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 12:45:57 ID:Xm1Xcjw/0] 自分でやろうって気が少しも感じられないもんな 763 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 13:15:24 ID:I+l/Qm3w0] >>760 自分のやりたいことがそっくりそのまま1から10まで書いてあるわけ無いだろ。 基本的なことは書いてあるんだからそれを理解したなら自分で作れ 764 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 15:31:11 ID:xwkw1ib70] >>754 真面目にレスありがとうございます UWSCで画像を対象にした条件分岐や色々作成した事はあるのですが （今ではすっかり文法忘れてます） ルーターにアクセスしてある設定を切り替える、等も UWSCで可能でしょうか？ PHP等のスクリプトですると難しそうなので･･･ 765 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/18(日) 18:34:11 ID:o9RUmICX0] 可能です 766 名前：733 mailto:sage [2009/01/19(月) 15:25:59 ID:V9clvX4k0] みなさんのヒントを元になんとか完成しました。 またつまづいたらよろしくお願いします。 767 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/19(月) 20:54:27 ID:qcrdC3FS0] 　 ハハ お断りします 　(ﾟωﾟ) ＿(_つ/￣￣￣/＿ 　 ＼/＿＿＿/ 768 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 00:58:10 ID:CMylmmuM0] [Ver4.5] 769 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 01:37:12 ID:0N/gC0gi0] 高レベル記録… なんというお手軽システム。 770 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 10:17:34 ID:Rt1OsezX0] うう、まだcall文で変数が使えんのか・・・ 771 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 11:22:31 ID:mivuHGw40] IE_Subってもう入手できないの？ 772 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 16:02:13 ID:6xnO4udb0] 一昨日からスクリプト組始めたんですが、どうにも配列変数の使い方(定義を含めて)がわからないので 詳しい方ご教示願います。 例えば変数ABC(x､y)に10*10=100個の変数にX軸Y軸共に1を格納していく場合、 BASICで書くと（うろ覚えですけど。） FOR Y=0 to 9 FOR X=0 to 9 ABC(X,Y)=1 X=X+1 NEXT X Y=Y+1 NEXT Y と、したい所をuwscでは最初にどう定義して配列変数を使っていけばいいですか？ ヘルプ見たんですけど、イマイチイメージがつかめません お願いします。 773 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 16:09:22 ID:6xnO4udb0] あ、FOR〜NEXTってX=X+1とかいらないんだっけ？・・・orz 774 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 17:49:05 ID:LpFWL/UM0] どうって、 DIM ABC[10][10]って定義して > ABC(X,Y)=1 ABC[X][Y]=1 っていれてくだけでしょ… 775 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/20(火) 18:03:13 ID:6xnO4udb0] ああ、（x,y）じゃなくて[x,y]じゃないといけないのね・・・helpそういう意味かorz とんだ勘違いしてました。どうもです 776 名前：名無しさん＠お腹いっぱい。 [2009/01/23(金) 08:39:26 ID:n0Gk8YsY0] 複数のスクリプトを連続で起動させるにはどうすればよいですか？ 1のスクリプトがおわったら自動的に2をのスクリプト起動、2→3、3→4...という感じです。 777 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/23(金) 10:36:35 ID:E4bxtYk+0] >>776 各ｽｸﾘﾌﾟﾄの最後でcall。 もしくは exec("ﾌﾙﾊﾟｽ\uwsc.exe ﾌﾙﾊﾟｽ\hoge.uws")　 こちらは多重起動禁止だとダメかもしれん。 778 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/23(金) 12:19:14 ID:v1eHViqS0] >>776 1の頭で2,3,4をcallして 1でprocedureやFunctionを順に呼び出してもいいよ 779 名前：名無しさん＠お腹いっぱい。 [2009/01/23(金) 12:30:51 ID:n0Gk8YsY0] >>777 >>778 ありがとうございました。とても参考になりました。 780 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/23(金) 14:55:53 ID:uyPNdhnC0] >>705さんの >IEを操作するのならCOM使うとフォーカス奪われないよ これについて理解を深めたいのですがどのあたりを具具れ場良いのでしょうか？ 781 名前：705 mailto:sage [2009/01/23(金) 20:41:40 ID:CkpYM4hA0] >>780 これに関してはググってないからわかんない ヘルプのじゃ難しい？ スクリプト > スクリプト関数 > COMオブジェクト, IE操作関連 あとはページソースと睨めっこ 782 名前：780 mailto:sage [2009/01/23(金) 22:39:18 ID:aJMC8HA30] >>781 ありがとうございます。よく読んでみます。 783 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/24(土) 16:24:29 ID:T53k2DPg0] かなり、基本的なことで恥ずかしいことなのですがどうしても解決できず… HAZU = GETID("www.***") ClkItem(HAZU, "事件", CLK_BTN) 上記では、webウィンドウ上のアイテムをくりっくすることができません。 エラーは起きないのですが。。 原因としてはなにが考えられるでしょうか？ 784 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/24(土) 16:35:10 ID:jFu+yqaK0] left clickではないだろうか。 785 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/24(土) 17:06:55 ID:JOvNHrQj0] >>781=>>783？ 786 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/24(土) 19:22:15 ID:nTyZ62iO0] 早速のへんしんあり Left Clickということは、そのあとに座標指定ですよね？ web上だとずれてしまいませんか？？ >>785 違いますよ〜 787 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 02:35:43 ID:XdmZStkM0] >>782 わからなかったからここできくといいよ その時はURL晒すように！ ↓のようなレベルの質問しなければだけどｗ ID:5VRwikzI0 ID:V1b5lGQF0 >>783 IE上のはCOMで書かないとだめ ウィンドウ関連はWindowsフォームを扱うもの 788 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 12:17:04 ID:mUdf+86S0] ＣＯＭで書くと言うことは、C++や、java言語で組め ということですか？ 789 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 12:29:17 ID:KXHTzu1o0] 座標(720,100)の赤要素が200〜255の時はAキーを押し、 赤要素が199以下の時はBキーを押す。 というように動かすにはどう記述すればいいですか？ ---------------------------------------------- IFB (PEEKCOLOR(720,100) and $0000FF) 55 then KBD(VK_A,CLICK,40) ELSE KBD(VK_B,CLICK,40) ENDIF ---------------------------------------------- 上記のように書きましたがうまくいきません。 ご教授お願いします。 790 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 13:03:24 ID:mUdf+86S0] ＩＥ上の、どのラジオボタンをクリックするのかを指定するにはどのようにすればよいのでしょうか？ IESetData(IE,True,"lr","lang_ja")　　　　　　// ラジオボタン選択：日本語のページを検索 IESetData(IE,"UWSC","q")　　　　　　　　　// 文字設定：検索単語 IESetData(IE,True,"btnG","Google 検索")　// SUBMIT ヘルプではこのように載っていますが１行目のlrというのは、ラジオボタンということを示しているのでしょうか？ よくわかりません＞＜ 791 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 13:17:12 ID:yFPEYg0l0] 教授じゃなく教示だと何度言ったら 792 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 14:10:16 ID:XdmZStkM0] >>790 IESETDATA( IE,　値,　Name,　[Value,　番号] ) google.co.jpのソースを見ると <input id=all type=radio name=lr value="" checked><label for=all> ウェブ全体から検索 </label> つまり Name=lr, value= "" <input id=il type=radio name=lr value="lang_ja"><label for=il> 日本語のページを検索 </label> 同様に Name=lr, value= "lang_ja" 値がtrueということは，選択もしくはクリックするということ 793 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 14:11:57 ID:XdmZStkM0] >>790 //以下コード IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("www.google.co.jp") BusyWait(IE) IESetData(IE,True,"lr","lang_ja") // RADIO： 日本語のページを検索 MSGBOX( "日本語のページを検索 のラジオボタンをオンにしました．" ) IESetData(IE,True,"lr") // RADIO：ウェブ全体から検索 MSGBOX( "ウェブ全体から検索 のラジオボタンをオンにしました．" ) Procedure BusyWait(ie) Sleep(0.5) // Wait Const TIME_OUT = 90 tm = Gettime() repeat Sleep(0.2) ifb Gettime() - tm > TIME_OUT MsgBox("Time Out:BusyWait") ExitExit endif until (! ie.busy) and (ie.readyState=4) Sleep(0.5) Fend 794 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 14:34:02 ID:XdmZStkM0] >>789 IFB ( PEEKCOLOR( 720, 100 ) and $FF ) >= 200 then andってどういうこと？教えて！ 795 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 14:44:55 ID:od339K0v0] >>794 ビット積 ttp://www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=26&log=ON&cnt=1 ｵｲﾗも前に同じこと聞いたw 796 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 14:48:20 ID:XdmZStkM0] >>795 ありｗ 797 名前：789 mailto:sage [2009/01/25(日) 18:08:13 ID:KXHTzu1o0] >>794 ありがとうございます。うまく動きました。 798 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/25(日) 23:25:00 ID:mUdf+86S0] >>792 なるほど。ソースを調べるわけですね 骨が折れますね 大事なことを教えて頂き、ありがとうございます＾＾ しかし、右クリックでソースを調べることが出来ない場合はどうすればよいでしょうか？ 799 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/26(月) 00:00:03 ID:o/KQMVrn0] >>798 opera使うといいよ 右クリック禁止抑制とかフレームのソースも簡単に拾える 俺も解析用に使った 今ではメイン 800 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/26(月) 19:12:01 ID:+wQJsntF0] なにからなにまでありがとうございます 試してみます 801 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/26(月) 21:28:55 ID:+wQJsntF0] InternetExplorer上で、操作したいﾍﾟｰｼﾞを表示した状態で、 IE = GETACTIVEOLEOBJ("InternetExplorer.Application",　"Web航海時代" ) IESetData(IE,True,"point","3")　 ↑のようなｺｰﾄﾞを実行しても、なにも起きません エラーは起きていないし、nameやvalueも間違っていないと思うのですが… 802 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/26(月) 21:58:38 ID:lqCZORip0] nameかvalueが間違ってるんだと思う IESetDataの戻値を見て正常かエラーか見てみればいかが？ 803 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/26(月) 22:40:25 ID:+wQJsntF0] <input type=radio name=point value="3"> ↑ソースコードですが、name,value共にあっているかと… 804 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/27(火) 03:31:42 ID:i4vBvxWB0] 志村ー!、ダブルクォーテーション!ダブルクォーテーション! 805 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/27(火) 21:41:22 ID:ko0WGgzz0] うぅ、、、ダブルクォーテーションまーくをつけたりとったりしてみましたが、エラーになりました＞＜ 806 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/27(火) 21:51:17 ID:i4vBvxWB0] <input type="radio" name="point" value="3"> これで行けるはずだけど、行けなかったらごめん、その時は他が間違ってると思う。 807 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/28(水) 14:39:28 ID:Di5rN0Wd0] 色の判定をしてるのですが全然認識をしてくれません・・・ 自分の環境に合わせてるつもりなのですが、どうすればBRG値をうまく範囲化できるのでしょうか＞＜？ 808 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/28(水) 20:10:56 ID:aP03qKyG0] >>806 わざわざありがとうございました＾＾ しかし、なにもかわらず… 色々やってみます。 809 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/28(水) 20:42:55 ID:aP03qKyG0] 普段のＩＥの操作では実行できないページってあり得ますか？ 例えば、私が操作しようとしているﾍﾟｰｼﾞは、そこのＵＲＬを直接打ち込んでもまっすぐ行けず 必ずﾎｰﾑに戻って、ﾎｰﾑから行きたいﾍﾟｰｼﾞのﾘﾝｸをｸﾘｯｸしなければならないんですよ ホーム→ttp://www9.plala.or.jp/system19/ 操作したいページ→www9.plala.or.jp/system19/games/koukai/ ※Operaだと、直接飛ぶことが出来ました 810 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/28(水) 23:52:01 ID:NvkvtEFN0] ｵﾝﾗｲﾝｹﾞｰﾑ？ ならこのｽﾚの上の方で散々書いてあると思うよ。 (それに当てはまるかどうかは知らない） 811 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/29(木) 21:45:54 ID:3VYUuVlD0] 私は、ゲームの操作を自動化したいなとは考えていますが、特別なページ 殊に、上記のように、なぜＵＲＬ直接入力では希望のﾍﾟｰｼﾞに飛べないの か疑問に思った だけです。 812 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/29(木) 22:44:04 ID:7CcxhBvcP] >>811 ソースを見ればすぐ分かると思うのですが・・・ Windows Script Encoderはもちろん知っていますよね？ IEでのみlocation.replaceがdecodeされるので別ページに遷移するのです。 これがuwscと一体どう関係あるのでしょうか？ 813 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/30(金) 03:55:44 ID:OeBnpuaS0] >>812 横レスだが おまいは常に人を馬鹿にしてないと生きていけない奴だなｗ　哀れｗ 814 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/30(金) 04:18:35 ID:SPXRBmP00] >>813 横レスとか言いつつ本人乙 815 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/30(金) 04:25:19 ID:OeBnpuaS0] >>814 横レスだといったろ？ｗ 恥ずかしい奴だな　おまいはｗ 816 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/30(金) 05:00:06 ID:3mlQ1XKW0] ここまで俺の自演 817 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/30(金) 05:17:44 ID:SPXRBmP00] >>815 単芝厨きもいです 818 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/30(金) 21:23:01 ID:AuYpJb6K0] と、ここまで俺の自演。 819 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/31(土) 00:13:38 ID:vsuJT7Qv0] 集まってるおまえらよ、そろそろ散れよ。 820 名前：811 mailto:sage [2009/02/01(日) 06:29:15 ID:KLbW2NFD0] すいません＞＜よく知りません 821 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/01(日) 12:52:27 ID:w5ujQ7MM0] UWSCのスケジュールの設定で質問があります。 インターバルの設定が、1〜5分の設定と10分毎の設定などがあるのですが 7分や8分でのインターバルの設定は、どのようにしたら良いのでしょうか？ 式による設定で式を入れれば良いのでしょうが どんな式を入れればインターバルが7分や8分になるのか わかりません。 ご教授頂ければと思います。 822 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/01(日) 13:07:22 ID:VbDhycHQ0] >>821 インターバルだけでよかったら Interval_7min.uws かなんか作ってそこに Call Main.uws while true main() 　　　　　//関数呼び出し sleep(420) 　　//7分 wend これでいいんじゃない？ 823 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/01(日) 16:14:17 ID:ZukW/kKt0] それだと、 7分 + main()処理 じゃん？ GETTIME使えばピッタシ！！ > 　　式による設定 > 　　　自分で式を記述する事により細かな時間設定が決められます > 　　　使える変数 > 　　　　YY (年)、MM (月)、DD (日)、HH (時)、NN (分)、YMDNN (2000年からの経過分)、WW (曜日：日曜=0,.....土曜=6) > 　　　注意：チェックは分単位でされます、分単位の設定(NN, YMDNN)を忘れずに > 　　　　例) > 　　　　　　(WW=2) AND (HH=0 OR HH=12) AND (NN=0)　　　// 火曜日の０時と１２時 > 　　　　　　(YMDNN mod 18)=0　　　　　　　　　　　　　　　　　　// １８分間隔 7分　：　(YMDNN mod 7)=0 8分　：　(YMDNN mod 8)=0 １、YMDNN (2000年からの経過分) ２、modは割り算した余り ３、割り算して余りがゼロ じゃまいのか？ 824 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/01(日) 16:17:37 ID:ZukW/kKt0] ４、式を希望する日時で”真”になるようにすればいい たぶん・ 825 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/01(日) 16:59:54 ID:v32FCtQy0] >>823 Gettimeの戻り値が秒だからそれ使うだけでいいよ 分とか見たら割り切れないし。 ニュースの記憶見るかガンダム見るか悩むが やっぱりガンダム見る 826 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/01(日) 19:06:26 ID:ZukW/kKt0] ？？？ SLEEPと、 Gettimeと、 スケジュール設定の式による設定 の3つのメリットデメリットを書いたんだけど。 >>分とか見たら割り切れないし。 って意味わかんないんだが、 何を意味した書き込みなんだ？ 827 名前：名無しさん＠お腹いっぱい。 [2009/02/02(月) 04:55:33 ID:cpjbDFRd0] >>826 ああ、ごめん。 >YMDNN (2000年からの経過分) これ知らんかった 828 名前：名無しさん＠お腹いっぱい。 [2009/02/02(月) 13:10:24 ID:yH09tKlS0] 質問です .vbsファイルをuwscで開くにはどのように記述すれば出来ますか？ exe以外のファイルの開き方が分からず、 今はクイック起動にショートカットを作成し、クリックして開くように記述しているので 直接開く方法があればご教授頂きたいです。 829 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/02(月) 14:08:30 ID:pdMh/tE90] doscmd("???.vbs") 830 名前：名無しさん＠お腹いっぱい。 [2009/02/02(月) 14:30:06 ID:yH09tKlS0] >>829 有り難う御座います。 ですが実行されませんでした フルパスで""も付けたんですが… OSはvistaなんですが関係無いですよね…

---

---

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

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