自動化ツール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/ 520 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/30(土) 19:02:33 ID:vJlv9HOx0] ごめん。俺もちょっと喧嘩腰だね。いろんな意見があってもいいんじゃないかなと言いたいだけ。年末に喧嘩（・A・）ｲｸﾅｲ 521 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/30(土) 19:43:40 ID:xZEP9LDN0] こちらも言い過ぎた、すまない。 522 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/31(日) 00:05:12 ID:GUv77j/A0] 年末も年始関係無い。 いろんな意見があっていいのは当然だが それが的外れかどうかはそれとはまた別。 523 名前：名無しさん＠お腹いっぱい。 mailto:sage んじゃ ここらで気分転換 [2006/12/31(日) 00:51:34 ID:bUzWRwUR0] s1 = "<#CR>　<#CR> <#TAB> UWSC Ｕスクリプト　<#CR><#TAB>　 <#CR>" s2 = TrimJS(s1); msgbox("使用前=("+ s1 +")<#CR><#CR>使用後=("+ s2 +")") function TrimJS(str) // 全角スペース対応TRIM (JScript) 　　sc = CreateOLEObj("ScriptControl") 　　sc.language = "JScript" 　　sc.AddCode("function t(s){return s.replace(/^[\s　]+|[\s　]+$/g,'')}") 　　Result = sc.Run("t", str) fend ----------------------------------------------------------------- // Ｕスクリプトだけの時は… function TrimU(str) // 全角スペース対応TRIM (UWSC 4.0〜) 　　str = TRIM(str) 　　while str<>"" 　　　　ifb POS("　",str)=1 then 　　　　　　str = TRIM(COPY(str,2,LENGTH(str)-1)) 　　　　elseif POS("　",str,-1)=LENGTH(str) then 　　　　　　str = TRIM(COPY(str,1,LENGTH(str)-1)) 　　　　else 　　　　　　Break 　　　　endif 　　wend 　　Result = str fend ----------------------------------------------------------------- // …んで、いろいろ弄っているうちに、こんな事に… // CHGMOJ がグローバルな置換をするとは今の今まで全く気付かなかったorz // 文字列中の全角スペースを半角にしてしまうのでTRIM互換とは言えないけど。 s1 = "<#CR>　<#CR> <#TAB> UWSC Ｕ　スクリプト　<#CR><#TAB>　 <#CR>" s2 = TRIM(CHGMOJ(s1,"　"," ")) //■全角スペース対応TRIM擬 msgbox("使用前=("+ s1 +")<#CR><#CR>使用後=("+ s2 +")") 524 名前：名無しさん＠お腹いっぱい。 [2006/12/31(日) 00:53:47 ID:JE6fLdkp0] 喧嘩すんなよ。 525 名前：名無しさん＠お腹いっぱい。 [2006/12/31(日) 10:50:35 ID:QsbDX1sl0] >>517 これいいね。開発の助けになる。 あとはウインドウメッセージをモニターできれば最高なんだが。 みなさんは、UWSCでの開発の補助にどんなソフト使ってますか？ 自分はWinspector使ってます。spy++みたいにウィンドウの構造を見たりメッセージをモニタできます。 ttp://www.windows-spy.com 526 名前： 【中吉】 【1049円】 mailto:sage [2007/01/01(月) 00:15:35 ID:4F92swbf0] 今年もUWSCにはお世話んなりますわ。 527 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/01(月) 04:14:01 ID:Yovlgfkv0] // madocon.uws if GETID("窓コン","#32770",0.1)>0 then ExitExit MadoCon = "MadoCon.exe" //■MadoCon.exe のパス x = 365; y = 461 //■表示位置 idm = EXEC(MadoCon,False,x,y) CLKITEM(idm,"作成",CLK_BTN) idn = GETID("新規作成","#32770") CLKITEM(idn,"コマンド",CLK_LIST) CLKITEM(idn,"取込み",CLK_BTN) while GETID("取り込み","#32770",0.1)>0; SLEEP(0.1); wend while GETID("新規作成","#32770",0.1)>0 // wtitle = GETSTR(idn,1) // タイトル // wclass = GETSTR(idn,2) // クラス 　　wparam = GETSTR(idn,3) // パラメータ (コマンドID) 　　if wparam="" then Break 　　SLEEP(0.1) wend if wparam<>"" and GETKEYSTATE(VK_CTRL) then SENDSTR(0,wparam) // クリップボード CTRLWIN(idm,CLOSE2) // ダイアログが出ていてもメインウインドウを閉じる 528 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/01(月) 05:41:16 ID:HgQCbgDB0] ウィンドウの情報はWinmapでメッセージはSPY++かな? あと窓コンも。 WinspectorとかSystree++とかも試した痕跡があるけど使って無いな。 たぶんなんか不都合があったのかSpy++があるからかだと思うが。 spy++ to MsgIDってのもあるけどこれ何だっけ? ※UWSCはやたら拡張するよりこの手のツールと統合化した方がいいと思うよ。 529 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/01(月) 10:28:17 ID:Y8saALnE0] 文字の数、色、太さで識別して指定した場所をクリックさせることは可能？ 530 名前：名無しさん＠お腹いっぱい。 [2007/01/01(月) 10:59:06 ID:4ne/Fmdr0] これは、エスパー待ちだな。 531 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/01(月) 20:00:27 ID:HgQCbgDB0] >>529 その前にそれをやるとどこがどう気持良いのか書けよ。 532 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/02(火) 00:51:03 ID:bFlzVkGw0] >>529 俺なりにエスパーした結果、やって出来ないことはないかもしれないけど 自前でソフト作ったほうが早いという結論が出たぞ。 533 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/02(火) 03:28:00 ID:SqVYKNkF0] プロセスのメモリを簡単に操作できるというMemory.dllをUWSCで使おうとしたのですが、 戻値が正しく出力されません。 def_dll ReadMemory(string,int,int,int):Memory.dll pname="UsaTest2.EXE" adr=00402148 rdata=0 ReadMemory(pname,adr,rdata,2) msgbox(rdata) どうやったらrdataに戻値を入れることが出来るでしょうか？ Memory.dll www.vector.co.jp/soft/win95/prog/se358509.html UsaTest2.EXE www.vector.co.jp/soft/win95/prog/se375830.html よろしくお願いします。 534 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/02(火) 06:28:18 ID:v+0SAelo0] >>533 これは勘だが、第三引数は参照渡しするべきじゃないか? 535 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/02(火) 13:32:23 ID:f/EOdE580] id= getid("●×","▽□") Ver1.xの頃から思っていたがこれはやめたほうがいいよな? 見つけたウィンドウの寿命なんて保証が無いんだし。 俺は殆どのスクリプトでターゲットウィンドウに何かする時に いちいちgetidでさがしなおしている。つまりsenstr(id,xxx)とか idを引数に取っている関数は全てラッパをかけている。 autoitなんかもいちいち検索するようになってるみたいだが uwscのこの点は根本を直して欲しい。 例えばターゲットディスクリプタみたいのを用意して target= maketarget( ウィンドウタイトル、クラス名、その他もろもろ） とかでターゲットハンドルをつくってあとはそれでコントロールするとか そんな感じにすべき。 536 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/02(火) 14:04:08 ID:sr7fsaDq0] >idを引数に取っている関数は全てラッパをかけている。 すまんラッパーの意味が分からんので教えて頂けますか？ 537 名前：533 mailto:sage [2007/01/02(火) 14:13:57 ID:SqVYKNkF0] >>534 回答ありがとうございます。 解説サイト読んでみて一行目を def_dll ReadMemory(string,int,var int,int):Memory.dll この様に書き換えたのですが、やはり値が反映されません。 どこか間違えているのでしょうか？ 538 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/02(火) 14:34:07 ID:f/EOdE580] >>536 ラップ流行ってるから知ってるだろ? それともオッサンか? 539 名前：533 mailto:sage [2007/01/02(火) 14:34:30 ID:SqVYKNkF0] すみません試行錯誤した結果、自己解決してしまいました。 三行目の adr= の後に$をつけるのを忘れていました。 540 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/04(木) 12:07:57 ID:CRC0/rhe0] x+y (x,yは任意の自然数) このような形で書かれた文字列があるとします この時、xだけを数値として取り出したいのですが、どうしたらよいのでしょうか？ C言語で書くとするとこんな感じのことをやりたいのですが while(str[++i]!='+'); str[i]='\0'; atoi(str); 541 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/04(木) 13:37:24 ID:CDtr7kFp0] >>540 //　文字列に指定文字列があるか探す 戻値　=　POS( 探す文字,　探される文字列,　[n個目] ) //　文字列コピー 戻値　=　COPY( 文字列,　開始位置,　コピー文字数 ) //　文字型を数値に変える 戻値　=　VAL( 文字列 ) これで適当にやってちょ 542 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/04(木) 13:43:59 ID:CRC0/rhe0] ありがとうございます 543 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/04(木) 14:12:24 ID:NfNDeecx0] >>540 '+'が固定ならTOKENで良いのでは？ 544 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/04(木) 15:45:22 ID:CDtr7kFp0] //　トークンの切り出し （指定文字で区切ったものを返す） 戻値　=　TOKEN( 区切文字,　var 文字列,　[ 区切方法,　ダブルコーテイションフラグ ] ) で一発だったね 545 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/05(金) 10:42:25 ID:VyUiwUts0] 数字をJISとかのの数字の文字に直すにはどうしたらいいですか？ １０だと31　30のようにしたいのですけれども 546 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/06(土) 00:24:00 ID:A77H/DD/0] >>545 a = "１０" c = "" for i=1 to length(a) 　　c = c + format(asc(strconv(copy(a,i,1),sc_halfwidth)),1,-1) 　　if i<length(a) then c = c + " " next msgbox(c) 547 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/06(土) 13:55:55 ID:/QWIOIEx0] リストボックスの値をCLKITEMを使って変更しようとしても変更されないことがあります というより「見かけ上は変化しているが、実際は変化していない」といった感じです 例えば下のようなリストボックス・ボタンがあったときに左を選択しようとすると、 見た目は左に変わるのですが、実行ボタンをクリックした時の動作は上のままなんです そのリストボックスはCLK_ACCを使わないと動かない、マウスを上に乗せないと見た目すら変わらない、 というようにいくらか不可解な動作をしています 関係ないのかもしれませんが、何かの参考になれば 上▼ ｜　　[実行] 上　　｜ 下　　｜ 左　　｜ 右　　｜ ――┘ 548 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/06(土) 18:37:25 ID:Cxfu2A0o0] >>546 サンクス天才！ 549 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/08(月) 11:33:30 ID:4gmlHrqp0] 全画面表示してるときに、スクリプトによっては必ず画面が切り分かるのとそうでないのがあるんですけど なぜですかね？？ 550 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/09(火) 00:27:13 ID:gU8Ryzlh0] エスパー待ちだな 551 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/10(水) 00:05:07 ID:ua/+mf/b0] >>549 全画面表示してるときに、スクリプトによっては必ず 画面が切り分かるのとそうでないのがあるからだろ。 ？？ 552 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/11(木) 15:46:47 ID:3AaqofY20] ローカルのIPをuwscで取得するにはどうすればいいですか？ 553 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/11(木) 23:52:48 ID:WqkycWkF0] ipconfig 554 名前：sage [2007/01/12(金) 01:23:04 ID:ThZzr6Oc0] UWSC使ってみようと思いましたが エクセルで　c:\tes.xls　を開き方がわかりません どうやるの？ 555 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/12(金) 14:20:29 ID:yd7QDL2U0] doscmd("c:\tes.xls") 556 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 01:34:27 ID:beBI/GOV0] >>555 どうもありがとうございました。 557 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 04:11:13 ID:x3aoKvoK0] https://ssl.gcrest.com/k-den/free_regist.htm こちらのソフトウエアなんですが、定時に異なるIDで多重起動させ 既存のUWSファイルで馬券購入を自動で行わせる方法など 「私なら出来ますよ」という方、「アイデアなら思いつきます」という方 いらっしゃいませんか？ 558 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 09:54:17 ID:im1/hPU60] >>557 > 「私なら出来ますよ」 で、いくらくれるの? 559 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 12:25:50 ID:TMgxZHyJ0] ＵＷＳＣの会社が出来てます。 560 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 14:38:31 ID:vP4ye07F0] マウス左を下ろしているときに連打するってスクリプトを作りたいのですがうまくいきません。 while true ifb BTN(LEFT) = 1 then BTN(LEFT,click,1) BTN(LEFT,click,1) BTN(LEFT,click,1) BTN(LEFT,click,1) BTN(LEFT,click,1) BTN(LEFT,click,1) Exit endif wend これでやるとずっとクリックし続けます（左クリックしてなくても） アドバイスお願いします。 561 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 15:55:55 ID:ZUVXcmxo0] >>560 BTN(LEFT)の比較の際にクリックされてる while true BTN(LEFT) wend これを実行してみろ で、そもそもBTN()はボタンを押す関数であって、ボタンの状態を知るための関数じゃない。 そのための関数はGetKeyState()、これを使えばうまくいく。 562 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 17:09:44 ID:vP4ye07F0] ifb GETKEYSTATE(BTN(LEFT,down)) 構文がミス・・・これでもダメなようです・・・ 勉強してきます；； 563 名前：名無しさん＠お腹いっぱい。 [2007/01/14(日) 18:15:09 ID:uoqeTuE50] >>562 ifb 使ってるんだから条件を書かなければいけないでしょ。 ifb GETKEYSTATE(BTN(LEFT,down))=1 とか。 564 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 18:28:32 ID:gkw6cH5c0] >>560-563 レベル低すぎ 565 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 18:29:50 ID:mLbNjCsz0] getkeystateにはvk_で始まる仮想キーしか渡せないんじゃなかったっけ？ 左クリックの仮想キーはヘルプの一覧には見当たらなかった。 諦めて if getkeystate(vk_alt) and getkeystate(vk_c) then btn(left,click,1) とかにするしかないかもしれない。 566 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 19:48:15 ID:l0qXvX3Z0] 仮想キーって名前判ってるならググればすぐ判りそうなもんだけど… VK_LBUTTON ($1) 567 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/14(日) 22:24:57 ID:TMgxZHyJ0] ゲームでイライラしている子供に熱心に教えるなんてエエハナシヤ（ ´Д⊂ 568 名前：名無しさん＠お腹いっぱい。 [2007/01/15(月) 02:43:47 ID:xk6goVHU0] [1]キーを１.0〜2.0秒(0.1秒単位のランダム)で押すのを繰り返す を作ってくれん？ 569 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/16(火) 01:38:38 ID:47Ugvl4S0] このソフトはフルスクリーンのゲームも操作できるんでしょうか？ 570 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/16(火) 02:00:34 ID:47Ugvl4S0] 止め方教えてｋづあさい 571 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/16(火) 02:45:07 ID:aGcj4GdP0] Alt + F2 572 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/16(火) 23:37:14 ID:XqBFUv3j0] >>568 レベル低すぎ 573 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/16(火) 23:37:44 ID:XqBFUv3j0] >>569 できるよ。相対座標使えばどうとでも 574 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/20(土) 01:24:34 ID:zDsd7Kso0] ヘルプ見たけど スクランブルのかけ方がわかりませんでした よかったら教えてください 575 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/20(土) 06:15:44 ID:EgRjIOdf0] 俺はスクランブルというコピーに引かれ スクランブルになるためにはどうすればよいのか考えた スクランブルなのだからどんなこともできる 手始めに全裸で姉の部屋にアンゲロ、アンゲロとつぶやきながら飛び込む タンスをこじ開けブラジャーを腰に巻きパンティーを頭にかぶる 姉が呆然としながら見てくるがスクランブルなので気にしない 姉のベッドに潜りこみ「幸せだから！幸せだから！」と絶叫 姉は無言で部屋から立ち去る だがまだ最強には不十分 次は妹の部屋にムッシュムッシュと叫びながら飛び込む 妹は着がえをしている最中だったがスクランブルなので無視 半裸で逆立ちをしながら 「俺に充電しろ！！俺に充電しろ！！」と絶叫 妹は大泣きで退散 確実にスクランブルに近づく 開脚後転でトイレに飛び込み便座を外し首に掛ける ゾンビの真似をしながら母の部屋に突撃 タンスを開けると一枚の写真発見 死んだ親父が俺を抱いている写真発見 俺は泣いた 576 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/20(土) 13:23:40 ID:rqmoT2lU0] ヒント・・コマンドプロンプトでパス指定　　/a でスクランブルかけれる 577 名前：名無しさん＠お腹いっぱい。 [2007/01/20(土) 19:05:25 ID:uRMPRV7/0] ぜんぜんわからないんだけど、vbスクリプト（wsh？）とどっちがいいのかな。 どっちか勉強しようかとおもってるんだけど、、、 エクセルとIEを連携させていろいろしたいんだ。 578 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/20(土) 20:24:51 ID:RFPdD2MV0] >>577 VBAでいいじゃん 579 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/21(日) 05:22:39 ID:Q4nEdwmO0] >>577 初めて勉強するならWSHがおすすめ。何よりも資料が豊富。 UWSCの書式は(VBS+JS)/2+αって感じだから… >>376 エクセル使いなら>>578が適当かも。 580 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/21(日) 22:12:07 ID:YnB2PVtI0] IE_SelectItem(1, "Tag='A',LinkText='文字列'") IE_ItemProc(1, "CLICK", "") IEとあるページで <td width="30%"><a href="URL">文字列</a></td> の「文字列」のところをクリックしたいんだけど どうしてもできないので手助けお願いします。 エラー内容 IE_SelectItem の引数の形式が不適切です。 「'」が多すぎるか「,」が少なすぎます。 該当箇所： Tag='A',LinkText='現物買' www.icnet.ne.jp/~supreme/IE_HowToUse.html ここの例が間違ってるの？ 581 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/21(日) 22:33:46 ID:YnB2PVtI0] ついでにこのエラー // でコメントにしても 同じエラーになる 582 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/22(月) 01:27:03 ID:iOAPnPki0] >>580 UWSC Ver4〜には対応してないらしい。 そのサブルーチンを使わなくても標準でできる。 ヘルプを見よう。 IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("????/????/") // ←アドレス while IE.Busy or IE.ReadyState<>4; SLEEP(0.1); wend IELink(IE,"現物買") // ←クリックするリンクの表示文字 583 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/22(月) 01:34:13 ID:pabBt9LS0] ielink(IE,"文字列") じゃダメなの？ 584 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/22(月) 03:05:22 ID:a8PeaC4D0] >>582 >>583 ありがとうございます 再度 書き直してみます。 585 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/22(月) 05:37:39 ID:a8PeaC4D0] また行き詰ったorz 超速マクロテクの例では フォーム 要素名指定での入力は うまく入力できるんだけど Eトレサイトではなぜか フォームへの入力ができない IE.document.trg.price.value = "100" エラー Uスクリプト com_error IE.document.trg.price.value = "100" ここでは要素名では使えないってことなのかな？ 586 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/24(水) 16:28:19 ID:UY8qL/2O0] 特定ウインドウの文字列を取得したい場合、OCR機能を外部から取り入れて 入力欄にその取得文字列をインプットする様なコマンドってわかります？ 587 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/24(水) 16:41:18 ID:oOdl/NuF0] 日本語でおｋ 588 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/24(水) 16:55:36 ID:Tu3OEDDA0] >>586 INPUT( 表示メッセージ,　[デフォルト値]) デフォルト値に取得した文字列（もしくはその変数） 589 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/24(水) 19:43:58 ID:QNCrSZg7O] リストビューの項目を選択するのを自動化したいんですが ClkItem(id,"リストビュー項目",CLK_LSTVEW) で、できないんですけど間違ってるんですか？選択したいのはインターネットブラウザの項目なんですが、 ClkItem(id,"リストビュー項目",CLK_ACC)だとできるんです。 ただこの場合リストビュー上にマウスを持っていかないと変わらないんです。 インターネットブラウザのリストビュー項目を自動選択するにはどうしたら良いですか？ 590 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/25(木) 17:58:40 ID:r0DwPlYF0] www.k-den.jp/ このネットゲームのフリレ自動化のプログラムが組める方がいらっしゃれば、お願いしたいのですが？ 登録などは無料となっております。 591 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/25(木) 23:41:51 ID:XH7KwjZi0] ＞お願いしたいのですが いくらぐらいで？ 592 名前：名無しさん＠お腹いっぱい。 [2007/01/26(金) 13:41:53 ID:Pav5kCE90] c=peekColor(55,28) ifb G_赤(c)<127 print "OK" Else endif function　G_赤(c) 　　Result　=　c　and　$FF fend これのG_赤(c)<127 の部分が良く分からないのですが 何方か解説してくれませんか？ 593 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 15:26:52 ID:L9rKW3Kv0] あまり赤くなければ ってこと 594 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 17:08:03 ID:gpe3xmDS0] 横からで申し訳ない。 Result　=　c　and　$FF　の 'and'　ってどういう計算だろ？ 考えてたら訳わかんなくなった… 595 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 17:30:52 ID:L9rKW3Kv0] >594 ビット積やね。 論理積のandとは意味が違うので注意 596 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 17:35:37 ID:L9rKW3Kv0] 本家ＢＢＳ過去ログより www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=26&log=ON&cnt=1 597 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 17:36:10 ID:P2hWYSFw0] peekcolorの返り値は、ＲＧＢ、16進数でＢＢＧＧＲＲで入ってるから、c and $ff0000 で　青、　c and $00ff00 で緑、　c and $0000ffで赤の値が取り出せる ヘルプに書いてあるがな 598 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 17:37:01 ID:gpe3xmDS0] >>595 おぉ　即レスさんくすです。　ひとつ賢くなった… 599 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 18:39:02 ID:76a1bqKG0] BGRなんだ。。なんで青とってるのに関数名が赤なのかと悩んだｗ 600 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/26(金) 21:50:39 ID:IQwz3Hx50] >>591 ただでお願いします。 無理言ってすいません。 601 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/27(土) 11:43:07 ID:G4PUCkhd0] いや、言うのは自由だから。 602 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/27(土) 14:41:39 ID:doRzyfmA0] //基本的なことをやってみました id = status(getid("Microsoft Internet Explorer","IEFrame",0.02),st_title) ifb id = "";fukidasi("ページがありません");for x=1 to 5;sleep(0.2);next;exit;endif IE = GETACTIVEOLEOBJ("InternetExplorer.Application",id) Name = IE.LocationName URL = IE.LocationURL //IE.Quit WSH = CREATEOLEOBJ("Wscript.Shell") Path = WSH.SpecialFolders("Desktop") Link = WSH.CreateShortcut(Path+"\"+Name+".url") Link.TargetPath = URL Link.Save //fid=fopen(Link.FullName,f_read or f_write);fdelline(fid,3);fclose(fid) 603 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/29(月) 22:05:37 ID:fcyz6KYn0] ヘルプを参考に「最小化」ボタンをグレーにしてみようとしたのですが、上手くいきません。 DEF_DLL ModifyMenuA(HWND,Long,Long,Long,Long):Long:user32.DLL MF_GRAYED = $1 SC_MINISIZE = $F020 id = exec("notepad") hwnd = GetCtlHnd(id,GET_SYSMENU_HND) ModifyMenuA(hwnd,SC_MINISIZE,MF_GRAYED,0,0) どこがおかしいのでしょうか。。。 604 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/30(火) 19:14:54 ID:C9/gwCO90] すみません、教えてほしいのですが MojiRetsu = "abcdefg" を一文字づつ取り出して、文字の処理をしたいのですがUWSCではどのようにすればいいのでしょうか？ VBの場合 for i = 1 to Length(MojiRetsu) 　　txt = mid(MojiRetsu, i, 1) もしくは 　　txt = Right(Left(MojiRetsu, i),1) 　　.... 処理.... Next でとりだせるはずですが、UWSCの場合の処理を教えていただけませんか？ よろしくお願いします。 605 名前：604 mailto:sage [2007/01/30(火) 19:28:38 ID:C9/gwCO90] すみません、自己解決です。 ヘルプをよく読んでませんでした。 COPY関数がMIDに相当するものだったんですね。 COPYですから、文字列の単純コピーだと思い込んでました。 すみません。 606 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/01/30(火) 22:14:21 ID:IHRQvlYn0] >>603 グレーにはならないけど、無効状態にはなってるね。 「SC_MAXIMIZE = $F030」も試してみたが同じだった。 「MF_DISABLED = $2」の挙動みたいだが？ API使いの光臨を待とう… 607 名前：603 mailto:sage [2007/01/31(水) 00:09:22 ID:ylP9utd10] >>606 返答ありがとうございます。 そのような場合には最後に acw(id,status(id,st_x),status(id,st_y)) を書き足してウィンドウの再描写をすれば解決しそうですが、 自分の環境では最小化ボタンの無効化が行われません。 左上のプログラムのアイコンをクリックする事によって出てくる ポップアップメニューからは「最小化」が削除されているし、 ModifyMenuの戻値は1なのですが。。。 自分はXPなのですが、環境によって違うのでしょうか。 608 名前：名無しさん＠お腹いっぱい。 [2007/02/01(木) 04:05:02 ID:C4wyYcBXO] 天才にご指導願いたい。 指定したウィンドウに画像で４桁の数字がランダムに何種類か表示される。 このウインドウの数字を解析し、テキストボックスにその答えを打ち込みたい。 こんなものはマクロで出来ますか？ できるなら式を教えてください。 609 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/01(木) 08:50:32 ID:cGUezFrd0] OCRでぐぐって少し考えてみろ 610 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/01(木) 21:02:52 ID:S0Ax5EkM0] 特定のフォントでいいならAUTOITのOCRスクリプトが公開されている。 特定フォントの数字だけならUWSCでも簡単だろ。 611 名前：名無しさん＠お腹いっぱい。 [2007/02/02(金) 02:12:12 ID:jlqlXg/70] UWSCでは指定ウィンドウに表示されている画像を解析し、その画像に表示されている数字を解析後にテキストボックスに打ち込むなんて事は可能でしょうか？ 612 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/02(金) 02:20:36 ID:zIadodU90] >>611 どこのサイトのどんな画像？ 613 名前：名無しさん＠お腹いっぱい。 [2007/02/02(金) 02:35:07 ID:jlqlXg/70] >>590であがっている ネットゲームのレースキー入力ウィンドウなんです。 ウィンドウ内に画像が表示され、その表示されている数字を打ち込まないとレースが開始されない。 この面倒な作業を無人で行えないものかと思いまして。 以前はUWSCでマクロのみでレースが発走できたのですが、今はキーを打ち込むという作業が追加されてしまいまして、 その作業がみな面倒だというのでなんとか作れないものかと思い。 このようなスレを見つけ、詳しい皆様に教えを乞いたいです。 614 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/02(金) 16:40:42 ID:qRWklRGG0] なんのためにそういう面倒な処理が追加されたと思う？ マクロ蔓延への対策だよ このスレ読んでできないようならあきらめたほうがいい 615 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/02(金) 17:17:28 ID:O3A6Wfi+0] つまり作る技術も知識も無い奴しかここには居ないってことさ 616 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/02(金) 17:39:12 ID:K3C4+/Yt0] どこもタチの悪い質問が増えてるな 617 名前：名無しさん＠お腹いっぱい。 [2007/02/02(金) 22:03:28 ID:NWOMEjb/0] IE.Navigate("ameblo.jp/ore-dayo/", 0, null, 1, "Referer: ameblo.jp/ka-chan/\r\n"); こういう感じで実行しても、表示はするけどリファラが残りません＞＜ 誰かリファラの残し方教えてください 618 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/03(土) 00:44:28 ID:rAFsDkfj0] 本日、ｸｿｯﾀﾚなWORDファイルの整形に大活躍しました。 特定の文字列を検索 →インデント指定 コレをループさせてずいぶん楽できた。 手の操作をエミュレートしてるだけだから、失敗してもCtrl+Zで気楽に戻せるのがいいな。 619 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/03(土) 01:39:52 ID:jgpOFn4V0] >>617 "\r\n" → "<#CR>" 620 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/04(日) 16:33:00 ID:wsNHttRV0] 赤に近い色がある場所を取得したいのですが、どうやったら出来ますか？ chkimgだと〜に近い色という設定が出来ず、peekcolorで1ドットずつ調べるのは重いので。。。 while true for i=0 to g_screen_w for j=0 to g_screen_h c=peekcolor(i,j) red=c and $FF green=(c and $FF00)/$100 blue=(c and $FF0000)/$10000 if red>$F0 and green<$10 and blue<$10 then print i+","+j next next sleep(0.1) wend peekcolorを使うとこんな感じですが、重すぎてまともに動きません。

---

---

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

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