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

1 名前：名無しさん＠お腹いっぱい。 [2009/03/02(月) 19:49:20 ID:rP5khwz50] Windowsを自動化させるツールUWSC。 ttp://www.h7.dion.ne.jp/~umiumi/ uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。 前スレ 自動化ツールuwsc使いよ集まれ3 pc11.2ch.net/test/read.cgi/software/1176677869/ 92 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 00:17:40 ID:TCCc8Omk0] >Ie = CREATEOLEOBJ( "InternetExplorer.Application") ↑これには時間がかかるが、起動完了を待ってない。が、待つ必要もない。 >Ie.navigate( "www.yahoo.co.jp/") ↑これにも時間がかかるが、待ってない。 SLEEP()があるにはあるが、効果がまちまち > DIM Address[3] > Address[1] = "www.infoseek.co.jp/" 配列を１から使っているが、UWSCの配列はこの場合０から３まで まあ >FOR i = 1 TO 3 ０を飛ばして使ってるから問題はない >どのように記述すればそういった問題なくIEで複数のページが開けるでしょうか？ SENDSTR() ＋ SCKEY() でのページ移動をやめて Ie.navigate( "www.yahoo.co.jp/") を使えばいい。 ほぼ確実にできるようになる。 うまくいかない原因は多分 Ie_Wait( IeId) IEの操作ではよくある質問だけど、Navigateのあと待ちループをスルーすることがある。 キーEnter直後にはまだ前回の表示完了のメッセージが残ってるとか。 アドレスを入れる前にこのメッセージを消しておけば素通りはしなくなる。 93 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 08:53:44 ID:i3CXPBbq0] ie上のFLASHでログインから作りこまれているサイトを操作したいのですが ヘルプと多少のググリではﾋﾝﾄが得られませんでした。 ご存知の型いらっしゃいましたらひんとぷりーずです 94 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 09:23:50 ID:/l9xSbch0] >>93 シェアウェア版のuwscにflash操作のサンプルスクリプト付いてるから見てみるといいよ 95 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 11:04:54 ID:i3CXPBbq0] >>94 速ﾚｽ多謝れす 96 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 19:18:25 ID:msqZMedl0] アクティブウインドウ内の相対座標で操作したいのですがうまくいきません。 それ用のコマンドでもありますか？ 97 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 20:01:48 ID:QZ5xehbb0] STOPFORM(FALSE)でストップ窓出さないスクリプト実行中に 他のスクリプト多重起動できる？ ------- しかしかゆいところに手が届く言語仕様は本当に癒されるなぁ わざわざ家で他言語のわけわかんない仕様と格闘したくないっちゅーねん 98 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 20:31:54 ID:/l9xSbch0] >>96 mouseorg 99 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 20:35:32 ID:mW/kK8aF0] >>97 ＜UWSC.INI＞ NotMultiplex =　スクリプト実行の多重起動を制限します （ファイルの関連付等からの実行） 0：制限なし、 1：一つのみ、 2：二つまで （数はUWSC本体も含む） -9：制限なし、 -1：一つのみ、 -2：二つまで （マイナス値を付けた場合には '多重起動禁止'のダイアログは出ません） 100 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/14(火) 20:48:45 ID:msqZMedl0] >>98 ｱﾘｶﾞﾄｰ 101 名前：89 mailto:sage [2009/04/14(火) 20:52:08 ID:jYCCUEGB0] >>92 回答ありがとうございます。 > Ie.navigate( "www.yahoo.co.jp/") を使えばいい。 > ほぼ確実にできるようになる。 これを単純に使用した場合、一番左のタブに指令が行くようなので 1番目のタブにyahoo 2番目のタブにinfoseek …… といったことができませんでした。 > アドレスを入れる前にこのメッセージを消しておけば素通りはしなくなる。 消せるのですか。 調べてみますが、また分からなかったら教えてください。 102 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/15(水) 05:34:31 ID:qgyfHlhE0] >>99うん ずっとUWSC.INIにNotMultiplex =　0あったはずなのに多重起動できなかったから謎だった 今STOPFORM(TRUE)入りのスクリプト一回実行したら STOPFORM(FALSE)でストップ窓出さないスクリプト実行中にもちゃんと多重起動できるようになった 一体なんだったんだろう 103 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/15(水) 06:02:54 ID:HthVxZ2l0] >>101 新しいタブで開くならIE.navigate2の第2引数に次のどれかを指定すればいいらしい。 VBでは&H800だけど、UWSCでは$800と指定することに注意。 Const navOpenInNewTab = &H800 Const navOpenInBackgroundTab = &H1000 ttp://www.happy2-island.com/vbs/cafe02/capter00711.shtml 英語なので分からないけど Get Active Tab in IE7 ttp://social.msdn.microsoft.com/Forums/ja-JP/vbgeneral/thread/60c6c95d-377c-4bf4-860d-390840fce31c UWSC掲示板でIE7の話題 ttp://www.google.co.jp/search?hl=ja&q=site%3Abigcosmic.com+IE7 どうしても既存のタブに開きたいのなら、 キー送信でタブを切り替えつつ、タブごとにGetActiveOLEObj()を実行して それぞれのIEオブジェクトを取得すればいい。（多分できるんじゃないかな） IE1〜IE10のオブジェクトがあれば、たとえばIE5.navigate()で５つめのタブで開くとかできるでしょ。 IEオブジェクトは配列にすればスマートに書ける dim IE[10] IE[cnt] = GetActiveOLEObj() IE[cnt].navigate() 104 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 09:08:00 ID:3eWeWjWG0] 同じIDの2つのウインドウに対してそれぞれ命令文実行するのはどうしたらいいんでしょう？ 105 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 09:16:25 ID:vJUVWnem0] ウィンドウ違ったらIDも違うだろ 106 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 09:40:53 ID:3eWeWjWG0] GETIDしてもクラス名とか同じなんす・・・どこか見分ける方法あるんでしょうか？ 107 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 10:19:36 ID:7iQc6sCf0] だからIDだろ…おまえは何を言ってるんだ 108 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 11:06:27 ID:3eWeWjWG0] 自分でも何が言いたいのかよくわからなくなりました・・・ 109 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 11:27:01 ID:z2t7NbQ10] GETIDを使いたくてもウィンドウ名とかクラス名が同じだから取得できないってことじゃないの 110 名前：横レス mailto:sage [2009/04/17(金) 16:01:13 ID:oV5BKBHw0] >>108 109だとしたら GETALLWIN( )で全ウィンドウのＩＤを読んでから必要なものだけ残す方向で 111 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/17(金) 19:51:44 ID:dPRHXoSq0] >>106 見分ける方法は表示されてるテキストとかボタンとかだな。 112 名前：名無しさん＠お腹いっぱい。 [2009/04/18(土) 21:40:19 ID:XXPYfPCL0] 初心者の質問ですいませんがご教授ください。 [YES][NO]のメッセージボックスを順番に３つ出し、YESが２つ出た時点で "YESが２つ貯まったよ"というメッセージボックスを出しOKボタンでUWSを 終わらせたいのですが、どうもうまく文が書けません。 以下のように書いてみたのですが[関数が正しく閉じていません]となって しまいます。お願いします。 POINT = 0 IF MSGBOX("チェック１OK?",BTN_YES or BTN_NO) = BTN_YES then POINT = POINT + 1 IF MSGBOX("チェック２OK?",BTN_YES or BTN_NO) = BTN_YES then POINT = POINT + 1 IF POINT = 2 THEN MSGBOX("YESが２つ貯まったよ") AND EXITEXIT IF MSGBOX("チェック３OK?",BTN_YES or BTN_NO) = BTN_YES then POINT = POINT + 1 IF POINT = 2 THEN MSGBOX("YESが２つ貯まったよ") AND EXITEXIT 113 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/18(土) 21:42:10 ID:RzsxB0wk0] マルチステートメントをANDでつないでる人なんて初めて見たわ。 IFBにして行分けなきゃ駄目に決まってるじゃん 114 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/18(土) 21:53:58 ID:wfTm4mrd0] これはひどい 115 名前：名無しさん＠お腹いっぱい。 [2009/04/18(土) 21:55:44 ID:XXPYfPCL0] >>113 ありがとうございました。 解決しました。 116 名前：104 mailto:sage [2009/04/19(日) 11:33:06 ID:cQ6R7vH10] 根本から勘違いしてるのかもしれないので質問させてください。 たとえば、新規に開いたメモ帳2窓だとGETALLWIN( )しても ウインドウIDもクラス名も両方とも「無題 - メモ帳」「notepad」で識別する方法無いですよね？ 117 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 11:45:06 ID:yPMpTKOZ0] >>116 >>105 同じIDのウインドウなんてありません。 118 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 11:45:06 ID:kETpq9Eh0] いやだからウィンドウIDは違うよ 119 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 11:57:47 ID:8Ti6dx9WP] >>116 手動で二つのウィンドウを区別する場合、あなたはどう判断しているの？ 左右に並べて右側のウィンドウが知りたいならSTATUS関数を使って座標を比較すればいいんだし あなたは何をしたいんですか？ 120 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 12:03:17 ID:yPMpTKOZ0] >>116 もう一つ言うと、 > ウインドウIDもクラス名も両方とも「無題 - メモ帳」「notepad」で識別する方法無いですよね？ ウインドウIDとクラス名と言ってるけど 「notepad」は、確かにクラス名だけど 「無題 - メモ帳」は、ウインドウIDじゃない。タイトルです あなたが言ってるのは、同姓同名で生年月日まで一緒の別人をどうやって区別するんですか？ しかもその二人は、免許証番号や電話番号まで一緒なんです。って言ってるようなものです。 121 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 14:08:17 ID:Me2htpU20] >>120 いや、同姓同名の同住所でも免許証番号とかは違うから。 一人二役でない限りは。 >>116 うん。だから区別できないよ。 だから自分でExecとかCreateOLEObjして自分用のを作るんだよ。 122 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 15:40:48 ID:8Ti6dx9WP] えーそうかな？ 単に「タイトル」「クラス名」「ID」の意味が分かってないだけだと思う。でないと ＞ウインドウIDもクラス名も両方とも「無題 - メモ帳」「notepad」で識別する方法無いですよね？ が全く説明つかない。 俺の解釈は以下の通り。 //2個未保存のメモ帳があって、それぞれ「AAAA」「BBBB」と入力されている想定 //104時点での考え IDその1 = GETID("無題 - メモ帳", "notepad")//「AAAA」側のIDを取得したい IDその2 = GETID("無題 - メモ帳", "notepad")//「BBBB」側のIDを取得したい if IDその1 = IDその2 then MSGBOX("同じID") // だから104で「同じID」と言ってる //109-110の重要キーワード「GETALLWIN」を聞いた116時点での考え IDその1 = GETID("無題 - メモ帳", "notepad")//「AAAA」側のIDを取得したい GETALLWIN() //これを使えば同名、同クラスの別IDを参照できると勘違い IDその2 = GETID("無題 - メモ帳", "notepad")//「BBBB」側のIDを取得したい if IDその1 = IDその2 then MSGBOX("同じID") // だから116で「GETALLWIN( )しても」と言ってる //109-110が言ってた「GETALLWIN」の使い方 ウィンドウ数 = GETALLWIN() FOR I=1 TO ウィンドウ数 　　IFB STATUS(ALL_WIN_ID[I-1], ST_TITLE) = "無題 - メモ帳" THEN 　　　　MSGBOX(GETSTR(ALL_WIN_ID[I-1], 1)) //「AAAA」「BBBB」が表示されるはず 　　ENDIF NEXT 123 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/19(日) 22:15:44 ID:yPMpTKOZ0] >>121 だから、別人という前提が間違ってる。勘違いだと言ってるんでしょ ユニークに割り当てられているはずのものが同じならそれは別なものじゃなくて同じものなんだから 124 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/20(月) 03:19:17 ID:EnXtAM1m0] >>123 >>116が言ってるのは別人という前提なんです。 >新規に開いたメモ帳2窓 これはメニューからメモ帳を２回クリックして２つ起動し、ウィンドウが２つある状態ということですよ。 ２窓について ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1111555451 それぞれちょっとずれたことを言ってますね。 IDは確かに一つの窓に一つで識別できるけど、 ID以外の方法で区別するのは難しいですよね。 >>104はIDとは何なのか分かってないので、IDと言ってるのは無視して考えないと。 メモ帳のステータス置いときます。 ID　　　　　　57 PARENT　　-1 PROCESS　5868 Handle　　　9635392 ICON　　　　0 VISIBLE　　1 ACTIVE　 　0 BUSY　　　　0 TITLE　　　 無題 - メモ帳 CLASS　　　Notepad 125 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/20(月) 08:20:00 ID:cLKDMuVI0] >>123は端折りすぎだけど、 同じ免許書番号の別人がいないように 同じウインドウIDの別ウインドウなんて存在しないんだから その前提が間違ってるってことだろ。 別ウインドウかどうかなんて画面で一目瞭然なんだから IDが同じってのが間違ってるってことは確定的に明らか 126 名前：名無しさん＠お腹いっぱい。 [2009/04/20(月) 09:05:26 ID:lfFRPe8i0] 使い始めたのですがどうしても判らない点があるので教えて下さい。 WEB上でsubmitのボタンがdisabledを使用していて、一旦押すと しばらく表記文字がグレーになって押せません。 このenable/disableの状態を取得する方法はありませんでしょうか？ 宜しくお願いします。 127 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/20(月) 10:01:29 ID:EnXtAM1m0] >>126 状態 = IE.document.all.ボタン名.disabled HTAていうの使いはじめてみたんだけど、これいいよ。 MS Office PremiumにMicrosoft Development Environment（MSE.EXE）てのがついてて、 HTMLコントロールのプロパティとかの一覧が出てくる。 最近の開発環境なら当たり前だけど、僕が持ってるのOffice2000だからそーとー前のなんだけど。 場所は"C:\Program Files\Microsoft Visual Studio\Common\IDE\IDE98\MSE.EXE" ・・・あれ？Officeの付録じゃなかったっけな・・・ WindowsのSystemフォルダと日時が同じだからXP Homeについてるのかな？ あ、これ使う場合のファイルはHTMLファイルで、 CreateObjectする場合は別にプロパティ一覧とか出てこないけど。 128 名前：89 mailto:sage [2009/04/20(月) 14:54:07 ID:AwZv06Kt0] >>103 遅レスですが、以下で新しいタブで開きました。ありがとうございました。 Ie.navigate( Address, $800) 129 名前：127 [2009/04/21(火) 10:48:50 ID:CPJxMALFO] UWSCは当初ゲームの自動操縦のために使い始めたんだけど、 今はIEを操作することが多いんですよね。 IEの操縦ならHTAでっていうかHTML＋VBScriptにすると、画面も使えちゃって便利です。 HTMLのスクリプトならJavaScriptじゃないとって思ってたけど、 UWSCでBasic系の記述に慣れてるのと、HTAで使うのはJavaScriptじゃなくてJScriptなので、 どうせならVBScriptを使ってWeb用とHTA用をはっきり分けたほうがいいかなということで VBScriptで行きました。 HTAで作ったツールの第一号をうｐってるんで使ってみてください。 ていうかできればコレをダウンロードして、規制されてる僕たちのために代行やってください。 ttp://karimofu.org/dlp/mofu1_6055.zip.php 標準ZIP　DLパス:siberia 130 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 12:15:22 ID:zWBQpk48P] >>129 どう見てもウィルスです 本当にありがとうございました カスペルスキーインターネットセキュリティ 2009 アクセスが遮断されました 入力したURLのWebページを表示できません 入力したURL: karimofu.org/storage/Lr1tsrD6l6Qh 21be/mofu1_6055.zip このWebページはウイルスに感染しています 次のウイルスが見つかりました:Trojan-Downloader.JS.gen この情報が正しくないと考えられるときは、ご利用のサービスプロバイダーにご連絡ください 情報: Tue Apr 21 12:14:05 2009 カスペルスキーインターネットセキュリティ 2009 131 名前：名無しさん＠お腹いっぱい。 [2009/04/21(火) 13:33:41 ID:CPJxMALFO] >>130 あなたのパソコンがウィルスに感染してるか、うｐ炉だ自体がウィルスだと判定されているんだと思います。 そもそもZip圧縮されたものがウィルスとして活動できるわけないでしょう。偽装ならともかく。 AVG ClamWin Eset eTrust McAfee MicroWorld Norman Sunbelt VirusBuster の4・20の最新パターンで検索して一つも引っかかりませんでしたよ。 www.filterbit.com/ 郵便補助ツール007.zip uploaded on 2009-04-21 04:13:23 AM UTC Scan Completed in 172 ms. Final Result NO VIRUSES DETECTED 郵便補助.hta uploaded on 2009-04-21 04:14:45 AM UTC Scan Completed in 6.344 secs. Final Result NO VIRUSES DETECTED sleep.vbs uploaded on 2009-04-21 04:15:21 AM UTC Scan Completed in 6.234 secs. Final Result NO VIRUSES DETECTED 同じものを別のとこに置いたから、こっち↓からのダウンロードを試してみてください。 scripts.web.fc2.com/scriptsup/yubin007.zip 132 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 13:44:41 ID:ghaE4/Ws0] >>ID:CPJxMALFO DLする気になれないからウィルスかどうかは判らんが、HTAとJScriptの話題を続けるなら 他所でやってくれ。 133 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 14:00:12 ID:KISr4rZl0] >>131 帰れカスが 134 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 14:25:54 ID:zWBQpk48P] https://www.virustotal.com/jp/ にて>>129と>>131をチェックしました。 結果は以下の通りです。 https://www.virustotal.com/jp/analisis/64c72feb68f9b05ce73599509baf8187 皆さん注意してください。 >>131が言っているのは全くの嘘、詐欺、デタラメです。 最近のウィルス対策ソフトは圧縮データをバックグラウンドで自動で解凍し、 中身に問題のあるファイルが含まれているかをチェックしています。 圧縮されている「郵便補助.hta」というファイルはウィルスです。 まだ対策が始まったばかりで未対応のウィルス対策ソフトもあります。 既に実行された方は www.kaspersky.co.jp/virusscanner にてウィルスがどこにあるかを調査し、手動で削除する必要があります。 （無料のため自動では削除されません） 皆様、くれぐれも実行などせぬように注意願います。 135 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 15:44:40 ID:hCW2ez470] Trojan-Downloader.JS.gen でも何でもないけど HTTP_GETしてるスクリプトは誤判定されるんだろうな どっちにしろスレ違いだし、もうあきらめなー 136 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 17:20:34 ID:EjoW6ZpV0] 落として検査してｿｰｽ見たよ 137 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 19:21:07 ID:hCW2ez470] 俺も見たよ 問題ないだろ 関数GetTextByURLだけ抜き出して>>134でチェックすると引っかかる F-SecureとかKasperskyはあまりアテにならんってことだな 138 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 23:19:31 ID:KISr4rZl0] 問題ないとかじゃなくてスレ違いだっつの 139 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/22(水) 17:32:54 ID:N45Vs4AF0] 初心者です 座標(X,Y)の色が黒で無いという文を作りたいです PEEKCOLOR(X,Y)= $181818 否定の ! はどのようにつければいいのでしょうか 試行錯誤してみましたが機能しませんでした 140 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/22(水) 19:50:11 ID:5189R7q50] <> 141 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/22(水) 21:33:39 ID:5EWcb3vi0] 思うんだが181818だけが黒じゃないよね？ 142 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/22(水) 21:37:39 ID:GhDeitu20] >>139 !(PEEKCOLOR(X,Y) = $181818) 143 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/23(木) 00:06:35 ID:kwl9x0DH0] >>142さん ありがとうございます 機能しました 144 名前：シベリアよりのお手紙 mailto:sage [2009/04/23(木) 13:39:24 ID:VMVPYLE80] ■ブラウザで掲示板に書き込む操作【送信ボタンクリック編】 初心者に簡単なほうから順に ※IDやIEは適切に取得している前提 (1) ClkItem(ID, "書き込む", CLK_ACC) (2) IELink(IE, "書き込む") (3) IELink(IE, "", 1) (4) IE.document.all.[アイテム名].click() (5) IE.document.[フォーム名].submit() (1),(2)は表示されているボタン名を指定してクリックする方法で、簡単です。 アイテム名、フォーム名はWebページのソースを見て確認する必要があります。 「name=」や「ID=」で名前がつけられてないときは、forms[0]やitems[0]などと指定します。 【解説】 また、ボタン名は「submitです」 (1)　ClkItem()はローカルアプリケーションの操作用ですが、CLK_ACCを指定するとWebページの操作も可能になります。 (2)と(3)　IELink()は、<a>タグによるリンクをクリックするものです。 　　標準以外のボタンやテキストリンクの場合に使えます。 (2)テキストで書かれたリンクの場合の書き方です。 (3)画像リンクの場合の書き方です。”ログイン”などと表記されていても、画像が埋め込まれている場合はこちらを使います。 (4)と(5)　DOM(Document Object Model)と呼ばれるアクセス方法です。 ２ちゃんねるでは(5)については動きません。ボタン名がかぶっているからかも。 145 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/23(木) 14:11:23 ID:ToP+iXmu0] どうも配列変数が巨大（x{1000]とか）なスクリプトがあるとUWSC関係のいろいろに影響するっぽい 起動オプションでUWSC用メモリ確保量指定できるといいんだけど 146 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/23(木) 14:34:53 ID:hbhpeBX00] 大昔のPCとビデオキャプチャカード（予約録画機能なし）＋UWSCで録画専用PCを作成してみた。 rec.uws 番組タイトル　分数 をuwscのタイマーにセットし、（タイマーは40個分あるので充分） rec.uwsは時間になるとchkbmpで録画ボタンを押し、分数で与えた時間が経過すると停止ボタンを押す。 終わったらmpgデータを、 録画済みフォルダにタイトル＋数字.mpgが既にあれば、 タイトル＋（数字+1）.mpgにリネーム、なければタイトル001.mpgにリネーム リネームしたmpgを録画済みフォルダに移動する。 そのうち、 録画しない空き時間にmpgをＭｅｄｉａＣｏｄｅｒでaviに自動変換して入れ替えていく機能も追加しようと思う。 四、五万もだせば最新・高機能のHDDレコが買えるのだから、こんなもの作って喜んでいるのは貧乏人の証明以外何物でもないのだが。 手間はほんの数時間だからいいんだよ！ 147 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/27(月) 17:00:06 ID:IAlYDpEu0] ttp://siromasa.xxxxxxxx.jp/Term/1a00.html　←ここのzip解凍を参考に Dim FilePath_Lha Dim DirPath FilePath_Lha=PARAM_STR[0] DirPath=PARAM_STR[1] UnLHA32(FilePath_lha, DirPath) Function UnLha32(a_FilePath_Lha, a_DirPath, a_Command = "e", a_Option = "-y") 　　a_DirPath = a_DirPath + Format(ChrB(0), 1) 　　PathAddBackslashA(a_DirPath) 　　Dim szCmdLine = a_Command + " " + a_Option + " " + DQ(a_FilePath_Lha) + DQ(a_DirPath) 　　Dim t_Len = $1000 　　Dim t_Buff = Format(ChrB(0), t_Len) 　　UnLha(0, szCmdLine, t_Buff, t_Len) 　　Result = t_Buff FEnd DEF_DLL UnLha(HWND, STRING, var STRING, DWORD) :INT :UNLHA32.DLL DEF_DLL PathAddBackslashA(var String) :String :ShlwApi.DLL Function DQ(a_Path) 　　Result = "<#DBL>" + a_Path + "<#DBL> " FEnd とやってみましたが 「Not DLL Function:UｎLha」 「20行目：UnLha(0, szCmdLine, t_Buff, t_Len)」と出て上手くいきません。 unlha32.dllはsystem32の中にありVBでは上手くいきます。 解決の糸口を教えてください。 148 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/27(月) 19:14:42 ID:QD9XwKZQP] >>147 DEF_DLLは、UWSCの関数と違って使う前に定義しないといけない。 ファイルの先頭に書いておけば間違いないと思う。 149 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/27(月) 21:03:06 ID:H7TyYdrJP] >>147 ヒント 大文字と小文字を区別して書く習慣をつけよう 150 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/27(月) 23:58:18 ID:ITcnKio80] >>148 >DEF_DLLは、UWSCの関数と違って使う前に定義しないといけない。 これ相当前に解消されてるハズ。 現に関数部の後にまとめてｺﾋﾟﾍﾟしても動くし…。 >>149 関係ないような… >>147 調べてないけど、 >DEF_DLL UnLha(HWND, STRING, var STRING, DWORD) :INT :UNLHA32.DLL これ合ってる？ DEF_DLL UnZip(HWND, STRING, var STRING, DWORD) :INT :UNZIP32.DLL を単純に真似しただけという理由なら駄目だと思うよ… ｵｲﾗが間違ってたらｽﾏﾝ。 151 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/28(火) 00:05:16 ID:UnYs7tqY0] >>147 DLL系は敷居が高いなぁ…と言ってしまうようなにわかスクリプターとは俺のこと。 今動かしてるのはこんな感じ。関数作るならその都度宣言してもいいんじゃないかなぁ。 …なんで宣言した引数より少なくて動くのかはしらね。逆に在ると動かないのに気づいたのは奇跡。 lha("c:\aaa\", "c:\aaa.lzh") function lha(in, out)//入力はフォルダ専用 　DEF_DLL Unlha(Long, String, String, Long) :Long :UNLHA32.DLL 　　dim hWnd 　　in = "<#DBL>" + in + "<#DBL>" 　　out = "<#DBL>" + out + "<#DBL>" 　　commandline = "a -drn "+ out +" "+ in 　　result = Unlha(hWnd, commandline) fend 152 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/28(火) 00:18:30 ID:lagyuQtDP] >>151 それで動いてるんなら、戻り値がLongとすべきところをintにしてるのが問題っぽいね。 153 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/28(火) 00:36:03 ID:UnYs7tqY0] >>151 リザルトなんて取ってもfalseに成るだけだしなぁ。まだまだ詰めが甘過ぎるなぁ。 ところで、こちらからの質問なんだけど… ｈｔｔｐからのダウンロード時に URLDownloadToFileA を使っているわけだが これを使うとスレッド動作じゃなければ、UWSCが無反応になってしまう。 …つーか専有するのはわかるけどな。UWSCでスレッドは制御しにくいから嫌なんだ。 かといって WinHttp.WinHttpRequest.5.1 等のものを使っても同じく専有して無反応。 外部にダウンロードに必要な取得cookieを渡す仕様は嫌なのでUWSCの中で完結したい。 なんかスレッドの良い処理方法は無いですかね。 …UWSCのスレッドは終了が判らないから同時ダウンロード数が弄り難いんだ。 　　もう downloadBalancer とかの関数を作って、偶に抜けたりするのは勘弁だ… …調べたり試したりするほどに無理な気がしてきたぜ。素直に別のEXE作ろうかなぁ…threadめ… 154 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/28(火) 07:01:41 ID:lagyuQtDP] >>153 こんな風にやればいんじゃね？知らないけど。 ThreadCnt = 0 for i = 0 to listcnt - 1 　ifb cnt <= 3 then 　　thread downloadfile(URLList[i], FilePathList[i], ThreadCnt) 　endif 　sleep(1) next function downloadfile(URL, FilePath, var cnt) 　cnt = cnt + 1 　result = URLDownloadToFile(0, URL, FilePath, 0, 0) 　cnt = cnt - 1 fend 155 名前：147 mailto:sage [2009/04/28(火) 10:20:25 ID:C7CacfK90] >>151 他ﾚｽを頂いた皆様ありがとうございます。 151氏のｿｰｽでさっくり動きましたのでﾊﾟｯｸﾘぱくらせていえ参考にさせて頂きました。m(._.)m 156 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/28(火) 12:35:26 ID:r3leceUUP] ちなみに>>147が動かなかった原因はここ。 >DEF_DLL UnLha(HWND, STRING, var STRING, DWORD) :INT :UNLHA32.DLL 関数名が間違っている。正しくはUnlhaね。 DLL関数自体は厳密に区別する。もともとC言語で生まれた概念だし。 だから関数が見つけられずに「Not DLL Function:UnLha」って言われているだけ。 大文字と小文字を区別して書く習慣をつけない限り間違い続けるよ。 157 名前：147 mailto:sage [2009/04/28(火) 13:02:54 ID:C7CacfK90] >>156 おっしゃるとおり検証して確認いたしました。ｴﾗｰは正確に正してくれていたのですね。 勉強になります。感謝です。 158 名前：150 mailto:sage [2009/04/28(火) 23:09:04 ID:naDOL5i60] >>156　>>147 あぅ、気づかなかった… ｽﾚ混乱させてｽﾏﾝかった。反省。 159 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/04(月) 20:11:23 ID:W27H0amO0] 任意の長文をテキストボックスに入力させる方法は？ アルファベット数文字だったら KBD(VK_A,CLICK,40) KBD(VK_H,CLICK,40) KBD(VK_O,CLICK,40) とかやっちゃうんだけど。 クリップボードを使うしかないのかな。 長文は固定じゃないから文章を入力したテキストファイルを複数用意しておいて その内容をどうにかしてクリップボードに入れて 貼り付けって考えてるんだけど どうかな？ もっとスマートなやりかたあるのかな。 160 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/04(月) 20:20:44 ID:6PozxKUv0] SENDSTR使えよｗ 161 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/04(月) 20:30:09 ID:VCE73Rq/0] おおおぅ！こんな関数があったとは！ 162 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/04(月) 20:48:25 ID:i5Em8Ahd0] （　ﾟдﾟ）　え？　使用頻度も多いし、CLKITEMなんかとともに関数の中ではまっ先に覚えるものだと思うんだが 163 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/04(月) 21:05:57 ID:jmZu6dcUP] だから初心者なんだろ？ 164 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/04(月) 21:25:47 ID:/XePhOys0] >>162 すまん、目的が目的だったからchkimgとifbが先だった。 まぁ、用途によって覚えるモノは違うさ。 さて、俺もSENDSTR覚えたぞ。あとはhtmlソースから任意の文を抜き出す方法を理解してくる。 165 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/05(火) 14:09:24 ID:0o+yJk7+0] メモ帳が起動していなかったら、起動するってどうやって記述すればいいの？ 166 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/05(火) 14:28:20 ID:xNlAE/wF0] ヘルプに書いてあったような。 167 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/05(火) 17:32:47 ID:7o1dfAoW0] ifb getid("メモ帳") < 0 　　exec ("notepad") endif . . . とか？ exec()は NotepadID = exec("notepad") とかやっとくと後から融通が利くと思う。 168 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/05(火) 18:03:41 ID:OvZysuYR0] メモ帳が起動してるケースで 　「NotepadIDが取得できずにエラーが出ました」 って質問が来たりして。 169 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/05(火) 18:26:15 ID:0o+yJk7+0] >>167 ありがとうございました。 1歩前進し出来ました。 >>168 初めて1時間。なんとなくわかってきました。 170 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/05(火) 19:54:56 ID:7o1dfAoW0] あとフルパスも使えたりする 171 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/06(水) 14:03:18 ID:b6Xj8bdU0] スクリプト超初心者で意味不明です。 UWSCはそれよりは少し簡単だとききました。 キャッシュバックモールの検索で使う不純な目的ですが… UWSC Free版　Ver4.5aで �@文字を指定して検索 �A11〜20秒ランダムで時間指定して間をあける。 �B検索結果のページから、検索ページへページを戻す。 �C　�@とは違う文字で検索 �@〜�Cの繰り返しをこのソフトでできますか？ この方法や手順のコツがあれば教えてください。 172 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/06(水) 16:15:12 ID:tpC5BtzM0] >>171問題なくできる コツとしてはフレーム使用サイトだった場合IEGET/SETDATAが使えないから a_tags = IE.document.frames("そこのフレーム名").document.getElementsByTagName("a") a_tags.item(0).innerHTMLなりa_tags.item(6).clickなりするところ ducumentｵﾌﾞｼﾞｪｸﾄ(DOM)の詳しい使い方はUWSC以外でも共通なんで必要になったらネットにもいろいろ情報転がってる 173 名前：名無しさん＠お腹いっぱい。 mailto:i_love_your_cash@yahoo.co.jp [2009/05/06(水) 16:59:46 ID:okQLn1BE0] 俺なら有料で教えてやるよ どうせ調べ方も分からないだろうし、調べる気もないだろうし 1手順1000円、合計4000円でちゃんと動くやつ用意してやる キャッシュバックモールだけでなくあらゆる場所で使えるから 先行投資だと思えば安いもんだろ 174 名前：名無しさん＠お腹いっぱい。 [2009/05/06(水) 17:49:39 ID:+2INV9Pa0] Drop on Scriptを使うなど出先のPCのレジストリに影響を与える方法を避けて、 USBからアプリを起動する環境で便利にスクリプトを使う方法をいろいろ調べていたら、 Windowsが標準搭載しているbatやJscriptにスクリプトを組み込んで使う方法があると知りました。 【.cmd】ﾊﾞｯﾁﾌｧｲﾙｽｸﾘﾌﾟﾄ%4【.bat】　ttp://pc12.2ch.net/test/read.cgi/tech/1229955189/ ttp://pc.nikkeibp.co.jp/article/column/20081117/1009738/?P=4 ttp://www.geocities.jp/iqh97/wsh/wmenu.htm Jscriptやなでしこは、batファイルにそれぞれのスクリプトを記述して、 複数行コメント機能や、複数行変数の機能をうまく利用して 例 "M:\PortableApps\nadesiko_lang\vnako.exe"　"%~0" %*で 引数も渡せるようです。 同じようなことをUWSCでやろうとしたら、拡張子uwsをチェックしてるらしくて はじかれてしまいました。 起動オプションに拡張子チェックをしないなんてオプションがあると、 簡単に出来るように思うんですけど、みなさんどう思います？ 175 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/06(水) 18:27:13 ID:O17l4RXh0] どうでもいい 176 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/06(水) 18:54:49 ID:X7Us3g8sP] もう少し要約して書いてくれないか？ 事象が羅列されてはいるが関連性が理解できない内容になっている 177 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/06(水) 19:10:59 ID:X7Us3g8sP] リンク先を読んだ。 UWSCのスクリプトで記述されたファイル"XXX.bat"がある。 UWSC.exeのパラメータにそのファイル名を渡して動かしたい。 UWSCに拡張子チェックがあって〜.uwsでないと動かない。 拡張子チェックなんて不要では？ という解釈で合っているか？ 178 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/06(水) 20:19:44 ID:X7Us3g8sP] 関連付け等でレジストリをいじりたくない、かつ batファイルダブルクリックだけでUWSCスクリプトを動かしたいという意味だとしても これで充分動くだろうし・・・ となると>>177は違うか TEXTBLOCK doscmd copy "%~0" aaa.uws "C:\Program Files\uwsc\uwsc.exe" aaa.uws del aaa.uws exit ENDTEXTBLOCK MSGBOX("Hello, World") 179 名前：171 mailto:sage [2009/05/07(木) 07:35:20 ID:FXknwHL70] >>172 >>173 ありがとう。 昨日自己流で開発した物を先ほど試してみた。 お粗末なスクリプトだけど、機能的にはまあOKでした。 でも1つだめな点。 ワイヤレスネットなので、ほんの時々 接続が不安定になってページ表示が遅れます。 それが原因で100個検索の途中でエラーになることがあります。 これの解決方法を教えてください。（おねがします・・） 180 名前：名無しさん＠お腹いっぱい。 mailto:i_love_your_cash@yahoo.co.jp [2009/05/07(木) 08:48:01 ID:E2Y09ngh0] 俺なら有料でチェックしてやるよ どうせ調べ方も分からないだろうし、調べる気もないだろうし 5000円でちゃんと動くやつ用意してやる キャッシュバックモールだけでなくあらゆる場所で使えるから 先行投資だと思えば安いもんだろ 181 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/07(木) 09:59:26 ID:Q7hf5WbeP] 5000円も出すんならそういうソフトウェア探したほうが確実なような。　 182 名前：174 mailto:sage [2009/05/09(土) 13:10:27 ID:U62YEW5T0] >>177 >>178 標準で関連付けされ、ファイルのドロップを受けられるbatやJSに相乗りできれば 相手のＰＣ上でUWSCが関連付けされてなくても気兼ねなくスクリプトを動かせるという話です。 任意のドライブのUSBメモリにある指定のバージョンのUwsc.exeとスクリプト１つと、 BATの場合なら"%~dp0uwsc.exe"　"%~0" %*　の記述で、相手ＰＣへ影響を最小限に抑えて スクリプトを実行できるのは便利だな、と。（inputでドロップ受ける使い方も便利ですけどね） GET_UWSC_DIRにiniやCall用のスクリプトをまとめて置くような大雑把な使い方も気兼ねなく出来るし。 拡張子チェックをしない起動オプションがあれば、いろんな環境で 融通の利く使い方も可能かな？と思ったわけです。 183 名前：174 mailto:sage [2009/05/09(土) 13:31:22 ID:U62YEW5T0] >>178 新たにファイルコピーとかじゃなくて、そのまま動いたほうがいいかなぁと思って。 たかがユーザーで生意気なこといってすんません。 184 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/09(土) 19:00:40 ID:C0iNuRh9P] ＞新たにファイルコピーとかじゃなくて、そのまま動いたほうがいいかなぁと思って。 だったら作者に直接頼めばいいじゃん。賛同者を募っても意味がない。 「他の方法でも実現可能ですが他のスクリプト言語と動作を合わせたいので拡張子チェックをやめて下さい」 って言えば実装してくれるかもよ。 コピーがダメで、そのまま動くのは良いとする合理的理由が提示できれば可能性は高まる。 185 名前：名無しさん＠お腹いっぱい。 [2009/05/09(土) 23:38:59 ID:tfFS9/XZ0] ＵＷＳＣ起動すると重くなるのはなぜですか？ 186 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/09(土) 23:54:05 ID:UdxXVJFK0] >>185 uwscが動いているからです 187 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/10(日) 00:16:08 ID:aZKLejEf0] exe化すると3倍早くなるとか・・・そんなオマケはないかｗ 188 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/13(水) 20:15:34 ID:GlHeCM5a0] REPEAT ~~ UNTIL 文を使用して REPEAT 　　処理 UNTIL 式 AND(OR) 式 といったように判定文を二つとかにできるのでしょうか？ 189 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/13(水) 20:29:46 ID:2MaqNuwBP] >>188 もちろん可能 なんで？ 190 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/13(水) 20:47:34 ID:GlHeCM5a0] >>189 もちろん軽くやってみたんですが エラー吐き出してしまったので・・ 少しがんばってみます 191 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/13(水) 20:59:38 ID:ps5sVa6O0] 括弧で囲ってみるとか 192 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/13(水) 21:06:35 ID:GlHeCM5a0] >>191,189さんありがとうございます 自分は一度できないと投げ出してしまう性格なようで・・ できるという確信が欲しかったのが本音です できました

---

---

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

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