1 :
名無しさん@お腹いっぱい。 :
2009/12/09(水) 05:27:33 ID:J1DL1P1U0
●質問したい方へ。
「○○作れますか?」→ スクリプトを期待するのはお門違い。作れるか作れないか教えてくれる人はいるかも。
「○○が作りたい」→ 自分作ればいいんじゃない?
「○○作って下さい」→ 依頼スレじゃありません。
過去ログを見る、検索する等、自分で出来る事を書き込む前にするように。
自力で作ったのを晒すか、具体的な解らない場所を提示して、改善点や解決策を求めるようにしましょう。
●スクリプトを晒す上での注意
他人が読みやすいようにインデントを付けるように。解らない人はググレ。
(タブインデントは使えないんだぜ 全角スペース等に 変換しておくべし)
言いたい事に関係無い部分は 〜○○の処理〜 や 処理A 等のようにし、
必要な部分を晒すようにする。
●他人の書いたスクリプトを安易に実行しないように。
ハードディスクをフォーマットされたりしても、自己責任。
前スレ
自動化ツールuwsc使いよ集まれ4
http://pc12.2ch.net/test/read.cgi/software/1235990960/
5 :
名無しさん@お腹いっぱい。 :2009/12/09(水) 19:49:51 ID:wIUeYzw+0
>>5 まだ前スレが埋まってないよ?
それに、そっちで質問してるんだったら、一日くらいは待とうぜ?
そのソフトを使ったこと無いから解らんが、
>"winLirc.exe"が準備するキー情報
これはどこに準備されるのか不明なの?
外部プログラムのメモリ読み出すDLLとか使って、準備するキー情報とやらを読み出すか、
ソースに付け加えて赤外線認識時に何か動作させるか、そういう事すればいいんじゃね?
そんな丸投げな質問の仕方ならレスつかなくて当然
>>5 UWSCもユーザー多いかどうか分からないけど、
それ以上に赤外線リモコン使ってる人が少ないでしょう。
確かにUWSCの起動は遅いので、一瞬で起動して操作するということはできません。
exe化することで少々反応は早くなるかもしれませんが、どれほど効果があるか分かりません。
試用版でDOSコマンドを実行するものをexe化してみましたが、微妙に反応がいい気はします。
効果がありそうな方法は、あらかじめUWSCを起動しておくことですね。
昔よくあったんですよ。
一太郎とかエディタとかをすばやく起動するために、タスクアイコンとして常駐しておくという方法が。
UWSCはそのまま起動すると画面が邪魔だから、1ヶ月くらいSleepするスクリプトを起動しておけばいいんじゃないでしょうか。
とりあえず今やってみたところ・・・変りないですね。
一番いい方法は、常駐しているUWSCにコマンドオプションが送られてそのまま処理するというものですが、
同じスクリプトファイルでも新規に起動してしまうし、UWSCは外部からの呼び出しができない仕様になっているので無理ですね。
DOSのバッチファイルを起動するのはとても早いんですよ。
DOSだけでやれればそれでいいと思います。
>>5 けど、UWSCを使いたければ、こういう方法があります。
1.UWSCのループでクリップボードを監視
2.DOSでクリップボードにコマンド発行
3.コマンドの種類ごとに機能を実行
この方法ならコンスタントに、DOSコマンド実行(0.1秒)+UWSCのSleep時間(0.1秒)で0.2秒後にはコマンドを実行できるでしょう。
このコマンドを使います。
ttp://www.vector.co.jp/soft/winnt/util/se328049.html UWSCを呼ぶ代わりに.batファイルを登録します。
-- click.bat ここから--
rem こんな感じで
echo "コマンド実行-A" > clip
-- click.bat ここまで--
-- リモコン.uws ここから最後まで--
while true
cl = getstr(0)
ifb 1 = pos( "コマンド実行", cl ) then
sendstr(0,"") // 使ったら空にしないと永久ループになる
select cl
case "コマンド実行-A"
KBD(VK_A)
default
sendstr(0, cl) // コマンドがなかったから元に戻す
selend
endif
sleep(0.1)
wend
>>8 ちとツッコミ。
>exe化することで少々反応は早くなるかもしれません
コンパイルしている訳ではありませんので スピードが速くなる事はありません。
サイズもUWSC本体と同程度になります。
※ UPX等を使えばサイズは3分の1程になります(UWSC本体の圧縮は厳禁)
by umiumi
>確かにUWSCの起動は遅い
関連づけしておけば起動速度自体は特に気にならないような…
計算処理が (たとえi=i+1だけでも)あると速度的に相当見劣りするのは確かだけど。
>>9 ありがとうございます。
DOSのバッチファイルということで、clip.exeをちょっと実験してみました。
なんせ、DOSコマンドはdir、copy、path、mkdirぐらいしか使ったことがありませんし(そもそもプログラミング自体、大昔にアセンブラをいじった程度です)
ご教授頂いただいたことは、(あくまで私の解釈ですので間違っていたらご指摘ください)DOSコマンドでWinLirc.exeのデータを取得してクリップボードにコピー、
それをUWSCで扱う・・・ということだと理解しました。
残念ながら、clip.exeの動作は理解したのですが、DOSコマンドを使っていかにwinlirc.exeから情報を得るのかがわかりません。
許せるならば、貴殿の知識をもう少しお分けいただければと思います。お願いします。
前スレで出てたAutoHotKeyだとWindowsアプリのようにメッセージを受け取って処理できるんですよね。
バッチファイルでSendMessageできれば待ちループもなくて平均0.5秒始動が早くなると思って探してみました。
@はOLEオブジェクトなのできっと遅いです。
AはSendMessageというDOSコマンドを自作しているっぽいですが、肝心のコマンドが見つかりませんでした。
BはMessengerサービスを開始してファイアーウォールも無効にして試したけどうまくいかなかった。
@
ttp://plaza.rakuten.co.jp/u703331/diary/20070413/ > コマンドプロンプトから直接Win32API [ シェル ]
> コマンドプロンプトから直接Win32APIを呼び出してみました。
> 実際は、MSHTA->VBScript->Excel->Excel4.0マクロなんだけど。
> C:\borland>mshta vbscript:execute("Set a=CreateObject(""Excel.Application""):a.ExecuteExcel4Macro(""CALL(""""user32"""",""""MessageBoxA"""",""""JJCCJ"""",0,""""Hello, World"""",""""TEST"""",0)""):close()")
>
> C:\borland>
>
> ダブルクォーテーションが多いので入力するときに大変・・・・
> (改行されているのはブラウザのせいなので、そこはよろしくです)
A
ttp://www.hm2.aitai.ne.jp/~kagemasa/unigraphics/wbat_post.btw :/マシンファイルの設定
> SENDMESSAGE "$%HANDL%" WM_CHAR '1'
> SENDMESSAGE "$%HANDL%" WM_CHAR VK_RETURN
> STR LEN %MFILE%
> FOR /L %%A IN (1 1 %ERRORLEVEL%) DO
> STR MID B %MFILE% %%A 1
> SENDMESSAGE "$%HANDL%" WM_CHAR '%B%'
> ENDFOR
> SENDMESSAGE "$%HANDL%" WM_CHAR VK_RETURN
B バッチファイルでこんなコマンドを実行。でもかなり面倒な上にセキュリティもなくなる。
net send localhost メッセージ
>>12 > DOSコマンドを使っていかにwinlirc.exeから情報を得るのか
RC01 POWER exe で実行ファイルが指定できると思います。
もし拡張子batファイルを指定可能なら、
>>9 に書いた click.bat を指定します。
click.batに記述されたコマンドでクリップボードに文字列をセットし、
UWSCがその文字列を受け取ったら処理を開始します。
クリップボードはいろいろな文字列が入ってくるので、誤作動しないように固有の文字列を作る必要があります。
パスの設定が必要になると面倒なので、 clip.exeはWindowsフォルダにコピーした方がいいでしょう。
本当はセットで使うので同じフォルダに置いて echo "コマンド実行-A" > %~dp0clip.exe とかしたほうがいいんでしょうけど。
>>11 まあそうかもしれませんが、batファイルの呼び出しと比較したらやっぱり雲泥の差になりますから。
>>5 さんがどこまでの反応速度を求めているのか分かりませんが、
たとえばテレビのチャンネルを変えるだとかブラウザでスクロールするとかの場合にはそれなりの反応速度を期待すると思います。
また、繰り返し実行するものの場合は起動から終了までの通しでの時間が重要になるし、
ゼロに近づける方法はやっぱり重要だと思います。
>>14 こんばんは、12です。ご説明、よくわかりました。
早速、作ってみました。
もう、完璧です!
マシーンの動作ってこうでなくっちゃ、という感覚です。
UWSCも
>>9 にちょっと手を加えただけで完成です。
(DOSのechoコマンドがスペースとCRLFを引き連れてやってくるところはてこずりました。)
重ねてお礼申し上げます。ありがとうございました。
ついでといっては、なんですが、
>>8 >UWSCはそのまま起動すると画面が邪魔だから、1ヶ月くらいSleepするスクリプトを起動しておけばいいんじゃないでしょうか。
ここの部分を詳しく教えていただければと思います。
SLEEPだけのスクリプトを動かしておけば、他のは隠れて動く、ということなのでしょうか?
これも、実験してみます。
>>15 余分なものが入ってましたか。気がつきませんでした。
> ここの部分を詳しく教えていただければと思います。
サクラエディタとかの常駐型アプリを使ってみると分かりますが、一旦起動したらメモリ上に残るので、
以降のファイルを開く動作が非常に速くなります。
UWSCも同じように、一つ常駐させればスクリプトの読み込みが早くなるかなと思ったんですが、
UWSCは別プロセスで起動するのでそうはならないようでした。
常駐させる方法として次の1行を実行させる方法を提案しました。
スクリプトファイルを直接実行すれば、UWSCのメイン画面は表示されないので。
sleep(60*60*24*30) // これで1ヶ月スリープ
「画面が邪魔」というのは、UWSCの画面は最前面に表示されるので、常時起動しているとしたら邪魔ですよね?
スクリプトファイルの関連付けで起動することで、メイン画面は非表示になるのを利用しようというわけです。
大文字小文字にこだわりのあるおにーさんたちはどう書いてるの?(´・ω・`) CREATEOLEOBJ CreateOLEObj CreateOleObj Createoleobj
CreateOLEObj なんとなく、クセかなぁ。 全部大文字とか全部小文字はなんとなくぱっと見で読み辛い気がするね。 ちょっと前流行った日本語の文字の場所を入れ替えるどうのこうののコピペじゃないけど、 英語でも頭文字の部分が強調されていれば、感覚的に解る感じがするからなー。
CreateOLEobj objは小文字で書いちゃうなぁ。 objIEとかで探すとそういう書き方が多かったもんで。
CREATEOLEOBJ 理由:単語辞書の登録がたまたまそうなってから…
空白にこだわりのあるおにーさんたちはどう書いてるの?(´・ω・`) For i = 0 to 10 - 1 For i=0 to 10 -1 For i=0 to 10-1 GetID( Title, Class) GetID(Title, Class) GetID(Title,Class)
For i = 0 to 10 - 1 GetID(Title, Class)
有料でいいから文法をjavascript仕様にしたものを出してくれないかな。需要はあると思うんだけど。
c系統に慣れているから while wend とか ifb endif とかになれるのはつらかったけど、慣れるとそれなりにいい^^
FOR I = 0 TO (10 - 1)
CreateOLEobj IESetData( IE, text, "MESSAGE" ) IE.document.all.submit.click() REPEAT; sleep(0.1); UNTIL !IE.busy AND IE.readystate = 4 for i = 0 to 10 - 1 while true GetID( Title, Class ) GetID(Title) まあキーワードに色付けてるから大文字の方が目立って見やすかったりする。
CLKITEMで項目を選択したいのだが項目名が変化する場合って どうやって取得するんでしょうか CLKITEM(id, "ダウンロード済 (X)", CLK_LSTVEW or CLK_LEFTCLK) 具体的には Xが変化するわけですが、Xのところに設定する ワイルドカードみたいなのないんでしょうか
CLK_SHORT
押されてるキーを全て取得する方法って無いかな? GETKEYSTATE使うのは無謀すぎるし・・・ そういうスクリプトやDLLがあるなら教えてくれるとありがたい
>>23 javascript仕様って何?
文法の話?標準関数とか?
31 :
27 :2009/12/12(土) 15:29:54 ID:7cmFQzAf0
32 :
その1 :2009/12/12(土) 17:11:47 ID:HwVuwznO0
>>29 DEF_DLL GetKeyboardState({byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byt
e,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,by
te,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,b
yte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,
byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,
byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,
byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,
byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,
byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,
byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte,byte}): int: User32.dll
DIM key[256]
33 :
その2 :2009/12/12(土) 17:14:29 ID:HwVuwznO0
WHILE True GetKeyboardState(key[0],key[1],key[2],key[3],key[4],key[5],key[6],key[7],key[8],key[9],key[10],key[11],key[12],key[13],key[14],key [15],key[16],key[17],key[18],key[19],key[20],key[21],key[22],key[23],key[24],key[25],key[26],key[27],key[28],key[29],key[30],key[31],k ey[32],key[33],key[34],key[35],key[36],key[37],key[38],key[39],key[40],key[41],key[42],key[43],key[44],key[45],key[46],key[47],key[48], key[49],key[50],key[51],key[52],key[53],key[54],key[55],key[56],key[57],key[58],key[59],key[60],key[61],key[62],key[63],key[64],key[6 5],key[66],key[67],key[68],key[69],key[70],key[71],key[72],key[73],key[74],key[75],key[76],key[77],key[78],key[79],key[80],key[81],key [82],key[83],key[84],key[85],key[86],key[87],key[88],key[89],key[90],key[91],key[92],key[93],key[94],key[95],key[96],key[97],key[98],k ey[99],key[100],key[101],key[102],key[103],key[104],key[105],key[106],key[107],key[108],key[109],key[110],key[111],key[112],key[113],k ey[114],key[115],key[116],key[117],key[118],key[119],key[120],key[121],key[122],key[123],key[124],key[125],key[126],key[127],key[128], key[129],key[130],key[131],key[132],key[133],key[134],key[135],key[136],key[137],key[138],key[139],key[140],key[141],key[142],key[143], key[144],key[145],key[146],key[147],key[148],key[149],key[150],key[151],key[152],key[153],key[154],key[155],key[156],key[157],key[158], key[159],key[160],key[161],key[162],key[163],key[164],key[165],key[166],key[167],key[168],key[169],key[170],key[171],key[172],key[173],
34 :
その3 :2009/12/12(土) 17:16:07 ID:HwVuwznO0
key[174],key[175],key[176],key[177],key[178],key[179],key[180],key[181],key[182],key[183],key[184],key[185],key[186],key[187],key[188], key[189],key[190],key[191],key[192],key[193],key[194],key[195],key[196],key[197],key[198],key[199],key[200],key[201],key[202],key[203], key[204],key[205],key[206],key[207],key[208],key[209],key[210],key[211],key[212],key[213],key[214],key[215],key[216],key[217],key[218], key[219],key[220],key[221],key[222],key[223],key[224],key[225],key[226],key[227],key[228],key[229],key[230],key[231],key[232],key[233], key[234],key[235],key[236],key[237],key[238],key[239],key[240],key[241],key[242],key[243],key[244],key[245],key[246],key[247],key[248], key[249],key[250],key[251],key[252],key[253],key[254],key[255]) FUKIDASI("VK_LEFT=" + ((key[VK_LEFT] AND $80) = $80) + " VK_RIGHT=" + ((key[VK_RIGHT] AND $80) = $80) + " VK_UP=" + ((key[VK_UP] A ND $80) = $80) + " VK_DOWN=" + ((key[VK_DOWN] AND $80) = $80), 0, 0) SLEEP(0.1) WEND
>>32-33 BOOL GetKeyboardState(
PBYTE lpKeyState // 状態データの配列
);
dakara
DEF_DLL GetKeyboardState( byref byte[] ): Long: User32.dll
dim key[255]
ret = GetKeyboardState(key[])
for i = 0 to 255
print key[i]
next
36 :
35 :2009/12/12(土) 17:37:15 ID:3Ho66wEG0
ミスってた。 ↓のコードで表示できたよ。3つまで同時表示。UWSCでもできるんだなあ。びっくり。 配列だと最初からポインタ渡しなんだな。 DEF_DLL GetKeyboardState( byte[] ): Long: User32.dll dim key[255] // 0〜255で256個の配列 while true ret = GetKeyboardState(key[]) FUKIDASI("VK_LEFT=" + ((key[VK_LEFT] AND $80) = $80) + " VK_RIGHT=" + ((key[VK_RIGHT] AND $80) = $80) + " VK_UP=" + ((key[VK_UP] AND $80) = $80) + " VK_DOWN=" + ((key[VK_DOWN] AND $80) = $80), 0, 0) SLEEP(0.2) wend しかし、256個並べるわけにはいかないから、文字列連結が必要だろう。 256回のループはやっぱ必要か。 いや、共用体としてLong[64]を使えばループ回数は減らせるはずだ。 共用体が無理ならコピーでもいい。
37 :
35 :2009/12/12(土) 19:03:03 ID:3Ho66wEG0
なんか、キーを4つほど押したことになってるな・・・ んで普通に3つ押せる。
39 :
35 :2009/12/13(日) 11:16:19 ID:C0QriWGM0
こんな感じでやればループ回数は1/4になるはずだけど、なんか失敗してるっぽい。 for j = i * 4 to j + 3 とかできちゃうのはUWSCの特徴。(やらない方がいいかも。) 普通なら for j = i * 4 to i * 4 + 3 って書かないといけない。 DEF_DLL GetKeyboardState( byte[] ): Long: User32.dll DEF_DLL RtlMoveMemory( long[], byte[], Long ): Long: kernel32.dll dim key[255] dim array[63] while true s = "" ret1 = GetKeyboardState(key[]) ret2 = RtlMoveMemory(array[], key[], length(key)) for i = 0 to 58 // arrayの場合 ifb array[i] and $80808080 then print "i=" + i + "(" + array[i] + ")" for j = i * 4 to j + 3 ifb key[i] and $80 then s = s + "j=" + j + "(" + key[j] + ") " endif next endif next FUKIDASI(s, 0, 0) SLEEP(0.2) wend
40 :
35 :2009/12/13(日) 11:28:01 ID:C0QriWGM0
UWSCで効率的にやろうと思ったら、DLL使って文字列化することだね。 そうすれば、同時に押せるキーは3つしかないわけだから、3回のループで済む。 key[255]を keystatestring="00000000000000000000000000010010000000000000000" //256文字 for i = 1 to 3 POS( "1", keystatestring, i ) next っていうか、keycoe[2]っていう配列にキーコードを返してくれるDLL関数があれば、その方がいいのか。 GetKeyboardState(keystate[]) for i = 0 to GetKeyCode(keycode[], keystate[]) ptint "keycode=" + keycode[i] + " keystate=" + keystate[keycode[i]] next
ちょっと質問が ウィンドウのないプロセスを終了させたいときはどうすればいいの? 具体的に言うとconime.exeをUWSCを使って終了させたいんだけど、 GETIDとCTRLWINを試してもできなかった。UWSCで終了させる方法はあるのかな?
タスクマネージャーを開かせて、CLKITEMでconime.exeを選択、終了してみちゃどうだい
うーん、そういう方法しかないのか
>>41 DOSCMD("tskill conime")
とかじゃない?
>>44 コマンドの説明ではなんか微妙にちがうっぽいけど、メモ帳は終了できたよ。
普通はtaskkillとかtasklist使うって書いてあるけど、Homeエディションだからか入ってないんだよね。
tasklistが使えたら便利なんだけど。
API使って取得するより、DOSコマンドのパイプ使って絞り込んだ方が早いしね。
tasklist | find "notepad"とか。
>>41 ちなみにUWSCの関数ではIDでしか制御できないけどIDが取得できないので制御できないね。
>>45 IDが言語っぽいなw
つ qprocessコマンド
48 :
41 :2009/12/15(火) 06:41:43 ID:vPOWhoxM0
そうだった、肝心なDOSコマンドのこと書くの忘れてた。ごめん DOSCMD("taskkill /im conime.exe") で終了させる方法はもう試してたんだけど、 DOSコマンドを使うとconime.exeが自動起動するから UWSCでDOSコマンドを使ったときに、起動したconime.exeも一緒にkillできないかなと思って UWSCだと方法はDOSコマンドしかないみたいだから DOSコマンドを使うときに一緒にDOSCMD("taskkill /im conime.exe")と書くしかないか
>>41 っ 一口メモ
Conime.exe を起動しないようにする
[HKEY_CURRENT_USER\Console]]
"LoadConIme"=dword:00000000
>>41 CTRLWIN() でイけたよ @XP Home SP3
DIM path = "C:\WINDOWS\system32\conime.exe"
DIM i
FOR i=0 TO GETALLWIN()-1
IFB STATUS(ALL_WIN_ID[i], ST_PATH) = path THEN
CTRLWIN(ALL_WIN_ID[i], CLOSE)
BREAK
ENDIF
NEXT
>>50 すごいけどやりたくないんじゃないかな。
まあ
>>45 のこの一文は間違いって分かったけど。
> ちなみにUWSCの関数ではIDでしか制御できないけどIDが取得できないので制御できないね。
ググっててスクリプトの多重起動禁止で 既に起動している場合自身を終了ってのがあったんだけど if getid(status(getid(GET_THISUWSC_WIN), st_title),status(getid(get_thisuwsc_win),st_class) > 0 then ExitExit コピペして起動するとSyntaxErrorって出る どこが間違ってるの?
あ、自己解決したかも ) が一つ足りないんだよね?
うん
basicの go to 文のように 指定行へ飛んで再び命令を実行するコマンドはありますか?
>>55 なさそうなので次のようにして代用している
たぶんPROCEDUREとかにした方が簡単だろうけどね
WHILE TRUE
処理(必ず行う処理)
if 条件 then break
処理(条件により飛ばす処理)
WEND
>>56 ありがとうございます
やはり工夫しないと代用はできないようですね
>>56 そういうbreakの使い方って可読性低いんじゃない?
やるなら
ifb
(条件により飛ばす処理)
endif
とか処理の範囲を明確にするほうがいいような気がする。
…まぁ、俺はそうしてる、ってだけだけど。
>>58 普通ならたぶんifb 〜endifだろうね
ただ、何を作ってたか忘れたけどどうしてもifbで出来ないケースにぶち当たってしまい、
苦肉の策で考えてやってみたんだ。それ以来こっちのほうを使っている
思い出そうとしても思い出せないくらいだけど、gotoなくてしばらく苦しんだことだけ覚え
てる
そもそも WHILE TRUEの時点でかなり特殊な使い方をしてるって意識できるループに
なるからね。ループを脱出できるのはbreakしかできないんだ
> ifb OK then > ifb OK then > ifb OK then > OK処理 > endif > endif > endif ↑では行数が増えた分だけインデントが深くなるので > while true > if NG then break > if NG then break > if NG then break > OK処理 > wend ↑のように書いたりするんです。 でもOKとNGとがループの抜けと共に混じることになるので ↓のように、関数を使うのがベターかな。 > ifb !処理() then // 普通はエラーの場合に条件分岐なので、falseを反転して分岐処理 > NG後始末 > else > OK後処理 > endif > > Function 処理() > 処理 = false // 失敗に備えてエラーをセット > if NG then exit > if NG then exit > if NG then exit > OK処理 > 処理 = true // 成功したら成功フラグをセット > FEND
ifbよりbreakの方がgotoっぽいからbreak使ってる
全然素人だからアホな考えかもしれないけど uwscにgoto処理できる機能を作者さんが付け加えることはできるの?
>>62 goto のように他の行へ移動したいのですが
初歩的な質問ですみません。
VBAでいう goto みたいな命令文はあるのでしょうか?
よろしくお願いします。
DATE:2007/1/17(Wed) 13:26 No.474
RE:goto umiumi
ありません。
#将来的にも付ける気はありません
あったほうが便利なのにね
goto使っちゃ 負けだと思ってる 個人的にネ
使い始めでカンタンな動作しかさせないつもりだったんだけど
とあるサイトを sleipnirでバックグラウンドで操作したいんだけど
アクティブウィンドウで動作させる場合は KBDで事足りてるだけどPC占有されちゃうんで
バックグラウンドでやりたい。
id = GETID("Sleipnir")
MOUSEORG(GETCTLHND(id, "Internet Explorer_Server"), 2)
KBD(VK_TAB,CLICK)〜
とかやってもうんともいわなくて
SCKEY(id, VK_TAB) これをやるとウィンドウがアクティブになってしまう。
http://uenomemo.blog31.fc2.com/blog-entry-52.html これを参考にしようかと思ったんだけど さっぱり。
pnir = CreateOLEObj("Sleipnir.API")と宣言されてもあとどうしていいかわからない。
誰か教えてください。
CLKITEM使えよw
こりゃまた大胆なマルチポストだな…。
そのレベルから教えるのは無理なので まずは3の教則本でも買って勉強してきてください
>>66 sleipnirで操作する必要性がわからない。
sleipnirって中身IEでしょ?
だから普通にIEを制御すればいいと思うんだけど。
71 :
66 :2009/12/20(日) 07:35:14 ID:bLgdGkWj0
67-70とりあえず本は注文しといた。 sleipnirに拘ってはいないんだけど、普段使ってるからなんとなく。 IEと同じだからやることは同じかなと。 ま、まだ出来てないんだけどね。理解するまでもう少し時間かかるかな〜
72 :
名無しさん@お腹いっぱい。 :2009/12/20(日) 11:24:50 ID:67+0bBGV0
Operaで動かしたいよー
73 :
メモ :2009/12/20(日) 14:12:47 ID:sezMof5L0
OLEEVENT( オブジェクト, インタフェース名, イベント名, Procedure名 ) インタフェース DWebBrowserEvents2 void BeforeNavigate2(java.lang.Object pDisp, com.ms.com.Variant URL, com.ms.com.Variant Flags, com.ms.com.Variant TargetFrameName, com.ms.com.Variant PostData, com.ms.com.Variant Headers, boolean[] Cancel) void CommandStateChange(int Command, boolean Enable) void DocumentComplete(java.lang.Object pDisp, com.ms.com.Variant URL) void DownloadBegin() void DownloadComplete() void NavigateComplete2(java.lang.Object pDisp, com.ms.com.Variant URL) void NewWindow2(java.lang.Object[] ppDisp, boolean[] Cancel) void OnFullScreen(boolean FullScreen) void OnMenuBar(boolean MenuBar) void OnQuit() void OnStatusBar(boolean StatusBar) void OnTheaterMode(boolean TheaterMode) void OnToolBar(boolean ToolBar) void OnVisible(boolean Visible) void ProgressChange(int Progress, int ProgressMax) void PropertyChange(java.lang.String szProperty) void StatusTextChange(java.lang.String Text) void TitleChange(java.lang.String Text) 新しいページが開くときに動くには BeforeNavigate2、TitleChange、NewWindow2 開き終わってから動くには NavigateComplete2 イベント処理関数が終了しないとその続きが処理されないので、単純に実行タイミングとして使う場合はスレッド呼び出しをする。 途中で別のページを開く可能性があるので、タイマーで終了する必要があるかも。
74 :
73 :2009/12/20(日) 18:36:46 ID:NXkHkjdJ0
このスレは今後オレのメモとして使うからお前ら書き込むなよ。
了解
メモは非表示にしたいので名前は「うんこメモ」でよろしく
// 待ちループなしのIE制御スクリプト STOPFORM(true) PUBLIC gIE2 gIE2 = CreateOLEObj("InternetExplorer.Application") gIE2.visible = True gIE = CreateOLEObj("InternetExplorer.Application") gIE.visible = True ID = HNDToID(gIE.HWND) OLEEvent( gIE, "DWebBrowserEvents2", "TitleChange", "TitleChange" ) OLEEvent( gIE, "DWebBrowserEvents2", "BeforeNavigate2", "BeforeNavigate2" ) OLEEvent( gIE, "DWebBrowserEvents2", "NewWindow2", "NewWindow2" ) OLEEvent( gIE, "DWebBrowserEvents2", "OnQuit", "OnQuit" ) sleep(60) CtrlWin(ID, CLOSE) Procedure OnQuit() exitexit FEND Procedure TitleChange() // キャッシュに入ってない場合に2回呼ばれる。そして1回目はページ受信前のタイトル。 Title = EVENT_PRM[0] print "TC " + Title FEND Procedure BeforeNavigate2() // 1回のページ操作につき1回呼ばれる。 IE = EVENT_PRM[0] // IEオブジェクト URL = EVENT_PRM[1] // 開くURL print "BN " + IEGetData( IE, "TAG=title" ) + " " + URL FEND Procedure NewWindow2() EVENT_PRM[0] = gIE2 // 新しく指定するブラウザオブジェクト(自分自身は指定できない) EVENT_PRM[1] = True // Cancel flag print "NW" Fend
>> ID:sezMof5L0
>>74 のスレにそんなに顔真っ赤になったのか?
一生懸命メモ貼らなくていいよ。
XPでIE6使ってるけど、”ファイルのダウンロード”ダイアログではバックグラウンドで保存ボタンをクリックできないんだけど これってダイアログが裏で動くのを却下してるってことなのかな。 いまさらだけど、たまにしか作らないとそういうところで引っかかる。 最初から表にいてもなんかクリックできなくて一旦裏にもって行かないといけなかったり。 結局AACで指定しないといけない。 ”名前を付けて保存”ではそんなことなさそうなんだけど。 ”名前を付けて保存”の上書き確認とかのメッセージボックスなら自作のGetChldID()ですばやく確実にIDをゲットしてクリックできるんだけどなあ。 > Until !ClkItem( DlgID, "保存", CLK_BTN or CLK_SHORT or CLK_BACK ) > Result = !CancelIfOverWrite(DlgID, 20) > // ID: 名前を付けて保存ダイアログのID > // false: キャンセルしてない true: キャンセルした > Function CancelIfOverWrite(ID, TLimit) > Result = false > print "called CancelIfOverWrite()" > Repeat > sleep(0.1); TLimit = TLimit - 0.1; if TLimit < 0 then exit > if !IDToHnd(ID) then exit > CID = GetChldID( ID ) > Until 0 < CID > // 上書き確認メッセージ処理 > Result = true > while true > ifb 0 < CID then > ClkItem( CID, "いいえ" ) > Else > ClkItem( ID, "キャンセル" ) > Endif > sleep(0.3); TLimit = TLimit - 0.3; if TLimit < 0 then exit > if !IDToHnd(ID) then exit > CID = GetChldID( ID ) > wend > FEND
あと、
>>77 のBeforeNavigate2でIEオブジェクトをスレッドに渡して処理しようとしても、
IEオブジェクトを使うときにエラーになる。
グローバル変数を使ったりvarで渡したりしてみたけどどーしてもエラーになる。
普通にスレッド実行するときにはvar引数でIEオブジェクトを渡して使えてたんだけど、
BeforeNavigate2でスレッド呼び出ししたらなぜか駄目だ。
結局BeforeNavigate2では開始フラグをセットして、関数呼び出しは普通に待ちループでやった。
まあBeforeNavigate2も何度か呼ばれたりするみたいだしそのほうが2重起動とかなくてよかったみたい。
もしかして2重起動されるのが原因・・なわけないな。ちゃんと選別してたから。
独り言お疲れ様です
質問ならまだしも独り言口調ってマジムカつく もっと読んでる人の事を考えてほしい
>>82 質問ならまだしも独り言口調ってマジむかつきませんか?
もっと読んでる人のことを考えて欲しいと思っているのですが、貴方の考えはどうでしょう?
DOSコマンドの pushd X:\Temp del /q *.* for /D %%f in ( * ) do rmdir /s /q "%%f" というのをUWSCでやろうとして DOSCMD("pushd X:\Temp<#CR>del /q *.*<#CR>for /D %%f in ( * ) do rmdir /s /q <#dbl>%%f<#dbl>", false, true) と書いたけど、ちゃんと動いてくれない どこが間違ってるの?
<#CR>で繋げないんだろう。 |使うかバッチファイル作るかすればいいんじゃないかな?
だめだ、俺の知識じゃどうやってもできない おとなしくバッチファイルにしとくわ
>>85 複数のコマンドを連続で実行するなら丸括弧と改行で区切ればいいよ。
普通にコマンドラインで
> ( dir
とだけ入力すれば、More?って聞いてくる。
> )
で閉じるまで実行待ち状態。
パイプも連続実行だけど後のやつが受け取ったものをどう処理するか分からないからね。
しかしなんでループ処理でrmdirしちゃうのかねえ。
89 :
85 :2009/12/26(土) 09:25:34 ID:MKs2n1Uw0
UWSCではっていうか、 VIDタグに流し込まれたHTMLって普通にDOMアクセスできないですよね。 だけどHTMLソースコードをテキストで構造解析するのはちょっと大変。 そこで、DIVタグのIDさえ取れればその配下のエレメントを処理できる関数を書いてみました。 判定関数をEVALでCALLすることで汎用的に使えます。 まだ動かしてはいないんだけど、一応EVALが関数を実行してオブジェクトを返せることは確認しました。 >// DOMアクセスで再帰的に配下のエレメントをたどる。 >// EVALの結果がemptyでなくなったらやめて結果として返す。 >Function SrchDomTree( elm, func ) > result = empty > // 先に直接の子ノードを調べる > for i = 0 to elm.childNodes.length > ret = eval(func) > ifb ret then > result = ret > exit > endif > next > // 孫ノードに入っていく > for i = 0 to elm.childNodes.length - 1 > ifb elm.childNodes[i].childNodes.length then > ret = SrchDomTree( elm.childNodes[i], func ) > ifb ret then > result = ret > exit > endif > endif > next >Fend
おっと。引数を追加する仕組みを忘れてました。 eval(func)のところは eval( func + "(" + elm.childNodes[i] + env +")" ) 呼び出しは SrchDomTree( elm, "func", ", 引数2, 引数3" ) って感じになるかな? 判定関数はこんな感じ。 >// エレメントのouterHTMLを取ってAタグならIMG srcに"video_download.gif"があるか調べ、 >// あればouterHTMLからリンクアドレスを取得 >Function GetFLVLink(elm) > result = empty > str = elm.outerHTML > ifb 1 = Pos( "<A", str ) then > ifb Pos( "video_download.gif", BetweenStr( str, "src=<#DBL>", "<#DBL>" ) ) then > result = BetweenStr( str, "href=<#DBL>", "<#DBL>" ) > endif > endif >Fend > >// 指定されたリンク文字を持つリンクアドレスを取得 >Function GetKWDLink( elm, keyword ) > result = empty > str = elm.outerHTML > ifb 1 = Pos( "<A", str ) then > ifb Pos( keyword, elm.innerHTML ) then > result = BetweenStr( str, "href=<#DBL>", "<#DBL>" ) > endif > endif >Fend
ieをアクティブにした状態で以下を実行してみたのですがcom_error例外が発生しました となってしまします というか2行目以降でieを使うとエラーになります 解説サイトなど探してもあっさり進んでしまうのですが…何か足りませんか? よろしくお願いします ie = CreateOLEObj("InternetExplorer.Application") SENDSTR(0, IE.document.title)
>>92 変数や関数は大文字小文字を区別します。
ieはオブジェクトを受け取ってるけど、IEはオブジェクトを持ってないからエラーになります。
あと、document.titleのtitleもTitleと、大文字小文字を区別するのでエラーになるでしょう。
documentの方は割りと融通が利くようですが。
あと、IEオブジェクトなどはユーザーが閉じると無効になり、使えばエラーになります。
そういうのはそういうものとして使うか、終了を検知してスクリプトを適切に処理するかのどっちかになります。
ID = HNDToID(IE.HWND)
と、IDを取っておいて
ifb ! IDToHnd(ID) then
// IDと元のIEオブジェクトは無効
exit
endif
とやれば、com_error例外にならずに終了を判定できます。
IDToHnd()は終了検知に便利なのでお勧めです。
ちなみにウィンドウハンドルのゼロはデスクトップを意味するので、本来は数値で有効無効を判定できるものではないと思います。
win7では使用できますか?
OLEEVENTを使っていてどーもクラッシュしまくるので、前後にsleep()を入れてみたら少し改善したようだ。 右クリックメニューをポップアップウィンドウとして検出しようとしたけど、 GetWindow( IDToHnd(ID), GW_ENABLEDPOPUP ) で取得できるのはダイアログ・ツールチップのほか、サブメニューだけっぽいね。 1個目のメニューは右クリックメニューですらポップアップじゃないらしい。 GetID( "", "#32768" )でいけるって本家の過去ログに書いてあったんだけど、やっぱそれが現実的だった。 メニューは簡単に閉じるから名前なし親子関係なしでも案外正しく取れるもんだ。 ただ、クリックできない病気のためにうまくいかない。 しかし、サブメニューの操作が必要なときはその方法ではIDが取得できないだろう。 サブメニュー用のID取得関数がたまたまできたので次レスに投稿する。 ちなみに、親子関係はメインウィンドウの子ということになる。 間違っても親メニューの子ではないので注意が必要。 いや、もしかすると親メニューの子であり、メインメニューの孫だったりするかもしれないが。 GetIDでやっているような、タイマーと永久ループの指定可能な関数にしてみたんだが、 それをfor文でやれるかなと思ったけど、回数を決定できる条件じゃないとだめだった。 具体的には、step0で永久ループにしようと思ったんですが、実行時に警告が出ました。 浮動小数点演算ではやってはいけない、ちょうど0になったときだけ終了という条件にすることでシンプルにできました。 ちゃんと動くかは試してないけど、まあ大丈夫でしょう。 ちなみに、動作確認などのテストコードに番号を振ってるんですが、そのfor文が108番でした。 間は結構飛び飛びだけど、年末にその番号にあたったんでなんだか縁起がいいかもです。
// サブメニューのIDを取得する。 // TLimit=-1 : 永久待ち // TLimit=0 : 1回のみ // 戻り値 0 : 該当なし -1:ダイアログ表示 その他:サブメニューのID Function WaitSubMenuPopup( ID, TLimit = -1 ) def_dll GetWindow(hWnd,long):long:user32.dll Public GW_ENABLEDPOPUP = 6 // ポップアップウィンドウ result = 0 H = IDToHnd(ID) Repeat sleep(0.01) if 0 < TLimit then TLimit = TLimit - 0.01 retH = GetWindow( H, GW_ENABLEDPOPUP ) if ! retH then continue retID = HndToID(retH) Select Status(retID, ST_CLASS) case "#32768" // メニュー result = retID exit case "#32770" // ダイアログが表示されたらエラー中断 result = -1 exit Selend Until ! TLimit Fend
FOR文の使い方について教えてください。 以下のように書くと10から20までの数字が画面に表示されます。 FOR i = 10 TO 20 STEP 1 FUKIDASI( i) SLEEP( 1) NEXT ところが各数字を10分の1にすると1から1.9までの数字しか表示されません。 FOR i = 1.0 TO 2.0 STEP 0.1 FUKIDASI( i) SLEEP( 1) NEXT これはどうしてなのでしょうか?
STEP 0.2だと2が表示されるな。 挙動がようわからん… 何か0.124と0.125の間あたりで切り替わるようだが… とりあえず FOR i = 10 TO 20 // 多用するならj = i / 10とかして使う FUKIDASI( i/10) SLEEP( 1) NEXT とかするのが無難そうね。
100 :
名無しさん@お腹いっぱい。 :2009/12/31(木) 22:41:43 ID:WvG0KKdQP
>>98 誤差の影響です。
コンピュータはすべて2進法で計算していますが、
この2進法では0.1という数字を「正確に」扱う事が出来ないのが原因です。
これは私たちの身の回りにもよくある話です。
私たちが普段使っている10進法では「1/9」を小数で表現すると
0.1111・・・ですよね。
1/9を9個足せばもちろん1です。
しかし
0.111111111111111111と途中で数字を切り捨てて計算を続けたらどうでしょうか?
これを9個足しても
0.999999999999999999にしかならず、決して1にはなりませんね。
もちろん工夫をする事によってこの問題を回避する方法を持っている
計算プログラムも存在していますが、難しい処理が必要になるため
プログラムの価格が高価であったり計算する時間が長くなったりします。
uwscのようなプログラムでは一般的に誤差を持っています。
誤差を極力減らすためには
>>99 さんがおっしゃるように
なるべく整数のまま計算をするのが最も効果的な方法といえます。
この場合は誤差はないと思いますけど。
原因は多分、0.0を0と計算できないこと・・・
いや、やっぱり誤差かな?
回数を計算するときにUWSC内部で
(2.0-1.0)/0.1とかやってるんだろう。
10進数の0.1は、2進数で・・・
ttp://www.infonet.co.jp/ueyama/ip/semi_cnd/abacus.html > ところで、10進数の 0.1 は、2進数では正確に表すことができず、 その近似値は 0.00011001100110011001100 … になります。
てことは・・やべ
>>97 は無限ループだ。
全て100倍して整数値で計算しないと。
んでもって確実に整数値にするためにINT()とか使わないと。
!omikuji !dama
てすと
> Until !CEIL(TLimit)
>>97 は判定をこーするだけでいいな。
複数条件だと論理演算がふつーにはできんからややこしくなるし。
!!(条件1) and !!(条件2)でも通るかもしれんけど。
106 :
98 :2010/01/01(金) 11:48:35 ID:pAk0r2E30
>>99-100 回答ありがとう。なるほど。
小数点以下を多めに表示させるとこうなりました。
FOR i = 1.0 TO 2.1 STEP 0.1
FUKIDASI( FORMAT( i, 19, 17))
SLEEP( 1)
NEXT
1.00000000000000000
1.10000000000000009
1.19999999999999996
1.30000000000000004
1.39999999999999991
1.50000000000000000
1.60000000000000009
1.69999999999999996
1.80000000000000004
1.89999999999999991
2.00000000000000000
0.1を正確に表せないとはいえ、誤差が拡大しないように調整されてるのかな。
回数が狂うのは
>>102 の言うように実行回数計算を別途やっていてその時点で誤差が出てるんですかね。
107 :
98 :2010/01/01(金) 16:45:33 ID:wjuaj82V0
小数の問題っていろんなところに出るんだなぁ。 ROUND関数って小数点以下を四捨五入する関数なんだと思うけど 入れる数字によってはおかしくなる。 FUKIDASI( ROUND( 12.5)) SLEEP( 1)
FUKIDASI( hoge(12.5)) SLEEP(1) Function hoge(num) num = num + 0.5 num = int(num) Result = num Fend これだとまともに動くなw 中でどんなことやってるんだろうか…
109 :
名無しさん@お腹いっぱい。 :2010/01/01(金) 21:30:04 ID:RTODHS/O0 BE:4155991698-2BP(0)
恐らくヘルプにも四捨五入とは書かれておらず「丸める」とあるはずです。
>>107 の挙動を見る限り一般的に使用されている「偶数丸め」をそのまま採用しているかと。
偶数丸めというのは12.5のように12と13の中間の値を取る場合は
偶数側の値に切り捨てを行う処理方法です。13.5であれば切り上げて14とします。
round(14.5)も14になるはずですよ。
>>90 の修正
文字列をEVALに渡す場合、ダブルクォーテーションを付加しないと変数扱いになる。
数値を渡す場合は不要なので、SrchDomTreeを呼ぶときに付加しておいたほうがいいっぽい。
// SrchDomTree( "func", IE.document.getElementById("my_footer"), "<#DBL>文字列<#DBL>", "123" )
// Function SrchDomTree( func, elm, env1 = 0, env2 = 0, env3 = 0, env4 = 0 )
// result = empty
// // 先に直接の子ノードを調べる
// for i = 0 to elm.childNodes.length - 1
// ret = eval( func + "(" + "elm.childNodes[i]" + "," + env1 + "," + env2 + "," + env3 + "," + env4 +")" )
// ifb !IsEmpty(ret) then
// result = ret
// exit
// endif
// next
// // 孫ノードに入っていく
// for i = 0 to elm.childNodes.length - 1
// ret = SrchDomTree( func, elm.childNodes[i], env1, env2, env3, env4 )
// ifb !IsEmpty(ret) then
// result = ret
// exit
// endif
// next
// Fend
おまけ
// ifb 3 = elm.childNodes[i].nodeType then // テキスト
// elm.childNodes[i].nodeValue // テキストデータ
softalk使って日本語しゃべらせたいんだけど、素人過ぎてショートカット乱立させてクリックさせるのが限界です・・・。 上品な立ち振る舞いで話させるには、どうプログラムしたら良いですかね?
>>111 doscmd or exec と softalk の引数指定
ヘルプすべて印刷して一読すると良いよ それが面倒臭いならテンプレの本買え
>>112-113 ありがとよ。かなりスマートになった。
exe名入れるときにメモ帳は"notepad"でいいのに、
softalk指定するときはアドレス入れないといけないのは何でなんだ?
プログラムの基礎の質問なんだと思うが...
そのディレクトリにパスが通っているかという話。 環境変数のPATHにそのディレクトリを登録すれば(=パスを通せば)行ける。 詳しくはググるよろし。
ECMAScript みたいに 関数自体を変数に代入する方法ないかな? 変数を () 付きで実行することで その変数に代入された関数を実行するようにしたい
あ、evalあるのね これでできそうです お騒がせしました
少しだけ相手してやんよww 若いだろ?至りってやつだな
ていうか1月6日に閉鎖ですか。 これから先自作スクリプトはどこにうpすればいいのか。
キモイホモだなぁ!おまえブサメンでキモブサだろ?少しだけ相手してやんよww 若いだろ?至りってやつだな
122 :
98 :2010/01/08(金) 14:59:40 ID:VCRefa1D0
>>109 その通りですね・・・偶数丸めというのを知らなかったので。
お騒がせしてすみませんでした。
長文で失礼します。 最近uwscを勉強しはじめました。 uwsc本を参考に連番のIDでサイトにログインするように作ってみました。 一応出来たのですが、ID001からID030までを連続で入れることが出来ないため() 1〜9用マクロと10〜30用マクロに分けて使っています。 もっとシンプルにしたり、1〜30までの連番を1つのマクロに統一する方法はありますでしょうか? おそらく初歩的なことなのでしょうが質問お願いします。 _________________________________________ 例)ログインIDは "id001"〜"id030" パスワードは ps >SUUJI = 1 >FOR A = 1 TO 30 >KBD(VK_i) >KBD(VK_d) >KBD(VK_0) >SENDSTR(,SUUJI) >SUUJI = SUUJI +1 >KBD(VK_TAB) >KBD(VK_p) >KBD(VK_s) >KBD(VK_TAB) >KBD(VK_ENTER) id入力の所を、 1〜9用マクロは、KBD(VK_i) KBD(VK_d) KBD(VK_0) KBD(VK_0) 10〜30用マクロはKBD(VK_i) KBD(VK_d) KBD(VK_0) にして使っています。 一本化するにはどのように直せば良いでしょうか?
>>123 IESetDataを使おう。
Formatで0埋めは出来ないようだから、
z = "0"
zz = "00"
とかして、
for i = 1 to 30
ifb i < 10
hoge = zz + i //数値と文字列足すと文字列として足してくれる
else
hoge = z + i
endif
IESetData(IEID,hoge,"ID")
IESetData(IEID,"ps","PASS")
〜〜
next
とか、そんな感じ。
RecIEで出力させて見れば解ると思うよ。
インデント入らなかった、スマソ for i = 1 to 30 ifb i < 10 hoge = zz + i //数値と文字列足すと文字列として足してくれる else hoge = z + i endif IESetData(IEID,hoge,"ID") IESetData(IEID,"ps","PASS") 〜〜 next
自動ログインスクリプトを作成してみたのだが、サーバーエラーが出た場合の回避方がわかりません。
ifを使う事はわかったのだが、ピッタシに来る例文が探しても見つからないのです。
自力で色々試すもうまく行かず・・・どなたかご教授下さいませ。
以下スクリプト
//IEを開いてページ表示
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("
http:// ×××××")
//5秒停止
sleep(5)
//接続表示待ち
while True
if (! ie.busy) and (ie.readyState=4) then Break
sleep(0.1)
wend
id = GETID("Internet Explorer")
//ログインID入力
IESETDATA( IE, "●●●●", "id" )
IESETDATA( IE, "※※※※", "pass" )
CLKITEM(id,"ログイン", CLK_ACC or CLK_MUSMOVE)
//5秒停止
sleep(5)
//接続表示待ち
while True
if (! ie.busy) and (ie.readyState=4) then Break
sleep(0.1)
wend
この下にもし「サーバーエラー」が出た場合は再度
http:// ×××××に戻って
再度ログインID入力を再実行したいのだが・・・
127 :
名無しさん@お腹いっぱい。 :2010/01/16(土) 16:16:24 ID:hORuBIiX0
わたくし初心者でちょっと困っているのですが FAQにある 「負荷が高い時に ウィンドウのオープンをスクリプトが待ち切れず・・・」 の答えとしての↓ スクリプト内のGETID関数に第3引数(待ち時間指定)を付けて下さい。 GETID("xxxx", "xxxx", -1) // -1:画面が出るまで待つ 同様に括弧内に-1をつけても思うように実行されません(待ってくれないのですが) どなたかご教授お願いしますorz
>>128 ウィンドウが出現しても、そのコントロールの配置に時間がかかる場合があります。
その場合、ウィンドウは存在しているからIDは取得できますが、コントロールがないので操作に失敗します。
コントロールを利用可能になっているか確かめる必要があります。
ウィンドウが出現していることを確認するには、Statusでタイトル名などを取得したらいいですよ。
本当にGetIDに失敗していたら取得したIDは-1になっているはずなので、その時点ではじくこともできるでしょう。
待ってくれないって事は戻り値は-1なの? 別ウィンドウのを取得してるんじゃね?
数字を文字列として扱うにはどうすればいいでしょうか? intA = 10 intB = intA * 2 //20 Print intA + intB //"1020"と表示したい 文字列結合子と演算子が同じ"+"なので、不可能なのでしょうか?
>>131 // フォーマット
戻値 = FORMAT( 数値, 幅, [小数点桁 or 16進指定] )
引数
数値: 数値 もしくは文字
幅: 出力される文字数 (数値より指定幅が大きい時は左側をスペースにて補完)
数値ではなく文字が指定された場合は その文字で幅分を埋める
小数点桁 or 16進指定: 表示する小数点桁数、 また -1が指定された場合は16進数表記にする
戻値
フォーマットされた文字列
133 :
123 :2010/01/17(日) 06:07:26 ID:rLsFwGWi0
>>124 様
数字の所はIFで処理するといいのですね、なるほどです。
昨日から直す作業をしてるのですがまだ動いてないので(IESetData関数がない、と言われてしまう…)もう少し練習をしてみます^^
試しに使っていたのでフリー版を利用していたのですが、RecIEの機能を調べていたらとても便利そうですね。
とても参考になりました。
ありがとうございました。
>>131 print "" + intA + intB
もしくは
print intA + "" + intB
print intA + intB + "" はNG
//スペースにて補完→0にて補完へ変更…それだけ(^^; for i = 1 to 30 hoge = ChgMoj( Format( i, 3 ), " ", 0 ) next
>>132 ,134,135 レスありです。
>>132 その関数は知っているのですが、実は16進数で合体させるため、Formatを多用する以外に方法があるかどうかの確認でした。
説明不足でわざわざコピペしていただいてありがとうございました。
>>134 この方法がスクリプトを後で見返したときに一番単純で理解しやすそうですね。
昔VBでVal関数を知らなかったときに文字列に+0して数列に変換していた方法を思い出しましたw
UWSCProを使用しています。 一度exe化したものを、再び.uwsに戻す事は可能でしょうか? 戻せないにしても、exeの物の中のスクリプトを表示する事は出来るのでしょうか?
>>137 たぶんバイナリエディタで開くと最後にくっついてるんじゃね?
>>137 Pro版のEXE化について質問です。
まだ購入していないのですが、EXE化時にスクリプトをコンパイルしていないとの書き込みがありました。
http://www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=617 この時には、生のスクリプトがEXEに連結されるだけですか?
そうである場合、暗号化後のスクリプトをEXE化の元に指定することもできますか?
EXE化後に、EXEをエディタで見たらそのままスクリプトが見えてしまわないかと気になったもので。。。
宜しくお願いします。
DATE:2007/3/25(Sun) 15:04 No.628
RE:EXE化時のスクリプト内容 umiumi
暗号化して取り込んでいますので、自分で変換作業をしておく必要はありません。
140 :
137 :2010/01/20(水) 01:35:54 ID:+aeXo+8F0
>>138139 バイナリエディタで見てみましたが私には分かりませんでした。
掲示板のQ&Aの回答を見る感じだと、一度exe化してしまったら戻すことは出来ないということで合ってますでしょうか?
暗号化を解く方法があるのであれば別でしょうが…
141 :
名無しさん@お腹いっぱい。 :2010/01/20(水) 22:41:47 ID:ip1Zjd0h0
WINDOWS 7でIE8を使用しております。
とある図書館にログインして自分の借りている図書および予約の図書を確認するスクリプトを作っております。
しかし、IDとパスワードは入力さるのですが、「ログイン」のボタンがど〜〜〜しても押してくれません。
大変すみませんが、教えていただけないでしょうか?
次のように実装しております。
ie = CreateOLEObj("InternetExplorer.Application")
ie.Visible = True
id = GETID("Internet Explorer")
ie.navigate("
https://lib.city.shinagawa.tokyo.jp/cgi-bin/Sopcsryc.sh?p_mode=1&proc=kyj ")
while True // 接続表示待ち
if (! ie.busy) and (ie.readyState=4) then Break
sleep(0.1)
wend
id = GETID("Internet Explorer")
//ログインID入力
IESETDATA( IE, "123456789", "ryno" )
IESETDATA( IE, "9876", "passwd" )
CLKITEM(id,"ログイン", CLK_ACC)
142 :
名無しさん@お腹いっぱい。 :2010/01/20(水) 23:02:51 ID:8bN4FDNJ0
>>141 本家掲示板にIDとパスワードが書いてあるんでログインスクリプト動かしてみたけど
被害者が襲撃に来た(マジで)
うちの地元の警察は個人情報をリークして権力者等に直接襲撃許可を出す悪い癖があるんだ。
親切に教えてやろうと思った奴を罠にかけるのが狙いかもしれないので触らずに削除依頼出すべし。
>>141 ie.navigate("javascript:onClick(this.execCGI(1));")
>>141 ソース見ると<input type="button" value="ログイン" onClick="execCGI(1)">
名前もIDもないので"ログイン"の文字をクリックするか、itemsを順番に見ていくしかないな。
execCGI(1)って関数実行してるからこれを呼び出せればそれでもいいかも。
ClkItemを使う場合、IDのとり方が悪い。
× id = GETID("Internet Explorer")
○ ID = HNDToID(IE.HWND)
そして、「ログイン」という文字はタイトルバーにもあるので、もしかするとこちらをクリックするかもしれない。
番号に2を入れてみるとうまくいくかも。
> CLKITEM(id,"ログイン", CLK_ACC, true, 2)
>>143 おお。その手があったか。
しかしOnClickは余計じゃないか?
> ie.navigate("javascript:this.execCGI(1);")
145 :
141 :2010/01/21(木) 00:41:19 ID:BYisD/DI0
>>143 様、
>>144 様、
う、動いたぁ!ログインボタンが押せたよぉ!
こんなに早いレスがもらえるなんて、感謝感激です。
>>142 何を言ってるんだかよくわからんかった。
IESetData(IE,True,"","ログイン") この場合↑を使うとすると引数入れる方法ある?
>>147 おーすげー
でもItemsはころころ変わる可能性があるからな。
やっぱり名前が使えるところは名前を使って
ログインボタンだけループでまわすべきだろう。
まあログインページの変更はあまり頻繁には起きないけども。
>>146 // Web上(IE)に値を設定
戻値 = IESETDATA( IE, 値, Name, [Value, 番号] )
IE, IE,
値, True,
Name, "",
[Value, "ログイン"
番号] ) ほらここ空いてる
>>149 名前を使いたいなら
ie.document.all.tags("input").ryno.value = "なんたらかんたら"
ie.document.all.tags("input").passwd.value = "うんたらかんがら"
または
ie.document.forms(0).elements("ryno").value = "なんたら"
ie.document.forms(0).elements("passwd").value = "うんたら"
でおk。
152 :
141 :2010/01/23(土) 00:13:09 ID:ER0elP5I0
再度質問に来たんですけど、さらなるレスが付いていてビックリでございます。 いただいたレスを再度学習してから、また質問に来ることにします。 本当に、ありがとうございます。
UWSCで、関数の中で他の関数を使用することって可能ですか?
すいません、ちょっと勘違いしてました ↑は忘れてください・・・
シェア版を試しにインスコしようとすると、トロイとしてはじかれる。なにこれ?
>>155 なんだろうね。
OSとかウィルスソフトとか現象とかを本家掲示板に報告した方がいいんじゃね?
IEのイベント使ってたらUWSCがメモリ不足やらランダムに型が違うとか DLLでアクセス違反とかでまくりで訳が分からんかったけど、 BeforeNavigate2をNavigateComplete2に変更したらぱったりエラーも出なくなったよ。 以前NewWindow2でキャンセルフラグ立ててなくて同様にエラーが出まくってたんだけど、 BeforeNavigate2も同様にキャンセルフラグを処理しなきゃいけなくて、 もしかしたらフラグを間違ってセットしてたのかもしれない。 NavigateComplete2ならフラグがないからどっちセットするかで悩まなくて言いし、 なによりBeforeNavigate2のイベント発生時点ではIEオブジェクトとかプロパティが無効になってて 待ちループですらエラーになる状態で、回避するのに苦労したんだけど、そういう処理も必要なくなった。 っていうか、イベントの使い方を間違っていたのかも。
んでスクリプトは一応完成したけどどーも無用の物を作っちゃったらしくて評判が悪かった。
だからこんなのつくりました的なものを紹介だけしときますね。
自動ダウンロードスクリプト公開中
ttp://www1.axfc.net/uploader/Sc/so/77860 7-zip32.dllで圧縮メソッドがBzip2で圧縮してたから
Windows標準では解凍できないようです。
動画ページに直リンがあったりするけど、てきとーな日本語入れてあったりするので使える保証がなく、
直リンにnavigateするとなぜかバイナリファイルをブラウザで開いたりするサイトが多くてやっぱり使える保証がなく、
かといってftpでダウンロードするAPIではいつ終わるとも知れず、
結局自分でリンク貼って右クリでダウンロードするしかなくて、
だけど万が一もあるので入力禁止措置も取ってないのでちょっとマウス持ってるとすぐ止まる。
スレッドで5秒後に確実に解除すればよさそうなんだけど
メインループが終了したときはスレッドも巻き添え食っちゃうから確実ではないし。
いや、スクリプトが終われば復帰できるのかな?
んで、動画サイトが2次サイトだから画質が悪くなっちゃってるのが多くて
ダウンロードしてももったいなかったりする。
RecIEを起動させて 記録→アドレス入力→ok でサイトに飛ぼうとすると Racie L20が存在しません ってダイアログが出てきて先に進めないんだけど同じ症状出たことある人いる? 4.4cからだったと思うけどアップデートしたら途端に動かなくなった
>>159 ああ、日本語って難しいね。
短く区切って書くと、悪口で埋め尽くされてしまっていたから
無理やりでもつないでしまう癖がついちゃったんだ。
これでも学生時代は国語はほぼ満点でやってきたんだけどね。
敬語だけはいまいち理解できんかったけど。
敬語ってややこしいのに授業時間が少なすぎ。
正しい敬語を使う環境が身近にないから、練習すればするほどおかしくなっていく。(福岡県の筑豊出身)
これでも親は地元企業の課長〜次長だったりする。
今度は短く区切りすぎ?
>>160 有料の機能だし本家で聞いたほうがいいと思うよ。
OSとIEと、UWSCの問題なかったバージョンとかも必要だと思う。
差し支えなければそのアドレスもね。
ところで、RacieじゃなくてRecieだよね?
>>159 そういえば俺の後輩のやる気のないプログラマは
「俺文系なのにプログラマやらされてるんです。
文系だからさっぱり分かりません。」ってゆってた。
「ああそう。」としか答えようがないっつーの。
頭悪そうだなお前
165 :
名無しさん@お腹いっぱい。 :2010/02/05(金) 18:13:12 ID:hEkLWXs20
HTMLソースを取得して差異があればmsgboxが出る程度の
簡易webチェッカーのようなものを作ろうと思ってるのですが
窓を非アクティブのままwebを更新する(戻るとか進むとかも)方法を教えて下さい
IE.Navigate(IE.LocationURL) や IE.Navigate(URL) も試したのですが
↓のようなサイトでは思うように更新後のソースが取得できませんでした
ttp://www7.big.or.jp/~fujiko/php/time_get.php 仕方ないので今は窓を開いて
CTRLWIN(id, ACTIVATE)
KBD(VK_F5)
とか
CLKITEM(id, "更新", CLK_ACC)
で更新してるのですが、非アクティブで実行する方法を教えて下さい
winhttpかmsxml2を使う
>>165 navigateしたあとちゃんと待ちループまわさないと駄目です。
また、nabigateが動き出す前に待ちループに入ってしまうと素通りしてしまうので、
それまでは待ちループに入らないようにする必要もあります。
例1)
IE.Navigate(url)
sleep(3)
REPEAT; sleep(0.1); UNTIL !IE.busy AND IE.readystate = 4
例2)
timeout = 3
IE.Navigate(url)
while !IE.busy AND IE.readystate = 4
sleep(0.1); timeout = timeout - 0.1
if timeout < 0 then break
wend
REPEAT; sleep(0.1); UNTIL !IE.busy AND IE.readystate = 4
例2の場合はtimeoutがないと、一瞬で表示が完了した場合に永久ループになります。
navigateの他にRefreshがあり、こちらは引数がいらないので手軽です。
中止 Stop
更新 Refresh
前に進む GoForward
戻る GoBack
Stopはページが不完全になるので、DOMアクセスでCOMエラーが発生します。
これはStop→Refreshとした場合でも起こるので注意が必要。
WebBrowserコントロールでタブブラウザを作る(.netですが一部ソースは参考になると思います。)
ttp://codezine.jp/article/detail/659?p=3
>>166 レスありがとうございます
一応 CreateOLEObj("MSXML2.XMLhttp") も試していたのですが
思うような結果が得られず四苦八苦していたのでした
>>167 レス感謝です
>nabigateが動き出す前に待ちループに入ってしまうと素通り
になっていたようでした
結果的には IE.Refresh() で期待通りの結果が得られました
今から進む、戻るも試してきます
ありがとうございました
文字列A xxxxx 文字列B ある文章の中で、特定の文字列AとBに挟まれた「xxxxx」という文字列を抜き出すにはどうするのが スマートですかね? アドバイスください。
>>169 文字列にもよるけど、
とりあえずBETWEENSTRていうのがある。
戻値 = BETWEENSTR( 文字列, 文字列A, 文字列B, [n個目, 数え方フラグ] )
ところで、 ;っていうのはどういう理由で入れてたんですか?
訂正 ;の部分は & # 1 6 0 ;
>>168 追記
GoForward も GoBack も順調に動きました
改めまして感謝です
>>171 自分(PC専ブラ)には見えませんが、&#160はhtmlの半角空白みたいです
BetweenStrの話題があったので自分も更に質問です
HTMLソースの
111~
222~
333yyy のような文字列から 333 を抜きたい場合
BetweenStr(略, "xxx", "yyy", n) //yyyの前の文字を抜きたい
xxxとnの部分に何を入れれば良いのかが分かりません
宜しければ参考までに教えて下さい
説明が不十分だと思ったので
>>172 追記
正確には
111~~<br>
222~~<br>
333yyy
という文字列で、"<br>", "yyy", 1 とか設定しても
222〜333まで抜き出してしまってうまくいかないのです
今は
変数1=(略, "<br>", "yy", 1)
変数2=(変数1, "<br>", "y", 1)
と複数段階に分けて書いてるのですが、これが簡潔に書けるなら知りたいな、と
宜しくお願い致します
>>173 ( マイナス値で指定すると後ろからサーチ)
BetweenStr(略, "<br>", "yy", -1)
これは試してみました?
> これが簡潔に書けるなら
手順が複雑にはなりますが、正規表現ライブラリを使えば
行頭(^)+不特定文字列(.*)+”yyy”で表現できる場合があります。
<br>のあとに改行コードが入っているならですが。
スクリプトをすっきりさせたいと言うことなら、自作関数に置き換えるとかでもいいと思います。
>>174 マイナス値を使っても一発で目的の文字列に到着しないんです
一行で簡単に書ければ....と思ったのですが、諦めます
正規表現は、自分にはまだ早すぎる(理解できてない)ので
もう少し勉強してから挑戦してみようと思います
ありがとうございました
>>170 これは便利ですね。簡単にできました。どうも有り難うございました。
>>175 どうせならTOKEN使った関数を自作した方がスマートですよ。
こんな感じで。動かしてないので動作は保障できませんが。
function GetStrForward( kword )
result = ""
while true
str = token( "<#CR>", str, true )
if ! length( str ) then break // trueを外していると、途中で抜ける場合がある
if ! pos( kword, str ) then continue
// キーワードが見つかった場合、その前方の文字列を返す。
result = copy( str, 1, pos( kword, str ) - 1 )
exit
wend
fend
BetweenStrを何度か実行するのって、長いソースだとそーとー実行時間の無駄だと思うんです。
だから、キーワードを含む行をまず見つけて、その1行から切り出す方法を考えた方がいいかなと。
tokenの区切りが文字列で指定可能ならもーちょっと使えるんですけど・・・
HTMLの場合はDOMを駆使するともっと効率的にアクセスできる場合もあるから、
先にDOMで絞り込めないかを考えた方がいいかもしれません。
確実に抽出できるならHTML全体からとった方が短くかけるかもしれませんけど。
>>177 あ、ありがとうございます
例まで書いていただいて非常に嬉しいのですがハードル高いっす
残念ながらtoken、function、DOMやらの文字が何一つ理解できません
精進して出直してきます、でも有り難う
失礼します。 キー同時押しのスクプリトご存知の方おしえていただけませんか よろしくお願いします
kbd(vk_shift,down) kbd(vk_1,down,30) kbd(vk_1,up,30) kbd(vk_esc,up)
なんかちょっとしくってた
>>179 // ショートカットキーの実行
SCKEY( ID, キー, [キー, キー, キー, ...] )
184 :
名無しさん@お腹いっぱい。 :2010/02/13(土) 02:00:24 ID:qgx2boSW0
失礼いたします。 uwscにて実行したいことがあります。 画面上に出ている英数字画像の入力をしたいのですが うまく入力してくれません。 12桁の英数字が表示され、左の英数字から順番に入力して欲しいのですが、 UWSファイルに書き込んだ通りの順番で入力してしまいます。 UWSファイルには1,2,・・・〜8,9,0,A,B,・・・〜Y,Zの順番で書き込んでおります。 「8 B A Z 9 0 Z Y A B C D」と入力したいのに、 「8 9 0 A A B B C D Y Z Z」と入力してしまいます。 助言だけでも聞けたらと思いレスいたしました。 宜しければお力添えをお願いいたします。
sage忘れまして申し訳ないです。 久しぶりの2chでの書き込みですっかり忘れてました。 そして連レス申し訳ありません。
>>184 ループをこんな風にしてるんでしょ?
例1)
DIM data="ABCDEFG"
for i = 1 to length(data)
copy(data, i , 1) ←この文字があるかどうか探している
KBD() ←見つかったらすぐ入力
nest
文字の判定はやっぱり↑みたいにしないといけないけど
文字が見つかったらその座標を記録していくべきでしょ。
で、座標のX成分でソートして小さい方から入力する。
DIM KEYCAR[8] ←これに見つかった文字の文字コードをセット
DIM KEYX[8] ←これに見つかった文字の座標をセット
文字が一通りスキャンできたらKEYXとKEYCARを並べ替え、
KEYXの小さいものからKEYCARを入力していく。
ソートは件数も少ないし、バブルソートがシンプルでいいと思いますよ。
187 :
名無しさん@お腹いっぱい。 :2010/02/13(土) 07:59:27 ID:YuKBFn4V0
(´-`).。oO(nest・・・・・)
>>186 さんありがとうございます。
>座標のX成分でソートして小さい方から入力する。
>DIM KEYCAR[8] ←これに見つかった文字の文字コードをセット
>DIM KEYX[8] ←これに見つかった文字の座標をセット
>文字が一通りスキャンできたらKEYXとKEYCARを並べ替え、
>KEYXの小さいものからKEYCARを入力していく。
座標のX成分でソートとはどういったことをすればX成分を検出できるのでしょうか?
無知過ぎる私にはやはり早いのでしょうか。。
uwscを使用してるんですが [K]キーを押すのではなく[K]キーを押し続けるにはいったいどうすればいいんでしょうか 情報くださいorz
>>188 もしかしてCHKIMG()を全体にかけてるんですか?
だとしても
>TRUE の場合は見つかった座標を特殊変数 G_IMG_X、 G_IMG_Y に格納
とあるので、G_IMG_XをKEYXの配列に格納していくだけですよ。
他の方法で画像を解析してる場合でも、座標くらい取れるでしょう。
たいていは文字は読みにくいように加工されているからCHKIMG()では対処できないんですけどね。
>>189 > [K]キーを押し続けるには
KBD(VK_K, DOWN)
>>190 さん
CHKIMGの構文くらいしか理解出来ていないほどの初心者です、、涙
理解しきれていない部分が多々あるのでなんともいえないのですが、、
やはり
>>186 の構文で行った方が確実なのでしょうか?
もし宜しければ
>>186 の内容を分かりやすく説明していただけたらと、涙
本当に初心者過ぎて申し訳ないです。
ここで詳しく説明できないような内容でございましたら、
捨てアド用意しておりますので、そちらでも構いません。
最初はggrksとか書かれるとは思いましたが、
ここまでご親切にお教えしてもらえると嬉しくて仕方ありません><
>>191 > やはり
>>186 の構文で行った方が確実なのでしょうか?
いや、chkimgでいいです。
copyで文字列から取り出したのはあんまりいい方法じゃなかったです。
ただ、chkimgしたら座標を取り出さないと並べ替えできませんよと。
本来手動で行うべきところを自動化するのはあんまりよろしくないので
これ以上具体的な解説はやめときます。
ソートとかの部分的な話なら別にいいけど。
僕もユーザー登録とか半自動化したけど、画像読み取りは難しいから
そこだけ入力待ちとかにしてますよ。
>>192 さんありがとうございます。
ソートとはクリップボードの文字列のソートの事でしょうか?
どういう効果で、どのように使用するのか教えていただいたら光栄です。
Aの操作を○回実行した後にBの操作を実行し 最初に戻るという操作はどうしたら出来ますか?
196 :
名無しさん@お腹いっぱい。 :2010/02/14(日) 19:20:34 ID:nB/iMQXP0
>>195 While(True)
For i = 1 To ○
Aの操作
Next
Bの操作
Wend
UWSC Ver4.6 umiumi 64bit環境での高レベル記録、CPUUSERATE関数の対応 KINDOFOS関数にてOSが64bitかのチェックをできるようにした STATUS関数にてアプリが64bitかのチェックをできるようにした VARTYPE 関数にて型変更をできるようにした ROUND関数にて丸め位置を指定できるようにした GETSTR関数にてマウス移動オプションを付けた CHKIMG 関数のヒット数チェックにてヒットした位置情報を配列に格納するようにした 多重のCALL文にてファイルのカレントを識別してなかったのを修正 COM のBoolean型を数値型に変換していたのを修正 設定画面が出ている時にはスケジュールが走らないように修正 Pro版: CREATEFORM にてIFrameが使われた時にsubmitボタンの処理ができなかったのを修正 UDebug: 64bit環境にて Help->"Folder with .INI"で間違ったフォルダを開くのを修正 DATE:2010/2/14(Sun) 01:29 No.2862 Windows 7 64bit環境での動作について umiumi 32bitアプリに対しては問題ありませんが、64bitアプリに対しては以下の制限があります CLKITEM、GETITEM関数の種別にて ツリービュー, リストビュー, タブ指定は無効 (替わりに ACC指定を利用して下さい) GETSLCTLST関数にてツリービュー, リストビューは無効 POSACC関数にて ACC_API(APIトラップ) 指定は無効 STATUS関数にて ST_PATH(EXEパス取得) 指定は無効 64bitの DLLを呼び出す事はできません また、SOUND 関数にて"BEEP"指定時は PC内部スピーカではなく、通常のサウンド出力になる
タスクアイコンを右クリックして選択をするにはどうしたらいいですか?
>>198 アイコンの画像をビットマップで保存してchkimgで座標を取ってBTN(RIGHT, Click)かな。
アイコンが動いたり隠れたりするとうまくいかないので他の方法探した方がいいね。
ウィンドウ一覧からID取ってPostMessageとかでメニューを出すみたいな。
エディタの正規表現検索使ったリンクアドレス抽出が便利だったけど別窓に移動するとダメだったので、 UWSCで検索ワードを別窓にコピペするマクロを作ってみた。 サクラエディタでの正規表現の例 <a href="/test/read.cgi/bike(.*)" target="_blank">cache .*でリンクアドレスをワイルドカードにしてるくらいだけど、範囲検索に複数キーワードとシフトキーを駆使するよりも簡単だし、 操作手順が少ないのでマクロもシンプルになり、使い回しが効くようになる。 Alt+TABで切り替わるように設定し、検索側窓をアクティブにした状態でAlt+F1をクリックして開始する。 ショートカットキーはSCKEY()が確実だが、多重起動のエディタのIDを適切に取得するのは大変だし、 どの道Alt+TABで切り替えるんならKBD()でいっかと。 // あらかじめ最初の検索位置に飛んでおく。 // 終了はストップボタンで。 stopform(true) while true sleep(0.2 ); KBD(VK_CTRL, DOWN) // コピー sleep(0.01); KBD(VK_C, CLICK) sleep(0.01); KBD(VK_CTRL, UP) sleep(0.01); KBD(VK_ALT, DOWN) // 窓切り替え sleep(0.01); KBD(VK_TAB, CLICK) sleep(0.01); KBD(VK_ALT, UP) sleep(0.2 ); KBD(VK_CTRL, DOWN) // 貼り付け sleep(0.01); KBD(VK_V, CLICK) sleep(0.01); KBD(VK_CTRL, UP) sleep(0.01); KBD(VK_RETURN, CLICK) // 改行 sleep(0.3 ); KBD(VK_ALT, DOWN) // 窓切り替え sleep(0.01); KBD(VK_TAB, CLICK) sleep(0.01); KBD(VK_ALT, UP) sleep(0.2 ); KBD(VK_F3, CLICK) // 次検索 wend
>>198 TrayCommand 0.06を使うと良いと思うよ
スケジュール機能を使って特定のウィンドウが現れたときに それを閉じるスクリプトを書きたいんだけど、 wshid = getid("Windows Script Host","#32770") ifb wshid = -1 exitexit else wsh2id = getstr(wshid, 1, str_static) ifb wsh2id <= "書き込むことが出来ません" ctrlwin(wshid, close2) endif endif 「書き込むことが出来ません」の前の文字が変わるから 部分一致で閉じるようにするにはどうすればいいの?
「特定のウィンドウ」とそうでないウィンドウを あなた自身はどう見分けてるの?
>>202 if pos( "書き込むことが出来ません", getstr() ) then print 見つかりました
>>204 あ、posっていうのがあったのか
ヘルプ読んでたはずなのに見落としてた
ありがとう
ver.4.6にしたら、chkimgで範囲チェックエラーがでるようになったよ。
VB6とかOfficeのVBAのエディタみたいに入力直後に登録されたキーワードがヒットしたら 強制的に大文字小文字を整形して置換(if→Ifとか)されるような機能を持ったテキストエディタないですか? 大文字小文字を気にして打ち込んでたらだるいしかといってそのままだと見返したときにすごく分かりにくいしで疲れました
208 :
名無しさん@お腹いっぱい。 :2010/03/04(木) 08:40:10 ID:2mTNuI0U0
ロケットマウスは使い物にならない、ゴミ。
ロケットマウスは素早くマクロ作れるから便利だよ でも最新版は高すぎる
必死宣伝乙。
212 :
名無しさん@お腹いっぱい。 :2010/03/05(金) 15:02:28 ID:kdn5jr8z0
誤爆か
>>207 秀丸でもxyzzyでもいいけど、自分でマクロ書くしかないんじゃ?
でも、UWSC専用のエディタって欲しくないか?? 色分け程度ならsakura専用であるにはあるが、入力補助や、デバッガ機能付きとか。 そういうオレはterapad使いで、色分けすらないから、記述漏れが探しにくい。 自分で作るのも面倒だし、テキストエディタって何個も入れたくないしな。 専用エディタなら割り切って入れる気になる。
>>216 無いなら作れよ…
作らないまでも、terapadでもオートコンプリートとかマクロのプラグインあるんじゃね?
色分けだとか、デバッガ起動くらい普通に付けられるんじゃねーの?
秀丸と秀丸の強調表示、単語補完、マクロ制御で十分すぎる 低機能なエディタを使ってるから汎用エディタって発想に至らないんだろうなー この人が最初からEmEditorや秀丸あたりを導入していれば「専用エディタ」などと 馬鹿げた悩みなど起こさなかっただろうに、と残念に思う
エディタ論争に発展しそうですね! viでいいじゃない…
VXEditorでもいいじゃないか
>>218 こういう異様に高圧的な奴が湧くと荒れる法則
俺はメモ帳で編集してますが
自分で使いたいエディタがあるなら勝手に使えばいいじゃないか。 専用があって、なぜ悪い。
それはどうかんがえてもEmEditorの独壇場ですね。 無料のエディタなんて所詮無料分の値打ちしかないですよ。 EmEditorさえ入れておけば間違いないです。
ポータブルでも動くエディタがイイと思うがな。UWSCもポータブルで動くしね。 X-Finderも入れれば、相対パスで動かせるし、関連付けもOSと独立して設定できる。 バックアップも楽だし、環境揃えるのも楽。便利だよ。
225 :
sage :2010/03/06(土) 21:27:36 ID:sUf1krysI
質問です UWSCを途中でやめて、また始めから開始するにはどうしたらいいですか??
↑名前間違った
>>225 手動でやると仮定すると、
UWSCを通常起動ならSTOPボタンで止めて再生ボタンで再開。
Alt+F1キーで開始してAlt+F2キーとかで停止とかも出来る。
>>223 > 無料のエディタなんて所詮無料分の値打ちしかないですよ。
そのとおり。
UWSC Proを買って専用エディタを入手すればデバッグまで出来ちゃうからお勧め。
メモ帳最強伝説
>>227 Alt+F2で止めれるんですけど
Alt+F1で再開が出来ません
バージョンが古いと出来ないってありますか?
>>229 XPなら古いバージョンでもできるけど
7とかなら新しいのじゃないといろいろ動かなかったりするかも。
最新でも動かないなら環境依存。他の何かが邪魔してるんじゃないかな。
IE7のリンクをクリックした時に出るエラーダイアログを自動で閉じたいんですが ifb GETID("Windows Internet Explorer","#32770") > -1 //ダイアログを閉じる処理をする endif としてるんですが、このときエラーダイアログがでていないとGETIDでかなり時間を取られます。 エラーダイアログが表示されているかどうかの判定で良い方法はありますか?
>>231 >>97 で使ってる
> GetWindow( H, GW_ENABLEDPOPUP )
COMは多分止まってるからIEオブジェクトは使えないので、
あらかじめH = IE.HWNDとしてハンドルを保存しておく。
GetWindow()でダイアログが表示されていればハンドルが取得できる。
ただし、ポップアップウィンドウにはサブメニューとかツールチップも含まれるので、
Status()で"#32770"かどうかをチェックする必要がある。
すべてのウィンドウをリストアップするのと違い、自分の子ウィンドウだけを見るAPIを直呼びするので高速。
>>232 アドバイスありがとうございます。
APIの使い方とかわからない素人で、
>>97 のスクリプトを見てもよくわからないのでもう少々詳しく質問させてください。
def_dll GetWindow(hWnd,long):long:user32.dll //dllを呼び出せるように宣言
Public GW_ENABLEDPOPUP = 6 // ポップアップウィンドウ
ここまではわかります。
>あらかじめH = IE.HWNDとしてハンドルを保存しておく。
これはどういう意味でしょうか?
おそらくスクリプトとしては
ifb GetWindow( H, GW_ENABLEDPOPUP ) > 0
//ダイアログを閉じる処理をする
endif
こういう感じになるのですよね?
>>233 > H = IE.HWND
これはIEオブジェクトを管理するウィンドウのウィンドウハンドルです。
UWSCで言うIDのようなものですが、ウィンドウハンドルと言うのはWindowsのAPIで使うものです。
IDとウィンドウハンドルは「IE.HWND」で検索したら出てきますが、
ID = HNDToID(IE.HWND)
HWND = IDToHND(ID)
と言うように変換できます。
if ! IDToHND(ID) then exit
と言うように、IE窓が終了している場合に中断できるのでIDを保存しておくと便利です。
GetWindow()で使うときも
GetWindow( IDToHND(ID), GW_ENABLEDPOPUP ) とできるので、IDを保存しておいてもいいです。
> ifb GetWindow( H, GW_ENABLEDPOPUP ) > 0
ハンドルは符号なし整数なので、この比較はしない方がいいでしょう。
負の整数と判断された場合に失敗します。
!が分かりにくいなら0 <> GetWindow() でもいいです。
>>234 ご丁寧にありがとうございます。
もう少々ググッて勉強してきます。
またよろしくお願いしますm(__)m
テキスト入力のやり方が分かりません教えてください
何を聞きたいのか分かりません教えてください
windows7でuwscを通常通り動かす方法ありませんか
UAC切れ
>>238 普通にwin7で使ってます。
しかも64
64アプリを制御できなかったりしますが、ほぼ問題なし
==>IEは32,64両方入ってますから
241 :
名無しさん@お腹いっぱい。 :2010/03/17(水) 23:14:19 ID:j5IphMiE0
スクリプト入力補助、3文字ぐらいうったらあとの文字が自動でるようにしたい んですけど、どうすればいいんですか?CLCLというのは使い方が意味がわからなかったです。
それをUWSCで作ればいいと思うよ
244 :
名無しさん@お腹いっぱい。 :2010/03/19(金) 00:16:25 ID:r6TwPwzy0
241です、回答ありがとうございます。そこまで教えられてるのにわからない自分がなさけないです. uwsc-mode.lはsite-lispフォルダに、uwscはetcフォルダに入れてください。←ここまではわかる siteinit.lとかに以下の文を追加してください。 ; UWSC (load-library "uwsc-mode") (push '("\\.uws$" . uwsc-mode) *auto-mode-alist*) ↑意味ワカラン
そうですか
釣りじゃ無かったのかよ
248 :
名無しさん@お腹いっぱい。 :2010/03/20(土) 18:31:49 ID:B79HWejI0
241です 気合と根性で補完入力できるようになったんですが、そのファイルにしか適用 されないというか、ほかのファイル開いたときはまた補完されなくなっちゃうんですけど 入力して覚え直させないといけないんです。これじゃー意味ないです。
あー、そうですか。
while true ifb getkeystate(VK_X) then sleep(0.3) endif ifb getkeystate(VK_UP) then sleep(1) endif ifb getkeystate(VK_G) then KBD(VK_DOWN,DOWN,40) KBD(VK_DOWN,UP,40) KBD(VK_DOWN,DOWN,40) KBD(VK_DOWN,UP,40) KBD(VK_X,CLICK,10) sleep(1) KBD(VK_DELETE,CLICK,100) endif KBD(VK_F,CLICK,50) wend これだとVK_Gのときに最初の処理がスルーされることが あります。最初というのはダウンアップとXキーのことです。 しかもそれが大体ですがひとつおきになります。 何が問題なのでしょうか?
>>250 あまりよく読んでないけど、短間隔ループの中でGetKeyで分岐というのはUWSCはムズイよ。
そこまでに押されたKEYを取得だから…
公式の過去ログで良い回答あったと思うけど、探すの面倒だわ。
>>250 用途がイマイチわからないので答えるのも難しいけど
自動操作系?
それとも入力支援?
自動操作系なら一定の待ち時間を設けるといいかも。
sleepじゃなくてループで。
例えば
while true
i=0
Repeat
ifb getkeystate(VK_X) then
sleep(0.3)
endif
Sleep(1)
i=i+1
Until i>3
とか。Xキーの押下状態で処理をする時に押されてないor押そうとしている時の待ち状態を作る感じ?
253 :
250 :2010/03/23(火) 00:07:33 ID:l7gIg+dd0
ゲームでアイテムを拾うというのとコマンド入力というので使っています。
連続して使うこともありできれば時間をあまりおかずに使いたいと
考えてましたがやはり短い間隔では取得が難しいみたいですね。
それとパソコンの性能が低いというのも関係あるかも。
>>252 UWSC以外にもゲームパッド用のソフトも使ってるのでXが押されたときの
スリープはそっちのソフト用です。
UPのスリープもコマンド入力時のためのものです。
ずーっとアイテムを拾うようにFキーが連打されるように
なっているのでスリープを設けないと入力できないと
いうことからです。
ifb getkeystate(VK_X) thenとかが何のためにあるかわからない・・・ これは俺がアホなのか?
ハンゲームでファミスタオンラインというゲームをやっているのですが、 このソフトを使ってバックグラウンドで動作させる事は可能でしょうか?
間違いない
外部DLLとかも読み込めるんだから基本不可能なことはないだろ
258 :
255 :2010/03/24(水) 17:14:51 ID:HwpEcix70
MOUSEORG で 2 を指定したのですが受け付けてくれないのです。 他に何かやるべき事はあるのでしょうか?
ヒント;DirectInput
260 :
255 :2010/03/24(水) 18:42:44 ID:HwpEcix70
DirectInputを使用しているアプリはUWSCの送信は受付ないという事でしょうか? 表では動くのですが、裏では動かないです><
261 :
名無しさん@お腹いっぱい。 :2010/03/27(土) 09:48:15 ID:2VmSdvyL0
KBDで使用するCLICKとDOWNの違いってなんですか? CLICKが反応しなくてDOWN/UPに変更した事もあるんですが。
すいません。補足です。 例えばキーを押しながら別のキーを押したい場合はDOWNだと思うのですよ。 ですが例えば"A"を単打したい場合ってCLICKでもDOWN/UPでもどちらでもいいんですかね? 記録する時どちらも記録されていたので違いがよくわかりませんでした。
どっちでもいい 好きな方をつかえばいいと思うよ
>>262 環境によるけど
自分はダウンアップにしてるよ
ハンゲのゲームやってたときに
よく固まってたんですよ
それでダウンダウンダウンダウンって
違う箇所を4回くらいダウンさせて
アップってしたら固まらないようになったです
珍しい事例かもしれないけど
一応お伝えしておきますねw
がんがってください^^
レスありがとうございました。
なるほど。やっぱり違いはなかったんですね。
>>264 事例ありがとうございます。覚えておきますw
UWSCでスクリプトを動かしている間に別の作業をしたいのでMOUSEORGを使ってキーイベントを直接送りたいのですがうまくいきません // マウス座標を相対座標にする、 またはマウスとキー情報を直接ウィンドウへ送る MOUSEORG( ID, [基準指定 ] ) 例えばnotepadに直接キーイベントを送りたい場合は MOUSEORG( notepad, [2] ) という書き方でよろしいのでしょうか ご教授いただけるとうれしいです
ドラッグしてCtrl+Cでコピーした文章をSendstrで出力したいんですが、 コピーした文章の出力方法がわからないのです。 Sendstrの文字列に当たる部分にはどのように書けばいいのでしょうか?
>>266 IDはプロセスIDだから、UWSCからnotepadを開くなら開く時の戻り値、
そうでないならGetIDでIDを貰って来なきゃならん。
[基準指定]の[]は省略可を表すだけで、2っていれときゃいいよ。
>>267 何処に出力したいのかは大丈夫?
ファイルに出力するなら、ヘルプのファイル操作関連
起動しているメモ帳やなんかに出力したいならSendStr
画面に表示したいならFukidasiやらPrintやらを使えばいい。
SendStrはヘルプ読めば解ると思うけど、
String=GetStr(0)
SendStr(送り先ID,String)
とすれば、変数Stringにクリップボードの文字列を格納して、それを送り先のIDに送る。
文字列の部分には""で囲った文字列か、文字列を格納した変数名を書けば良い。
269 :
267 :2010/03/30(火) 02:35:32 ID:i+J5d4Um0
>>268 ありがとうございました。クリップボードからの取得方法がわからなかったのです。
よく見たらヘルプにも書いてましたね・・・初心者ですいませんm(_ _)m
どなたか、TaskbarSorterをVista対応に改良してもらえないでしょうか? 一応使えることは使えるようなんですが、使えない機能がいくつかあるので、よろしければお願いします
272 :
266 :2010/03/30(火) 10:20:54 ID:enNRlci80
>>268 返信ありがとうございます
GetIDで取得するIDはClassというものでよろしいのでしょうか?
id = GETID("Notepad")
MOUSEORG(id,2)
〜処理〜
これでは間違っているのかうまくいきませんでした
よろしければ教えていただけるとうれしいです
>>272 Notepadはクラス名はNotepadになるけど、タイトル名は別名かと…
なにか重大な勘違いをしているようだ
>>272 ウィンドウのタイトルでOK
ヘルプの例にあるように、
id=GetID("メモ帳")
でいいよ。
親切な人が多くて素晴らしいですね
277 :
266 :2010/03/30(火) 17:44:58 ID:enNRlci80
ご丁寧に教えていただいてるにも関わらず未だにうまくいきません>< 実はLaTaleというオンラインゲームのウィンドウに直接送りたいのですが ウィンドウのタイトルはLaTale Clientです id = GetID("LaTale Client") mouseorg(id,2) REPEAT KBD(VK_RIGHT,DOWN,100) KBD(VK_RIGHT,UP,100) KBD(VK_RIGHT,DOWN,100) KBD(VK_RIGHT,UP,500) KBD(VK_SHIFT,DOWN,100) KBD(VK_SHIFT,UP,400) UNTIL FALSE これではだめでした どうすればよろしいのでしょうか よろしくお願いします
なんでREPEAT-UNTILに入れてるの? 条件FALSEにしてるんじゃ意味無いでしょ。 つーかまたゲームのマクロの話かよ… どうせまたDirectInput使ってるとかだろ そもそも配布サイトのFAQくらい読んでから来いと…
>>277 それをやろうとするとバン対象だよ
ゲーム側で出来ないように工夫してるし。
そもそもこのスレって暗黙の了解かなんかでチート関連の話題は原則禁止じゃなかったか?
281 :
名無しさん@お腹いっぱい。 :2010/03/31(水) 03:40:13 ID:J88r7xmw0
cheatだろうと何だろうと関係ない UWSCの事なら何でもあり そもそもUWSCを何に使おうがそれは使い手の勝手 それが気にいらなければレスしなければよい
質問してる以上、流石にそれはないと思う
というか
>>280 が言いたいのはこんなスレでチートとかの質問するようなアフォは喋るなって事じゃないの
なんか最近不正行為っぽい質問が多いし
要約すると
>>278 不正行為関連の質問は自重すべき
>>281 そうだな。チートだと思われる質問には誰も一切何も答えなければ問題ないな
チートなんか使おうとする奴が質問自重するとは思えないから、答える側が気をつけないとな
284 :
266 :2010/03/31(水) 12:00:12 ID:mAVKXcTv0
ハンゲームのファミスタの話が出ていたのでオンラインゲームの話題もいいのかと思っていました; 以降気をつけます。ご迷惑をおかけしました><
でもなんだかんだでこのソフトはチートでの使用が一番多いわけだが・・・
なんか変な流れを切るようで悪いんだけど教えてほしい。
既に開いてるIEをF5で更新した時に読み込み完了まで待ちたいんだけど
どうすればいいのかな?
よく見かけるのは
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("
http://www.yahoo.co.jp/ ")
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.readystate = 4
これだけど、これだとブラウザ起動からしちゃうので目的と違うんだよね。
最初に上記でブラウザを起動してから更新の度に
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.readystate = 4
をすればいいのかな?
できればサイトを開くまでは手動でやりたいんだけど。
も少し、ヘルプよんでよ IE=GETactiveOLEobj ちなみに F5=IE.refresh
>>288 レスサンクス
ほんとだ、、、書いてあった。。。
ヘルプに書いてあるのに質問しちまって申し訳なかったね。
お蔭様で希望通りの動きができました。
ありがとうm(__)m
>>289 おいおい、ニダランスレから出て来るなよw
ニダランスレってなんだ?
何でニダーラン?
そんなことまで「なんで?」って聞き返してくるのかよ ここは昔から質問者に「なんで?」「何するの?」「何がしたいの?」 自分の開発のヒント探るために聞くだけ聞いて質問者への回答は無視か罵倒 だから嫌になって来なくなったんだけど たまたま覗いてみたら相変わらずのウンコ解答者ぶり 質問者さんへ ここで聞いても無駄だよ 作者のうみうみ氏のサイトで聞いた方が時間はかかるけど正確だ 質問するために少々勉強してからの方がいいが ここよりまともに回答してくれるよ 俺も以前はよく解答してたんだけど UWSCというより何か儲けれるツールを作れないか そのネタ探しに解答者ぶっているだけ こいつらアホだからここで質問しても無駄だよ
UWSC覚えるのには時間がかかるよ なんせ解説本は「Windowsマクロテクニック」という基本中の基本のみの あまり役立たない本が1冊のみ販売されている 何をしたいかによって習得期間は変わるけど オンラインゲームでちょっと自動化を作成するのに何ヶ月もかかった インターネットを通じてしか勉強できないのも原因のひとつだろね 解答者は無報酬で応えているので 生意気だと思えば応えないし応える義務も無い だから解答者ぶって質問者をイビリ倒すのが趣味って変人も多いよ ぶっちゃけ奥深く入っていくとUWSCでは間に合わないよ ゲームだけじゃないよ事務系の仕事を自動化するのも一緒 UWSCがでてすぐに課金ユーザーになって2年ほど夜も寝ないでUWSCばっかし勉強して気づいた事がある 結局間に合わせのUWSCは間に合わせに過ぎない きちんとしたプログラムを勉強するのが一番近道だよ それでパールやったけどパールもダメだな 掲示板の解答者がUWSCと同じ種類の人間だらけ それでジャバスクリプトも勉強したけど 結局スクリプト言語じゃダメだったんだ 初めからC++がいいよ C++ならなんでもできる 教材もいくらでもあるからね 掲示板でペコペコしながら質問する必要もない UWSCの2年間全く無駄でした 初心者は初めからC++のほうがいいよ じっくりやれば俺でも出来るようになった やりたいことはこれだけだからって簡単にUWSCを勉強しだしたけど 次から次へと課題は出てくるもんだ それをなんでも解決できるのはC++ですキッパリ 俺、おっさんなんだけど俺でも出来たがんがれ ここでいつもゴマすりながら質問してた自分が今でも情けないよ やればできるよ
俺が一番最初に質問してた頃は1人物凄く親切な方がいてた 大阪に住んでるって言ってたな それで俺はUWSCの楽しさを教えてもらったんだ あの方には今でも感謝してるよ あの方はもうこないみたいだし 今、解答者ぶって質問者にレスしてる連中は 質問者が何をしたいか聞きだすのが目的なんだ 美味しいと思えば自分が先に作ってやろうって魂胆みえみえ それで質問者へのレスは適当にしておくか 更に罵倒して、その質問者はもう来れなくするか ヘンテコ解答者っていうか解答者の仮面を付けた基地外だな UWSCの使い方云々抜かしてるガキが出てきた頃から 大阪に住んでるって言ってた解答者さんは来なくなって 質問者も罵倒されるのが嫌で来なくなった 前スレか前々スレは過疎過ぎてダット落ちしてたみたいだし UWSCの使い方までご指導頂かなくて結構ですって言いたいんだけど それを言っちゃー解答もらえないから我慢する それで「質問者が何をしたいのかわからないので応えようが無い」とかはぐらかされて終了 UWSCとperlの解答者には気をつけた方がいいよ スクリプト言語なんて役に立たないことが多いし 悪い事いわないからC++かJAVAがいいよ ゲームに使おうがビジネスに使おうがお前に関係ないだろ>糞解答者
おいおい、なんのコピペだよこれ
不覚にもワロタ
ID:S8TPP2lzP なにこのキチガイ
C++がいいよ
指定時刻に指定ポイントをクリックするスクリプトつくれる?
余裕で作れる というか初歩中の初歩
なんで?って聞くのは別のアプローチから期待された動作をさせた方が、 確実だったり楽だったりすることがあるからだろ… ジャバスクリプトとかカタカナで書いている所とか、一度も出てこなかったJAVAが一番最後だけ出てくるとか、 自己矛盾か自己批判を孕んでるあたりとか、自動化をやるのにC++なんぞを使うと言い出すあたりの所ですよね、笑うポイントは。 ゲームに使おうがビジネスに使おうがなんて言ってるけど、そもそもオンゲなんかはプロテクトがかかってるのが多いから、 それすら知らないとか、プロテクトをかいくぐる技術も無いのに質問するヤツが多いから回答者が辟易して、ゲーム関係をうざがるんだろーが… そういうダークな範囲で使いたいなら独学しろと…
お前はなにをいっているんだ
ID:S8TPP2lzPには手を触れないよーに
たぶんこいつは本人で自演だろう
大阪に住んでる凄く親切な回答者:ID:S8TPP2lzPがしつこくてうざいからここくるのやめた
001 while 002 //いろいろ計算やら比較をやって 003 条件="おなら" 004 if 条件="ほにゃら" then break 005 print "ほにゃらではない" 006 wend 004行 で breakで ループを抜けたと思ったら、 005行を実行した上で 多重ループを抜けるんで 005 if !( 条件="ほにゃら" ) then print "ほにゃらではなかった" というような 記述でとりあえずは逃げたんですけど、 こういうもんなんでしょうか?
003 条件="おなら" て書いてるかられしょ
>>308 単純に、3行目のif文を間違えているだけだろう。
「5以上になったらループ抜ける」をやりたいのに「if 5>i then break」と書いちゃってるとか。
>>310 符号が逆だった。
「5以上になったらループ抜ける」をやりたいのに「if 5<i then break」と書いちゃってるとか。
>>308 × 003 条件="おなら"
○ 000 条件="おなら"
313 :
308: :2010/04/08(木) 14:31:05 ID:YpPiuNaU0
>>309-312 ありがとうございます.
やはり ありえないって事のようなので指摘していただいた点を再度調べてみます.
>>312 あ、初期値がUWSCから見えないってことでしょうか。その手の事だとすると実行前に構文チェックに掛かって修理してるような気がするんですが?
>>313 条件="おなら" は
条件="おなら" であって
条件="ほにゃら" ではない
>>313 初期値っていうかなんというか
みんな言いたいことは、UWSCは間違ってなくて、記述どおり動いてるってこと
317 :
308: :2010/04/08(木) 16:24:53 ID:YpPiuNaU0
>>314 すみません.ぐっちゃぐちゃでした.
訂正
000 条件="おなら"
001 while 条件="おなら"
002 //いろいろ計算やら比較をやっった結果
003 条件="ほにゃら"
004 if 条件="ほにゃら" then break
005 print "ほにゃらではない" → 005 if !( 条件="ほにゃら" ) then print "ほにゃらではない"
006 wend
こうかな? こんな感じで Break条件の 否定条件をつけて逃がしてます.でした.orz
ってか、今作ったのを見直してるんですが、実際作った部分はこうです.
0001 mdelay=0; oldmdelay=mdelay; delaysw=0 //スクリプト冒頭で初期値設定済
0100 optx=7 // POPUPMENU(pp, STATUS(xID, st_x), STATUS( xID, st_y )+STATUS(xID,st_height))
0101 SELECT optx
0102 CASE 7
0103 REPEAT
0104 x= INPUT("Now : "+oldmdelay+" to set new(ms):",mdelay)
0105 IF x= EMPTY THEN BREAK
0106 UNTIL CHKNUM(x)
0107 IFB !(x = EMPTY) THEN
0108 mdelay= x; oldmdelay=mdelay;delaysw=1
0109 PRINT "*Set07. Delay. ms: "+mdelay
0110 ENDIF
0111 CASE 8
0112 PRINT "*Set08. Hi Sensitive Start."
1000 SELEND
1001 sleep(911)
0107 と 0110 が break したつもりでも抜けられなかったんで付け加えた行です.
この行に”//"を入れてやったら、やっぱり抜け出せなかったです.
>>317 「107と110を付け加えた」のなら
例文と実際のコードのprint位置が違うのだが・・・
「107〜110を付け加えた」のなら修正前のコードが欲しいところ。
>>317 ちょっと待て
0105 のbreakでどこを抜けようとしたって?
0107にはxに数値が入ったときかxが空だったときとなるので
その制御では分岐が確かに必要になる。
そうしないとxを使ったときにエラーになるからね。
それを0105でどうにかしようと思うならifb使ってそこになにやら書くか、
exit、もしくはループを追加してbreak 2 を使う必要がある。
UWSCはBasic系なのでcaseを抜けるbreakはない。
そこで、0105から0110に飛ぶようにしたらどうだろう?
0102 CASE 7
0102.5 while true
0103 REPEAT
0104 x= INPUT("Now : "+oldmdelay+" to set new(ms):",mdelay)
0105 +---- IF x= EMPTY THEN break 2
0106 | UNTIL CHKNUM(x)
0108 | mdelay= x; oldmdelay=mdelay;delaysw=1
0109 | PRINT "*Set07. Delay. ms: "+mdelay
0110 +->wend
ループ条件を変更して0108〜0109を次のようにするほうがいいと思う
010x ifb CHKNUM(x) then
010x mdelay= x; oldmdelay=mdelay;delaysw=1
010x PRINT "*Set07. Delay. ms: "+mdelay
010x break
010x endif
320 :
308: :2010/04/08(木) 17:27:56 ID:YpPiuNaU0
>>318 すみません. 『break文で 多重ループを抜け出せない』って事があるものなのかって事を 相談したかったんで
条件式の錯誤に気がつかず、また実際のものとずいぶん違うものを提示してしまい迷惑をおかけしました.
最初 書いたときは 107 110行はありませんでしたが 105行の "EMPTY"(CANCEL)入力で BREAKしないので
単純に 107,110行を追加しているのが現状です.
321 :
308: :2010/04/08(木) 18:30:40 ID:YpPiuNaU0
>>319 今 BREAK のヘルプを読んで 顔が熱くなってきました.はずかしい限りです.
0001 mdelay=0; oldmdelay=mdelay; delaysw=0 //スクリプト冒頭で初期値設定済
0100 optx=7 // POPUPMENU(pp, STATUS(xID, st_x), STATUS( xID, st_y )+STATUS(xID,st_height))
0101 SELECT optx
0102 CASE 7
0102.5 while true
0104 x= INPUT("Now : "+oldmdelay+" to set new(ms):",mdelay)
010x ifb CHKNUM(x) then
010x mdelay= x; oldmdelay=mdelay;delaysw=1
010x PRINT "*Set07. Delay. ms: "+mdelay
010x break
010x endif
0100 WEND
0111 CASE 8
0112 PRINT "*Set08. Hi Sensitive Start."
1000 SELEND
1001 sleep(911)
こうですね.バッチリきれいに抜け出せました,皆さんどうもありがとうございました.
無料版でIE以外のブラウザの操作もできますか?
了解しました。 20万円くらい用意しといてね。
ブラザウ動かせない糞ソフト
シベリアにいた頃に作った、ゲームでクリックするだけのマクロをあげとくわ。
太鼓の達人マクロ。
http://gamezone.gooside.com/taiko.htm // ( . ) ピリオドの位置にマウスを合わせて開始するといい。
FUKIDASI("マウスを読み取り位置にあわせてください。<#CR>Ctrlキーをクリックで開始します。")
// VK_CTRL が押されたら開始
Repeat; sleep(0.2); Until GetKeyState(VK_CONTROL)
FUKIDASI("実行中。<#CR>Ctrlキーをクリックで終了します。")
// マウス座標保存
MouseX = G_MOUSE_X
MouseY = G_MOUSE_Y
// キー保存変数
dim previousKey
dim key
dim isYellow = false
dim isPreviousYellow = false
sleep(1)
while true
isPreviousYellow = isYellow
isYellow = false
sleep(0.005)
// VK_CTRL が押されたら終了
if GetKeyState(VK_CONTROL) then break
key = 判定( MouseX, MouseY, previousKey, isPreviousYellow, isYellow )
if ! key then continue
// キーをクリック ifb isPreviousYellow then ifb isYellow then sleep(0.02) endif endif KBD(key) // 最後に押したキーを保存 previousKey = key sleep(0.02) wend // 戻り値:キーコード // 処理しない場合、0を返す。 // X: X座標 // Y: Y座標 // key: 最後のキー // fYellow: 前回のYellow フラグ // isYellow:今回のYellow フラグ // 呼び出し回数:呼び出し側は常に省略する。 // 自分を呼ぶときは+1する function 判定( X, Y, key, fYellow, var isYellow, n = 0 ) result = 0 // 色を取得 color = PEEKCOLOR( X, Y ) ifb ! fYellow then //黄色が出た後はグレーの判定はなし if isGray(color) then exit endif
red = color and $FF green = (color and $FF00) / $100 blue = (color and $FF0000) / $10000 ifb fYellow then // 黄色フラグが立っているときは、他のカラー(青、赤)の判定はしない。 ifb 0 = color then // 前回黄色だったら、黒は黄色とみなす。 isYellow = true else exit endif elseif 255 = blue then result = VK_M // 青なので「m」 elseif 255 = green then isYellow = true // 黄色 elseif 255 = red then result = VK_Z // 赤なので「z」 else exit endif ifb isYellow then ifb 4 <= n then // 黄色で確定 // 黄なのでmとzを交互に if key <> VK_M then result = VK_M if key <> VK_Z then result = VK_Z exit endif // 規定個数の箇所をチェックする // (黒を除く)グレーがあれば中断 if ! n then X = X + 35 result = 判定( X + (n * 5), Y, key, fYellow, isYellow, n + 1 ) endif fend
////////////////////////////////////////////////////////////////// // グレーチェック // メーターカラーなどがグレーかどうかを調べる function isGray( color) red = color and $FF green = (color and $FF00) / $100 blue = (color and $FF0000) / $10000 sum = red + green + blue aveH = sum / 3 + 10 aveL = sum / 3 - 10 Ifb ( red < aveL ) or ( aveH < red ) Then RESULT = false elseif ( green < aveL ) or ( aveH < green ) Then RESULT = false elseif ( blue < aveL ) or ( aveH < blue ) Then RESULT = false else RESULT = true endif Fend
>>328-331 1.スクリプトを起動し、
2.ゲームのページを開いて開始し、
3.( . ) ←の顔を合わせる丸括弧のピリオドの位置にマウスを合わせ、Ctrlキーで開始する。
ゲーム中は放置。
4.ゲームが終了したらCtrlキーでマクロを終了する。
マウスで指定した座標の色を監視し、顔が合わさる瞬間にキーを自動クリックするだけだが、
連打する部分を見分けるためにちょっとめんどくさい処理になっている。
顔の種類の判定をそれぞれ色素の一つしか見ずに済むこんなシンプルなゲームでも、
識別して適切な動作をするのにこれだけの長さのコードが必要になる。
グレーチェックの関数は流用でそれ以外の部分を新規に作ったが、
これだけで5時間もかけてる。
UWSCで小さいマップを動き回るマクロをいくつか書いてる僕がそれだけ時間かかるんだから、
実現可能だとしても、ゲームマクロにはそれなりの労力が必要。
ちなみにマップを動き回るマクロは1000行くらい必要になった。
マウスの感度をよくするにはどうしたらいいものか
マウスの裏を掃除する
マウスパッドを敷く
336 :
名無しさん@お腹いっぱい。 :2010/04/14(水) 22:23:33 ID:bbwcK6IR0
ここに1個のpdfファイルがあります。 ページ番号はついていません。 自分で簡易製本するためページ番号をつけたいんです。 偶数ページには左下に、奇数ヘージには右下に。 そんなページ番号をpdfファイルに挿入するためにはどうすればいいですか?
テンプレくらい読んできてね
>>336 ググれ
基本的には印刷時にソフトで自動挿入だよ。
自動と言ってもUWSCとはまったく関係ないけどね。
PDFを直接編集するソフトなら手作業だろうね。
339 :
名無しさん@お腹いっぱい。 :2010/04/16(金) 23:21:01 ID:HC5SVg6T0
uwscはPDFの編集はできないよん
俺はエロサイトからダウンロードしてきた大量のエロ動画ファイルのファイル名を 管理するのにuwsc使ってます^q^ノ
ダウンロードしたファイルの管理か。どうやってんだろ。 俺のSayMoveダウンロードスクリプトはダウンロードはするけどリスト化はしてないんだよな。 ダウンロードに失敗したり、あとで削除とかするからダウンロードソフトみたいに画面作って全部管理しないと意味ない気がするし。
フリー版でIEの自動操作はできないの? 6,720円(税込)ってたけぇな
>>342 録画機能は有償版にしかついてないけど、再生は有償無償どちらでもできる。
ただ、開発支援環境もなしに作るのは大変。
あっても大変だし労力の割りにできることは大したことなかったりするけど。
まずはフリー版と、IEを自動操作するソースでも手に入れたら?
IE自動操作ってそんなに難しかったっけ? それとも俺が思ってるのとはまた別なのか・・・
上書き確認のダイアログ処理とかエラーメッセージの対応とか 動的ページの処理とか 結構大変やん? 僕は一度作って改良して使いまわし出来るようになってからはそれほどかからんようにはなったけど、 半年くらいみっちりやらんとちゃんとしたもんは作れん。 いや、単純な操作なら録画・再生程度でそれなりにできるけどね。 フリー版入手よりも、シェア版のお試しを勧めるべきだったか。 んでIEオブジェクトのスレッド間使い回しがなんかバグりまくって動かんしね。 OLEEVENTで受け取ったIEオブジェクトも高確率で使えんし。 どーゆー条件でなら使えるのかよく分からん。
・・・情報提供料としていくらまで出せます?
www
ゲームでキャラの位置を正確にしたいんだけど
何かいい方法ある?
東西南北に敵キャラがいて丁度真中迄移動したいんだけど
微妙にずれていくので教えて下さい
東との距離が近くなれば西との距離が遠くなり
南との距離が近くなれば北との距離が遠くなる
上記のような感じでぴったし真中に合わせられないんですよ
ゲーム内の位置とPCの座標を合致させる方法あれば教えてください
UWSCをゲームに云々のくだらない回答は不要です
答えられないならスルーでいいですから
>>302 と
>>343 書き込んだ人は自分へのレス禁止
うざいからお前のレスなんて要らねーから
お前のレス必要ないから返事すんなよ
ていうかお前わかってないのに答えようとするから邪魔なんだ罠
消えろ変人解答者
ここでうざい解答者ってお前のことだわ
別人の振りしてレスすんなよ
チートするための方法は教えられないなぁ
>>349 です
色判定で3点あわせることに成功
自己解決しましたので349への回答は不要です
>>350 おまえさー
答えられないのに出てくんなよ
マジうざっ
お前がまともな回答したことあるの?
それ聞いてみたいわw
スルーな
2chのソフト板全体で言える事だけどw 質問者が何も前進しないレスが多いな 本人必死でやってんだから そっとしておいてあげればいいのに 前進どころかw 足をひっぱりにかかるからなー 質問者をこき下ろす事だけ書いた奴が解答者ぶってるのは 変だと思う 解答者の答えを答えつつ罵倒するならまだしも こいつわかってて解答者ぶってるの?みたいなのばっかしwww 解答者ぶりたいから張り付いてるのが趣味なんだろw
>>350 >>353 ご苦労さん
お前は今後このスレで回答しなくていいからね
アホな質問に答えられないのはアホだから
意味わからんやろねw
人が楽しんでるんだからおれでいいだろ
誰にも迷惑かかってないし
万が一かかっていたところで
お前がパトロールする必要ないから
回答できない解答者は消えろ
UWSCは大変魅力のあるソフトなのに 誰かのせいで質問者来ないw ここは答え返ってくるよりまず罵倒されるの目に見えてるからなw UWSCの魅力が一般人に伝わらないのは こういうアホ解答者が蔓延るからだろ まともな回答できないのかできるけどしないのか知らんけどw 作者のうみうみさんも痛し痒しだろなー 勝手な推測で罵倒された方はたまったもんじゃない 6700円払って怒鳴られた挙句に自分のやりたい事は一歩も前進しない 6700円は社会勉強代として放置する人が多いのはお前の責任だ>アホ解答者 UWSCはいいソフトだよ もっと広めればいいのに アホ解答者は正義の味方を装うライバルソフトの関係者か? チート使用者がチートの質問者に対して 「チートは不正!!!」って叫んでライバルを増やさないよう無駄な努力してるのと同じだわw クズ解答者の振りして実はUWSCの反映を阻止してるんだろなw
357 :
343 :2010/04/25(日) 01:53:03 ID:MDkvEHtj0
>>356 まあ、作者サポートのある本家掲示板でいらんことを書き込んだことは確かにある。
でもここは2ちゃんねるだ。
だから本家掲示板で禁止されているネトゲのマクロの話もできる。
ID:ZblMfkgKPは作者をよいしょしているが、 ID:ZblMfkgKPだって本家掲示板からは追い出されるような人間だと言うことを自覚しろ。
俺は
>>328-332 を書き込んだものだけど、UWSCで位置探知は難しいのであんまりやってない。
多少なりともコントロールできているなら
>>349 はすごいと思うが、基本的なことが分かってないらしい。
正確なコントロールに必要なのは事象を数式化することだよ。
単純な座標計算ではなくね。
別に関数式一つで表せと言うことじゃなく、配列データを使ってもいい。
UWSCは複数のものを同時に探査できないからキャプチャタイミングがずれる。
タイムラグもあるのでそれを想定した操作をしなければならない。
だからTドット単位でのコントロールは、そこまでやっても大変だ。
結局、UWSCをメインに使うとしても、DLL関数を作らないといけなかったりする。
グラフィック処理がもっと多様に記述できて高速に動作する言語ならスクリプトだけでもいけるかもしれないが、
その辺がUWSCの限界だよ。
敵が移動しなくて時間もかけていいのなら、UWSCでもちゃんとぴったりあわせられるけど、
ぴったりあわせるのが目的なら、発想を変えて計測だけ自動で行い、自分で操作するという手もある。
UWSCを使いこなすのは立派だが、優れた人間は効率よく作業するためにいろんな道具を使うし、場合によっては道具を自作する。
僕がUWSCのことをあまりよく書かなかったのは、「あなたがやろうとしていることにUWSCが適しているだろうか」という疑問を投げかけただけだよ。
探せばフリーソフトで簡単に実現できるようなことかもしれない。
お金を出すんならもっといろいろあるだろう。
>>357 お前のレスはなんでそんなにひねくれてるんだ
美味いもの食ってゆっくり寝てみ
ちょっとは考え方変わるから
どーでもいいこと1人で理論付けて面白いのかどうなんだかw
面白いキチガイが二人もいるとは 愉快なスレだな
思わぬ真性が釣れたみたいだな
ふりー版使用。
あるURLのページのソースを取得したいのですが
IEのメニューで「ソース」を実行すると表示されるコードを取得するには
public ie = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
ie.navigate(URL)
REPEAT
SLEEP(0.1)
UNTIL !(ie.Busy) AND (ie.ReadyState = 4)
allhtml=ie.document.body.innerHTML
では違うんでしょうか?
URL="
http://www.google.com/images?hl=ja&source=imghp&q=検索ワード "
で画像検索したページのソースを取得したいのですが、
メニュー・表示・ソースで出てくるコードと
innerHTMLで得られるコードが違うのです
64bitでSkScriptは動きますか?
>>361 IEのソースは受信したそのまんま
FireFoxのソースは文字コード変換済み
ie.document.body.innerHTMLはそのときの(動的な処理が施された後の)HTML。(だと思う)
ie.ReadyStateが3から4になるときに動的な処理が施される。
で、どうやったらその飯が取れるかだっけ?
↓のoHttp.responseBody が多分そのまんまだよ
oHttp = CreateOLEObj("MSXML2.XMLHTTP")
LastModified = "Thu, 01 Jun 1970 00:00:00 GMT"
while true
sleep(5)
// Webページ読み込み
COM_ERR_IGN //COMエラー無視
oHttp.Open("GET", url, True )
oHttp.setRequestHeader("If-Modified-Since", LastModified);
oHttp.Send("")
ifb 200 = oHttp.status Then
// ok
else
continue
endif
LastModified = oHttp.getResponseHeader("Last-Modified")
ifb COM_ERR_FLG
continue
endif
COM_ERR_RET //エラー処理復帰
str = DECODE(oHttp.responseBody, CODE_BYTEARRAY)
break
wend
print str
UWSCで空きメモリ容量を取得したいんですが、どうやったらいいでしょうか? x264のエンコードをuwscを使って自動化しようとやっているんですが、 空きメモリが一定以上無い時は処理をスルーするようにしたいと思っています。
message = doscmd("systeminfo") msgbox(message) dosのsysteminfoから取ってくればいいんじゃね?
そんなものが…と思って調べてみたらPro限定コマンドでHomeの自環境では 不可能でしたorz
>>366 タスクマネージャ起動させといてパフォーマンスタブ-物理メモリ-利用可能読めば?
>>367 ありがとうございます。タスクマネージャは常時起動しっぱなしだったんで
これでなんとかなりました。
ところで、UWSC単体あるいはWSH等を含めてUWSCのスクリプト上?で
空きメモリを取得するにはどうしたらいいんでしょうか。
>>368 ttp://www.upken.jp/kb/HdPBaCEihTHpWKzfDZZsVhEJEYkamv.html FreePhysicalMemory ってプロパティがある。
上記を拡張子 .vbs で保存して実行すればとりあえず空きメモリが取得できる。
コマンドラインからファイルを指定してもダイアログが出るんだけど、
> cscript test.vbs
っていう風に、コマンドプロンプトからコンソール向けスクリプトで実行すると、
コマンドプロンプトに結果を返してくれる。
これをDOSCMD()で呼び出せば結果を文字列で受け取れる。
でも余計な文字列はDOSコマンドで除去した方がいいので
> cscript test.vbs | find "Free"
として、空きメモリの行だけ受け取ればいい。
数値だけ受け取りたければ、findstrで正規表現を使って数値部分だけを返すようにも出来るけど
val()に渡すだけで数値化できるならその方が簡単だね。
>>369 これ、殆どそのままUWSCでも使えるじゃないかw
COMオブジェクトを触れるなら
わざわざコンソールの文字列をfindしなくてもいいと思う。
まぁ、COMは難しいなぁ、と思うなら369のやり方でも実用上問題ないだろう。
UWSC上でVBScriptのfor-eachに該当するのってどういうやり方になるの?
>>370 UWSCに直そうと思ったんだけど、For Each 〜 in をfor 〜 nextで実現する方法が分からなかった。
.lengthの回数配列でまわす程度のイメージは持ってるんだけど・・・できなかった。
そんな苦労をするくらいなら結果だけ使った方が簡単だと思ったんだ。
.length じゃなくて .Countだったっぽいけど、配列アクセスはできないものもあるらしい。
よくわからないけどもしかしたらそれかも。
WSH(・∀・)スレッド! Part 4
ttp://pc12.2ch.net/test/read.cgi/tech/1243095768/210-218 Item
Items
ItemIndex とかいろいろ試したんだけど。
・・・UWSCでのやり方出てきた。GetOleItem使うのか。
ttp://siromasa.xxxxxxxx.jp/Term/4ta1.html Function Processor(Obj_CS)
Dim Col_Processor = Obj_CS.ExecQuery("SELECT * FROM Win32_Processor")
Dim i, Str
For i = 0 To GetOleItem(Col_Processor) - 1
Dim Obj = All_Ole_Item[i]
If i > 0 Then Str = "<#CR>" + Str
Str = "Cpu" + "[" + GHz(Obj.MaxClockSpeed) + "] [" + Trim(Obj.Name) + "]"
Next
Result = Str
FEnd
google画像検索で出てきた画像をまとめて保存するスクリプトを書いたのだが、晒すべきかどうか迷う… google画像検索で出たダウンロード先はそれぞれ別のサーバーだから、特定のサーバーに過重な負担をかける心配はない。 だが、pixivやふたば掲示板のような画像の置いてあるサーバが同一の掲示板やサイトで、同じようにスクリプトでダウンロードした場合、 あっという間にサーバーが悲鳴をあげる。そして管理者が対策をし、そのスクリプトは使えなくなってしまう。 サーバーに過重な負担をかけないよう、画像一枚に二分とか「手動でダウンロードするのと同じくらいのインターバルを置けばそういう事態は回避できるだろうし、 サーバーの貧弱なところからダウンロードする場合、自分ならそうする。 注意書きをしたからと言って百人に一人の馬鹿がそれを平気で破り、サイトそのものに大迷惑をかける恐れもある。 自分の発表したスクリプトが改変されてpixivやふたばに大迷惑をかけないという保証はどこにもない。 バカや不心得者にスクリプト技術を持たせばそれは凶器。 スクリプト荒らし一つで簡単に2chで特定のプロバイダがアク禁されてしまうことを考えれば、ちょっとの改変で画像サイトに大迷惑をかける恐れのある スクリプトは、やはり自分ひとりで使うのが正解だろうか…
IEを自動操縦するぶんについては、鯖から対策されると言うことはないよ。 2ちゃんねるはプロ串とか荒らしツールの対策はされるんだけど、 IEの自動操縦についてはブラウザ情報がIEなもんだからソフト的な対策は施されない。 同じURLを書き込めば制限されたりするけど、それは自動か手動かを判断しない。 コピペ投稿したらIPアドレスで書き込み制限されるだけであって、ログ取得については無制限。人大杉にはなるけど。 Googleが負荷を気にするかについてだが、 今Youtubeが次々に自動的に動画を再生している。Youtubeの機能で。 つまり、Googleは情報を配信したがっているわけだから、収集ツールなんかはむしろ臨むところなんじゃないかな。 要するにくださいってことです。
>>373 369のをGETOLEITEMを使いアクセスするのはやったけど
エラーも何も出ない代わりに何も出力されず終わる…
>>376 //---------------------------------------------------
Locator = CreateOLEobj("WbemScripting.SWbemLocator")
objService = Locator.ConnectServer
objEnumerator = objService.ExecQuery("Select * FROM Win32_OperatingSystem")
GetOLEitem(objEnumerator)
print "Free : " + ALL_OLE_ITEM[0].FreePhysicalMemory
print "Total: " + ALL_OLE_ITEM[0].TotalVisibleMemorySize
objEnumerator = null
//---------------------------------------------------
WMIを使うなら、MSDNあたりを眺めておくと何が入っているかの見当がつくよ。
http://msdn.microsoft.com/en-us/library/aa394084%28v=VS.85%29.aspx (Win32以外もたくさんあるけど)
巷にあふれるVBからのコード変換をする際の手助けになるはず。
>>376 出来たんだけど
【実行結果】
Count : 1
Free : 265140
Total: 523760
【ソース】
Locator = CreateOLEObj("WbemScripting.SWbemLocator")
objEnumerator = Locator.ConnectServer.ExecQuery("Select * FROM Win32_OperatingSystem")
print "Count : " + objEnumerator.Count
for i = 0 to GetOleItem(objEnumerator) - 1
Obj = All_Ole_Item[i]
print "Free : " + Obj.FreePhysicalMemory
print "Total: " + Obj.TotalVisibleMemorySize
next
sleep(10)
あれ? コードほとんど同じはずなんだけど… なんかミスってたかな。 ちょっとやってすぐ消したからどこが間違ってたのかわからんw
>>379 うん。書いた瞬間やっちゃったって感じだた。
>>380 for i = 1
とかがありがちなミス
あとはprintした瞬間にスクリプトが終了とか。
結果を見るためのsleep(10)だからね。
UWSCを通常起動して実行すればログ窓は残ってるけど、
関連付け実行ならsleep()入れないとすぐ消える。
382 :
374 :2010/04/28(水) 19:57:44 ID:TGzzLXVI0
結局晒してしまう google画像検索で出た画像を指定数、自動保存する
ここから
keyword="九龍城" // 検索キーワード
downKazu=30 // ダウンロードしたい数
folder="C:\Documents and Settings\k\My Documents\My Pictures" // 保存先フォルダ
public FS = CreateOleObj("Scripting.FileSystemObject")
ifb FS.FolderExists(folder+"\"+keyword)=false then
FS.CreateFolder(folder+"\"+keyword)
endif
for page=0 to ((downKazu+17)/ 18)
pagenum=page*18
URL="
http://www.google.com/images?hl=ja&source=imghp&q= "+keyword+"&start="+pagenum+"&ndsp=18"
public ie = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
ie.navigate(URL)
REPEAT
SLEEP(0.1)
UNTIL !(ie.Busy) AND (ie.ReadyState = 4)
allhtml=ie.document.body.outerHTML
383 :
374(2) :2010/04/28(水) 19:58:59 ID:TGzzLXVI0
cutword="</A>" cut=toScanWord(str2,cutword) //print cut str2=afterScanWord(cut,"imgurl=") str2=beforeScanWord(str2,"&") print str2 nokori=copy(str2,pos(cutword,str2)+length(cutword),length(str2))// print nokori ie.navigate(str2) ieWait(ie) sleep(2) id=GetID(str2,"IEFrame") sckey(id,vk_alt,f,a) number=page*18+i numberStr=""+number orgName=copy(str2,pos("/",str2,-1)+1,length(str2)) orgName=chgmoj(orgName,":","") name=folder+"\"+keyword+"\"+numberStr+"_"+orgName print name id2=GetID("画像の保存","#32770") ifb id2>0 then sendstr(id2,name,1,true) sleep(2) sendstr(id2,name,1,true) sendstr(id2,name,1,true) sleep(1) clkitem(id2,"保存",CLK_BTN) sleep(1) else id2=GetID("Web ページの保存","#32770") clkitem(id2,"キャンセル") endif next
384 :
374(3) :2010/04/28(水) 19:59:41 ID:TGzzLXVI0
next function fromScanWord(str,scan) // 検索ワード以後の文字列を切り取る 検索ワード含む result=copy(str,pos(scan,str),length(str)) fend function toScanWord(str,scan) // 検索ワード以前の文字列を切り取る 検索ワード含む result=copy(str,0,pos(scan,str)+length(scan)-1) fend function afterScanWord(str,scan) // 検索ワード以後の文字列を切り取る 検索ワード含まない result=copy(str,pos(scan,str)+length(scan),length(str)) fend function beforeScanWord(str,scan) // 検索ワード以前の文字列を切り取る 検索ワード含まな result=copy(str,0,pos(scan,str)-1) fend procedure ieWait(ie) REPEAT SLEEP(0.1) UNTIL !(ie.Busy) AND (ie.ReadyState = 4) fend
>>382-384 半角スペースだからインデント消えたのかと思ったら最初から入ってなかったぜ。
GETSTRみたいに、ネットフレームワークのDataGridViewのセルのデータを取得する方法は、 UWSCだけでは出来ずにWin32APIで取得するしかないでしょうか? もしそうなら、そのAPI名を教えていただければありがたいです。 具体的には、データグリッドビューで表示されているドル-円のレートを1分毎に取得したいです。
このソフトに挑戦しようと思います。 ふつうにネトゲで使えるようには かなり時間を要しますか? Autohotkeyは初級は使いこなせてると思います。 ぐぐったらゴールデンウィークにこのソフトに出会ったという人の HPみたのでやってみようかと
>>387 そのままでUWSCが使えるゲームなら、キーの記録と再生した奴をちょっと弄ることを覚えたらそれで応用はできるよ。
連打だけしてればいいようなものもあるだろ?
そういう単純作業をするマクロをたくさん作ってれば上達するよ。
>>388 既存のもの弄ることからやってみようと思います。ヘルプ読んでみたが
数学捨てた低学歴文系にはこの記号の押し寄せに一瞬で圧倒される。AHKよりもぜったいムズイだろう。
AHKは飛び抜けて優れたソフトだと思うが、これにも可能性感じる。
サンプルが動かしたが嬉しい。色や文字を認識しての条件分岐が使えるようになれば
ワクテカしてきそうだ。
こいつは二重人格なのか?
いまでこそ色々使ってはいるモノの、はじめて落としてから、ああこういうことか、と仕組みを理解して動かし始めるまでに結構なタイムラグがあった。 ヘルプはたしかに、仕組みを理解しない人間にああこういうことかと理解させるにはちょっとキツイな、
俺も昨日から使い始めた。UWSCは難しい、と聞いて敬遠してたけど、 自分の操作を記録したものを修正する方法を使えば実に手軽だった。 ところで、 「コンピュータのロック」(Win + L)中はFirefoxへのマウスクリックが 動作してないんだけど、回避策ある?それともロックの仕様? 環境は Vista(x64)SP2 + Firefox v3.6.3 + UWSC v4.6。
このソフトって何年に発表されたものなんですか? 相当昔からあるみたいですね。いまでも最前線のソフトなんでしょうか?
3Dゲームウインドウ上で半角キーを押すことをUWSCにさせたいのですが、 まったく押してくれません。どうやれば改善するのでしょうか? 自分で半角キーを押したのを記録して再生してもおしてくれません。 KBD(VK_KANJI,CLICK,20) というのはちゃんと記録されているみたいなのですが。 おしえてください。
>>395 よくある質問です。
・大半の場合おいて出来ません。
・出来る可能性の中でも知識を持つ人が居ない事が多いです。
ネットゲームの場合は自動化を不正と考え
実行を阻止するプログラムが入っている場合が多数あります。
(阻止するプログラムが入っていないほうを探すのが大変なぐらいです)
そのほかのゲームでもタイトルが不明では返答のしようがありません。
また、タイトルが判っても、プレイしていない人が大半ですので
「UWSCの知識」+「そのゲームをプレイしている人」という…返答できる人が非常に限られた話です。
答が帰ってくることを期待しても望みは薄いでしょう。
//次のスレでは、ゲーム関係の質問はテンプレに入れてほしいなぁ…
>>396 > 「UWSCの知識」+「そのゲームをプレイしている人」という
「UWSCの知識」+「そのゲームをプレイしている人」+「チートしようとしてる人」だろう。
ゲームする奴が全てチートする気のある奴ってわけではないんだから。
395です。UWSCにある特定のバグのようなものがあるのかと思って聞きました。 AutoHotKeyでは半角キーにバインドするとバグるので(まぁあっちは海外製ソフトですが)。 じゃぁ質問を返させてください。 メモ帳の上で半角/全角キーを押す作業をUWSCにさせても 半角キー以外の作業だけせずに工程を終えてしまいます。 ほかのキーバインド関係のソフトは終了させています。日本語入力ソフトは google日本語入力です。その設定で空白を半角キーに割り当ててみました。 あとチートのやってたわけじゃないです。うっとおしい設定を毎度させられるからです。 おしえていただけませんか?
>>398 割と短い行で済むスクリプトでしょうから
>メモ帳の上で半角/全角キーを押す作業をUWSCにさせても
>半角キー以外の作業だけせずに工程を終えてしまいます。
を見せてみてはどうでしょうか。
これです。手入力で自分で一度したのを記録しました。 ACW(GETID("無題 - メモ帳","Notepad"),200,10,400,400,0) MOUSEORG(GETID("無題 - メモ帳","Notepad")) BTN(LEFT,CLICK,178,295,47) KBD(VK_CONVERT,CLICK,40) KBD(VK_S,DOWN,40) KBD(VK_A,DOWN,40) KBD(VK_S,UP,40) KBD(VK_A,UP,31) KBD(VK_G,DOWN,40) KBD(VK_A,DOWN,40) KBD(VK_G,UP,40) KBD(VK_A,UP,40) KBD(VK_KANJI,CLICK,20) KBD(VK_S,CLICK,40) KBD(VK_I,CLICK,10) KBD(VK_M,DOWN,40) KBD(VK_A,DOWN,40) KBD(VK_M,UP,10) KBD(VK_A,UP,40) KBD(VK_N,CLICK,40) KBD(VK_E,CLICK,40) KBD(VK_RETURN,CLICK,40) ちなみに半角キーはgoogle日本語入力の「変換前入力中-左の文字を削除」 に割り当てました。二回半角キーを押しました。(一回しか記録されていない?) 手入力では「しまね」の文字のみが残りますが、UWSCでは「さがしまね」 と前の言葉を削除してくれません。 AutoHotKeyではちゃんと入力して削除してくれました。
>>400 こちらでは、半角キーの操作も忠実に実行されました。
…google日本語入力では在りませんが。
IMEをMS-IMEでやってみてはいかがでしょう。
それで出来たら、ゲームと同じでgoogle日本語入力を使っている人が来るまで待ってね。
あと記録に関してはヘルプをよく読むといいよ。取りこぼしが無くなる。
>>401 ありがとうございます。そうですか・・・。
ウチの環境に起因してるみたいですね。
googleIMEからAtokに変えることなんて確率高すぎだし、
そうなると半角キーが動作しないことは痛すぎる。
>>402 まぁ、UWSCで出来るとは思うけど
現状の、制御をせずに操作記録をしてるだけじゃぁ辛いかな。
中に書いてあるスクリプトの意味合いを調べて
キーをどのウィンドウに送る、とかを考えて記述してみてくださいな。
>>400 sendstr(id, "ほげほげ") とか iesetdata(id, "ほげほげ") じゃだめなん?
>>395 そのゲームがキーを操作できるか出来ないかは知らないけど、
漢字キーというのは対象アプリケーションがアクティブな状態でクリックしないと意味がありません。
ためしにメモ帳を使って文字の入力と漢字キーのクリックをセットでやってみてください。
文字が入力できないならアプリケーションがキー入力対象になってないから漢字のOnOffができていないと言うことになります。
アプリケーションはアクティブでもゲームは文字入力可能状態になっていないとだめですよね?
そこもちゃんと出来ているかが大事です。
>>400 ・・・よく分かりません。
>>404 わたくし初心者なのでわかりません。調べます。
ただ極めて簡単な手入力なのに再現できないのがありえないと思ったのです。
しかも記録には半角キーを押すという記述があるのに。
こういうのが多発するんであれば手入力から記録するのはしんどいなと。
>>395 ネットゲームなんかだと
KBD(VK_KANJI,CLICK,20)
じゃ認識してくれないこと多いな
KBD(VK_KANJI,DOWN)
KBD(VK_KANJI,UP,30)
こういう風にすると認識するかもしれない
これでも認識しないときは30を50とかに変えると良いかも
>>407 僕の環境じゃ無理だったっす。手入力じゃできるのになぜ再現できん。
2010/05/08 UWSC Ver4.6a、 Pro版と Free版をリリースしました。
昨日からさんざん書き込んでいる初心者ですが、Google日本語入力からATOKにしてみました。 そうするとメモ帳への半角/漢字キーの入力の再現ができました。 ただ、やはり3Dゲーム上での半角キーの入力の再現はやはりできませんでした。 しかしちょっとすっきりしました。
4.6aでやっとこchkimgのバグが修正されたか。
>>411 どういうバグ?
俺はたまに repeat に入れたchkimgで止まることあるんだけど・・・
関係ないか?w
>>408 仮想キーボードやらソフトウェアキーボードやらを使って間接的に入力するのは?
やった事ないから出来るかはわからないけど
こんにちは。 先週初めて競艇場に行った女子大生です。 競艇場内ののトイレに入ってウンコをしようと思ったのですが、 「トイレットペーパー以外の物は流さないで下さい」 と張り紙がしてあったのでウンコをビニール袋に入れて持って帰りました。 非常に不便さを感じました。競艇場ではこうなんですか? 皆さんはどのようにしているのでしょうか? 参考に聞かせてくれませんか?
>>414 うんこは食べてしまえば荷物にならなくていいです。
と言うのは冗談で、ウンコを流してダメなトイレはないので素直に流してください。
いつものコピペだけど念のため。
トイレで流れない極太ウンコをしたことを思い出した
print と UWSC本体のログの書き込み時間の違いってコントロール出来るんでしょうか? print実行した直後にログも更新されてるといいんですが…
>>417 それってログファイルを開いて最後の書き込みを監視して動くとか?
書き込みするファイルを常に開いて中身をチェックするのはあんまりよくないから、
クリップボードとか環境変数とか使ったほうがいいと思うんだけど。
基本的に単に見るだけです。 問題があったらUWSC自体を止めるのが目的。 今スクリプトを書いてる最中で何度もテストしてるんですが、doscmdの実行中は UWSC自体が応答無しになっていてprintのウィンドウを大きくできない状態になります。 UWSCを使って動画のエンコード等しているんで9割以上の時間応答無しになったままです。 一度doscmdが終わってUWSCに実行が戻ってくる瞬間はprintのウィンドウが更新されるんですが ログの方は更新されない。 関数の中だと書き込まれないのも違うし、時間やある一定量書き込んだらというのも違うし… ログじゃなくて、FOPEN-FCLOSEでやった方がいいんでしょうかね。
教えてください。getIDでタイトルなしでクラス名のみでIDを取得することはできますか? 自分がIDがほしいアプリのウインドウは毎回タイトルを変えたり、空白だったりするので。
getID("",”クラス名”) でやってみそ
ありがとうございます。成功シマシタ。
id = getid("", "MozillaUIWindowClass")
のクラス名の前に置くスペースの位置でつまづいていました。
ど素人にイチからちゃんと学ぶことができる筋道ってありますか?
windowsマクロテクニックの本は有効なのでしょうか?買って損したみたいな
感想もみたりするので・・・。
>>2 の上の方の初歩の初歩のサイトを2日かけて読みました。
あとはヘルプみながらサンプルスクリプトを弄るしかないのでしょうか?
>>2 のようなサイトでずっと続きが読みたかった。
去年は残念ながら失敗した
425 :
424 :2010/05/13(木) 13:00:08 ID:8TRBb1jz0
ゴバ━━━━(゚∀゚)━━━━ク!!!!
426 :
名無しさん@お腹いっぱい。 :2010/05/14(金) 12:27:28 ID:ps7Xn0cn0
すみません、あるネットゲームにおいて2つのパソコンを使い 自動で対戦したいのですが、かんじんなマクロ言語をまったく知りません;; なので、知識のある方にお願いして(PC詳しい友人無し) 画像認識を含むマクロスクリプトを作って頂きたいのですが、 そういた類の者をオファーできる会社等はあるのでしょうか? 勿論無料とはいいません よろしくお願い致します!
>>426 ゲームによるけど?
タイトル言わないと来るものも来ないよ?
428 :
名無しさん@お腹いっぱい。 :2010/05/14(金) 12:41:53 ID:ps7Xn0cn0
>>427 ファミスタオンラインという恐らくネットゲームでは単純な方
のゲームだと思います
430 :
名無しさん@お腹いっぱい。 :2010/05/14(金) 12:56:18 ID:ps7Xn0cn0
バルーンメッセージを取得してテキストに出力したいのですが、取得方法がよくわかりません 出来れば特定ソフトのみのバルーンを取得したいのですが、なにか良い方法はありませんでしょうか 外部ソフトを使うなどでも全然おkなんですが・・・
>>431 情報料として8万円でいかがでしょうか?
業者に調べてもらうとなれば20万はするでしょう。
ご検討ください。
何勘違いしてるの? 2ちゃんはそういうところじゃないよ。 情報出し合う掲示板だよ。 商売したいなら出て行くか、 2ちゃんの広告枠買いなさい。
>>432 は何を考えて言っているんだ・・?
426に言うならわかるけども
435 :
名無しさん@お腹いっぱい。 :2010/05/14(金) 21:48:11 ID:wySSdIwP0
uwscでできることは基本的にWSHでも出来ますか?
>>433 何細かいこと言ってるんだよ。
ネトゲのアイテムやツールやキャラなどを2ちゃんねるで売買するのは普通のことだよ。
2ちゃんねるで車の売買とかもやってんだぜ?
車どなたか譲ってください。
ttp://namidame.2ch.net/test/read.cgi/car/1273073007/ >>426 プレイ動画をちょこっと見たけど、ちょっと難しいね。
・・・仮にボールのビットマップが固定だとすれば座標サーチでいけると思うけど、・・・
あ、変化無しでただ投げるだけ打つだけならもうちょっと簡単かも。
投げる操作をすると同時に、投げましたよともう一台のPCにメッセージを送る。
打つ方は画面は見ずにメッセージを受け取ったタイミングで打つ。
それでもキャラごとにスピードが違うからなあ・・・
通信回線によっても、バッター側に届くタイミングがずれるし・・・
437 :
名無しさん@お腹いっぱい。 :2010/05/14(金) 23:04:27 ID:ps7Xn0cn0
>>436 アドバイスありがとうございます
こんなこと言っては失礼ですが、違うんです><試合中はもうD連打だけでいいんです><
打つタイミングとか投げるタイミングとかもランダムで...
自分が行って貰いたいのはポイントを簡単に纏めると
試合開始する→ロビーから出る→また試合開始する
この一連の作業をUWSCのマクロスクリプトで行いたいだけなのですが><
まったくPC知識もないもので..
している方に聞けば、マクロ知識と画像認識ソフトがいるみたなのですが
やっぱり人に頼むのは無理ですよね><
>>437 それなら簡単そうだから勉強する意味でも自分で組んでみたらどう?
わからなかったらその都度ここで聞けばいいし
とりあえず流れ的には
1.PC1で部屋を作る
2.PC2で1で作った部屋に入る
3.試合を開始する
4.PC1、PC2共にD連打する
5.試合が終わりロビーに出る
6.1へ戻る
でいいのかな?
画像判定は試合中なのかロビーにいるのかを判定する時に使うくらいじゃないかな
そういうのはUWSCで全部できちゃう
439 :
名無しさん@お腹いっぱい。 :2010/05/14(金) 23:39:28 ID:ps7Xn0cn0
>>438 さすが頭のいい方は仕組みの理解が早いですね;;
おっしゃるとうりです
上級者の方にはやっぱり簡単なプログラミングなんですね;;
マクロ知識まったく皆無で半年はかかりそうですが、自分で試す事
にしてみます!
この度はどうもありがとうございました!!
このスレ終わってんな
>>435 基本的にWSHはCOM経由で操作するために設計されてるものなので低レベル入出力はほぼできない
ctrlwinでウィンドウをTOPMOSTとNOTOPMOSTでトグルしたいんだけど TOPMOSTになってるウィンドウかどうかというのを知るにはどうすればいい?
>>442 TOPMOSTにしてないやつはなってないはずなので、
自分でどっちに制御したかを変数で持ってればいいんじゃね?
>>443 スクリプトは
Function TimeWait(time_remain, RepeatTime)
から始まっていますよね。
これは自作関数を定義するものですが、どこかから呼び出される必要があります。
具体的には、ファイルの先頭から
TimeWait( 60, 3 )
Function TimeWait(time_remain, RepeatTime)
・・・(省略)
Fend
というように、TimeWait()を呼び出すコードを先に記述しなければなりません。
具体的にどんな引数を渡すべきなのかとかは、めんどくさいので見てません。
> TimeWaitみたいな関数ないですよね?
何もしないで休んでいる組み込み関数ならあります。
sleep() です。
でも、それでは何が起こっているかわからないのでいろいろするわけですね。
>>444 ありがとうございます。ためになります。
ということは、投稿されたものよりも前に
たくさんのコードがあってそれが
消されてるということなのかな。
自作関数っていうぐらいだから、それを定義する
コードがたくさん必要なんでしょうね。
ただ1〜2行ぐらい変数を定義してやればいいとぐらいにしか
思ってませんでした。
分ー秒の単位でカウントダウンの経過がわかる
スクリプトを探していたのですが先は長そうですね。
>>445 ラーメンタイマー程度で見た目も精度もいらないんなら簡単に記述できるんですけど、
やっぱ画面とかあったほうがいいだろうし、そうすると有償版使うかHTMLのスクリプト使うか、
もしくはHSPなどを使ったほうがいいかもしれません。
sleep()を使った3分タイマーを作ってみました。
まあ、正確な時間を刻まないと生理的に受け付けないとは思いますが・・・単純なSleep()のループよりは正確です。
利点は・・・スクリプトなのにCPU負荷が小さいこと、なのに(多分)正確なタイマー。
欠点は・・・3分でもカウント(表示)が数秒ずれる。負荷を100%で動かすと表示が10秒単位でずれてしまう。
カウントのスリープ時間を自分で微調整する必要があり、結果がまちまちなこと。
ま、Gettime()のループにすれば正確になるんですが。・・・やっぱそっちでやった方がシンプルで分かりやすいかな?
// 3分タイマー
TIME = 60*3 // タイマーの時間
PUBLIC start_t = gettime()
print "start"
thread count(TIME)
sleep(TIME)
print "sleeptime:" + (gettime() - start_t)
msgbox("3分経ちました")
//およその残り時間を表示(表示のみ)
Procedure count(times)
for i = 1 to times
fukidasi(times - i)
// sleep(0.966) // +5秒
// sleep(0.9) // -3秒
sleep(0.93)
next
print "counttime:" + (gettime() - start_t)
Fend
>>446 ありがとうございました。
使わせていただきます。時間は適当でいいです。CPU負荷が小さいほうが
利点あります。
sleepの時間ってずれるんですね。はじめてしった。
いままで単純なsleep(1)で通してたんですが。
見てもわからないところばかりですが、このコードみて調べます。
ありがとうございました。
>>444 > TOPMOSTにしてないやつはなってないはずなので、
> 自分でどっちに制御したかを変数で持ってればいいんじゃね?
いや単にウィンドウの状態を変えるだけのスクリプトなんで、
TOPMOSTにした後は終了したいんですよ。
INIでも作ればいいのかもしれないですが、もっと直接的に取得する方法って無いもんかと。
ついでに言えば、ウィンドウのZ順?も取得・変更できたら嬉しい。
sleepがズレるわけじゃなくてsleep以外の処理でズレるんだよ for文に使われる比較処理だってCPU使うし、もちろんsleepをコールする処理自身もCPU使う だからCPUの負荷だけではなくクロック数やバス幅に影響してしまう
>>448 uwsc自体ではZオーダー提供していないんだから
自分でAPIを呼び出すしかないんじゃね?
>>439 もう見てないかもしれんけど
マド作るなら今よりロビー等の変更が来てからの方がいいよ
画像の用意とか二度手間になる。
まじでやりたいなら教えてやるよ。
uwscって意外と時間指定してボタンを押せとか やるの難しいと思った 知り合いの家に行く間に、何回か録画ボタンを押して欲しかったんだが プログラム書こうとして、全く歯が立たなかった タイマー機能があるのを思い出して、事なきを得たが1時間半くらい悩んだんだよなw と、思って今やったら、案外簡単に時間って取得出来るのね あとはこれを上手い具合に変数に格納して、設定した時間と比較して同じになったら 〜しろって風にすれば、タイマー一丁上がりか 変数に155958みたいに格納出来れば楽そうなんだが あー、A=15*10000+59*100+58でいいのか、簡単じゃん(^^; 俺アホス
>>453 そのやり方もまだまだ。
なんとヘルプファイルにもっと良い時間の取得の方法が書いてあるんだぜw
…まぁ、変数をどういう使い方にするか、にもよるんだがな。
uwscがスクリプトを現在実行中かどうか確かめる命令はありませんか?
>>453 数値を文字列として連結したければ
a=123
b=456
c=""+a+b
みたいにやればよし。c=a+""+bでもいい
> あー、A=15*10000+59*100+58でいいのか、簡単じゃん(^^;
これだったらA=""+15+59+58
テキストエディタでスクリプト書こうかなと思って先ほどフリー版uwscを導入したのですが 保存するときの文字コードや改行コードについてヘルプに書いてないのですが特に制限は無いですか?
>>457 書いてなくて安全策をとるなら普通Windows版アプリではShift-JIS+CRLFにしない?
windowsだからShift-JIS+CRLFとは限らないのにw
やってみればわかることを聞く人には向いてませんよ。
>>460 その程度の知識がないならわざわざレスしなくて結構・・・とだけレスしとく
あ、そうそう一言伝えますね winだからsjisと決め付けてかかるのはやめたほうがいいですよ
sleep(2) sleep(2) と sleep(4) は同じことですか?
>>455 タスクマネージャにuwsc.exeがあれば実行中かも。
メイン画面も1件としてリストに出てくるけど、見た目で実行中か分かるし。
コマンドはqprocess
>>457-462 試してみたけど、スクリプトの保存形式はunicodeでも動くけど、コードの扱いはシフトJISだね。
DEF_DLL MessageBoxA(HWND,pchar, pchar, DWORD): Long: user32.DLL
DEF_DLL MessageBoxW(HWND,pchar, pchar, DWORD): Long: user32.DLL
MessageBoxAなら保存形式に関係なくテキストが表示できるけど、
MessageBoxWだと文字化け。
>>463 微妙に違う。
sleep(2)×2の方がCPUを消費するし、時間もかかる。
なんで教えを乞う立場の者が煽れるんだろう。 基本的に人間ができてないな。
人間的云々言う場所じゃないだろ 嫌ならレスするなカス
レスしているのは人工知能だよ
じゃあ俺も人口知能!
このスレの人口分布 回答者・・・・・・・・・・・・・・・・・・・ 1% 質問者・・・・・・・・・・・・・・・・・・・10% 態度がでかい自称回答者・・・89%
なぜ態度のでかい質問者がないんだろう
実際はレベルの低い回答者が原因で荒れるからだろ
473 :
名無しさん@お腹いっぱい。 :2010/05/28(金) 06:10:20 ID:6og4XoNt0
それは手動でやってても同じだわな。 問題なのはスクリプトじゃなくて意図。
>図書館のホームページに集中的にアクセスし、閲覧しにくくしたとして、 逮捕・・・ 1秒間に3万3千回アクセスかと思ったら、1秒間に1回かよ? 逆に1秒間に1回のアクセスで重くなるHPなんて、どうやったら作れるんだよ?
>>475 きっと鯖が初代PC98のまま更新できなかったりするとそうなるんじゃね?
479 :
名無しさん@お腹いっぱい。 :2010/06/01(火) 04:12:46 ID:6RwPsnvD0
343 名前:名無しさん@十周年[sage] 投稿日:2010/06/01(火) 01:25:49 ID:SDO0GhkS0 楽天プライズでUWSCのスクリプトで24時間スロット廻し続けてたら対策された。 何時間も遊んでたら「遊びすぎじゃ、休憩せい」って弾かれる様になったのは 俺のせい。 楽天グッズとかショボイ景品が途中で出るようになったのも俺のせいかも。 ちなみに、ゴールドは長時間遊ぶほどに出玉が悪くなる仕様だと統計とれた。
20年以上動いてる鯖があるってのか
481 :
名無しさん@お腹いっぱい。 :2010/06/01(火) 09:43:30 ID:6RwPsnvD0
482 :
家電.com :2010/06/01(火) 09:47:46 ID:Cz2396tn0
2chなどでリンクを踏んだら直接リンク先に行くのではなく リンク確認の画面に一度飛ばされるのですが、 その画面になったらすぐに次のリンクをクリックする スクリプトを書きたいのです。 UWSCの誘惑にクリップボードのURLをブラウザに渡すスクリプトあるけど、 そうじゃない形で常に監視しておく形で次々にリンクを踏む形を 取りたいのです。 だれか書いてくださいませんか? お願いします。 初心者ながら書いているのですが エラーがでてしまいます。
こんなんじゃ、まだまだ遠いですか? エラーでてとまっちゃいます ctrlwin(getid("","TAppication"),activate) STOPFORM(TRUE) // ストップボタン表示 ACW(0, 1150, 850) IE = CREATEOLEOBJ("InternetExplorer.Application") IE.visible = true X=0 repeat IEid = GETID("Internet Explorer") wks = GETSTR(IEid, 0, STR_STATIC ) // タイトルをGET IFB POS("リンク確認", wks) > 0 THEN MsgBox("発見") sleep(0.5) UNTIL !IE.busy AND IE.readystate = 4 ret = IELINK(IE,"上記のページにジャンプしようとしています。問題ない場合はクリックしてください") x=x+1 ELSE sleep(1) ENDIF until x <> 30
敢えて言おう。専ブラ使え。
初歩的な質問ですみません。 for i= 1 to 100 で回している間、実行したくない i に対して if i=5 or i=10 or i=32 or i=56 then ・・・ の様に書いているのですが、 i= が多くなると書くのが面倒くさいのでもう少しまとめて 書く方法はあるのでしょうか?例えば i=(5,10,32,56) みたいに・・。これではダメだとは思うのですが、他の書き方で。 どなたかお願いします。
実行したくない数に法則性があるならそれを式にする。 単なるリストならそれを置換して作ってしまえば。 置換したくない番号の配列作っておいて、iをそれを比較するとか。 for i=0 to 10 if isNG(i) then print "NG:"+i next function isNG(num) dim ng[]=5,10,32,56 for i=0 to resize(ng)-1 ifb num=ng[i] result = 1 exit endif next result = 0 fend
>>486 基本的にない。
C言語ならこう書けるけど
switch{
case 5:
case 10:
case 32:
case 56:
コード;
break;
default:
}
でも、ORoperation()っていう関数を作ればそういう書き方は可能。
if ORoperation( i, 5, 10, 32, 56 ) then
って感じで。
まあ、数値の奴は配列に入れて渡した方がいいんだけど。
if ORoperation( i, Array ) then
function ORoperation( a, x1=0, x2=0, x3=0, x4=0, x5=0, x6=0 )
dim Array[] = x1, x2, x3, x4, x5, x6, 0 // 0はループ脱出条件
result = true
i = 0
while Array[i]
if i = Array[i] then exit
i = i + 1
wend
result = false
fend
動くかどうかは知らない。
489 :
名無しさん@お腹いっぱい。 :2010/06/05(土) 05:37:27 ID:XHbnzUaJ0
>>486 全ての場合にそういう共通処理が考えられるのなら、配列パラメタを使うべきかも
dim Pattern[101] // ="a","x","b","x","c"・・って感じで並べてもいい
Pattern[5] = "a" // 数値の方が扱いやすいが、とりあえず文字の方が分かりやすいかと。
Pattern[10] = Pattern[5] // 都度代入は変更がめんどいので
Pattern[32] = Pattern[5]
Pattern[56] = Pattern[5]
if "a" = Pattern[i] then
もしくは
select Pattern[i]
case "a"
コード
case "b"
case "c"
default
print "パターンなし"
selend
初歩的かもしれませんが自分ではちょっとできないので質問させていただきます。 Aという画像が始めない場合はそのままで、もし見つかったら次に画像Aが消えたときに各処理をしていくというものとして下のようなものを書きました。 while true ifb chkimg(A) ・・・1 while true ifb chkimg(A) ・・・2 else 処理 endif wend else sleep(1) endif wend 実際に動かしてみたことろ処理が終わった状態でもずっと2のifbを続けます そこでこのスクリプトに「特定のキーを押した場合1のループに戻る」といった機能をつけようと思ったのですが、 どこにどのような命令を挿し込めばいいでしょうか。 一応2のifbのあとにif GETKEYSTATE(VK_ESC) then exitを入れてみたのですがどうにも反応していないようです。 稚拙な文にてわからづらいところ多々あるかと思いますがよろしくお願いします。
>>490 処理が終わったらループから抜けるのを忘れてるんじゃない?
2 の IFB ブロックの『処理』で最後に BREAK すれば一つ上のループに戻るよ
>>490 elseの処理に数秒以上かかるようなら、キー入力を拾えてないかも。
キーをクリックしてから1秒以上経過してからGETKEYSTATEを動かしても、
キー情報は消えてるっぽいから、押されてないことになってるんだよ。
ESCを連打していればそのうち抜けると思うけど。
>>490 while true
ifb chkimg(A) ・・・2
else
処理
endif
wend
2の結果にかかわらずずっとwhileループの中。
画像Aが無くなった後ずっと「処理」を続ける。
その間2はずっとfalseなんでifの直後つまりifがtrueの時実行される場所に
getkeystateを置いても実行されない。
入れるなら「処理」の直前。
while true
ifb chkimg(A)
while chkimg(A)
wend
処理
endif
wend
ていうかこんなんでいいんじゃないの?
sleep無いけど。
斧戦争ツール作れよカスども
スクリプトを指定した時間だけ動かすという方法はあるのでしょうか? 例えばスクリプトを走らせてから30分間とかです。
これはひどい
>>495 UWSCはメインが終了したら、他のスレッドが動いていても終了します。
だから、こんな感じでやれば30分きっかりで終了できますが、当然処理は無条件に中断します。
-- sample.uws ここから--
thread func()
sleep(30*60)
exitexit // 不要だが、ここで終了と明示する意味で。
proceduer func()
// 基本的にこちらですべて処理する
while true
sleep(1)
wend
fend
-- sample.uws ここまで--
中途半端に終了したくない場合、sleep(30*60)の代わりにGettimeのループで
今はダメっていうフラグを監視すればいい
f = false // 処理中フラグ。処理中はtrueがセットされる
t = GetTime()
while GetTime < t + 30*60
repeat
sleep(1)
until ! f
wend
ちなみに、この場合はrepeatじゃないといけない。
そうしないとsleep()してる間にフラグがセットされる可能性が高いから。
もっと確実にやるなら終了するぞっていうフラグも立てるべきかな。
あるウィンドウの子ウィンドウにドラッグドロップしたいんですが、子ウィンドウのIDはどうやって取得すればいいんでしょうか?
// 指定ウィンドウの ID を返す 戻値 = GETID( タイトル, [クラス名, 待ち時間秒, MDI子タイトル] ) 引数 タイトル: 識別したいウィンドウのタイトル (タイトルの一部分だけでもOK) クラス名: 区別に必要でなければ省略して構いません (前方一致でのみ部分指定可) 待ち時間秒: 確認できるまで指定された秒数待ちます (0.01〜) 0: 0.1〜10秒まで状況や負荷により自動判断 (デフォルト) -1: 無期限待ち MDI子タイトル: MDIウィンドウ中の子ウィンドウタイトル
500 :
498 :2010/06/12(土) 16:28:35 ID:1g6XM8MfP
そうではなくて、子ウィンドウのタイトルが分からない場合はどうすれば・・・
501 :
横レス :2010/06/12(土) 17:52:51 ID:o26Fnx3o0
>>500 >タイトルの一部分だけでもOK
これでだめならGETALLWINで存在する全ウインドウのIDとってから消去法
またはなんらかのWIN32API(知らないけど探せばあるんじゃね?)でハンドル取得してHNDTOID
参考になるか分からんが、ぴたすちおを使えば子ウィンドウ情報がみえる
//こういう事? def_dll GetWindow(hWnd,long):long:user32.dll GW_HWNDNEXT = 2 GW_CHILD = 5 uCmd = GW_CHILD p_id = getid("親") while true c_h = GetWindow(idtohnd(p_id), uCmd) if c_h = 0 then break p_id = hndtoid(c_h) uCmd = GW_HWNDNEXT msgbox( status(p_id, ST_TITLE) ) wend
>>486 うんこ発見装置を授けよう
うんこ ="1 5 10 18 25 37 56 58 68 74 81 97 99"
for i = 1 to 100
if pos(i,うんこ) > 0 then print i+"に うんこ発見"
next
>>505 =0 に変更すれば処理したくないiの条件になるが何がダメなんだ?
理由を書いてくれ
>>506 自分で書いたのにためしに動作させてないのか?
一回動作させて、プリントログよく見てみろよ。1〜9まで全部条件に引っかかってるだろ。
簡単な方法として、正規表現使えるようにすればいけるな
ほかには、文字の前後にゴミつけて区切りをはっきりさせればいける
そうだったすっかりわすれてた悪いな これでいけるだろ うんこ =" 1 5 10 18 25 37 56 58 68 74 81 97 99 " for i = 1 to 100 if pos(" "+i+" ",うんこ) > 0 then print i+"に うんこ発見" next
TOKEN() と連想配列でやってみた DIM うんこ = "1 5 10 18 25 37 56 58 68 74 81 97 99" HASHTBL hash DIM str = うんこ WHILE LENGTH(str) hash[TOKEN(" ", str, TRUE)] = TRUE WEND DIM i FOR i=1 TO 100 IF hash[i] THEN PRINT i+"に うんこ発見" NEXT
なるほど。 ハッシュテーブルならパターンが2次元配列で大量にあったとしてもすぐに発見できるね。
513 :
名無しさん@お腹いっぱい。 :2010/06/13(日) 18:28:57 ID:M6ZVIcE70
UWSCを使っていて、パスが通っていないのが使いにくい。 CALL文や、ライブラリファイルを別フォルダにした場合、等。 ディレクトリ検索と、よく使うファイルのパスを登録したファイルとそれを使うスクリプトを作って、 CALLやいくつかの変数(プログラムファイル名等)はそれを経由するようにするとか 出来ないことはないけど(CALLとか作る)、 シンプルとはいえ、結構素人が作っていいのか本格的な感じになる。 みなさんはどうしているの? ひょっとしてどなたかが作ったのがありますか?
514 :
513 :2010/06/13(日) 18:31:58 ID:M6ZVIcE70
>>513 すいません。誤記。
× (CALLとか作る)
○ (CALL2とか作る)
CALL2みたいな新しいprocedureを作ってそこからCALLを呼ぶ、という意味にしたかった。。。
>>511 変数strの参照部全部変数うんこだろw
>>515 参照部とは?
TOKEN() は第二引数を破壊するので
うんこに配慮して、うんこの値をコピーした str を渡しました
ifb iegetdata(ie, true, "yes", "はい") > 0 iesetdata(ie, true, "yes", "はい") sleep(0.5) else break endif iesetdata(ie, true, "yes", "確認") これ、もう少し纏まりませんか。主に1.2行目・・・ アンケサイトで「はい/いいえ」で確認ボタン出るまで押すって奴なんですが
While iegetdata(ie, true, "yes", "はい") > 0 iesetdata(ie, true, "yes", "はい") sleep(0.5) wend iesetdata(ie, true, "yes", "確認") あれ、こうか・・・?
そんなアンケートに価値はない
ifb CHKIMG(IMG , -1 ) BTN(LEFT,DOWN,102,715,579) BTN(LEFT,UP,180,411,641) else (ifbの所に戻りたい) endif この処理を作りたいのですがelseをどう書けば良いんでしょうか。 イメージ画像が発現するまで待機する様な文が書きたいです。 if以外でも良いのです。
コンティニュー見つけました。 初心者ですみません。
短髪の女の子?がセックスをしながら世界一周を目指すという成人誌を見たことがあるのですが、分かる人いますか? たしか3年ぐらい前の漫画だったと思います
どんな誤爆だよw
これは大胆な確信犯だな。 面白そうだから探してくるわw
peekcolorを使ってB値だけを判定する方法を教えてください
結果をmsgboxで表示すれば目視で判定できます それとも「どのように」判定したいのか指定があるんですかね
「記録」を使って、 作業に使うアプリをまとめて立ち上げたり、 新しいフォルダを生成したりする程度のヘタレた使用をしています ヘルプを読んで起動オプションがあるのはわかりましたが スクリプト実行、実行後はUWSC本体を起動したままにする場合 UWSC.exe /K スクリプト名 ↑ この構文をどのように使えばいいのかがわかりません 例えば、こんな感じだと動きません GETTIME() HIDUKE = G_TIME_YY4 + G_TIME_MM2 + G_TIME_DD2 EXEC("NOTEPAD") SENDSTR(GETID("無題"), HIDUKE + "<#CR>") UWSC.exe /K 日時出力.UWS おそらく単純すぎて目の前に答えがあるのに、答えが近すぎて逆に自分の視界に入ってない状態だと思います ヒントだけでも教えていただければ・・・・orz
>>526 BってBGRのB?
(peekcolor(x,y) and $FF0000)/$10000
とか?
>>528 ヘルプにある「その他項目」は文法の話じゃないよ
スクランブルのほうには書いてあるけど
コマンドプロンプトで起動する場合とかにパラメータを付ける話
ご教授願います。 以下のスクリプトを作ったのですが、再生すると 行目のIFBに対しENDIFが閉じられていないと出ます。 どこがダメなのか教えてください WHILE TRUE ifb GETID(GET_ACTIVE_WIN) = GETID("paper man") then Ifb PeekColor(512,384) = $FFFF00 then BTN(LEFT,CLICK) Endif Endif sleep(0.02) WEND
>>532 見た感じで適当なカキコすると
2行目のGETID条件の相方が変数or定数じゃないのが気に食わないんじゃね?
>>532 それで動いたのでどこが悪いか判りません。
…正直、ゲームチートっぽいのは歓迎したくないなぁ。
チートじゃないだろ カスが!発言に気をつけろ 次はないと思え
まぁ、チートでは無いわな。 ちなみにuwscは、ゲームで使ってこそ価値のある物だと思うw
単純にゲームに対する不正だなw
ゲームに対する不正のどこがチートじゃないのかkwsk
チートの定義はクライアント内部からでしょ。 UWSCってローカルな情報で動くし。 よくわからん、やってる事は同じだなw
定義も何もチートはcheatでそのまんま「不正行為」って意味だろうに。 内部も外部も関係ないだろ。
直訳とゲーム用語だと少し違うんだよね。
>>541 チートを「不正」以外の言葉で使っている場面を見たことが無い。
どんな独自の用語なんだよw
めんどくさいなー。 同じ不正でも、"チート"と"操作の自動化"は違うのだ。 後は自分で調べてね。
操作の本来実装されている以外の方法での自動化が認められたゲームなんかあるのか? 俺ルールでこんくらいはおkって思ってるだけだろ
>>543 ま、結局不正なのは変わりないからなぁ…
不正行為の総称・・・チート 自分を正当化するための魔法の言葉・・・操作の自動化 確かに違うね
ん? 自動化も不正だぜw 確かに、データ改ざんの事をチートと呼ぶのが一般的かな。
そもそも「ズル」のことをチートっていうのであってつまりマクロだろうがパケットいじろうがチートだと思うんだが
ネットで調べたけど、一応はコンピューター用語として載ってるな。 でも人によって認識のズレがあるみたい。 単純に区別しやすいようにチートとマクロを分けてるとも言えるし。 俺的結論。みんな正しいw
ゲームで語るか大きな意味で語るかの違いだな
マクロのほうが的確 ゲーム見たらなんでもファミコンっていう親くらい違う
チートって聞いたらドラクエのHP999を思い出した。
そんなにネトゲの話題がしたければネトゲの板にマクロやスクリプトのスレ立てろよ ここでネトゲの話題に反発してる連中もそこまで行って邪魔はしないだろうよ
while true ifb CHKIMG(IMG , -1 ) or CHKIMG(IMG7 , -1 ) ←ここ break endif btn(right,click,800,250) sleep(0.5) mmv(900,333) sleep(0.5) mmv(1050,333) sleep(1.0) ifb CHKIMG(IMG6,-1) mmv(G_IMG_X,G_IMG_Y) btn(left,click,G_IMG_X,G_IMG_Y) sleep(10.0) endif wend 最初のIMGが無いのにこの処理が終わってしまうのですが どこか間違ってますか?
別の文で解決しました 色を無視してるから何か引っかかってたのかも
MapleStoryというゲームでピラミッドというサバイバルゲームがあり、それは敵がたくさん出てきてそれを倒し、14分で全てが終わる ゲームなんですが、1分50秒ほど早く終わってしまいます。ピラミッドの低レベル版の9分で全てが終わるサバイバルゲームでは、 ほとんどずれずに繰り返しできたのですが、ピラミッドで時間をずれずにUWSCでするにはどうしたらいいでしょうか?
>>556 正確に行動するとか
時間やタイミングを合わせて行動するとかならここでもいいけど、
きっちり14分で敵を倒すやり方はゲームやキャラの詳細が分からないと答えようがないよ。
まずはきっちり14分で倒すやり方をメイポスレで聞いて来い。
ずれるって事は記録機能を使ってるんだろうけど 自分で作れば可能、色々なサイトを見て少し勉強したらすぐできる
559 :
横レス :2010/06/20(日) 19:42:03 ID:1vSDRlXF0
それも今のスクリプトの適当な場所にSLEEP(150)を挿入するだけっぽい
>>560 ACTゲージのMAX近くのドットをキャプチャ(PeekColor)して
赤っぽかったら数秒休む(Sleep(5))っていう処理を追加すればいい。
赤っぽいというのはRGB分解してRが128超えてたら赤っぽいということで。
そういう処理を一箇所に入れるだけで済むようにするには、全体の行動を一つのループに集約する方法がある。
もう一つの方法は、たとえばマウス、キーボードクリックをある関数経由にし、
その関数内で、実行しても良いか悪いか判断する。
その判断するフラグを別スレッドでループする監視処理。
そうすれば延々とキークリックを羅列していても1箇所書き換えるだけで済む。
関数名の変更はエディタの痴漢・・・もとい、チカン・・・・あれ?弛緩・・・
置換だ置換
それでやる。
562 :
名無しさん@お腹いっぱい。 :2010/06/21(月) 20:42:32 ID:2HQccvy70
>>556 ですがピラミッドマクロできましたw
攻撃する動作を追加していくっていうアナログな方法で作れましたw
ゲームマクロを作っていると気付く事になる。 あれ?めんどくさい処理を自動化してるんだよな? なんでこんなめんどくさいゲームやってんだオレ
自動化って仕事(PC操作)を減らしてくれるはずが、自動化がなければとてもやる気がしないようなことに手をつけてしまい しかもそれがあとから考えて意味あっただろうかと思うような行為だったりもする スクリプトを組み動作を検証し改良する、という行為そのものが娯楽なのだ、と思わなければまさに愚行だたな
uwscを覚えると、やるゲーム全てに対して 「これって自動化できるな」という目線で見てしまう。
仕事になると、そういう目線は結構重要。 そんな俺は業務的にUWSCを使いまくり。無ければ仕事量的に処理出来ない…
業務でスクリプト書くとバグがあってそれに気づかなかった時が怖いんだよな… 発覚した時には遥か昔のデータまで遡って修正とか 楽してた分がカウンターとなって襲ってくる
>>568 正直、気を使うことは確かだね。
過去数回、過去に遡る経験をしたが、新しく発見・修正スクリプトを書いて過去データを直したw
テキストエディタとヘルプ程度…+その問題が軽度である事前の注意力と幸運…が有れば、
その場でサクサクとスクリプト自体を直せるのは強み。 …臨機応変とはこの事か、と。
一般的なスクリプト言語と比べて、実行にスクリプト本体とuwsc.exeで可搬性が高いのはいいと思うよ。
WSHとは比べ辛いが、業務としてEXE化できるのはありがたかった。
…EXE化の利点って隠蔽化の外には、単体でスクリプトに対してD&Dが可能になる、って点が大きい。
peekcolorでピクセル単位で場所を指定して監視するのではなく、 画面全体を監視する方法ありませんか? 色で判定を出したいです。
>>570 チェックイメージを使うかピークカラーを画面全体行えば良いと思います
572 :
名無しさん@お腹いっぱい。 :2010/06/26(土) 03:24:32 ID:iR+AoK580
てて
質問です。 AquesTalkのdllをロードしてwavファイルを出力したいのですが ///構文 unsigned char * AquesTalk_Synthe(const char *koe, int iSpeed, int *size) ///引数 ///koe 音声記号列 ///iSpeed 発話速度[%] 50-300 の間で指定 デフォルト:100 値を大きく設定するほど、速くなる ///size 生成した音声データのサイズが返る[byte](エラーの場合はエラーコードが返る) ///戻り値 WAVフォーマットのデータ(内部で領域確保、解放は呼び出し側でAquesTalk_FreeWave()で ///行う)の先頭アドレスを返す。エラー時は、NULL を返す。このときsize にエラーコードが設定さ ///れる。 DEF_DLL AquesTalk_Synthe(string, int): string: AquesTalk.dll DEF_DLL AquesTalk_FreeWave(string): : AquesTalk.dll sp=50 str="こんにちわ。" fp = fopen("AquesTalk.wav", F_WRITE); wav=AquesTalk_Synthe(str, sp) FPUT(fp, wav) fclose(fp) AquesTalk_FreeWave(wav) 戻り値がデータへの先頭アドレスで帰されるので出力したwavファイルの中身は "RIFF4`" とwavファイルの ヘッダの先頭部分のみになってしまいます。こういうアドレスの先頭・ポインタで戻り値が返された場合、 実体ののデータを取得するにはUWSCではどう記述するのか教えてください。 dllのロード自体がの記述が間違っているかもしれませんが、wavファイルを出力しない↓のコードでは問題なくできました。 DEF_DLL AquesTalkDa_PlaySync(string,int): int: AquesTalkDa.dll sp=50 str="こんにちわ。" AquesTalkDa_PlaySync(str,sp)
>>574 ポインタで受け取ったら、実体をコピーすればいいです。
> VB.net
> Declare Function lstrcpy Lib "kernel32.dll" (ByVal lpString1 As String, ByVal lpString2 As Integer) As Integer
UWSC
DEF_DLL lstrcpyA(string, Long): Long: kernel32.dll
DEF_DLL lstrlenA(string): Long: kernel32.dll
ここで文字列を格納する場所の確保が必要です。
できればstrlenAで文字列の長さを調べ、その長さのバッファを確保したほうがいいんですけど・・・
とりあえず空白文字列を代入で確保しかないです。
好きな長さにするには文字列連結回数で調整ですね。
wav = AquesTalk_Synthe(str1, sp)
str2 = " " //この長さを超えるとメモリが壊れる。
lstrcpyA(str2, wav)
FPUT(fp, str2)
ところで、.wav ファイルを開いているようですが、UWSCはテキストファイルしか扱えません。
仮に音声データでないとしたら、間違って再生してしまうような拡張子はやめるべきです。
メモリ破壊を防ぐには、lstrcpynA() 関数を使い、コピーする長さを限定します。
n = (str2とwavの短いほうを選択して代入)
lstrcpynA(str2, wav, n)
>>575 返事を忘れてました。申し訳ない。
書かれているように記述して実行してみたのですが、str2の内容が変わらずに出力されてしまいます。
色々試していたのですがどうも思うようにいきません。
>UWSCはテキストファイルしか扱えません
これは知りませんでした。
fputで出力するデータがテキスト形式ではなく、バイナリデータなので上手くいかないのかもしれませんが
もうちょっと自分の方で試してみます。レスサンクスでした。
>>576 すいません。
参照渡しが必要でした。
× DEF_DLL lstrcpyA(string, Long): Long: kernel32.dll
○ DEF_DLL lstrcpyA(var string, Long): Long: kernel32.dll
コピー元の方はvar なしでもいいんですけど・・・var がないとconst扱いなのかも。
DEF_DLL lstrcpyA(var string, string): Long: kernel32.dll
やっぱりバイナリデータですか。
UWSCでもポインタとして受け取ることはできているので、WindowsAPIを使ってファイルに保存することは可能でしょう。
しかし、CreateFileA、WriteFile、CloseHandle などの関数のほか、それぞれの引数も結構あるので大変です。
HSP関連には解説があるようですが・・・
ttp://yokohama.cool.ne.jp/chokuto/urawaza/fileaccess.html やっぱりSaveFileFromURL()みたいに一発で保存できる関数が欲しいところですね。
LightWave3Dとかいうやつだとバッファをファイルに保存するプラグインというのがあるようで・・・
メモ:
FileSystemObject はテキストデータのみ。
>>576 AquesTalk2ならAqTk2Appっていうツールがありますね。
UWSC的にはこのツールを自動操縦するのが趣旨にあってると思います。
>>577 あーやっぱ結構API関数たくさん使わないと無理ですか。ボチボチやってみます。dd。
>>578 以前にUWSCでSAPI関数使ってsapi5の音声エンジンを使って割と簡単にできたし、他のエンジンもCOMオブジェクトから
簡単にできたから、AquesTalkもできるかなと思ってやってみたんですけど失敗。
現在、半ば意地になってるのと、ついでにちょっとした勉強のつもりでやってるだけで、特にスクリプトを書いてどうこうしよう
と考えてるわけじゃないんです。でも情報d。
ファイルに名前をつけて保存の時に、ファイルの種類がHTMLとかになってて、 flvとして保存しようとしても"〜.flv.htm"みたいに二重に拡張子がついてしまう。 ファイルの種類をいじるのもいいけどそれはめんどくさい。 保存するファイル名をダブルクォーテーションで括ってしまえば余分な拡張子はつかなくなる。 それはいいとして、今まで保存したファイルの拡張子を除去するのはめんどくさい。 ファイル名の一部に".flv"を含んだものを探すのもいいけど、 DOSでワイルドカード指定しようとしても.flvはファイル名に含まれてしまう。 UWSCで引数のファイル名を処理するのも考えたけど、実行形式にしないと受け取れないようなことがかかれてたような。 で、バッチファイルで何とかやりました。 割と簡単に記述できるんですね。 :loop rename %1 "%~n1" shift if %1=="" goto end goto loop :end
よかったね^^
たまにこういう超一方的なレスあるけど何なの? 他人にどういう反応を求めているの? 単純に不快にさせたいんだろうか
過疎板や専門板だとよくあることだ 相手にするな
オナニーですから
なんで不快になるのか分からないな。
「名前をつけて保存」に関する質問なんてしょっちゅうされてる。
とりあえずダウンロードしてからまとめてリネームすることもあるんだけど
名前が統一ルールならワイルドカード使ってコマンド1行で済むものを
拡張子を削ることができないためにいちいちバッチファイルでリネームするしかなかったので
そういうツールなどないかなあと思ったら拡張子削るだけで金を取るようなソフトしかなくて
いろいろ考えた末にいいものができた。
同じ悩みを持つ人はいるだろうし、自分のメモ代わりにもなるし、短くて邪魔にならないし応用も利くし、
何より話題がなくて過疎ってるから書いてるんだけど。
応用といえば有償版を買うメリットにドラッグ&ドロップをあげてる人いたよね。
DOSのバッチファイルで受け取ってスクリプトに渡せば有償版使わなくても済むことになるわけで、
ユーザーにしてみればお得だし・・・
別件をついでに書いておくけど、他のソフトとの連携がらみでイベントドリブンにできないかなあと考えてる。
>>573 に書いたようにUWSCはなかなか遅いので、イベントドリブンにできればより快適に使えるんじゃないかと。
普通にDLL関数のように呼び出して実行が終わるまでとまっているって言うのもひとつの手だけど、
・・・いや、それが一番いい手かもしれない。
さっきまではOCX作ってOLEEVENT()で動かすのを考えていたけど、とにかくめんどくさい。
ただでさえIEをOLEEVENT()で動かそうとしてエラーでまくりでどう使えばいいんか分からなかったりするけど、
DLL関数として呼び出すならそういう問題は起きないはずだ。
DLL関数がコールバック関数を作ってメッセージループする・・実行ファイルを同期オプションつけてEXEC()するみたいな動作をすればいい。
取りあえず画面つきDLLを実行してイベント待ち関数を呼び出せばいいかな?
問題はどんなイベントをどんな渡し方するかだが・・
なんかめんどくさ
どんなソフトからも連携できるようにしようと思ったらやっぱり実行ファイルの呼び出しだけど、
・・・ああ、めんどくさい。
やっぱりファイルの存在チェックをループして具体的な処理はファイルの中に書くのが手軽だ。
テキストファイルはコマンドラインでも作れるし連携しやすいし。
自己完結している文を省けばすっきりするし読み易い
お前さんはペイントで物事が解決したら、 わざわざフォトショスレに報告するのかと。
何を不快と思われているかすら理解できていないのか・・・
そこから説明しよう
>なんで不快になるのか分からないな。
>「名前をつけて保存」に関する質問なんてしょっちゅうされてる。
お前のはお前自身が解決しているから既に質問じゃない
単なる日記だ
しかもダラダラ長いだけで読む人の事を完全に無視した超超一方的な内容
>>585 をよーく見てみろよ
よくわからんけどファイルのリネームくらいならUWSCでもできるんじゃない?
>>589 UWSCでもファイルのリネームくらいならどの道DOS使うのが普通なんだけど、
問題はそのファイル名の受け渡しなんだよ。
Inputで多分ファイルパスの受付はできると思うけど、普通はひとつしか受け取らないもんだ。
>>587 そりゃそうだよ。
フォトショは起動に時間がかかるから、ペイントでちょちょいとできることはペイントにやらせるでしょ。
ペイントでもできるけどこんな大変だったよって場合は「やっぱりフォトショがあってよかったね」って話になるんじゃね?
フォトショ使ってる人って結構ペイントのこと知らないよね。
あとね、四則演算するときも俺はエクセルとか使わずにメモ帳と電卓を使うよ。
表計算の欠点は計算式が見えないことだね。
eval使えばいいかもしれないけど。
電卓なら「=」までをメモ帳に書いて電卓にコピペで計算できる。
1024*768*32/8/1024/1024=
もーちょっと複雑な計算に対応してくれたら便利なんだけど。
HDDで何ギガの制限とか言うときもこんな感じで電卓にこぴぺ
HDD容量は単位が違うからね。
128*1024*1024*1024/1000/1000/1000=
まあGoogle電卓がもーちょっと便利だけどね。
*じゃなくてxが使えるし単位とか入ってると分かりやすいし
128x1024^3/(1000^3)=
128x2^(10x3)/1000^3=
230km/17L=
よくわからんけどUWSCは電卓ソフトではないと思うの
chkimgで画像の検索を左上から右下へではなく、右下から左上へ検索をかけていく方法はありますでしょうか?
探査順で言えば、無いと思う。 求めているものとは違うかもしれないが 帰ってきた個数でfor文まわして、ステップを-1で逆順からやるぐらいかなぁ。
なるほど、探査順では無理なのですか ありがとうございます!
>>585 > なんで不快になるのか
他人のオナニーが快いのは変態以外の何ものでもないですから
>>595 おい!お前!
他人(女)のオナニー見て興奮するオレに謝れ!
お前だってどうせYouTubeとかですぐ「オナニー」とかって検索するくせに!
uwsファイル、またはexe化したuwsを起動時に引数を与えてselect case文にそれを適用するという方法はあるでしょうか? そのまま起動したらデフォルト ~.exe -1 でcase1の動作 ~.exe -2 でcase2の動作といった具合です。
>>597 param_str[]を使う
select param_str[0]
case -1
print "hoge"
sleep(5)
case -2
print "fuga"
sleep(5)
default
print "piyo"
sleep(5)
selend
これの言語ってなにになるの?
uwsc。
webページに表示中の画像を全部保存するために Temporary Internet Files内のjpgファイルを消去 指定URLをリロードして再表示 Temporary Internet Files内のjpgファイルを、指定URL名のフォルダをつくってそこにコピー と、やれば表示中の画像は保存できるはずだ、と、ここまで考えたが 同じ目的のフリーソフトはぐぐれば簡単に出てきたので、UWSCで作るのはやめたのであった
>>601 Temporary Internet Filesいじらなくてもどっかのフォルダに名前をつけて保存(完全)する考えが出てこなかったのかと
やめたんならいいけどさ
603 :
名無しさん@お腹いっぱい。 :2010/07/08(木) 09:32:33 ID:VGSbza+G0
何回やってもうまくいかなかったので質問させていただきます。 検索しても見つけられませんでした。 コードを見てください。 ファイルの中身はcsv形式です。 fid=fopen(... lins = FGet(fid, -1) for i = 0 to lines lin[i] = FGet(fid, i+1, 1) lin[i] = FGet(fid, i+1, 2) lin[i] = FGet(fid, i+1, 3) ... next としているのですが、これを簡略化できないでしょうか? ご存じの方はご教授願います。
604 :
名無しさん@お腹いっぱい。 :2010/07/08(木) 10:31:01 ID:VGSbza+G0
>>603 です
やりたい事を書いてませんでした。
lin[0]=FGet(fid, i+1, 1)
lin[1]=FGet(fid, i+1, 2)
lin[2]=FGet(fid, i+1, 3)
...
これを、例えば
dim lin[]=FGet(fid, i+1)
とか
dim lin[7]=FGet(fid, i+1)
などの様にならないかなぁ〜と思っています。
もちろん、試したので上記の例えはNGと分かっています。
FOR の入れ子はちょっと・・・
同じようなこと試した方はいらっしゃいませんか?
>>604 基本機能に無いので、関数化するとかの対応が必要だろう。
forの入れ子はしょうがない。
function str2Array(str, Var array[], splitter=",")
//スプリットして、配列サイズ整えて、配列に格納して参照渡し、resultは個数あたりを返す
fend
あとは、配列のコピー、配列ソート(+反転)、ぐらいを作ると楽です。
606 :
名無しさん@お腹いっぱい。 :2010/07/08(木) 21:57:01 ID:VGSbza+G0
>>605 ご返答ありがとうございます。
やはり関数化するしかないですね。
基本機能にないものは作っていこうと思います。
ありがとうございました。
自分用メモ
コマンドラインからのファイル圧縮
ttp://nasunoblog.blogspot.com/2007/07/blog-post.html コマンドラインで操作できるプログラムは、そのアプリにキー入力を送ったりダイアログにファイル名を送ったりするより、コマンドライン操作したほうがスマートにいくね!
uwscで表記した場合、たとえばこんな感じ
exec("C:\Program Files\WinRAR\WinRAR.exe x C:\tst\ttt.zip *.* C:\tst\")
AutoHotKeyだとこうなる(待ちを入れるならrunをrunwait
run, C:\Program Files\WinRAR\WinRAR.exe x C:\tst\ttt.zip *.* C:\tst\
すみません質問させてください もし、aが60の時マウスを左クリックするという命令を作りたいのですがどう組めば良いでしょうか a=0 while sleep(1) a+10 →このあたりにもしa=60の時クリックさせたいんです continue Wend
>>608 添付のヘルプにif文の書き方が載ってるよ
>>609 !!!
即レス感謝しますm(_ _)m
>>608 a = a + 10
としないと加算されないよ
んで、60のときという条件だと1回しか実行しないのにずーっとループしてることになるね。
60になるごとに実行なら、60になったときに初期値に戻すか、
if a mod 60 <> 0 then
って、60で割り切れたら実行するような処理にしないと。
>>580 のバッチはファイルが別ドライブだと動かなかった。
そこで、最初に処理するファイルの場所に移動する。
cd /dは、ドライブも移動するオプション。
判定する位置も間違っとったので修正。
cd /d "%~dp1"
:loop
if %1=="" goto end
rename %1 "%~n1"
shift
goto loop
:end
ミス バッチファイルは全角スペースを区切り文字として処理してしまうのでファイル名が壊れてしまっていた。 echo %1 >> log.txt で確認。 半角スペースが入るファイル名の場合はダブルクォーテーションで括られているが、 半角スペースがないファイル名はダブルクォーテーションが付かない。 ところが、バッチファイルは全角スペースを区切り文字として見るのでファイル名が分割されて処理されてしまっていた。 UWSCから呼び出す場合は無条件にダブルクォーテーションをつければいいので問題ないが、 バッチファイルを直で呼ぶときにはそういう問題があるようだ。
>>612 まぁ、ロングファイルネームを扱うときの鉄則だよな。
<#DBL>で挟むだけの関数とか作ってるわ
他のスクリプトを組んでいて、設定した画像が出てきたときにその画像の一部をクリックしたいときには どのようなスクリプトを組めばよいのでしょうか? ifb CHKIMG("画像.bmp") 認識はこれでOKだと思うのですが、その後この画像のクリックが出来ません・・・ どなたかお願い致します。
戻値 有ればTRUE、無ければFALSE TRUE の場合は見つかった座標を特殊変数 G_IMG_X、 G_IMG_Y に格納 // タスクトレイのアイコンを左クリック Ifb CHKIMG("タスクトレイアイコン.BMP") BTN(LEFT, CLICK, G_IMG_X+5, G_IMG_Y+5) Endif
>>615 有り難うございます。
ちなみに+5というのはどういった意味合いを持つのでしょうか?
あともう一点なんですが、
連続して何回も画像認識をしたい場合は
Ifb CHKIMG("タスクトレイアイコン.BMP")
BTN(LEFT, CLICK, G_IMG_X+5, G_IMG_Y+5)
Endif
これを複数回連続して使うことは不可能なのでしょうか?
何回も申し訳ありませんがお願いします。
例です ifb CHKIMG("Aー.BMP") x=G_IMG_X y=G_IMG_Y BTN(LEFT, CLICK, x, y) sleep(1) endif ifb CHKIMG("B.BMP") x=G_IMG_X y=G_IMG_Y BTN(LEFT, CLICK, x, y) sleep(1) endif ifb CHKIMG("C.BMP") x=G_IMG_X y=G_IMG_Y BTN(LEFT, CLICK, x, y) sleep(1) endif ifb CHKIMG("D.BMP") x=G_IMG_X y=G_IMG_Y BTN(LEFT, CLICK, x, y) sleep(1) endif これでは3つ目と4つ目が実行されません・・・
>>617 無いからです
一つだけにしてみたり、状況によってドットが変わらないかのチェックは自分でしろよな。
画像チェックは、1ドットでも影が増して色が変わっただけでも反応しない。
試行錯誤は大切だ。
>>611 > cd /dは、ドライブも移動するオプション。
pushd使えよ。
それに
> if %1=="" goto end
これじゃ%1が空の時
if =="" goto end
になってエラーで終わってるだけじゃん。
goto endが実行されて終わってるわけじゃないぞ。
>>611 というかそもそもディレクトリの移動の必要が無いじゃないか。
:loop
if "%~1"=="" goto :eof
ren "%~1" "%~n1"
shift
goto :loop
これだけでいい。
UWSCや他スクリプトでディレクトリ移動は正直使ったことがなかった pushdを始めて知ったよ。ありがとう。
UWSC単体でディレクトリ移動するコマンドってあるの? いつも移動なしでフルパスかWScript.Shellを使うが…
>>622 いや、カレントディレクトリの概念は、
GET_CUR_DIR やGET_UWSC_DIR以上は当然フルパスだし
俺も知らないし、使った事もない。
pushdを始めて知ったというだけだよ。
>>619 あー、それでかあ。
"%1"とかすると展開されて"が二重についちゃうとか思って削ったんだけど、
:end以降のが処理されなくなってたんだよね。
「"」を削った上でつければよかったのか。
1行で for %%i in (%*) do ren "%~i" "%~ni" とかいうのも面白いかもね。 %1 といった風に裸で使うのはほぼ無いと思う。 ファイルから取得した実際に存在するパスじゃなくても動作するから パス関係はDOSが便利。こんなのでも切り分けてくれる。 @echo off set t=c:\abc\def\ghi\jkl.mn call :sub %t% pause goto :eof :sub echo %~d1 echo %~dp1 echo %~n1 echo %~x1
質問です CHKIMG関数はあくまで画面上にbmp画像がある場合でしか判定してくれないのでしょうか オプションの"IMG_MSK_BGR4"等で色幅をもたせればpng画像等も判別できるのだろうか と思いやってみたところダメでした ウィンドウに表示されたbmp以外の同じ絵を認識させる方法はないでしょうか
mouseorg(id, 2) peekcolor(x, y) をやった場合、最前面の色情報を取得してしまいます。 idで指定したバックグラウンドのウインドウの色情報を取得するようには出来ませんか? 明後日の妹の誕生日に間に合わせたいです、よろしくお願いします
peekcolorは無理。以前掲示板上で出て作者自身が言ってた
>>628 そうですかー、やっぱバックグラウンドでLvあげるマクロは
そう簡単に作れそうにないですね
妹の誕生日プレゼントにと思いましたが他のにしたいと思います
Windowsで別アカウント作ってUWSCを動かしたまま ユーザー切り替えって無理なの?
>>630 画面がない状態だからキーもマウスも使えないけど、スクリプトは動き続けるかもしれない。
>>629 ゲームマクロなんてBANされる原因になるからそんなもんを誕生日プレゼントになんかしたら最悪だよ。
なんなら僕が初体験させてあげてもいいけどどうすか?
マクロを動かす用のパソコンをプレゼントするんだ
参考になるかわからんが 仮想PC上ならウインドウを最小化してもuwscは動き続ける。
27歳なら、35歳の俺とry
ところで
>>629 ってのは、裏でレベルを上げながら
PCで他の作業がやりたいんだよね?
だったら仮想PCという答えが出てるじゃん。
妹の・・・・笑ったw
起動すると画面の解像度が変わってしまうゲームでCHECKIMG使いたいんですけど 画像をどうやって用意したらいいですかね そのままスクショで保存したら大きさが違うせいか認識してくれないんです
すくしょはJPG圧縮するから色が変わる。 色を見ないオプションをつけるか最初からBMPで保存する設定にしないと。
↑ミスです
>>639 色が変わってしまうんですか
設定変えてもう一度試してみます
ありがとうございました
>>641 ゲーム内のスクリーンショットよりプリントスクリーンで画像を保存して使ったほうがいいよ。
途中で送信おしちまった。 どんなゲームかはわからないけど、設定を「低」とかにして、1ドット分だけ切り抜いて検索させるといい。
644 :
638 :2010/07/23(金) 10:19:34 ID:WAhk26IS0
メモ帳を起動させ、将棋の棋譜をコピペ ALT+F →Aで名前を付けて保存 ファイル名を"kifu201007250245.txt"のような日付タイプにしたいので KBD入力とGETTIMEを組み合わせてなんとか・・・ ここまでは、あまりスマートではないのでしょうが 初心者なりに満足はしています。 問題は保存先の指定が出来ずに悩んでいます。 何か良い方法はありませんでしょうか? ファイル名をフルパスにしたりもしましたが、 たまに変なところに保存されてしまいますorz
>>645 フルパス名をダブルクォーテーションでくくる。
ファイル名は文字列変数で編集したらSendTextで送るだけでいいよ。
KBDはいらないし、GetTimeをどう使ってるか知らないけどやらない方がいい。
でも、ダイアログを出さないやり方の方がすばやくできるよ。
FOPEN()とかでまずファイルを作る。
ファイルはすぐ閉じる。
ファイル名はすでについているので、そのファイルを開く。
メモ帳にコピペ
SCKEY(ID,Ctrl,S)みたいな感じで上書き保存。
>>646 ありがとうございました^^
イメージしていなかった方法で、私に出来るか不安でしたが
キーワードをいくつか出してくれたので、何とかなりそうです
保存場所を指定した時間軸付きのファイルも1〜2行で作れちゃうもんだったんですね^^;
そのサイトで聞いてください
650 :
648 :2010/07/26(月) 15:21:52 ID:k4CO6xIK0
お騒がせして申し訳ありませんでした。 どうやら画像ファイルの作り方が悪かったみたいです。 無事動きました。
繰り返しについて・・・ for 回数 = 1 to 10 ↑ 10の部分をランダムにしたいんですが 0と1じゃ駄目なんで、2〜10等に変わる感じにしたいです よろしくおながないしますm(_ _)m
意味不明
もしかして random(9)+2 とかいうレベルの話だったんかな?
>>953 トンクス
ちょうど自己解決したところだったんだが
最初(8)に+2で10になると思ってたら0も含めた8なのな・・・^^
655 :
名無しさん@お腹いっぱい。 :2010/07/31(土) 19:02:04 ID:d6UOCQyK0
今日無料のをダウンロードしました。 エクセルやデスクトップでは問題なく使えるのですが、 IE上では保存時に『保存すべきデータがない』と警告されます。 何が原因なのでしょうか? ご教授お願いします。
>>655 Web上のコントロールは見た目は同じだけど、Windowsの標準コントロールを使ってるわけじゃなくて
IEの内部で動かしているだけ。
仕組みが違うので標準の記録ツールでは記録できない。
有料版のRecIEで記録すればちゃんと記録できて保存もできる。
Firefoxで、サイト上のフォーム名を指定して文字列を入力ってできない? ググってもIEのことばっかりで・・・ sendstrだとちょっと使い勝手が悪くて・・・
>>657 WinHttp.WinHttpRequest.5.1 や Msxml2.ServerXMLHTTP
とかはマジでお勧め。
ブラウザ依存しない代わりに、HTTPの仕様やPOSTやGETの仕様を学ばねばならぬがな。
659 :
横レス :2010/08/02(月) 18:44:59 ID:JJ+XL60D0
>>658 そこら辺の足回りはIEと共通なような?漏れはそのままIEリモート操作使う
>>657 なんで”FireFoxで”なのかなとか思ったけど、いろいろアドオンが使えるんだね。
まとめてダウンロードとかするのかな?
UWSCでFireFoxはちょっと現実的じゃないよ。
アドレスバーにjavascript:のURIを書き込んで実行すればいい
uwscシェアウェアに金払うよりAHKやAutoITのほうが高度なことできるし無料なのに uwscを使う人は何故uwscを選択したのですか?
freeのしか使わんが、日本語環境向けに作ってない奴は とかく日本語を扱った時の問題が多くて面倒。 高度なことをやるならC#とか行った方がいいしな。
>日本語環境向けに作ってない奴は >とかく日本語を扱った時の問題が多くて面倒。 え?
ヘルプ(上級者もリファレンス的に使ったりすると思われる)は 母国語のほうがやっぱり楽というのもある
Shift-JISの扱いは面倒だな。 あとUWSCは最初からターゲットウィンドウのハンドル使ってたが AHKやAU3は基本はアクティブウィンドウが対象だったし。
uwscは処理が遅いけどゲーム用スクリプト書くと厨房がHPにアクセスしてくれるんでそれだけでやってます 本業はAC TOOLだけどね
IEを自動操作するには 6,720円払わないといけないの? 無料で手に入れる方法ない?
本業としてUWSCを使いまくってしまっているなぁ。 業務アプリを外部から自動操作するのに凄く役立ってる。手動操作しか考えてないアプリのなんと多い事よ。 世に言われる一般言語で、ctrlwin, getitem, clkitem, getstr, sendstr の処理って出来る? .netFrameWorkあたりでサクサク出来るなら試してみたいわ。
>>669 スパイツール使ってコントロールIDを取得すれば標準APIのPeekMessage()とかでコントロールできるよ。
文字列の受け渡しはちょい面倒かも。
671 :
名無しさん@お腹いっぱい。 :2010/08/07(土) 02:42:05 ID:gkyQg9vD0
>>668 COMが使えるソフトならできる
AHKとAutoITは無料でできる
仕事で客に頼まれて作る事ので入れてるけどプライベートは使い物にならない しょぼいツールに金払ってる情弱がバカに見えて仕方がない
なんで管理人以外の人が >ココは「UWSC」の掲示板ですので、ルールを守り、UWSC特有の質問や、バグ報告などをピンポイントで交わすのが主だと考えています。 って決め付けるんだろう。質問が気に入らないならパスワード制掲示板でも作ってもらえよ RE:エクセルデータでの比較分岐 Liners 質問がオウム返しなので、プログラミングの基礎を学んでいただく必要がありそうですね。残念ながらココは、プログラミングの基礎を質問する場ではないと考えています。 ココは「UWSC」の掲示板ですので、ルールを守り、UWSC特有の質問や、バグ報告などをピンポイントで交わすのが主だと考えています。 例えば、 Call マクロ1 // id の取得方法が分らない。 if id = 前回 then Call マクロ2 前回 = id としたが、id の取得方法と繰り返しが分らないなど。
・シェアウェアにしないとEXE化もできない ・記録ツールがIE限定。しかもシェアウェアのみ(笑) ・処理速度が遅い・不安定・実行結果があまり信用できないのでシビアな処理には向いてない ・他のツールでは出来る事が出来ない ・ライセンス販売しててもサポートが適当・ユーザー層も親切な人がほとんどいないので自分で解決する能力がないと厳しい ・早いうちに他に移住したほうが良い ・海外ツールより全ての面で劣るのにライセンス6720円というボッタクリ 今は海外ツールでも日本語化ヘルプとかあるから乗り換えは楽だぞ
>>675 > 今は海外ツールでも日本語化ヘルプとかあるから乗り換えは楽だぞ
日本語ヘルプが原語ヘルプと同レベルに充実してる海外ツール教えて。
そもそもこのスレの住人は乗り換える必要性そのものを感じてないと思うがな… 記録ツールなんぞ最初から使わんし。 自分のミス以外で不安定さなど感じたこと無いな サポートなんかイラネ。ちゃんとしたヘルプありゃ自分で解決できるし。 逆にサポートが必要なヘルプ未整備なツールなんて論外だわ。
>>675 EXE化は便利だろうけど、生のスクリプトが残ってないと変更できないよね。EXEとソースのバージョン管理できる?
たとえば自動ログオンとかが基本的な使い方の一つになるけど、IDやパスワードはどこに保存する?
セキュリティがいらないならスクリプトに書いておけばいつでも確認できるし変更もできるよ。
複数のスクリプトを動かすのにEXE化してないといけないと考える人がいるかもしれないけど、
関連付け起動すれば複数同時起動できるし。
>>675 > 不安定・実行結果があまり信用できない
信用をどのレベルで考えるかによるけど、考慮してない動作をされればおかしくなるのは当然。
だけど、かなりの部分はマクロ的な処理を取り除けば対処できるよ。
> ユーザー層も親切な人がほとんどいない
規制食らって出てこれないこともあるけど、俺数年常駐してるんですけど。
だけど
>>674 みたいな質問を延々とされるとそりゃー拒否しますよ。
そういうのはまとめられたドキュメントを読んだほうが早いからね。
> ・他のツールでは出来る事が出来ない
むしろ逆で、フリーソフトでできないようなことをするために使うものですよ。
> ・海外ツールより全ての面で劣るのにライセンス6720円というボッタクリ
無料の機能だけで済ませばいいでしょ。
>>679 EXE化の目的はuwscを入れてない人の譲渡用とかなので
ちょっと論点がズレてるような
>>680 >むしろ逆で、フリーソフトでできないようなことをするために使うものですよ。
お前は何を言ってるんだ
>>681 UWSCフリー版をセットで渡せばいいんじゃね?
で、メニューに
> start uwsc.exe 自作.uws
っていうコマンドを登録。
フリー版にない機能ってIERecとかの他にはエクセル操作のところですよね。
あ、フォームがあったか。
Pro版の機能を使う場合で配布が必要なら確かにEXE化が必要かも。
スクリプトにuwsc実行ファイルをセットで配布するのは禁止されてる訳だが・・・
あれ、このソフトに金払ったっけ 思い出せないw
ネット接続があれば本家から落とさせればいいかと スクリプト配布にEXE化が必須なのはいまどき珍しいオフライン環境ぐらい
一昔前はuwscは確かに主流だった 今はuwscは初心者用な所に至った 流石にuwscが最強だと思って使い続けてる人は居ないと思うけど
uwsc程度の簡単なツールで公式掲示板で偉そうに回答してる人の気持ちが分からない
何でもかんでも偉そうだと勘違いしちゃう人の気持ちも分からんね。 何かコンプレックスでもあるのかしらん。
底辺プログラマは常に見下され、罵られる存在なんだよ だからLinersとかいう人はプログラミング出来ない人を見つけては 偉そうにしている可哀想な人なんだ あの掲示板はむしろ自己解決が出来ないプログラミング初心者のために あるべきだと個人的には思うんだが ヘルプを使いこなせる(はずの)人なら質問なんてそもそも不要なのだから 作者はLinersに注意を促したほうがいいよ
本日のLinersさんのIDはどれかな
偉そうな態度じゃないなら
>>674 みたいな上から目線の回答なんて事を書かないよね
初歩的な質問させて下さい。 数種類の画像(A.B.C.D)があり、そのいずれかがあった場合指定した動作を実行するにはどうすれば良いのでしょうか? fb chking("A.bmp") 動作 endif fb chking("B.bmp") 動作 endif の様にするしかないのでしょうか?
>>693 chkimg は座標を返すわけだけど、その座標を使うにはそういう書き方をするしかない。
ただ、どれかひとつあった場合に、とりあえずその一つだけ処理するということなら、
chkimg をまとめることで処理を一箇所だけに記述することができます。
関数化するのが普通だけど、break 2 というのが使えるのでそれを使って記述してみます。
while true
while true
ifb chking("A.bmp") then
break
else
break 2
endif
// "B.bmp" 〜 "D.bmp"まで記述
wend
// 見つかった場合、break でここに飛ぶ
// ここに見つかった場合の処理を記述
wend
// 一つもなかった場合、break 2 でここに飛ぶ
>>693 でも、処理をループの奥に記述すると分かりにくいですよね。そこで関数化してみます。
ifb MYchking("A.bmp", "B.bmp", "C.bmp", "D.bmp") then
【処理】
enfif
Function MYchking(Pic1, Pic2, Pic3, Pic4)
for i = 1 to 4
Pic = eval("Pic" + i)
ifb chking(Pic) then
result = true
exit
endif
next
result = false
exit
Fend
>>694 との違いは、いずれかが見つかった場合に1度しか処理しないことです。
もし1〜4の画像を順に調べたい場合はループする必要があります。
もちろん、MYchkingを繰り返し実行することで1〜4の全てを処理しますが、
1の出現回数が多すぎる場合は2〜4まで回ってこないということが起こりえます。
出現頻度の低いものを先にチェックすれば、効率は悪くなるものの、それ以後に回ってこないということはなくなるでしょうね。
その辺の調整は調べる対象次第になるでしょう。
>>694-695 詳しく教えていただき、ありがとうございます!
調整含め、早速試してみたいと思います。
最近uwscを使い始めたのですが、 chkingで画像を探してクリックするように web上のリンクor文字をクリックさせるコード的なものはあるのでしょうか? お願いします。
>>698 お早い回答ありがとうございます!
エディタはTerapadを使ってます。
>>699 とりあえず表示-編集モード-VB使えば?BASIC基本構文が色分けされるだけでもだいぶ楽
CHKIMGとかのUWSC専用構文は色分けされないけど
もっと本格的にやりたきゃモード作るとか
701 :
693 :2010/08/11(水) 19:37:03 ID:fuFHgMGbO
再度質問させて下さい。 4種の座標 A(20.120)・B(30.130)・C(40.140)・D(50.150) があり、A〜Dの座標をランダムにクリックさせる場合にはどうすれば良いのでしょうか? 対象ウィンドウのサイズは800*640です。 また、クリック間隔は500ms程度にしようと考えています。
dim a[]=1,2,3,4,5,6,7,8 r=random(4)*2 a[r] a[r+1]
>>702 返信遅くなりました。
ありがとうございます!
704 :
名無しさん@お腹いっぱい。 :2010/08/20(金) 18:06:08 ID:IackKw990
PUBLIC clear_fuki = -1 // 消去する識別No.を指定する FUKIDASI("main") thread create_fuki(1, "aaaa", 100, 100) // スレッドにて吹出し生成 thread create_fuki(2, "bbbb", 200, 200) thread create_fuki(3, "cccc", 300, 300) sleep(3) clear_fuki = 2 // bbbbbを消去 sleep(5) // 吹出し生成 (pno=識別No.、msg=表示メッセージ、x,y=位置) procedure create_fuki(pno, msg, x, y) FUKIDASI(msg, x, y) while clear_fuki<>pno; sleep(0.1); wend // 消去指定されるまで表示 Fend 公式のなんですけどこれで消さずに残すようにするにはどうすればいいですか?
705 :
名無しさん@お腹いっぱい。 :2010/08/20(金) 18:36:15 ID:83ayW7Fq0
>>704 むしろaaaa,bbbb,ccccを表示してbbbbだけ消す例
ネットゲームで画像を認識しようとしているのですが 用意したbmp画像をchkimgしても認識してくれません プリントスクリーン(windowsにあるやつ) ペイントにコピペ 24ビットマップで保存 の順に作業したのですがおかしいところはあるでしょうか
↑ペイントで開いた画像だけは認識してくれました
>>706 気付かないレベルで1ドット色が変わってもだめ
動的に画像を作り出すゲームではよくある
ifb CHKIMG(".bmp",-1) endif これで試してみては?
710 :
706 :2010/08/22(日) 09:45:50 ID:Y875/60n0
>>708 ,709
ありがとうございます
画像の用意のしかたはどうやら合ってるみたいでした
自分のPCの環境がおかしいのか
マウスを右か左クリックしているときだけ画像認証が行われることがわかりました
できれば普通に認証したいので原因など思い当たるふしがあったらアドバイスいただきたいです
OSはXPでゲーム自体はdxwndで窓化して表示しています
ウィンドウ全体をキャプチャーしているのだったら、画像を切り抜いて小さくすれば(16x16とか)認識するかもしれない もちろん切り抜く場所によって認識するか認識しないかは変わるので、良く考える 大きい画像の認識はそれなりに負荷がかかるのでいろんな意味でもキツいと思う
IE7のオプション設定を一発で変更したい。 フォントをClearTypeにし、フォントも1~2pt大きくして IEを使用しているのですが、サイトによっては 、文字や写真が重なる ときがあります。 その際は、デフォルトに戻す⇔再度設定 と切り替えたいのです。 具体的には ツール→オプション→ユーザー補助→WEBページで使用されたフォント・サイズを使用しないにチェック テンプレのURLで調べたのですが、"チェックする"はフォームでのものしかありませんでした。
713 :
名無しさん@お腹いっぱい。 :2010/08/24(火) 13:04:18 ID:oayi1Lr90
吹き出しで直線に近い道をゴールしてくれるのをつくりたいのですが ifb chkimg("aka.bmp",0,1,1,2222,1000) then a=G_IMG_X b=G_IMG_Y while true ifb chkimg("siro.bmp",0,x+1,y,x+1,y) then if x<a then x=x+1 else endif ifb chkimg("siro.bmp",0,x,y+1,x,y+1) then if y<b then y=y+1 else endif ifb chkimg("siro.bmp",0,x-1,y,x-1,y) then if y>b then y=y-1 else endif ifb chkimg("siro.bmp",0,x,y-1,x,y-1) then if y>b then y=y-1 else endif print "<#CR>"+(200+x)+" "+(300+y) wend endif これだと動いてくれません どうしたらいいですか akaがゴールの色でsiroが通れる道の色です
714 :
名無しさん@お腹いっぱい。 :2010/08/24(火) 13:06:05 ID:oayi1Lr90
吹き出しはこの前の段階で出してスタート地点に移動しています
>>712 ウィンドウ操作なら
タブキーで項目移動、スペースキーで項目反転が出来る
>>713 UWSCで出来ないことは無いと思うが
迷路探査アルゴリズム、でググって、考え方を理解しないと難しいだろう
712です。
>>715 ありがとうございます。
ただ、その前に オプション画面を出す方法が知りたかったのです。
>>716 『インターネット オプション』のダイアログを出さずに
直にレジストリを書き換えて再読み込みさせたらいいんじゃね
実行する度に『Web ページで指定されたフォント サイズを使用しない』の
ON/OFF を切り替える例は以下
OPTION EXPLICIT
CONST HWND_BROADCAST = $ffff
CONST WM_SETTINGCHANGE = $1A
CONST SMTO_ABORTIFHUNG = $2
DEF_DLL SendMessageTimeoutA(hwnd, uint, long, uint, uint, VAR dword): long: user32.dll
DIM key = "HKCU\Software\Microsoft\Internet Explorer\Settings\Always Use My Font Size"
DIM wshshell = CREATEOLEOBJ("WScript.Shell")
DIM rsl
wshshell.RegWrite(key, !wshshell.RegRead(key), "REG_DWORD")
wshshell = NOTHING
SendMessageTimeoutA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Software\Microsoft\Internet Explorer", SMTO_ABORTIFHUNG, 5000, rsl)
質問させて下さい。 ・画像A・Bが表示されたらクリックして終了。 ・画像が60秒間表示されなかったら終了。 というスクリプトを作りました。 ---------------------------------------- 変数 = 0 while 変数 < 60 ifb CHKIMG("画像A.bmp") BTN(LEFT, CLICK, G_IMG_X, G_IMG_Y) 変数 = 60 endif ifb CHKIMG("画像B.bmp") BTN(LEFT, CLICK, G_IMG_X, G_IMG_Y) 変数 = 60 endif sleep(1) 変数 = 変数 + 1 wend ---------------------------------------- これでもちゃんと動くのですが満足してません。 ※sleepとか変数を強引に60にするところとか もっと美しく、そして応用が利く作り方はないでしょうか?
>>718 中断を表したいなら、breakに置き換えればいいだろ。ごく普通。
時間経過を表したいなら、時間取得をすればいい。関数はある。
抽象化したいという理想は何となく判るがね。
ここは凄く勉強になるなぁ
>>716 ありがとうございます。完璧です! まさに求めていた操作感です!
サイズに加え、フォントも変更しているので、
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings\Always Use My Font Face
を追加したいのですが、これはむずかしいでしょうか。
現状、UWSファイルを2つ作って、2つを実行させるUWSを走らせています。
なんにせよ感謝です!!
>>722 こんな感じ?
OPTION EXPLICIT
CONST HWND_BROADCAST = $FFFF
CONST WM_SETTINGCHANGE = $1A
CONST SMTO_ABORTIFHUNG = $2
DEF_DLL SendMessageTimeoutA(hwnd, uint, long, uint, uint, VAR dword): long: user32.dll
DIM wshshell = CREATEOLEOBJ("WScript.Shell")
DIM rsl
toggle_ie_setting(wshshell, "Always Use My Font Face")
toggle_ie_setting(wshshell, "Always Use My Font Size")
wshshell = NOTHING
SendMessageTimeoutA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Software\Microsoft\Internet Explorer", SMTO_ABORTIFHUNG, 5000, rsl)
PROCEDURE toggle_ie_setting(obj, name)
name = "HKCU\Software\Microsoft\Internet Explorer\Settings\" + name
obj.RegWrite(name, !obj.RegRead(name), "REG_DWORD")
FEND
>>723 ありがとうございます。これで仕事の効率が確実にあがります!
ところで、こういった記述、全部ゼロから書いてるんですか?
だとしたらすごいです。
>>718 これ、逆に
画像が表示されなかったらクリック
画像A・Bが表示されたら終了
にしたい場合、どうすりゃいい?簡単な事でできそうなんだがうまくいかん
>>725 while true
ifb CHKIMG("画像A.bmp") or CHKIMG("画像B.bmp")
break
else
BTN(LEFT, CLICK, X, Y)
endif
wend
こういうこと?
727 :
名無しさん@お腹いっぱい。 :2010/09/01(水) 12:55:02 ID:gZxFjlWw0
無料版の方を使ってますが 上位バージョン(有料版)ではどのような機能が追加されているのでしょうか?
アドバイスお願いします。 ESCキーで動作終了。 画面の座標・X400〜420、Y400〜420のうち 1ドットでも色の変化があった場合、座標400.400をクリックというようにしたいのですが ESCで停止はできても、クリックが動作してくれません。 IFB Countが悪いのでしょうか?アドバイスお願い致します。
// 画面サイズ CONST X_MAX = G_SCREEN_W CONST Y_MAX = G_SCREEN_H DIM OldColor[X_MAX][Y_MAX]; // X座標変化範囲を指定 CONST X_START = 400 CONST X_END = 420 // Y座標変化範囲を指定 CONST Y_START = 400 CONST Y_END = 420 Total = ((X_END - X_START) + 1) * ((Y_END - Y_START) + 1) // 起動時の指定範囲の色を得る FOR x = X_START to X_END FOR y = Y_START to Y_END OldColor[x][y] = PEEKCOLOR( x, y ) // 座標(x,y)の色を得る NEXT NEXT
730 :
729続き :2010/09/01(水) 14:38:13 ID:mcbj3OJX0
WHILE True if GETKEYSTATE(VK_ESC) then exit // ESCキーを押すと終了させる Count = 0 // 起動後の指定範囲の色を得て、変化をチェックする FOR x = X_START to X_END FOR y = Y_START to Y_END NewColor = PEEKCOLOR( x, y ) // 変化あり? IFB NewColor <> OldColor[x][y] Count = Count + 1 ENDIF NEXT NEXT // 指定範囲の1色が変化 IFB Count = 1 ENDIF WEND BTN(LEFT,CLICK,400,400)
色違い判定したところでループ抜けないとダメ // 指定範囲の1色が変化 IFB Count = 1 BREAK ENDIF WEND BTN(LEFT,CLICK,400,400)
732 :
729 :2010/09/01(水) 21:08:10 ID:mcbj3OJX0
>>731 ありがとうございます。BREAKは思いつかなかったです。
やってみましたが、反応しませんでした。
IFB Count = 1 の1を、total にして、全ドット箇所の色を変えたら反応しました。
やはり数値は使えないんでしょうか・・・
色の変化が1ピクセル”だけ”の時は動くけどそれ以上だと count=1はfalseになったままでNGだろ。 ifb count>0 break あるいは
書いてる途中で送信してしまった ifb count>0 break endif あるいは見つかった段階でbrek IFB NewColor <> OldColor[x][y] break 3 ENDIF もしくは最初にsaveimgで指定範囲をbmpで取得して 以後chkimgで見つからなければbreakとか。
735 :
名無しさん@お腹いっぱい。 :2010/09/02(木) 16:26:42 ID:LYfMKHgu0
有料と無料の違いを3行でおねがい
・ EXE化ツールが付属しています。(EXE化後は単体での実行が可能であり、ライセンスフリーにて配布できます) ・ IE(Web)用記録ツールが付属しています。(Web上の動作をUWSCのスクリプトとして記録する事ができます) ・ HTMLを利用した画面関数が使えます。 ・ EXCELシート用関数が使えます。 ・ デバッガが付属しています。
737 :
729 :2010/09/02(木) 21:41:38 ID:I3CZuiar0
>>734 ありがとうございます。だいぶ理想的な動作をするようになってきました。
まだ全然理解できてないとよくわかったので、またヘルプを読みこんでみます
>>738 正直DLLは鬼門だと思う。
該当DLLを使ったことがなければまず何も答えられない。
そして、貴方が何でどうダメだったのかも解らないので
レスもつけられないスパイラル。
ある一定の繰り返し作業を指定した時間のあいだ行い、時間が終わったら一定時間止まってまたはじめに戻るといった作業はどのようにすればいいのでしょうか? 繰り返し作業に関しては時間が来れば途中で抜けても構いません。
while true hoge() wend procedure hoge() t = gettime()+指定時間 while t>gettime() 繰り返し wend sleep(一定時間) fend
同じ画像Aが複数あって、例えば2番目の画像Aを、CHKIMG使って選ぶには、どうすればいい?
当然二番目の定義に依存する
>>718 // 60秒(60回)が絶対条件ならfor〜next
for i = 1 to 60
//処理
sleep(1)
next
// 時間を正確にするならsleep(1)×60回ではなくGetTime()で差が60まで
sTime = GetTime()
while GetTime() < sTime + 60
//処理
sleep(1)
wend
// 画像チェックもループ化
// ただし、break2で抜けられるのはUWSCだけ。他の言語の場合は関数化してexit+breakにする。
// UWSCの場合、配列宣言は添え字の最大値を指定。配列は0からとなることに注意。
// 宣言時の添え字は省略可能だが、2次元配列以上は添え字の指定が必要。
DIM 画像ファイル[1]="画像A.bmp", "画像B.bmp"
for i = 1 to 60
for i = 0 to 1
ifb CHKIMG(画像ファイル[i])
BTN(LEFT, CLICK, G_IMG_X, G_IMG_Y)
break 2
endif
sleep(0.01)
next
sleep(0.9)
next
// 配列化は良し悪し。2個程度なら普通にコピペしたほうが早く作れて単純でよい。
>>742 > 戻値 = CHKIMG( 画像名, [透過色/色無視, x1, y1, x2, y2, 番号, 色幅] )
番号?
番号!
番号!?
ところで、firefox上でjpgやgifをクリックしたいのですが、拡張子をbmpに変えて保存した画像でchkimgしても、上手くいきません。どうすればよいですか?
>>747 ファイルの拡張子をいじったと言う話なら、それは無効なファイルだからエラーになってると思います。
動画再生などでは.flvとしておけば再生できたりしますが、それはローダーが解析して適切なデコーダを選択してくれるからです。
UWSCで使える画像はPrintScreenなどでキャプチャしたものを保存したビットマップだけです。
キャプチャソフトなどを使ってもかまわないと思いますが、一旦jpgなどで保存されたものは変色しているので使えません。
> firefox上でjpgやgifをクリックしたいのですが
>>661
>>748 PrintScreen→ペイント、キャプチャソフトも試してみましたが出来ませんでした。きっとjpg画像の背景がグラデーションなのが原因だと思います。
定期的にupされる複数のファイルを一括ダウンロードする為にfirefoxを操作したいと思ったのですが、
>>661 は具体的にどういうことなのでしょうか?
レイヤーの使えるツールにて 1回目PrintScreenして1レイヤー目にペースト 2回目PrintScreenを2レイヤー目にペースト 2番目レイヤーを除外に設定してレイヤー結合→真っ黒になる 色域指定等で黒のみを選択して別の色に置換 1回目と2回目で違うところがはっきりとわかるようになる。 グラデーションだろうがなんだろうが、同一なら全く問題無い。
>>749 こんな感じ。
javascript:document.sf1.submit()
javascript:document.sf1.srchtxt.value = "uwsc"; document.sf1.submit();
javascript:document.sf1.p.value = "uwsc"; document.sf1.submit();
ヤフーのトップページで上記をアドレスバーに入れて移動
pは検索テキストのname
srchtxtは検索テキストのid
以下失敗作。フォームを指定しないといけないっぽいから、フォームの外にあるGoogleのロゴはクリックできないのかな?
--------------
javascript:document.all.logo.click();
javascript:getElementByID(logo).click();
Googleトップページでアドレスバーに上記を入力して移動したらlogoをクリックしてくれるんじゃないかと思ったけどならないね。
javascript:document.all.btnG.click();
javascript:getElementByID(btnG).click();
javascript:document.getElementByID(btnG).click();
javascript:document.all.srchtxt.value = "uwsc"; document.sf1.submit();
javascript:document.all.p.value = "uwsc" // name=p
javascript:document.all.srchtxt.value = "uwsc" // id=srchtxt
javascript:getElementByID(srchtxt) = "uwsc"
javascript:document.getElementByID(srchtxt) = "uwsc"
Googleで検索する場合はこれ。 javascript:document.f.q.value = "uwsc"; document.f.submit(); やっぱりフォーム名がいるんだなあ。
javascript:document.write()を実行時に右クリックメニューを出してみたんだけど、COMエラーになっちゃった。 COMエラーを抑制してもいいんだけど処理がややこしくなるから、やっぱりメニューを出せなくするのが一番かな。 たまたま画面切り替えするからそんときに古いメニューは消えるんで、クリックを防ぐだけで済む。 メニューが開いてるかチェックする必要がある条件だとかなりめんどくさくなるね。
画像Aが座標X,Yにきたらクリックを離すっていうのは可能でしょうか 画像Aはクリック押しっぱなしで動き続けます このど素人めに何かヒントをお願いします
xpなんだけどchkimgがすごい時間かかる。何故?
ifb CHKIMG("画像.bmp")
ifb x = G_MOUSE_X and y = G_MOUSE_Y
BTN(LEFT, UP)
endif
endif
>>755 1回あたり0.1秒くらいかかってもおかしくない
スピードアップしたかったらサーチエリアを絞ったり画像サイズを減らしたりサーチが必要でない場合はサーチしないとか。
例えばstatus()でウィンドウの座標を取得してその中だけ検索とか
そういうことをしても、VRAMから画面キャプチャするのにかかる時間は減らせないから、
結局は検索する時間を0.1秒間隔かそれ以上に増やすことが必要。
ゲームなんかの複数のキャラの動きを追跡なんか無理だよ。
画像保存先を間違えてただけでした。こんなことに1日かかるとは…
>>756 ありがとうございます、うまく作動しましたがうまくいっていません
私の考え違いでした
画像Aが指定範囲内にきたらクリックを離すに変えたいのですが
chikingではそこの画像がころころ変わるためいまいちでした
範囲指定の方法が知りたいです
なんというか座標(0,0)(0,30)(30,30)(30,0)で囲った部分みたいな感じで指定したいのですが
>>758 ifb x1 < G_MOUSE_X and G_MOUSE_X < x2 and y1 < G_MOUSE_Y and G_MOUSE_Y < y2
endif
左上(x1, y1)
□
右下(x2, y2)
左が小さく右が大きいという位置関係で比較すると間違えにくいです。
逆に、画像が範囲外にある場合は、不等号の向きはそのままで位置を入れ替えます。
ifb G_MOUSE_X < x1 and x2 < G_MOUSE_X and G_MOUSE_Y < y1 and y2 < G_MOUSE_Y
else
// elseを使ってもいいです。
endif
あ、マウス座標じゃなかったですね。
>>756 も読み替えてください。
あありがとうございます、まさにこれです 頑張ってみます
WinXPでタスクバーを下から上にする+元に戻すのはどうすればいいかな? あと任意の複数のネットワークフォルダの表示をあらかじめ一覧表示にしておきたいんだけど。 他人様のPC触る事が多くなったので、これらをログオン、ログオフ時に 実行できるようにしたいんだけど。
>>761 1つめ、プロパティで移動可能にしてマウスで引っ張る
2つめ、ドライブに割り当てる
3つめ、人様のPCならデフォで使うべし。もしくは自分用アカウントを用意してもらう。
ログオン時はスタートアップに入れることでできるけど、ログオフの時は、、ログオフのスクリプトを作ってその中で作業して自動ログオフかな。
レジストリ設定ファイルを用意してそれを開くだけだから、手間はレジストリ項目と設定値を調べるだけ。
firefoxにて、ページの表示完了待ちをするにはどうしたら良いですか?
764 :
馬 :2010/09/17(金) 22:17:19 ID:OtWQYYgM0
出たいお
PC内の音声(一番大きな音量)の周波数を調べて記録することはできますか? よろしくお願い致します
>>763 ステータスバーのテキストを監視とか。
一定時間連続で「完了」とか表示されてれば表示完了と。
それはそうと、IEのコントロールでIE6で問題ないコードがIE8で動かないケースがあるね。
□ケース1
IE起動直後やabout:blankを開いた状態で navigateでjavascript:document.write()をするとエラーになる。
ダミーページを開いてから実行すれば通る。
□ケース2
ClkItem()を実行してもなぜかクリックの動作が画面上だけで終わり、コマンドが実行されなくなることがあって、
そこで停まらないようにするために、クリックに成功したら先に進むのではなく、クリックできなくなったら先に進むようにしていたんだけど・・・
// クリックできなくなるまでクリックを繰り返す
Repeat
sleep(0.1)
if !IDToHnd(DlgID) then exit // IE8だとここで抜ける
Until !ClkItem( DlgID, "保存", CLK_BTN or CLK_SHORT or CLK_BACK ) // IE6ではここで失敗してループを出るが
// クリックしたら必ず動作するという前提なら、IE6とIE8のコードは共通化できる。
Repeat
sleep(0.1)
if !IDToHnd(DlgID) then exit
Until ClkItem( DlgID, "保存", CLK_BTN or CLK_SHORT or CLK_BACK )
// exitで分岐するのでなく、breakで同じ場所に抜けるという方法もある。
Repeat
sleep(0.1)
if !IDToHnd(DlgID) then break
Until ClkItem( DlgID, "保存", CLK_BTN or CLK_SHORT or CLK_BACK )
>>766 のケース1のエラーメッセージ
x Internet Explorer では、 をダウンロードできません。
エラーを特定できません。
あと、右栗メニューを開いた状態でnavigateしてもCOMエラーになるんだけど(IE6, IE8)、あの理屈が分からんね。
>> 763 FirefoxのID = "nesuke"とし、全画面表示にしておく Repeat // 0.2秒間隔でステータスバー内の左端の文字列を読み取る Sleep(0.2) Until PosACC(nesuke, 8, STATUS(nesuke,ST_CLHEIGHT)-8, ACC_NAME) = "完了" これだと全画面表示に限定されるので、もっと一般的な方法があれば教えてほしい
勘違いしてた。 PosACCの位置指定は、スクリーン座標ではなくクライアント座標だから全画面表示でなくてもOKだった。
770 :
763 :2010/09/18(土) 13:09:14 ID:QQJE6ZZ40
ありがとうございます。かなり処理が早くなり精確になりました。
>>768 いくつか試したけどダメだね。やっぱりXPCOM使ったりしないと。
<html><head><title>トップページ</title></head>
<frameset rows="30%,*">
<frame src="about:blank">
<frame src="
http://himado.in/ " onload='alert("aa")'>
</frameset></html>
上記HTMLを保存してIEで開くと、下のフレームを開き終わってからダイアログが出る。(IE限定)
IE8では警告が出るので実行許可を与える必要がある。
だけどフレーム化するからか、ページでエラーが出るし、画像なども一部表示されてない。
アドレスバーでスクリプト実行も試したけど、すぐにダイアログが出るけどページは動き続けてる。
javascript:document.onload=alert('完了')
-------------以下日記
GetItem()してみたけど【ITM_ACCCLK】でしか完了の文字は出てこなかった。ACC以外はメニューすら拾えなかったよ。
そのACCCLKも選択タブのWebページの中身全部を拾ってしまって、完了の文字はその中にまぎれてしまっている。
だから外から覗くのはちょっと難しい。
FireFoxはアドオンが割と簡単に作れるっぽいから、アクティブタブの表示状態をクリップボードとかファイル経由で渡してくれるようなアドオンを作って導入したら連携できるかも。
ActiveXでアドオンを検索したけど、ActiveXをダウンロードしてくれるアドオンだったりで既存のはなかなか見つからない。
COMでコントロールする方法としてIE Tab っていう、IEをFxで表示する方法があって
Fx上のIEオブジェクトをコントロール可能だから、それ以上のものをつくろうって人はいないんだろうな。
それ以上をやりたければXULだとかXPCOMだとかもあるし。
>>762 まずは返事くれてありがとう。
> 1つめ、プロパティで移動可能にしてマウスで引っ張る
それをスクリプトでやりたいんだが…。
> 2つめ、ドライブに割り当てる
ドライブに割り当ててもデフォルトは巨大アイコンですが…。
> 3つめ、人様のPCならデフォで使うべし。
人様のデフォルトがどうなっているかあなたも想像つくでしょう。
>>772 > それをスクリプトで
マウスで引っ張ると言うのをスクリプトでやることもできますが、タスクが表示されているとつかむ場所がなくなるので難しい。
とりあえずクラシック表示で画面端ならタスクがあってもつかめるのでUWSCで自動化することはできます。
でも、レジストリファイルを用意してそれをダブルクリックしたほうが早くて確実です。
> 巨大アイコンですが…。
ドライブに割り当てればエクスプローラーのツリーの小さなアイコン+名前で出てくるでしょ。
ツリー無しのフォルダのみ表示してるんですか?
Win+Eで起動したらツリーも表示されているはずです。
> 人様のデフォルトがどうなっているかあなたも想像つくでしょう。
社員食堂を教えた後輩から食事代請求された。食費がかかったから払えと言うのだ。
しつこく請求し続けるそいつを横目に食堂に行き安い定食頼んだら400円の表示で2千円請求されまくり。
席に着こうとしたら机の下はげろだらけなので他の席に着くがそこもきたない。
でも、どの席も、僕が目を向けるとなぜか汚い。心象では他の席は整っているんだが、意識を向けると北無い。
これは北朝鮮がもうすぐほろびるという・・・違うか。
ま、散らかってる席に座って食べ始めるけど後輩がぴったり横にくっついてぐだぐだ言うので
「金も時間もないからこーやって定食くってんだ。金があったらコース食うよコース料理。
この会社にはコース料理食える部屋だってあるんだよ?(先にコース料理を堪能するシーンがあった)」
食べ始めてすぐチャイムがなり始めて人がいなくなったがそれでもまだ一生懸命食ってると目が覚めた。
そう言えば食事配ってるところ+レジが普通のテーブルだった。俺って想像力に欠けてるんだな。
いや、最近そういうところで飯食ってない・・・いや、おととい行ったばかりじゃないか。ダメだなあ。
RecIEで作成したUWSのスクリプト文を元に、 最初に入力するIDやパスワードを変えて同じことを自動でさせるようなマクロは作成可能でしょうか? RecIEで作成したところ、 IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("ログイン画面のアドレス") BusyWait(IE) IESetData(IE," AのID "user_id") // TEXT IESetData(IE," Aのパスワード ","user_password") // PASSWORD IESetData(IE,True,"login") // IMAGE BusyWait(IE) (省略) Fend となりました。 これを、最初にログイン画面に行きAのIDやパスワードでログインした後いくつかのリンクを押した後ログアウトし(ここで最初の画面に戻る) そのままBのIDとパスでログインし先程と同じ行動をしてログアウトし、CのIDとパスでログインし……と10人程ログイン行動させたいと思っています。 自分で作成するのが一番なのですが、エラーばかりになってしまい上手く動かすことが出来ないため、 RecIEの自動作成の文を利用したいと思っていました。 どのように直せば良いのか、分かる方教えていただけるとありがたいです。
>>774 一番簡単な方法
IE.Navigate からログオフ+BusyWait(IE) までを10個コピペしてID、パスワードを書き換えていく
2番目に簡単な方法
IE.Navigate からログオフ+BusyWait(IE) までを10回のループにし、
ID、パスワードを配列に入れ、変数化する。
例)
dim ID[] = "a", "b", "c", "d", "e", "f", "g", "h", "i", "j" // 配列はDIMで宣言必須
dim pw[] = "1", "2", "3", "4", "5", _ //改行するときはアンダースコアを入れる
"6", 7"", "8", "9", "10"
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
for i = 0 to 9
・・・
IESetData(IE, ID[i], "user_id")
IESetData(IE, pw[i], "user_password")
・・・
next
IE.Quit()
RecIEできるなら実行ファイルにして バッチ走らせた方がいいとオモフ
3番目の方が簡単かな?
ID、パスワードをカンマ区切りのファイルに保存して読み込む
次の内容でuserid.txt というテキストファイルを用意する。
--userid.txt--
a,1
b,2
c,3
・・・・
--ここまで--
で、1件ずつ読んではIEで作業する。
IEのコントロールは
>>775 のループと同様
FID = FOPEN( "userid.txt", F_READ )
For i = 1 to FGet(FID, F_LINECOUNT)
ID = FGET( IFID, i, 1 )
if "" = ID then break
PW = FGET( IFID, i, 2 )
・・・
IESetData(IE, ID, "user_id")
IESetData(IE, PW, "user_password")
・・・
Next
FCLOSE( FID )
>>776 バッチって・・・
778 :
774 :2010/09/19(日) 19:44:10 ID:b1C4Fa5t0
>>775 様
ありがとうございます
後学の為?にも2番目の方法でチャレンジして見た所、順調に上手く行きました!
今まで、パスワードが同じだったりIDが連番だったりしないと上手くいかなかったのでとても嬉しいです。
3番目の方法も後で試してみたいと思います。
3番目の方法だと、もっと沢山のID/パスでも管理しやすそうですね。
思っていたよりもとても早く回答頂き嬉しかったです。ありがとうございました。
もうちょっと頑張ってみます。
>>776 様
バッチファイルについて調べてみたのですが、けっこう難しそうでした…。
もう少し上級者になったら調べてみたいと思います。
どうもありがとうございました。
アメーバピグの釣りゲームのスクリプトどなたかご存じないですか?
ヘルプで文字列操作というところをよんでみましたが わかりませんでした どなたかご教示お願いします C:\にあるhoge.txtの任意の行をクリップボードにコピーしたいです コピーするのは1度のコピーで1行です 3行目6行目15行目26行目など 上から数えて任意の行数の部分をコピーしたいです わかるかたおられましたらご教示お願い致します
>>780 FID = FOPEN( "C:\hoge.txt", F_READ )
SENDSTR( 0, FGET( FID, 3 ) )
MsgBox("next")
SENDSTR( 0, FGET( FID, 6 ) )
MsgBox("next")
SENDSTR( 0, FGET( FID, 15 ) )
MsgBox("next")
SENDSTR( 0, FGET( FID, 26 ) )
FCLOSE( FID )
>>781 さん
夜分お疲れのところ即レスすいません
何から何までありがとうございます
心から感謝します
ありがとうございました
>>741 横からいただきます。
ところでこの741さんのスクリプトを繰り返し作業の部分とスリープの部分で分けて、
スクリプト起動時にどっちから始めるか選択するといったことは出来ないでしょうか?
選択1なら普通に頭から
選択2ならスリープの部分から頭に戻るといった具合です。
よろしくご教示お願いします。
頭に選択2ならスリープを追加する
>>773 > でも、レジストリファイルを用意してそれをダブルクリックしたほうが早くて確実です。
このレジストリはどこですか? ネット検索で調べてもなかなか見つかりません。
> ツリー無しのフォルダのみ表示してるんですか?
その通りです。ツリー付なんて邪魔だし一覧表示が一番便利。
これも最近使ったフォルダの表示形式をどこかのレジストリに記憶させてるはずですよね。
> いや、最近そういうところで飯食ってない・・・
すいません。読み飛ばしました。
自分は自炊派で外でも外食はせず弁当持参です。
>>761 一覧表示を勘違いしてた。
1.エクスプローラで目的のフォルダだけを開く
ttp://www.atmarkit.co.jp/fwin2k/win2ktips/408expopt/expopt.html 2.UWSCで起動したエクスプローラーのメニューを操作して「一覧」を選択
タスクバーの位置はなんか分かりませんね。
すぐ出てくるかと思ったけど・・・
近そうなのはみっけたんだ。
でも、反映されなかったっぽい。
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop]
"TaskbarWinXP"=hex:0c,00,00,00,08,00,00,00,02,00,00,00,00,00,00,00,aa,4f,28,68,\
APIで位置を知ると言うのがある。これでいじれるかな?と。
#uselib "shell32.DLL"
#func SHAppBarMessage "SHAppBarMessage" int,var
#define ABM_GETTASKBARPOS $00000005
#define SPI_GETWORKAREA $00000030
UINT_PTR SHAppBarMessage(
DWORD dwMessage, // メッセージ定数
PAPPBARDATA pData // APPBARDATA 構造体へのポインタ);
APPBARDATA AppBarData = { 0 }; // 構造体
>>786 APPBARDATA AppBarData = { 0 }; // 構造体
// タスクバーの上下左右位置を取得
AppBarData.cbSize = sizeof( APPBARDATA );
SHAppBarMessage( ABM_GETTASKBARPOS, &AppBarData );
上下左右位置
if ( AppBarData.uEdge == ABE_TOP ){
// タスクバーは上部にある}
else if ( AppBarData.uEdge == ABE_BOTTOM ){
// タスクバーは下部にある}
else if ( AppBarData.uEdge == ABE_LEFT ){
// タスクバーは左側にある}
else if ( AppBarData.uEdge == ABE_RIGHT ){
// タスクバーは右側にある}
これで位置を取得はできるらしい。
言語はいろいろまじりまくってるんでUWSC用に書き換える必要はあります。
アプリケーションバーの情報を取るAPIだけど、APPBARDATA構造体の初期化で0を入れてるので
デスクトップが指定されたことになり、デスクトップのアプリケーションバーがタスクバーと言うことに。
でも変更は出来ないよなあ・・・
・・と思ったら、ABM_SETTASKBARPOSという風に、GetをSetに変えた奴を使えばいいっぽい。
>>761 っと思ったけどタスクバーの移動はマウスでドラッグするしかないらしいです。
レジストリいじれば変更はできそうですが、できたとしても再起動が必要でしょう。
タスクバーというか、エクスプローラーを終了させると自動的にタスクバーは再起動されますが、バグるのでやめたほうがいいでしょう。
ttp://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+201001/10040019.txt 手順はこんな感じでしょう。
1.タスクバー(クラス名"Shell_TrayWnd")の座標を取得して一旦ファイルに保存。
2.解像度(デスクトップのサイズ)を取得して移動先を計算。(つっても上に移動だから高さ0に持っていくだけ)
3.マウスボタンをDOWN、マウスをmove、マウスボタンをUPでドラッグできます。mmvとかsleepとかも入れたほうが確実です。
戻すときはファイルを読んで高さ0からそこへ移動。
「タスクバーを固定する」をクリックするのは簡単だけど、
トグルだからどうやって状態を取得したもんか・・・
チェックマークがメニューにテキストとして入っていれば取得できるだろうけど
レイアウトを考えるとメニューテキストには含まれないだろうし。
目的の操作はできてるんですが、もっと簡略化できるのでは思ってお聞きします。 SELECT RANDOM(7) CASE 0 KBD(VK_F2,DOWN,100) CASE 1 KBD(VK_F3,DOWN,100) CASE 2 KBD(VK_F4,DOWN,100) CASE 3 KBD(VK_F5,DOWN,100) CASE 4 KBD(VK_F6,DOWN,100) CASE 5 KBD(VK_F7,DOWN,100) CASE 6 KBD(VK_F8,DOWN,100) selend これを簡単にできませんか?
>>790 #define VK_F1 0x70
#define VK_F2 0x71
#define VK_F3 0x72
#define VK_F4 0x73
#define VK_F5 0x74
#define VK_F6 0x75
#define VK_F7 0x76
#define VK_F8 0x77
#define VK_F9 0x78
連番な事を利用して
KBD( VK_F2 + RANDOM(7), CLICK, 100 )
DOWNを使うならRANDOM(7)の結果を保存しておかないとUPできない。
連番じゃなくても dim a=VK_F2,VK_F3…,VK_F8 kbd(a[random(7)],click,100) とか。
>>791 DOWNの保存についてkwskお願いします。
動作についてはちゃんと動きました。m(_ _)m
>>792 変数aについてエラーが出て実行できませんでした。
>>792-793 × dim a =VK_F2,VK_F3…,VK_F8
○ dim a[ ] =VK_F2,VK_F3…,VK_F8
>>793 > DOWNの保存についてkwsk
DOWNしただけでコマンドが実行される場合もあるが、
GUIのボタンは普通、UPした時点でコマンドが発行される。
「書き込み」ボタンをゆっくり時間をかけてクリックしてみれば分かる。
DOWNして動くとついUPを忘れがちだが、2回目のDOWNをしようとしても動かない。
既にDOWN状態にあり、状態は変化しないから。
次回DOWNして動作するようにするには、UPしないといけない。
UPするときも、どのキーをUPするのか指定しなければならない。
100個もあるキーを全部UPはできないから。
具体的には次のようにする。
Key = VK_F2 + RANDOM(7)
KBD( Key , DOWN, 100 )
KBD( Key , UP, 100 )
保存って言うのは、この場合、変数に入れて消えないようにすること。
戻り値を引数として直接渡すと、関数を終了したときに戻り値はどこにもないからね。
この場合はDOWNしたキーのことだと言うのは明白だからDOWN状態は保存してないけど、
キーコードと一緒に状態(DOWN、UP)を保存する場合もあるかな?
あと、変数にもグローバル変数、スタティック変数、オート変数とあって、
関数内の変数は関数を終了すると消えちゃうから、グローバル変数を使わないと保存したことにならなかったりもする。
引数や戻り値として呼び出し元に返す方法もある。
そう言えばクリックの動作はしてるのに動かないことがあるんだよね。 一度なり始めると全然直らない。 例えばDOWNしてからマウスを移動し、フォーカスをはずしてUPするとクリックがキャンセルされるから、 ハードをロックしてない場合はマウスをいじってるせいで失敗することもあるが、 DOWNからUPが短すぎてキャンセルされてることもあるんだよね。 CLICKで指定するときは時間を入れたほうがいいかもしれないな。 でもハードをロックしてないときはできるだけ短いほうが失敗しにくいはず。 失敗するたびに待ち時間を長くするのがいいかな?
>>795 昔キーが効かなかった理由がわかりました
DOWNだけだったので押されたままになってたみたいだ・・・
>>786-787 おーサンクス。
win2000+regmonであれこれレジストリ捜したけどダメで…結局APIあるのね。
人様のWinはXPで、UWSCよりWSHの方が無難なのでうちでUWSCで試して
できたらVBScriptにしてみるわ。
フォルダの一覧表示は一度開いてから、メッセージ送ってやればまぁできるんだよね。
本当は毎回開く10ヶ所くらいのフォルダを一変に変更したいんだけど、
まぁ最初に開く一つでもいいや。ALT+V Lは指が覚えてるんだけど。
あと Net use ドライブ名: UNC コマンドでネットワークドライブ割り当てた時、
次回ログイン時に自動接続しようとするんだけど、ログアウト時にスクリプトを
実行しないで(切断しないで)再接続しないようにするにはこんな感じでいいの?
Net use ドライブ名: 共有UNC /parsistant:no
ちなみにファイルサーバはWindowsじゃなくてSamba(NAS)。
>>797 いや、出来ると思ってたけどやっぱり出来ませんということで。
>>789 の
> なおこのメッセージはタスクバーに対しては効果がない。
> Net use ドライブ名: 共有UNC /parsistant:no
net use ?
で書式確認してオプション名でぐぐったらいいんじゃね?
DEF_DLL FindWindowA( string, Long ) :Long :User32 DEF_DLL SHAppBarMessage( Long, {Long, Long, Long, Long, Long, Long, Long, Long, Long} ) :Long :shell32 CONST ABE_LEFT = 0 CONST ABE_TOP = 1 CONST ABE_RIGHT = 2 CONST ABE_BOTTOM = 3 CONST ABM_SETPOS = $00000003 CONST ABM_GETTASKBARPOS = $00000005 CONST ABM_WINDOWPOSCHANGED = $00000009 CONST SPI_GETWORKAREA = $00000030 dim ABD_cbSize = 36 dim ABD_hWnd = FindWindowA( "Shell_TrayWnd", 0 ) dim ABD_uCallbackMessage dim ABD_uEdge dim ABD_rc_Left, ABD_rc_Top, ABD_rc_Right, ABD_rc_Bottom dim ABD_lParam = true SHAppBarMessage( ABM_GETTASKBARPOS, ABD_cbSize, ABD_hWnd, ABD_uCallbackMessage, ABD_uEdge, ABD_rc_Left, ABD_rc_Top, ABD_rc_Right, ABD_rc_Bottom, ABD_lParam ) select ABD_uEdge case ABE_LEFT print "LEFT" case ABE_TOP print "TOP" case ABE_RIGHT print "RIGHT" case ABE_BOTTOM print "BOTTOM" selend sleep(10) 取得後にABD_uEdgeを修正してABM_SETPOS を指定すれば、タスクバー以外のアプリケーションバーの位置を移動可能。意味無いけど。
>>800 どうもお疲れです。
結局SHAppBarMessageでは無理つー事ですよね。
FindWindowA( "Shell_TrayWnd", 0 )の結果は
ほんとに「タスクバー」のハンドルなんすかね?
それともアプリケーションバー全般?
>>801 > 結局SHAppBarMessageでは無理つー事ですよね。
うん
> ほんとに「タスクバー」のハンドルなんすかね?
頭にShellって入ってるしタスクバーっていう前提でいいんじゃないかな。
FindWindowExAを使って親ウィンドウのハンドルでNULLを指定すれば
確実にデスクトップに張り付いてるバーにはなるけど、
複数のアプリケーションバーをデスクトップに作れるから当てにはならないよね。
ttp://hibari.2ch.net/test/read.cgi/tech/1277465356/119 > すいませんTest.pngをまとめて入力するにはどうしたらいいですか
クリップボードを経由すればおk。
開くところまで作ってみましたが、なかなか大変ですね。
動作確認用にprint文を入れていますが、削除してかまいません。
動作が止まる場合、途中でsleep()を入れる必要があるかも。
特に起動完了までが長いので、起動完了をチェックする必要があります。
// gimp でファイルを開く動作
ID = GETID("GIMP","gdkWindowToplevel")
print "本体ID:" + ID
acw(ID)
MOUSEORG(ID)
// メニューのAlt+F,L(ファイル-場所を開く)を選択
SCKEY( ID, VK_ALT, F )
KBD( VK_L )
DlgID = GetID( "場所を開く", "gdkWindowToplevel", 5 )
print "DlgID:" + DlgID
print status(DlgID, ST_CLASS) // gdkWindowToplevel
// ファイル名をクリップボードに送信
SendSTR( 0, "c:\data\Test.png" )
// 貼り付け
SCKEY( DlgID, VK_Ctrl, V )
// 指定のファイルを開く
SCKEY( DlgID, VK_ALT, O )
sleep(10)
>>803 これを実行すると
// メニューのAlt+F,L(ファイル-場所を開く)を選択
SCKEY( ID, VK_ALT, F )
KBD( VK_L )
のばしょでPrintの画面にLが打たれてしまいます
どうすればいいですか?
本体ID:-1
l
↑こうなります。
UWSCの再生を押した直後すぐにGIMP上のウィンドウをクリックしておけば
なんとかなるんですけど
そのGIMPのウィンドウを有効(アクティブ?)にするにはどうすればいいですか?
>>804 ACWでアクティブになるはずですが、IDが-1なのでコントロールできていませんね。
IDが正しく取得できていれば正しく処理されるはずです。
すいません。
起動直後とファイルを開いてからとで処理を変えないといけませんでした。
最初の方を次のように書き換えてください。
ID = GETID( "GIMP", "gdkWindowToplevel" ) // ここは同じ。以下を追加。
if -1 = ID then ID = GETID( "GNU Image Manipulation Program", "gdkWindowToplevel" )
ifb -1 = ID
MsgBox("IDを取得できませんでした")
exit
endif
テストしているときに起動しっぱなしでファイルも開いていたので、
タイトルの変更を見落としていました。
ウィンドウタイトルに共通部分があればいいんですが、
起動直後の何も開いてないときと、ファイルを開いた後でまったく共通部分がないので2回取得しないといけません。
ACWだとウィンドウ位置が変更されるので、普通にアクティブにするだけのときは
CtrlWin( ID, ACTIVATE ) です。
後はできるだけぐぐって見てください。
uwscをキーワードに入れるとかなり絞れます。
また、独特の関数名なので関数名でぐぐって見てもいいと思います。
効率的な入力のために、エディタの設定をお勧めしますよ。
ttp://makotowatana.ld.infoseek.co.jp/program.html#sakura シェア版を期間限定で使ってみるのもいいですけど。
ありがとうございます! いま、>1の方にあったリンクの講座でメモ帳制御と クリップボードの制御を覚えました!! なんだか峠越えた感じです!! ありがとうございます!!
>>580 >>611-612 >>619-620 全角スペースの問題が解決してなかった。
全角スペース対応版
-- 拡張子除去(全角スペース対応版).bat --
set x=%*
for %%i in (%x: =?%) do ren "%%~i" "%%~ni"
2行になっちゃった。
さすがに変数使うんで1行にはならないが。
>>806 ファイルを開くコマンドもそうですが、操縦しやすい方法とかソフトを選ぶのも重要なのでお忘れなく。
UWSCはGetSTRとかGetItemとかでテキストデータを取得できますが、
gimpのデータは拾えなさそうなので、
スクリプトを組む前にUWSCのスクリプトで目的のデータが見えるかどうかを調べてください。
ざっと調べるツールは公開されたのがどっかに落ちてると思うので。
// 文字列に指定文字列があるか探す 戻値 = POS( 探す文字, 探される文字列, [n個目] ) 引数 探す文字: 探したい文字列 探される文字列: 探される文字列 今、↑ヘルプのコマンド集を読んでいますが もしかして文章の中にpngという単語が何個あるか調べる コマンドは無いのですか?
>>808 そこらへんはちょっと不自由な言語です。
あるものを有効に使うとか、いろいろ組み合わせるとかの工夫は必要です。
しかし、POSはn個目の指定があるので、1個目から順に見つけていけば数は数えられますよね。
数が増えれば増えるほど時間がかかりますが・・・
処理効率を求めるなら、TOKENが使えます。
ただ、TOKENは文字列を指定できません。
そこで、REPLACE(CHGMOJ)で区切り文字に使える文字に置き換えます。
置き換える先が既に使われている可能性がありますが、それはあらかじめ消しておきます。
HTMLは改行コードは無視できる文法だったと思うので、TABコードを使うべきかと思います。
Replace( str, "<#TAB>", "" ) // 既存の区切り文字を消す
Replace( str, "png", "<#TAB>" ) // 区切り文字を置換
cnt = 0
while "" <> Token( "<#TAB>", str )
cnt = cnt + 1
wend
cnt = ZCUT(cnt - 1) // 区切り文字の個数は、切り出したトークンの個数−1
print "個数:" + cnt
sleep(10)
他には、正規表現オブジェクトを使う方法があります。
UWSCはOLEオブジェクトを扱えるので、パターンマッチした個数を受け取れます。
ttp://www.google.co.jp/search?q=RegExp%20uwsc
Replaceの使い方ミス × Replace( str, "<#TAB>", "" ) // 既存の区切り文字を消す Replace( str, "png", "<#TAB>" ) // 区切り文字を置換 ○ str = Replace( str, "<#TAB>", "" ) // 既存の区切り文字を消す str = Replace( str, "png", "<#TAB>" ) // 区切り文字を置換 ま、動作を確認したコードじゃないのでヘルプを参照したりprint文などを挿入して動作をチェックしてください。
811 :
名無しさん@お腹いっぱい。 :2010/09/27(月) 02:02:23 ID:1ul5SqODO
やはり無いのですね。 有り難うございます。 お陰様でプログラムの完成のめどがつきました。 つくって頂いた部分が凄く参考になり 助かりました。 しかし、シンプルなのに強力なソフトですね。 実は 憧れのWindows上で色々動くプログラムが作れて 感動しています。
あの〜uwsc内で「"」を使うにはどうしたらいいですか? 例えば こんにちは→"こんにちは" のようにしたい場合はどうすればいいですか? ピング名=(ピング名+ " " + ""henkan0" +i+".png"") ていう命令を作ったらエラー出ましたOTL
>>813 お前バッチファイルスレで%~dnp1とかstack.xmlとか書いてた奴と同一人物?
全くヘルプ読む気無いのな。
ヘルプの極々最初の方に書いてあるだろが。
スクリプト └スクリプト構文 └文字列処理 「文字列に改行を含める時は <#CR>、 ” を含める時は<#DBL>です」 正直ヘルプ読みにくすぎてあんまり読む気は起きないけど我慢して読めよ
>>814 >>815 じつにごめんOTL
他の命令とかはかなりヘルプ読んだりしてたけど
そういう基本的な事って載ってないかと本気で思ってた・・・
本当にありがとう
UWSCがスクリプトへの興味の持ち始めてでAutoHotkey、JSFL、Photoshop Scriptingなどに手を出す日々
FireFox関係用語 XPCOM XPConnect pyXPCOM XUL XULRunner UserChrome.js iMacro * JavaScript: XPConnect (これは Firefox に含まれています。 XUL アプリケーションで利用されています) * Java: JavaXPCOM (これは Firefox には含まれていませんが、XULRunner の標準のビルドには梱包されており、また Eclipse のアプリケーションで利用されています) * Python: PyXPCOM (これは標準のビルドには含まれていませんが、 ActiveState Komodo 製品では利用されています) * Perl: PlXPCOM * Ruby: RbXPCOM HTAっていう、HTMLをローカルアプリのように実効できる、XULRunnerっぽいものがあるが、COMで操作できない。 が、Htabox2っていうフリーソフトでCOM操作できるようになっているようです。 ちなみに、mshta.exe "javascript:new ActiveXObject('InternetExplorer.Application');" とかする方法が紹介されているが、これは裏で通常のIEを起動しているのでごみが残る。
820 :
名無しさん@お腹いっぱい。 :2010/10/02(土) 02:24:00 ID:YThMkDSv0
こんぼぼっくすをひとつのういんどうにふくすうはいちするのってどうするのん?
>>820 Pro版の話なら本家で聞けば。
HTAの話ならHTAのスレで。
UWSCフリー版にはSLCTBOX()くらいしか無いよね。
SLCTBOX()の場合、カンマで区切るか、配列を渡せば複数データを持たせることは出来る。
でも、コントロールは一つ。
だから、2種類あるなら2回表示すればいいよ。
822 :
名無しさん@お腹いっぱい。 :2010/10/02(土) 17:37:03 ID:ItuC9Hc80 BE:1260846645-2BP(0)
質問させて下さい。 a.uwsを12回ループ後 b.uwsを1回 この作業を延々と繰り返したいと思っており 別でc.uwsを作成し aを12回繰り返し>bを1回 更にd.uwsを作成しcを無限ループさせる記述をしようと考えたのですが c.uwsに記述する方法がまったく分からず困っております… どの様に記述したら良いのでしょうか?
823 :
名無しさん@お腹いっぱい。 :2010/10/02(土) 18:04:27 ID:uHeDDzc80
//c.uws for i=0 to 11 call a.uws next call b.uws //d.uws while true call c.uws wend //dイラネ while true for i=0 to 11 call a.uws next call b.uws wend
824 :
822 :2010/10/02(土) 18:13:59 ID:ItuC9Hc80 BE:1260846645-2BP(0)
>>823 やっぱりdはいりませんでしたか…
両パターン出して頂きありがとうございます。
XP時代に def_dll Beep(long, long):long:kernel32.dll で sound関数使わずにbeep音鳴らしてたんだけど、win7の64bitでは これもsound関数と同じくスピーカー出力になるんだな…
肝心の質問忘れてた どうにかしてUWSCからwindows7の64bitでビープ音鳴らすことは出来ない?
>>826 自分でビープ音っぽいwav作って鳴らせばよくない?
いや問題なのはその反応速度で音自体じゃないんだ。 スクリプトの動作中にデバッグ用に200ms音を出してたんだけど (動作中にピポボペプポみたいに音が鳴るw) これがwavファイルだとまともに鳴らなかったりブチブチ切れたりと ちゃんと鳴らなくなるんだ。 i=200 Beep(262, i) // ド Beep(294, i) // レ Beep(330, i) // ミ Beep(349, i) // ファ Beep(392, i) // ソ Beep(440, i) // ラ Beep(494, i) // シ Beep(523, i) // ド ちなみにこんなのでドレミが出るんだけど、これをwin7x64でやると プチプチ音が3つほど出るだけで音楽にならん。
>>828 「Windows +7 beep」でぐぐったら一番に出てくる
Vista x64からはスピーカーで鳴らすことになってるということだから、プチプチ音はデバイスの準備(電源投入)の衝撃音かも。
ttp://cpplover.blogspot.com/2010/01/windows-7beep.html > Windows Vistaでは、僕は設計をやりなおして、障害者補助のbeepの仕組みを、新しい「ユーザー・モード・システム・サウンド・エージェント」に移した。
> この問題のあるパソコンというのは、64bit機だけだから、この機能は64bit版Windows限定の話だよ。
> Beep呼び出しを、システム・オーディオ・ハードウェアにリダイレクトすることで、
> サウンド・ハードウェアは、必要になるまで、スリープさせておけるようになったんだ。
へー そんな事があったんだ… そしてbeepの反応が悪いのはリアルタイムじゃないからか… というかwindowsのx64のOSじゃ事実上PCのbeepスピーカーは鳴らせないってことかな。
仮に、音が鳴らないのが、スピーカーとかに電源投入するのが間に合ってないだけなら、 裏で無音のwavを鳴らしっぱなしにしておけばいいかも。 もしくは、音を鳴らせるようにデバイスの準備をするとか。 その場合ちょっと難しいね。DLL呼び出すか、・・・演奏ソフトを起動しておくだけでいけるかな?
UWSCで作った常駐型EXEをタスクトレイに格納するには どうすればよいのでしょうか?
出来ない 諦めるかAHKやAutoITに乗り換える
834 :
832 :2010/10/06(水) 20:53:41 ID:TFov1LAY0
>>833 ありがとうございます。
できないのか・・・(´・ω・`)
835 :
名無しさん@お腹いっぱい。 :2010/10/12(火) 14:28:54 ID:1L0ROS/70
>>446 count()のsleep()方法だとかなりの誤差が出てくるので、
sleep()の代わりに使うtick()関数を作った。
GetTime()を使うけどSleep時間を計算してSleepするので負荷はかからない。
// tick(3) とすると、3秒刻みでSleepします。
// 呼び出しが遅れるとアクセサリのアナログ時計の秒針のように、飛ぶことがあります。
// なので、呼び出し回数×刻み時間が正しい時間になる保証はありません。
Function tick(t_cnt=1)
t = gettime()
sleeptime = (t_cnt - t mod t_cnt) * 1000 - G_TIME_ZZ
sleep(sleeptime/1000)
result = sleeptime/1000
Fend
この関数でもSleep後の時刻に数十ミリ秒のばらつきが出ます。
それをなくすにはやっぱりGetTime()のループにする必要がありますが、15ミリ秒単位でしか時刻を取れないので、
GetTime()のループにはSleep(0.015)を入れます。
SleepなしだとCPU100%張り付きですが、秒間の回数が66回になるので全然軽いです。
ここまでやってもCPUが他の作業をしているとやっぱり幾分ばらつきが出てしまいます。
さすがにそれ以上を求めるならスクリプトをあきらめてマルチメディアタイマーとかを使うことになるでしょうね。
時間を気にするシビアなものはuwscは不向き
いや、こないだの'10年10月10日10時10分10秒に投稿するイベントのときに、 それをやってくれるスクリプトがあったらいいなと思って、クリックするタイミングを調整する関数を作ってたんです。 以前にも作ったことはあったんだけどね。 なんか無理やりなコーディングだったのでもうちょっとスマートにしたいなと。 Vipperでは小数点以下二桁まで.10に合わせた投稿が2件あったので、 UWSCでどこまで近づけるかなあとやってみました。 どの道通信回線で数十ミリ秒のズレがあるし、ネイティブ言語でも普通のタイマー使うんならUWSCでも同じ結果だし。 ちなみに↓がGetTime+15ミリ秒刻みの微調整。繰り上がり処理がポイント。 recentZZ = 0 Rize = 0 Repeat sleep(0.015) gettime() if G_TIME_ZZ < recentZZ then Rize = Rize + 1 recentZZ = G_TIME_ZZ ZZ = Rize * 1000 + G_TIME_ZZ Until (zcut(1000 + ZZ2 - ZZ1) mod 1000) < ZZ
質問なのですが if GETKEYSTATE(VK_ESC) then a=1 これはESCが押されたときにa=1になるのだと思うのですが これをESCが押されて、離したときにa=1にする方法って有るのでしょうか? 初歩的な質問ですいません
>>838 ifb GETKEYSTATE(VK_ESC)
fukidasi("押した")
while GETKEYSTATE(VK_ESC)
// キーは押されている
sleep(0.015)
wend
a = 1
fukidasi("離した")
endif
ループにしない場合はフラグをセット
A
if GETKEYSTATE(VK_ESC) then flag = true
B
ifb flag
ifb ! GETKEYSTATE(VK_ESC)
flag = false
a = 1
endif
endif
>>839 素早い回答ありがとうございました^^
希望通りの動きをしています。
助かりましたー感謝です。
>>837 gettimeの値でスリープ時間調整するともう少し正確になると思うけど
>>841 ifb ! ((G_TIME_ZZ + 15) mod 125 - 13) mod 47
sleep(0.015)
else
sleep(0.016)
endif
こんな感じでやってみたけどだめだ。
G_TIME_ZZ の取りうる値は13〜998のうち15〜16の間隔ごとの64個の数値なので
計算でどちらになるのかは導き出せる。
でも、sleeptimeをどう調整すれば重複なく全ての数値を取り出せるのか分からない。
14〜17くらいの数値をいろいろ入れてみたけど、重複したり飛ばしたりして、
1秒間あたりが61個とか68個にしかならない。
その中間というのが、ばらつき以外では出てこないんだね。
16ミリ秒を含めると61個以下になって飛ばしてしまうので、結局68個拾ってくれる15ミリ秒でいくしかないよ。
UWSC自身の処理時間が影響するのかどうか・・・
そう言えば、テスト用のコードを除去すると成績が上がるんだよね。
その都度printできないので配列に入れてるんだけど、それがすこし影響するっぽい。
でも、15ミリ秒でばらつき出てたからもうしょうがないんじゃないかな。
5ミリ秒とかいっそのことsleepなしでまわさない限りどっかでずれ込む。
ネイティブコードでも優先度の高いプログラムが動いてると後回しにされてしまうわけだし、
指定時間できっちり動かすには実行優先度を上げるしかないと思う。
他のプログラムと連携するUWSCで優先度を上げるわけにはいかないし。
sleepなしだと割りと正確になるのは多分優先度が少し上がるからだと思うけど、CPU使用率を下げるためのsleepなので。
つい先日知って、マウスの動きとかを記録してつかってるレベル なのですが、ちょっとお聞きします。 ゲームでマウス右を押し続けて動かすことで視点を変更する。 これでマウスを水平に動かすことで視点を180度回転させたいのですが 手動でやるとどうしても上下にぶれてしまいます。 スクリプトでする場合はどうすればいいのでしょうか?
y軸の値を変えずにx軸だけ変えればいいじゃん?
printで書いた文字をすっかり同じ内容に時間をつけてTEXTファイルに出力したく PROCEDURE log(mozi) print mozi //文字列をカレントディレクトリにあるログ.logに収納する。 FILE_NAME = "ログ.TEXT" //ファイルの名前 PUBLIC F2ID F2ID = FOPEN(FILE_NAME, F_WRITE) GETTIME() YY = G_TIME_YY MM = G_TIME_MM DD = G_TIME_DD HH = G_TIME_HH NN = G_TIME_NN SS = G_TIME_SS 時刻 = YY+"/"+MM+"/"+DD+" "+HH+":"+NN+":"+SS SENDSTR(F2ID,時刻 + mozi) FEND というプロシージャ?を作成したのですが、ログ.textは作成されるのですが 中に何も書かれず、そのままのままです。 行き詰っております。ご伝授いただけると幸いです。
>>845 ファイルIDとウィンドウIDとは別種のものですよ。
F2IDに対してSENDSTRはできません。
FOPEN したら FCLOSE しないといけないし、
書き込みには FPUT を使います。
847 :
845 :2010/10/15(金) 18:44:25 ID:/cSljJiS0
>>846 返答ありがとうございます。
"ID"とつくので同じものだと思っておりました…
ご指摘の通り
//省略
F2ID = FOPEN(FILE_NAME, F_WRITE)
//省略
FPUT(F2ID,時刻 + mozi)
FCLOSE(F2ID)
FEND
の処理を行った場合書き込めたには書き込めたのですが
log()を呼び出すたびにFCLOSEが行われ
たとえば
log("りんご")
log("みかん")
とやった場合、時刻 + みかん
としかログが残されません。古いほうは上書きされ消されてしまいます。
終了時にFCLOSEをつける方法以外に
上書きではなく過去のに追加していく方法はございませんか・・・?
よろしくお願いします。
848 :
845 :2010/10/15(金) 18:47:41 ID:/cSljJiS0
自分で読み直してみて 私って少し読みにくい文を書いていましたね・・・ 訂正です (誤)終了時にFCLOSEを (正)スクリプトの終了時にFCLOSEを
そんな長々と書き込むよりも ヘルプ見りゃ一発でわかると思うんだけどなぁ
ヘルプには 行: 書込み行 (1から指定) 0(デフォルト)で行末に追加 ってあるから、間違ってはいないはず。 もしかしたらFPUT〜FCLOSE〜再度のFPUTまでが速すぎて反映される前に空っぽのファイルに書き込んでるのかも。 Module化したらFOpenは自動化できるんだけど、FCloseは自動化できないんだよね。 まあスクリプト終了時にはFCloseしなくても問題ないと思うけど・・・ MODULE Log DIM FID PROCEDURE Log() // 自動的に呼ばれる FID = FOPEN〜 FEND ENDMODULE 僕の場合はDOSコマンドで吐き出してるけど、カレントディレクトリがWindowsのシステムになるんだっけ。 ちゃんとディレクトリ指定しないといけない。 GET_UWSC_DIR はUWSC本体の場所だからあんまりよくないんだけど。 あと、使っちゃいけない文字列があるんで置き換えとか必要。 text = Replace(text, ">", ">") text = Replace(text, "&", "&") DOSCmd("echo " + G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2 + "<#TAB>" + text + ">> <#DBL>" + GET_UWSC_DIR + "\" + LogFileName + "<#DBL>") DOSコマンド実効例 > echo 2010/10/14 08:17:31 テキスト>> "c:\protram files\uwsc\log.txt"
851 :
845 :2010/10/15(金) 21:30:43 ID:/cSljJiS0
>>850 返答ありがとうございます。
貴方の書かれたDOSCMDを用いた方法では望んだ効果が得られました。
しかし、モジュール化やクラス化も良くわかっておりませんし
DOSコマンドも同様ですが適当にいじって覚えて生きたいと思います。
>もしかしたらFPUT〜FCLOSE〜再度のFPUTまでが速すぎて反映される前に空っぽのファイルに書き込んでるのかも。
途中にsleepを入れても結果としては変わりません。FOPEN-FPUT-FCLOSEを行うと
以前書いてあったものは上書きされて消されてしまうようです。
>>851 > 途中にsleepを入れても結果としては変わりません。FOPEN-FPUT-FCLOSEを行うと
> 以前書いてあったものは上書きされて消されてしまうようです。
> F2ID = FOPEN(FILE_NAME, F_WRITE)
当たり前やがなw
これは既存ファイルが無ければ作り、あれば上書きって意味だぜ。
ちゃんとヘルプ読んでるか?
> 戻値 = FOPEN( ファイル名, [オープンモード] )
> 引数
> ファイル名: テキストファイル名
> オープンモード: 以下の方法で指定
> F_READ // 読み専用モード(デフォルト) SJIS、UTF8、UTF16に対応
> F_WRITE // 書き専用モード(既にファイルがあれば前の情報は消去)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> (UNICODEがある場合に UTF8、無い場合にはSJISになる)
> F_READ or F_WRITE // 読み書き両用指定
~~~~~~~~~~~~~~~~~~~~
ちなみに上のdoscmdの奴はわざわざUWSCで時刻取得せんでも doscmd("echo %date% %time%<#TAB>" 〜 とかやれば済むと思うが。
854 :
845 :2010/10/15(金) 21:49:02 ID:/cSljJiS0
>>852 ( ゚Д゚)・・・
申し訳ございません…
読んでいたつもりだったのですが…
大事なところは読み飛ばしていた or 解釈ミスをしていたようです…
と、とりあえず、おかげでDOSコマンドを使わずとも
求めていた動作ができるようになりました。
ありがとうございました。
PROCEDURE log(mozi)
print mozi
//文字列をカレントディレクトリにあるログ.TEXTに収納する。
FILE_NAME = "ログ.TEXT" //ファイルの名前
PUBLIC F2ID
F2ID = FOPEN(FILE_NAME,F_READ or F_WRITE)
GETTIME()
YY = G_TIME_YY4
MM = G_TIME_MM2
DD = G_TIME_DD2
HH = G_TIME_HH2
NN = G_TIME_NN2
SS = G_TIME_SS2
時刻 = YY+"/"+MM+"/"+DD+" "+HH+":"+NN+":"+SS
FPUT(F2ID,時刻+" "+mozi)
FCLOSE(F2ID)
FEND
F_READ or F_WRITEにすればよかっただけという結果でとても恥ずかしい限りです。
>>852-854 すいません。見落としてました。
> doscmd("echo %date% %time%<#TAB>" 〜
ナンテコッタイ
こんな簡単になるんですね
845か? 簡単と言ってもdosの環境変数だからdoscmd内専用で基本的にUWSCでは使えないよ。 date = doscmd("echo %date% %time%") みたいにでもしない限り… <#DBL>とか<#CR>とかとは別物だから勘違いしないでね。
857 :
名無しさん@お腹いっぱい。 :2010/10/17(日) 22:52:50 ID:7zIh4rNT0
レベル低いけど失礼します エクセルのオートフィルってどうやるんでしょう? Excel.Range("B1").Select.AutoFill Destination:=Range("B1:B3") VBAの見よう見真似のこれじゃダメだったです
実行中のスクリプトを途中で止めたいときはどうすればいいんですか? UWSCの停止ボタンは見えてるんですが、マウス、キーボード操作が スクリプトでコントロールされてクリックできなくなったので、スクリプトが終わる まで、じっとしてました。 また、HELPはネットワーク越しでは参照できないとのことですが、こういった 基本的な使い方がわかるサイトとかありますか?
なんでこうヘルプ読まない馬鹿が多いの?
>>858 ヘルプファイルをネットワーク越しにコピーしないの?
>>858 それね、管理者に堂々と「HELP」が参照できませんよ。
って言って大丈夫。
それでも対応が遅かったら、「uwsc.chm」のアクセスブロック
を解除してくださいって迫ったほうがいい。
単純に、停止や中断がしたいなら
中断→Alt+F1、停止→Alt+F2だよ。
お互い社会の底辺だと思うけど、がんばろうな。
ヘルプ読みづらすぎるしな 読む気が失せる でも俺は読むけど
ここで質問したりソースを探してネットを彷徨ったりしたあげく、あとでHELPを見ると必要なことはすべて書いてあったことに気づく。 しかし知らない状態でHELP読んでスラスラスイと分かるヘルプでもないんだよな…
>>862-863 漏れはこの言語ではここはこういう仕様になってるのかとか読めたよ
まーその前から趣味でコンピュータ言語マニアだからだろうけど
ただし実生活とは無関係だったりするw
誰も居ないかもしれませんが質問させて下さい。フリー版使用しています。 Google Chromeで動作中のブラウザゲームを自動化しようとしていましたが、動作の記録を行ってそれを動かしてみると、殆ど動きがない状態です。 中身を見た感じACWとMMVだけなので、フォーカスが移ってから第一クリックまでのマウスの動きまでしか記録されていないような状態だと思われます。 正しく記録するための解決法などありますでしょうか?
単純にマウスの動作を再現できればいいということなら、 メモ帳とかペイント上でイメージしながら操作し、記録する手があります。 記録後、適正な操作対象アプリをACW()で呼び出すように変更します。 何もないと座標が分からないでしょうから、 操作対象をAlt+PrintScreenでキャプチャしてペイントに貼り付け、キャプチャ画像上でシミュレーションします。 さらに、ペイントをキャプチャしてペイントに貼り付け、編集エリアの左上端の座標を求めます。 記録した座標から左上までの座標を差し引けばズレを補正できます。 対象窓の左側と上側を操作する必要がなければ、最初から画像をずらして正しい座標を記録する方法もあり、 こちらの方が再計算が不要なのでお奨めです。
ある程度想像してはいましたけど、そういう方法も有効でしたか。 少し手間がかかりそうなので、時間があるときにやってみます。ありがとうございました。
CLKITEM(id, "●●", CLK_ACC)はどうやってクリック対象を選んでいるのでしょうか。 同じようなボタンでも押せるボタンと押せないボタンがあって困っております。 ご存じの方教えてください。
特定の座標を四つランダムに選択したいんですけどどうしたらいいですか zahyou1 = BTN(LEFT, CLICK, 100, 100) zahyou2 = BTN(LEFT, CLICK, 200, 100) zahyou3 = BTN(LEFT, CLICK, 100, 200) zahyou4 = BTN(LEFT, CLICK, 200, 200) とやったとして4つの変数をランダムに選択するにはどうしたらいいのかわかりません random()は数字しか受け付けないみたいでもうどうしたらいいのか
質問失礼致します 拾い物を編集しようと思うのですが PUBLIC key,keyold,keyon,keyoff,item key=0;keyold=0;keyon=0;keyoff=0 while True if GETKEYSTATE(VK_F12) then exit IFB PEEKCOLOR(512, 384) = $0000FF KBD(VK_Ctrl,DOWN) ELSEIF PEEKCOLOR(512, 384) <> $0000FF KBD(VK_Ctrl,UP) endif keySet() SLEEP(0.01) wend Procedure keySet() DIM keych; keyold = key; key = GETKEYSTATE(VK_LSHIFT) keych = key XOR keyold; keyon = key AND keych; keyoff = keyold AND keych Fend 座標地点の色が赤($0000FF)になった時に Ctrlが入力されるようになってますが 座標地点の色が赤($0000FF)になった時に Ctrlの後にRも入力されるようにするにはどうすればいいのでしょうか Ctrl,down の後に r,down を追加すると 座標地点の色が赤でないときもRを入力し続けてしまいました
>>869 変数を配列化してランダムな数字を配列の添え字にするとか
eval(zahyou + (random(3)+1)) として変数名を文字列連結して文字列演算するとかあるけど
> zahyou1 = BTN(LEFT, CLICK, 100, 100)
これはbtn()の結果を格納するだけの話だね。
そういう処理をしますよっていう関数ポインタとはならない。
>>870 > 座標地点の色が赤でないときもRを入力し続けてしまいました
ちょっとよく分からない症状だけど、押しっぱなしになってるんだろうから、UPをしないとだめだよ。
あと、それぞれのキーは、クリックに23ミリ秒〜50ミリ秒くらいかかるから、
それくらいは時間をかけるようにしないと。
間にsleep(0.023)を入れるか、kbd(vk_r, up, 23)にするとか。
あと、文字キーは基本的にdown, upじゃなく、click(デフォルト)にするべき。
>>871 クリックにしてみると常にCtrlを入力し続けてしまいました
座標地点の色が赤になったときに1回だけ〜を実行するという形は
どのようにすればいいのでしょうか?
UWSCで処理したデータをグラフ(棒グラフ)で表示させたいのですが、どういうやり方がいいでしょうか? エクセルにデータを渡してグラフを描画する方法ですかね?
>>871 今は理解出来ないのでeval、文字列連結、文字列演算を勉強してきます
関数の格納は出来ないんですね・・・これから気をつけます
知るべきところがハッキリしてやる気が出ました
ありがとうございます
>>872 ああ、ずっと赤なんですね。
previous って変数に前回の状態を保存しておきましょう。
で、IFB PEEKCOLOR(512, 384) = $0000FF の結果をfRedに代入
dim previous = false
while true
fRed = (PEEKCOLOR(512, 384) = $0000FF) // UWSC特有の式で、判定結果の代入ができる。
// fRedはtrue, またはfalse
IFB fRed and ! previous // previousがfalse(ひっくり返してtrue)でかつfRedがtrue、つまり、赤に変わったときに実行。
kbd()
ENDIF
previous = fRed //今回の判定結果を保存して持ち越し
sleep()
wend
>>873 エクセル必要でしょう。
ちょっとの量ならエクセル起動して貼り付けでいいけど、量が多いならテキストファイル(.csv)に保存してエクセルで開いて処理が確実。
でも、いっそのことエクセルだけで処理した方が・・・・
>>875 説明下手ですみません
やりたい事を要約すると
座標地点が赤になった時にだけCtrl→R という順番に入力してほしいのです
この方法で試してみます
ありがとうございます
>>869 n = RANDOM(100)
ifb n > 75 then
zahyou1 = BTN(LEFT, CLICK, 100, 100)
elseif n > 50 then
zahyou2 = BTN(LEFT, CLICK, 200, 100)
elseif n > 25 then
zahyou3 = BTN(LEFT, CLICK, 100, 200)
else
zahyou4 = BTN(LEFT, CLICK, 200, 200)
endif
こんなんでどう
おっと余計な部分消し忘れてた n = RANDOM(100) ifb n > 75 then BTN(LEFT, CLICK, 100, 100) elseif n > 50 then BTN(LEFT, CLICK, 200, 100) elseif n > 25 then BTN(LEFT, CLICK, 100, 200) else BTN(LEFT, CLICK, 200, 200) endif
select random(4) case 0 BTN(LEFT, CLICK, 100, 100) case 1 BTN(LEFT, CLICK, 200, 100) case 2 BTN(LEFT, CLICK, 100, 200) case 3 BTN(LEFT, CLICK, 200, 200) selend
880 :
名無しさん@お腹いっぱい。 :2010/11/07(日) 06:50:41 ID:Nw0dCZsn0
よろしくお願い致します。 IEで画面にxxxというテキスト表示があったらAボタンをsubmit、 yyyという表示があったらBボタンをsubmit、 どちらも無かったら出てくるまで待機、 ということをやりたいのですがどのように書けばよいでしょうか?
あるキー(ここではF12とします)でマクロのon/offをするにはどうすればいいのでしょうか offはわかるのですが・・・
>>880 while true
ifb "xxx" がある
IE.document."Aボタン".submit()
break
endif
ifb "yyy" がある
IE.document."Bボタン".submit()
break
endif
sleep(1)
wend
>>881 Alt+F1
特定のキーを押した時に 特定のスクリプトを読み込みたい場合は どうすればいいのでしょうか
>>883 キーを監視してるようなソフト、例えばゲームなんかが表にいると動かないかもね。
>>884 自分で読み込めばいいよ。
他の.uwsファイルをCALLできるんだから。
ただ、複数の.uwsファイルに分割しても、一つの名前空間だから、同じ名前の変数とか関数があるとぶつかるから、
呼び出されることを前提に作らないといけないけど。
>>885 callでスクリプトを呼ぶのはわかるのですが
「特定のキーを押した時に読み込む」という動作はどのようにすればいいのかわかりません><
>>886 while true
if GetKeyState(VK_F1) then call SUB1.uws
sleep(0.2)
wend
訂正 while true if GetKeyState(VK_F1) then call("SUB1.uws") sleep(0.2) wend
Callはスクリプト読込み時に一括読込みじゃなかった? 関数作ってやらないと意味ないような…
>>888 関数:CALLがありません とエラー表示が出ます
PUBLIC key,keyold,keyon,keyoff,item
key=0;keyold=0;keyon=0;keyoff=0
while True
if GETKEYSTATE(VK_F12) then exit
IFB PEEKCOLOR(512, 384) = $0000FF
KBD(VK_Ctrl,DOWN)
ELSEIF PEEKCOLOR(512, 384) <> $0000FF
KBD(VK_Ctrl,UP)
endif
keySet()
SLEEP(0.00000000000000000000000000001)
wend
Procedure keySet()
DIM keych; keyold = key; key = GETKEYSTATE(VK_LSHIFT)
keych = key XOR keyold; keyon = key AND keych; keyoff = keyold AND keych
Fend
に特定のキーを押した際にスクリプトAを呼び出して
スクリプトAでも同じキーを押してこのスクリプトを呼び出したいのですが・・・
>>890 callの使い方間違ってた。
詳しくはヘルプ見てね。
ヘルプ見てもわからないので質問したのですが・・・;
>>892 キーワードでCALLを検索してサンプルを表示すると出てくるけど
.\っていうのはカレントフォルダって意味で、省略可能だよ。
つまり、
>>887 でよかったんだ。
>>888 は、このスレか過去スレ検索したらそういうのがあったのでそうだったかと。自分では使わないので。
ヘルプに載ってるサンプル
// For - Next
For x = 0 to 600
MMV(x, 200) // マウスムーブ
If (x mod 100) = 0 then Call .\TEST.uws // 100ドット毎にTEST.uws の実行
Sleep(0.1)
Next
>>894 while true
call スクリプトA.uws
sleep(1)
call スクリプトB.uws
sleep(1)
wend
--スクリプトA.uws--
while true
if GetKeyState(VK_F1) then exit
sleep(0.1)
wend
--スクリプトB.uws--
while true
if GetKeyState(VK_F1) then exit
sleep(0.1)
wend
if GetKeyState(VK_F1) then
のあとに同じキーでまた別の処理をするんなら、
thenの中でsleep(1)相当の時間をかけること。
なぜなら、押して、離すまでに何度も繰り返し呼ばれるから。
>>872 ,875 を参照。
UWSCでcallってincludeみたいな使い方しかしたことないけど。 冒頭で常用関数ばかり書いたスクリプトをcallして使うっていう。 なんで関数じゃまずいのかわからん。 > SLEEP(0.00000000000000000000000000001) sleepの最小値0.01だろ。
> に特定のキーを押した際にスクリプトAを呼び出して > スクリプトAでも同じキーを押してこのスクリプトを呼び出したいのですが・・・ 「このスクリプト」ってどっちの事だろう… 再帰処理するということ?
>>897 そうですね
スクリプトA(メイン)からスクリプトB(Aに再帰するためだけのもの)
単純に言うとショートカットキーがアクティブウィンドウで効かないので
一時停止と再生をスクリプトでやってしまおう ということです
sleepは最小値知らなかったときにとりあえず入れたものなので
修正しておきます
899 :
名無しさん@お腹いっぱい。 :2010/11/10(水) 04:09:04 ID:yv8Muard0
>>882 遅くなってすいません。
やってみます。ありがとう。
900 :
名無しさん@お腹いっぱい。 :2010/11/10(水) 06:50:02 ID:yv8Muard0
gmailのページならログインボタン、googleのページなら検索ボタンを押すようにしたいと思っています。
>>882 さんに頂いたアドバイスを参考に以下のように書いてみたのですが、何も起こらずに終了してしまいます。
どこを直したらいいでしょうか。。
IE = GetActiveOLEObj("InternetExplorer.Application", "")
BUN = IE.document.body.innertext()
while true
ifb Pos("Gmail へようこそ", BUN)>0
CLKITEM(IE, "ログイン", CLK_ACC)
break
endif
ifb Pos("Google", BUN)>0
SENDSTR(IE, "検索文字", 4, True, True)
CLKITEM(IE, "Google 検索", CLK_ACC)
break
endif
sleep(1)
wend
結局のところコミュニティの質も含めてAutoHotKeyとuwscとどっちが上なの?
>>901 AHKとUWSCは基本的に違う用途
まーAHKは機能が多いからよっぽど時間かければカバーできる部分もあるんだろうけど
変態文法と日本語環境での変なバグを乗り越えてまでやりたくないw
ahkでuwscスクリプトを呼ぶ、なんてことをしているのは私だけか。 uwscにはホットキー機能がないからな。
俺はuwscでwsh呼ぶ使い方が多い。 拡張子uwsだけど中身ほとんどvbsみたいなスクリプトとか。 ahkはほんの触り位しか知らんけど、改めてあの文法 覚えるくらいならC#で書いたほうが楽な気がする。
>>903 自分もそうしてたw
でも最近はそれ用途はkeyhacに変更した。
>>900 戻値 = CLKITEM( ID, アイテム名, [種別, チェックOn/Off, 番号] )
引数 ID: Windowを識別するID
SENDSTR( ID, 文字列, [番号, 送信モードフラグ, ACC指定] )
引数 ID: Windowを識別するID
戻値 = CREATEOLEOBJ( COMオブジェクト名 )
戻値 COMオブジェクト
ID = HNDToID(IE.HWND)
戻値 = IELINK( IE, リンク表示文字, [番号] )
引数 IE: IEオブジェクト
戻値 = IESETDATA( IE, 値, Name, [Value, 番号] )
引数
IE: IEオブジェクト
値: 設定する値
Name: 値取得するエレメントのName
IESetData( IE, text, "MESSAGE" )
入場処理() sleep(5) //スキル使用() 内部処理() 終了処理() a =a + 1 b =b + 1 NEXT マクロの一部ですが、入場処理とかの()内はなにを入れればいいんでしょうか? 数字だと「入場処理がありません」とでます;
procedure や function が無いという落ちなら殺す
すいません、どこに入れればいいでしょうか?
>>910 UWSCを起動して右クリックしてHelp
目次タブとキーワードタブとあるから、キーワードタブを開いてprocedureをコピペ
ブラウザで連投する用途でuswcを使っていますが、 最新版にしたら頻繁に強制終了してしまうので 旧版を使いたいのですが、我慢します。
>>911 Webページへのナビゲーションは取り消されましたってでます…
>>913 じゃあ右クリックじゃなくてuwsc.chmをダブルクリック
>>916 ありがとうございます!それを試したら表示されました
初心者なもんで・・・すいません・・・
918 :
名無しさん@お腹いっぱい。 :2010/11/12(金) 16:56:46 ID:Ud3rgxfh0
>>907 ありがとうございます。
プログラムとか始めてなのでよく分かりませんが
一つ一つ勉強しながらやってみようと思います。
919 :
名無しさん@お腹いっぱい。 :2010/11/14(日) 00:22:23 ID:v5nFXMg60
もし画面上に特定の色が表示されたらそこをクリックという動作はどういうプログラムになりますか?
>>919 >>872 >>875 検索すること覚えてくださいね。
ログの検索は専用ブラウザ使うと楽ですよ。
普通のブラウザの場合は「全部読む」で1〜最新まで開いてページ内検索とか、Google。
>>920 中級プログラマー気取って
自分で答えられない回答でるとコレ
さて、実際にあれで動くのだろうか
動くわけねーけどそこまでしらね。
>>328-332 に僕が作った色判定スクリプトがあるから、参考にすればいいだろ。
グレーチェックはUWSC使いはじめにHP・MPのメータ用に作ったんだけどなかなか使いでがあるんですよ。
つまり、初心者向けで実用的ってことです。
>>877-879 遅くなりましたが
思い通りの処理が出来るようになりました
ありがとうございます!
>>871 evalの説明読んだりしましたがもう少し理解するのに時間かかりそうです
今からevalを使った適当なマクロを組んでみます
みなさんマクロ用画像の抽出ソフトは何を使っていますか?
Alt+PrintScreen + ペイント = 最高!
それだと余計な部分が入る
余計な部分は切り取るなりすればおk。 ペイントでの正しい切り取り方法知らんが、 画像全選択&移動と、画像の淵移動でのサイズ変更で大体対応できる。
ペイントはスポイトで吸い取ったRGB(BGR)が調べられるから好き。 でも、もっと便利なフリーソフトが腐るほどあるから、 そっちを使った方が利口なんだよね(^^;
スポイト的なのなら ヘルプに載ってた例をちょっと変えたの使ってる OPTION EXPLICIT DIM c = PEEKCOLOR(G_MOUSE_X, G_MOUSE_Y) DIM r = getred(c) DIM g = getgreen(c) DIM b = getblue(c) PRINT _ "R: " + r + " G: " + g + " B: " + b + _ "<#CR>BGR: " + c + " = #" + fmthex(c, 6) + _ "<#CR>RGB: #" + fmthex(r, 2) + fmthex(g, 2) + fmthex(b, 2) FUNCTION getred(bgr) RESULT = bgr AND $FF FEND FUNCTION getgreen(bgr) RESULT = (bgr AND $FF00) / $100 FEND FUNCTION getblue(bgr) RESULT = (bgr AND $FF0000) / $10000 FEND FUNCTION fmthex(num, col) RESULT = CHGMOJ(FORMAT(num, col, -1), " ", "0") FEND
そういうことをするならからあげというツールがあってだな… 車輪の再発明は要らんのよ
結局何のツールがいいの?
最初コレ使おうと思ったけどjsで十分だった flashとかの操作だったらコッチの方が良いのかも?
935 :
903 :2010/11/16(火) 17:37:48 ID:MlhI4BWN0
>>905 遅レスでスマヌ
たとえば AHKスクリプト aa.ahk
UWSC.exe
UWSCスクリプト bb.uws
を同じフォルダに入れておいて
aa.ahkの中に、
#2:: Run, %A_ScriptDir%\UWSC.exe %A_ScriptDir%\bb.uws
return
と書いてaa.ahkを実行。
Win+2 を押すと bb.uws が実行される
(#がwinキー、%A_ScriptDir%はスクリプト自身のあるディレクトリの意味)
同じような記述をたくさん書けば
好きなショートカットキーでuwscスクリプトが実行されるahkスクリプトになる
>>935 ありがとうございます
まとめページを見つけたので参考にして頑張ってみます!
937 :
名無しさん@お腹いっぱい。 :2010/11/19(金) 23:07:51 ID:4B4u2CSz0
repeat kbd(vk_a, down) sleep(30) kbd(vk_a, up) sleep(270) until false これってどういう動作をするスクリプトですか?
ちきゅうがばくはつするすくりぷとです
こんなすくりぷとにまじになってどうするの
>>938 むしろ宇宙全体が再ビッグバンするすくりぷと
942 :
941 :2010/11/21(日) 02:14:31 ID:hWcXAALZ0
hashtbl handle_hash while true num_win = GETALLWIN() for i = 0 to num_win - 1 window_id = ALL_WIN_ID[i] ifb STATUS(window_id, ST_VISIBLE) then handle = IDTOHND(window_id) ifb !handle_hash[handle, HASH_EXISTS] then ifb STATUS(window_id, ST_X) = 0 and STATUS(window_id, ST_Y) = 0 and _ STATUS(window_id, ST_CLX) = 0 and STATUS(window_id, ST_CLY) = 0 and _ STATUS(window_id, ST_WIDTH) = STATUS(window_id, ST_CLWIDTH) and _ STATUS(window_id, ST_HEIGHT) = STATUS(window_id, ST_CLHEIGHT) then // フルスクリーン handle_hash[handle] = 1 continue endif x = STATUS(window_id, ST_X) if x >= -10 then ACW(window_id, x - 1920, STATUS(window_id, ST_Y) handle_hash[handle] = 1 endif endif next sleep(0.1) wend
943 :
941 :2010/11/21(日) 02:15:16 ID:hWcXAALZ0
機能 ・ウィンドウが最初に表示されたときにメインモニタにある場合はサブモニタに強制移動 ・手動でサブモニタからメインモニタに移動されたウィンドウに対して強制移動は発動しない ・フルスクリーンで起動されたウィンドウに対しても強制移動は発動しない 想定環境 ・メインモニタ(1920x1080)が右、サブモニタ(1920x1200)が左 その他 ・「if x >= 0 then」じゃなくて「if x >= -10 then」なのは特殊なウィンドウ形状のために メインモニタの画面端に表示されたときにx座標がマイナスになるものがあったため
簡略化について教えてください。 for i =・・・・ ・・・・ next 上記のような違う処理が複数ある場合、簡略化してAとかBとかにして 処理できないでしょうか?また、Aを3回とかBを5回とかも指定したいです。
別なファイルにまとめておいて、callで呼び出して実行とか使えないかな? 手間は一緒かもしれないけど見栄えはいいかも。
>>945 早速レスありがとうございます。
それも考えましたが、回数とかを変更するときに大変に
なりそうなので諦めました。
for・・・ってのを関数に入れることはできないのかな?
1行だったら関数でできるのを見つけたのですが。
意味がよくわからんが abc(3) function abc(n) for i=1 to n hogehoge next fend とかいうこと?
function じゃなくて procedure だった
作者の方、アスキー・キャラクター・コードを、読み書きする、関数を、採用してください
読み書きするって何に対して? 文字操作やウィンドウ操作の関数を使えばコード単位での読み書きなんて よく使われる関数なので普通に実装されていると思うけど 今ある関数で出来ない、難しいと勘違いしているだけでは? 恐らく具体的にやりたい事を書けば解決する話だと思う
>>947 これについてkwsk
forで処理するのが5種類ぐらいあってそれを
ABCDEと割り当て実行するというものです。
Aを2回やったら次はBを1回、その次はCを4回と
いった具合です。
forというのを書いていくと長くなるし処理内容を変更するときも
大変ですよね?なので簡単にトップ当たりに5種類の処理を
書いてそれを実行できたらと思ってるのですが。
同じ事を回数を変えてやりたいってならわかるが、 それぞれ違うことをやりたいなら一々書かにゃ。
953 :
名無しさん@お腹いっぱい。 :2010/11/24(水) 07:47:54 ID:QkfCopmS0
YOUTUBEの広告を自動で閉じたいんだけど、動画再生がカクカクになってしまいます。 アドバイスよろしくです。これってそんなに重い処理なんだろうか。。 While True CHKIMG("広告Xボタン.bmp") BTN(LEFT,CLICK,G_IMG_X+5,G_IMG_Y+5) SLEEP(0.5) //0.5秒待つ Wend
chkimgは走査する領域が広くなればなるほど重くなる罠
>>953 uwscとかと関係ないがフォックスの場合アドオンを入れるだけで
広告はブロックできるよ。
ていうかYoutubeに閉じなきゃいけないような広告出てくるか? ニコとかの間違いじゃないのか。
windows vista 以降で半透明窓枠使ってると chkimg は糞重くなるよ
958 :
名無しさん@お腹いっぱい。 :2010/11/25(木) 00:35:01 ID:oT/KFntN0
>>954 そうなんだ。。ウィンドウ固定して領域絞ってみようかなぁ。。
>>955 右上の広告を消すアドオンは知ってるけど、動画の下からせり上がってくるのが消したいんですよー。
>>956 動画の下部を隠すように出てくるのがあるんだ。まじウゼーっす。
>>957 幸いXPです。
みんなありがとう。アドバイスを参考にいろいろやってみまっさ。
peekcolorしか使ってないスクリプトが、Aeroをオフにしたら糞早くなって噴いたゎwww
知り合いに.uwsファイル形式をもらい実行したんですけど同じとこをずっとクリックしてるだけで動きません 管理者として実行や画像認識のための画像ファイルを自分のPC用に入れ替えたりもしてみたのですがうまくいかないです 7とXPで試しました 人からもらったのだとうまく機能しなかったりするのでしょうか?
何をどうするスクリプトなのか解らないとどうしようもないぞ。同じ所クリックするだけのスクリプトかもしれんしww そうでなければ画面領域や(アプリの操作なら)対象アプリケーションが実行されてるかとか、ウィンドウ位置合ってるかとか。 (ACWでウィンドウ位置指定して実行するような奴だったら多分位置のずれはないだろうけど) その人との動作環境に違いがあると、同じ座標をクリックしてても期待した結果にならないはず。見当違いのところクリックするわけだし。 ただ画像認証は使ったことないんで何とも。予期しない場所が画像認証に引っかかってずっとクリックしてるとか?
画像のファイルパスが違うとかじゃないの
まずその知り合いに相談すべきでは
画像認証はわからんが他のならXPから7に移行して使ってるが 普通に使えてます。
16進数を表す文字列を10進数の数値に変換しようと思って、 function 16to10(#16) //16進数を表す2文字の文字列を、対応する10進数を表す1-3桁の数値に変換して //その値を返す関数。 //1の位について処理する。 SELECT COPY(#16, 2, 1) CASE "0" #10 = 0 CASE "1" #10 = 1 CASE "2" #10 = 2 CASE "3" #10 = 3 ... のような関数を書いたのですが、引数に文字列を渡して使おうとすると 式がおかしい or 型があってない とエラーメッセージが表示されて使えません。なぜでしょうか?
>>965 // Select Selend 文
SELECT 式
CASE 式 // 数値でも文字でも変数でもOK
処理
[CASE 式]
処理
[DEFAULT] // デフォルト
処理
SELEND
エラーの行数をよく読め
>>966 ありがとうございます。
レスを待っている間に、(これが必要かどうかわかりませんが)関数名および
引数・変数の名前を#や数字が含まれないものに変えて、
CASE 式 とその後の命令との間で改行するようにしたら動きました。出直してきます。
そんなしょうもない事しなくてもevalかvalで終了 str = "AB" msgbox(eval("$"+str)) msgbox(val("$"+str))
969 :
名無しさん@お腹いっぱい。 :2010/11/29(月) 18:26:47 ID:+CsrBh+v0
UWSC使えるネトゲって何がある?
私が今やってるMaster of Epicだと使える
スクリプトを実行していなくとも、起動しているだけでSDGOでは弾かれる。
回避もせずに使えるわけなかろ
東大ブログ第3章 『東京大学文科一類法学部3年のブログ。』 とりあえず主要メンバーと準メンバー(笑)の紹介しときますか。 ・篠崎蘭…我らがリーダーにして才色兼備の女帝蘭様、人を優しく見下すクセはもはや直らない、基本的には優しいが表面的にはキツイ(笑 ・加藤達人…明朗快活のスポーツマン、バスケの県選抜に選ばれた微妙な過去栄光を長々と話す、チャラくないと言い張るが十分チャラい ・渡志相太…がり勉(笑、ブレーンのポジションに置かれているがイマイチ(爆、4年生なのに蘭さんと多胡くんにはなぜか敬語 ・藤茜…典型的お嬢様、おしとやかだが根性は凄い、漢字がめちゃくちゃ得意(当然一級)な辞書役 こっから準メンバーと言わせてもらってる人達 ・多胡雄二朗…頭脳明晰にして多才、オマケにイケメンという完全無欠の俊英だが変人(爆、我らが最強の助っ人であり影のブレーン、蘭さんと対等に話せる唯一の男、学校には滅多にこない(笑 ・細野晋太郎…もう一人の助っ人、加藤くんとやたら仲が良い、「東大に入ったのは蘭さんに会う為です」が口癖、多胡くん同様学校にはあまり来ない
現在、とあるゲームの自動化を目指してるんですが。 アクティブウィンドウにそのゲーム指定して、クリックさせたりカーソル移動させようとすると出来ません。原因はなんでしょうか? ちなみにWindowsのフォルダ操作や、ファイルの操作。その他、ゲーム以外のものには普通に操作が可能です。 あと、クリックは出来ませんが、ゲーム画面の画像を認識するのだけは出来るみたいです。 どなたか回答おねがいします。
975 :
>>974 :2010/11/30(火) 14:02:19 ID:lFnnr2ds0
すまん、全然板読んでなかった。出直してくる。というか、疑問に関しては自己解決。
自己解決しないで教えてくれよ
977 :
名無しさん@お腹いっぱい。 :2010/12/01(水) 00:34:49 ID:p5iLxner0
よろしくお願いします。
以下のコードをできるだけシンプルにまとめたいんですが、どう書いたらいいですか?
たぶん連想配列というものを使うというところまでは判ったんですが
IE.navigate("
http://www.AAA.co.jp ")
IESetData(IE,"111","word")
IESetData(IE,True,"submit")
IE.navigate("
http://www.BBB.co.jp ")
IESetData(IE,"222","word")
IESetData(IE,True,"submit")
IE.navigate("
http://www.CCC.co.jp ")
IESetData(IE,"333","word")
IESetData(IE,True,"submit")
・・・
ガナサレラをサイベージしたいのですが ガナサルトをフックした際に、カンベスとコリジョンが発生してしまいます。 最終的にはフラクトすれば問題ないのですが、どういった処理手順で行えばいいでしょうか。
979 :
978 :2010/12/01(水) 02:52:52 ID:lVOMPweM0
すみません誤爆でした
>>977 連想配列は使ったことが無いので多次元配列で書いてみた。試してないので変なミスをしてるかも…
web数 = 3 - 1 //webが増えたらココを増やす
date数 = 2 - 1 //dateが増えたらココを増やす
DIM X[web数][date数]=_
"
http://www.AAA.co.jp ","111",_ //1行で初期値代入すると分かりにくいので「_」で改行
"
http://www.BBB.co.jp ","222",_
"
http://www.CCC.co.jp ","333" //最後のデータは「,_」を付けない
for t = 0 to web数 step 1
IE.Navigate(X[t][0])
BusyWait(IE)
IESetData(IE,X[t][1],"word")
IESetData(IE,True,"submit")
next
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
画像認識のことなんですが、 WHILE TRUE IF CHKIMGの行がくるまで終わらないのですか?
UWSCでは、マクロAを実行→画像認識→マクロBを実行→マクロAを実行→画像認識・・・ というふうに繰り返す操作は可能ですか?
不可能はないです
>>983 ありがとうございます。まとめますと、
画像監視しながらマクロAを実行→マクロAを実行中に画像発見→マクロBを実行→マクロB実行終了→マクロ自体終了
で、UWSCの回数設定で何回でも設定できるようにしたいです。
ソースとしては、
//ここから開始
while true
動作(マクロAのコード)
ifb chking("A.bmp")
動作(マクロBのコード)
wend
//ここまでで終了
こんな感じでしょうか?何か間違っている気がしますが、訂正があったらよろしくお願いします。
もっとシンプルにこんな感じでいいんですかね? //ここから開始 not ifb chking("A.bmp") 動作(マクロAのコード) then (マクロBのコード) //ここまでで終了 "A.bmp"はマクロBを実行するときに使う画像です。 細かい構文はあっているかよく分かりませんが、だいたいこんなマクロですか? どうか添削よろしくお願いします。連レス失礼しました。
>>985 アルゴリズムの記述には構文の正しさが命だと思う。
トリッキーに正しい事をやりたいのか、トリッキーで間違っているのか…それがわからない。
// IF のブロック文 IFB ENDIF
IFB 式 [THEN]
真
[ELSEIF 式 [THEN]]
:
[ELSE]
偽
ENDIF
UWSCは改行はきちんとせねばならない。
実は私はID:iYsBGIJR0 なんですけど、もう少し改良してみました。 //ここから開始 while true while ifb chking(!("A.bmp")) (ピラミッドマクロA) then (ピラミッドマクロB) endif //ここまでで終了 否定の式 ! を入れてみました。ピラミッドはまず画像監視しつつ、(ピラミッドマクロA)で14分間攻撃します。 そこで成功しても失敗しても同じMAPに行くんですね。そのMAPの画像を認識して、NPCに話しかけてMAPの外へ出る (ピラミッドマクロB)を使用します。これで外のスタート地点に出てマクロを終了します。最初に設定した回数分マクロが 実行されます。(ピラミッドマクロA)は14分間分の長ったらしいコードで、(ピラミッドマクロB)は1分くらいの短いコードです。 ソースはこれで合っているでしょうか?
>>986 すみませんリロードせずに書き込んでしまいました。
トリッキーに間違ってしまいました。普通に正攻法で書きたいです。
少し考えてみますね。
こうなりました。thenとelseの使い方が間違ってましたね。 while true ifb chking(!("A.bmp")) then (ピラミッドマクロA) //ピラミッドマクロAのコード else (ピラミッドマクロB) //ピラミッドマクロBのコード endif wend ここで疑問なのは、CHKIMG文に ! は使えるのかということと、CHKIMG文は常に監視しているのかということです。 常に監視しているわけではないなら、(ピラミッドマクロA) 実行中にCHKIMG文は使えないからです。 というかIf文みたいにCHKIMG文は使えるのでしょうか?
流れ図にしてみました。 @画像はあるか? Y→ピラミッドマクロB実行→終了 N↓ (ピラミッドマクロA) 実行 ↓ @に戻る この流れ図だと、(ピラミッドマクロA) 実行中にピラミッドで負けた場合、最終MAPに行った後も(ピラミッドマクロA)を実行し続けます。 これだと仮にピラミッド開始1分で負けた場合、13分が無駄になります。これだと現状と変わりません。 画像があるかどうか(ピラミッドマクロA) 実行中でも常に監視する場合は、流れ図と構文はどうなるのでしょうか。
>>990 現状を変えたければ、ピラミッドマクロAに負けたかの逐一チェックでも入れてみればいい。
…やりようはほかにいくらでもあると思うがね。
的確な答えは出せるはずも無いのだが
最低限ヘルプの、スクリプト、の項目は通読しておいたほうがいい。
今回だと、スクリプト構文、の段に助けになるようなことが書いてあるはず…余計混乱するとは思うが。
>>989 >CHKIMG文に ! は使えるのかということと、
通常、true,false 以外には論理否定を使えない。戻り値で考えろ。
>CHKIMG文は常に監視しているのかということです。
1スレッドはひとつづつしか構文を実行していかない
>>991 なるほど。「@画像はあるか?」を「(ピラミッドマクロA) 実行」 にいくつか入れておけば対処できますね。
ピラミッドのゲームは少しでも移動や攻撃してなかったりすると負けてしまうんですが、画像認識は結構時間かかりますか。
とりあえず、これでやってみようと思います。
>最低限ヘルプの、スクリプト、の項目は通読しておいたほうがいい。
UWSCのヘルプですね。読んでおきます。
どうもありがとうございました。また報告するかもしれないんでよろしくお願いします。
>>992 ! は使えないんですね。流れ図としては
(ピラミッドマクロA) //ピラミッドマクロAのコードの一部
画像はあるか? Y→ピラミッドマクロB実行→終了
N↓
(ピラミッドマクロA) //ピラミッドマクロAのコードの一部
画像はあるか? Y→ピラミッドマクロB実行→終了
N↓
(ピラミッドマクロA) //ピラミッドマクロAのコードの一部
画像はあるか? Y→ピラミッドマクロB実行→終了
これの繰り返しですね。
実際の構文はこうでしょうか。
(ピラミッドマクロAの一部) //ピラミッドマクロAのコードの一部
ifb chking("A.bmp")
(ピラミッドマクロB) //ピラミッドマクロBのコード
exit
endif
(ピラミッドマクロAの一部) //ピラミッドマクロAのコードの一部
繰り返し
これでやってみます。
995 :
名無しさん@お腹いっぱい。 :2010/12/02(木) 11:51:13 ID:ItLPl43S0
>>980 ありがとうございます。
こんな書き方もあるんですね。
やってみます!
次スレは?
998
999ならkdcの受付と結婚
1000ならkdcの受付と結婚
1001 :
1001 :
Over 1000 Thread このスレッドは1000を超えました。 もう書けないので、新しいスレッドを立ててくださいです。。。