Windowsを自動化させるツールUWSC。
http://www.uwsc.info/
uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。
「○○作れますか？」→ スクリプトを期待するのはお門違い。作れるか作れないか教えてくれる人はいるかも。
「○○が作りたい」→ 自分作ればいいんじゃない？
「○○作って下さい」→ 依頼スレじゃありません。
過去ログを見る、検索する等、自分で出来る事を書き込む前にするように。
自力で作ったのを晒すか、具体的な解らない場所を提示して、改善点や解決策を求めるようにしましょう。
●スクリプトを晒す上での注意
他人が読みやすいようにインデントを付けるように。解らない人はググレ。
（タブインデントは使えないんだぜ 全角スペース等に 変換しておくべし）
言いたい事に関係無い部分は 〜○○の処理〜 や 処理A 等のようにし、
必要な部分を晒すようにする。
●他人の書いたスクリプトを安易に実行しないように。
ハードディスクをフォーマットされたりしても、自己責任。
前スレ
自動化ツールuwsc使いよ集まれ6
http://hibari.2ch.net/test/read.cgi/software/1291347103/
UWSCスクリプトの解説（初歩の初歩）
ttp://big.tm.land.to/handbook/uwsc.htm
UWSCで自動化 超速!! Windows マクロテクニック
ttp://izagne.com/uwsc/
解決マクロマン
ttp://blog.livedoor.jp/uwsc/archives/cat_50008789.html
SCRIPTS
ttp://scripts.web.fc2.com/
UWSCサンプル集
ttp://www.nagomi-jp.net/~liners/uwsc_sample_page.htm
UWSCの誘惑
ttp://nem.symphonic-net.com/uwsct/0610uwsct.html
UWSCの落し物部屋
ttp://siromasa.xxxxxxxx.jp/
意識する必要はない（逆はVAL関数を使って変換する必要がある）
// キーボードからのキーを一文字づつずらす #n45
for k = VK_A to VK_Y
SETHOTKEY(k, ,"fuckey") // AからYまでキー登録
next
Sleep(100)
for k = VK_A to VK_Y
SETHOTKEY(k) // 解除
next
// 一文字ずらす
Procedure fuckey()
KBD(HOTKEY_VK+1)
Fend
下の方法だとariの画像の時に連打になってしまいます
どこが間違っているのか指摘お願いします
While True
Ifb ChkImg("ari.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,80)
Ifb ChkImg("nasi.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,80)
ELSE
continue
ENDIF
ENDIF
WEND
ほらインデントのないネストはメンテナンス性質
ほらインデントのないネストはメンテナンス性悪いだろ？(2chというかHTMLは基本タブ効かない）
途中でカキコしちゃった
そんな時に、何秒かフリーズしたら直前の動作をやり直す、というようなスクリプトはないでしょうか？
OPTION EXPLICIT
click_down_or_up()
PROCEDURE click_vk_down_or_vk_up(n=6)
DIM i
FOR i=0 TO RANDOM(n)
IF RANDOM(1024) MOD 2 THEN KBD(VK_DOWN) ELSE KBD(VK_UP)
NEXT
FEND
click_down_or_up() => click_vk_down_or_vk_up()
思った通りの動き方してます！
すばらしいです。
どうしても手動でやらなければならないところが自動化できるようになりました。
本当にありがとうございます。
こういうの普通にできるようになりたいなぁ。
FOR i=0 TO RANDOM(6)
IF RANDOM(2) THEN KBD(VK_DOWN) ELSE KBD(VK_UP)
NEXT
これって均等にランダムにならなくないか？
n に近くなるほど回る確率が下がると思うんだけど
あと、カウンタ変数の開始値を1にしないと、
引数で指定した数より1回多く回っちゃう可能性があるよ
意味不明
> 引数で指定した数より1回多く回っちゃう可能性があるよ
0≦random(n)≦n-1
作っていいか？
最近のお馬鹿な質問全部ゲームマクロ関係だろ。
常に時計を表示させておいて、コピー→if clipboard = 指定時間
みたいにしてるんだけどもっといい時間指定ないかしら
GETTIME使えば？
どこのサイト見ても中途半端で困ってる
ie操作系の命令文が全て載ってるサイト教えて
uwscのIE操作のコマンドはヘルプに全部載ってる
IEのCOM操作のことならMicrosoftのサイトを見ろ
UWSCでそもそもできるものなのですかねぇ。
PosAcc(id,x,y,ACC_BACK)だとうまくいかないみたいで
ありがと
普通に使えた
GETSTR
”再生時に ウィンドウが出るのをスクリプトが待ち切れずに実行されて おかしな事になる #n8
スクリプト内のGETID関数に第３引数（待ち時間指定）を付けてください。
GETID("xxxx", "xxxx", -1) // -1：画面が出るまで待つ”
とありますが待機時間を-1にするとUWSCの中ではどんな動作がされているんでしょうか。
待ち時間だので40とかを指定するべきではないのすか?
例えば信号に例えてみましょう。
「信号が緑になったら横断歩道を渡る」という場合にあなたは
「緑になったら信号を渡る」
「40秒後に渡る」
のどちらですか？後者だと最悪、死にますよね。
-1はウィンドウが生成（表示）されたらIDを取得する、という事を意味します。
やばいっす
最高っす
ありがとうござまんた!
なんか例えおかしくない？
待ち時間40秒ってのは最大じゃないの？
「40秒経って緑にならなければ諦める」なのでは？
あきらめた瞬間次の行に進んでる。
あきらめる、で想像する事が
「強制終了する」だったり「それはそれとしてエラー処理して回避」だったりして、
人によって想定が異なるだろうけど
mery
while true〜wendを複数作って、あちこちに飛ぶっていうのすら作れないレベルだけど・・・
初心者の俺が初めて覚えるプログラム言語
ttp://hibari.2ch.net/test/read.cgi/tech/1169756560/243
> いいからこれやっとけ。
> ttp://home.jeita.or.jp/is/highschool/algo/game/index.html
> >>243の体験ゲームも午前中で全部解けたし。二重丸取れなかったのも4/43あるけど。
ってレスしたの俺だけど、元本職プログラマ。
専門学校卒で記憶喪失しまくりなのでかなり底辺だけどそれくらいはできる。
UWSCの落し物部屋でこれで駄目だったら分からないと書いてあったから
望みは薄いのだろうけど何か知ってる人いたら教えてください。
勘違いしてるかもだけど、
UWSC.exe自体は多重起動できないみたいよ。
(NotMultiplex=0でスクリプトの多重起動は可能)
自分でメールサーバー立てて転送しようと思っても、受け付けてもらえないように、ずいぶん前からなってるらしい。
つまり、プロバイダのアカウントなしに送信できない。
ありがとうございます
ウェブメール使用での簡単な作成方法はありますでしょうか？
かんたんでもないけど、有料版の試用期間を使って
IEでメール送信する操作を録画するとある程度再現できるんじゃないかな。
URL = "http://www.google.co.jp/" // 検索対象URL
Search = "○○○" // 検索文字
Count = 180 // 文字が見つからなかった場合の待機時間
GmailID = "○○○" // ログインID
GmailPASS = "○○○" // ログインPASS
TO = "○○○@gmail.com" // 宛先
SUB = "TEST" // サブジェクト
BODY = "テストメール" // 本文
// ■■■設定終了■■■
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate(URL)
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
end = 5
repeat
ifb POS(Search, IE.Document.Body.InnerText) > 0 THEN
IE.navigate("https://mail.google.com/mail/h/")
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IESETDATA( IE, GmailID, "Email" )
IESETDATA( IE, GmailPASS, "Passwd" )
IESetData( IE,True,"signIn")
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IELINK(IE,"メールを作成")
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IESetData( IE, SUB,"subject")
IESetData( IE, BODY,"body")
IESetData(IE,True,"nvp_bu_send","送信",2)
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
end = -5
EXITEXIT
else
Count2 = Count
for i = 1 to Count
if GETKEYSTATE(VK_END) then exit
Count2 = Count2 - 1
sleep(1)
Fukidasi("リロード待機中 " + Count2 + "<#CR>ENDキーで終了", 50, 50 )
next
IE.document.location.reload(true)
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
endif
until (end < 1)
改行大杉で2つに分かれちゃったけど。
指定したURLを監視して、特定文字列があればGmailで指定のアドレスにメール送信。
文字列が見つからなければ、指定秒数後(若干の誤差あり)にリロード。
一応動作検証はしたけど、ダメならごめんかな。
履歴検索すると
==================== Ver 3.1 版 ======================
05/03/26
多次元配列への初期値の代入を出来るようにした
くらいしか見つからない。
たったこれだけのコードなのに
dim s[][2] = 1,2,3,4,5,6,7,8,9
ctrlキーを高速で連打するいい方法ある？
今はウィンドウタイトルを別のアプリで変えて手動で認識させてる
id1 = getid ("notepad1")
id2 = getid ("notepad2")
あとかなり高速で連打する必要があるんたけどmouseorgってスレッドで同時に使えない？
スレッドじゃなきゃうまくいくんだけど…
GetAllWin
スレッドでできるか？試せば分かるだろ。
数が毎回違うのと同じ名前のウィンドウを区別する方法が分からない…
スレッドで下の奴を呼び出すとうまくいかない
スレッドじゃなく連続的に動かすのはokだった
PROCEDURE 連打(windowID) MOUSEORG(windowID,2) KBD(VK_CONTROL,CLICK,10) FEND
は？ＩＤが違うだろ。
スレッドでうまくいかないならプロセス分けたら？
EXECで呼び出し、ウィンドウハンドルを引数に渡す。
ハンドルはIDTOHWNDでハンドルにできる。
受け取ったほうはHWNDTOIDでIDにできる。
ヘルプサイトに載ってたはずですがどうにも見つからなく、教えてくださいませ・・
IFB getstr(ID("ウィンドウタイトル")=true
みたいな感じだったと記憶してます。
またウインドウ変更時にACWを使うと最大化が解除されるため
CTRLWIN(GETID("ウィンドウタイトル"),max)
CTRLWIN(GETID("ウィンドウタイトル"),activate)
を使い二行消費させてますが一行で動作させる命令はありますでしょいか。
CTRLWIN(GETID("ウィンドウタイトル"),max,activate)
とすることで一行で済みました。
ACWは最小化されてるウインドウに聞かないので使いませんでした
高速化のためにアセンブラレベルでの取得方法ってありますか？
あるよ
いざ自分で組んでみるとうまく動きません。
何が間違ってるか教えて下さい
id = GETID("まとめまとめ")
MOUSEORG(GETCTLHND(id,"Chrome_RenderWidgetHostHWND"), 2)
BTN(LEFT,CLICK,583,335,109)
以下のサイトの新着一覧の下の広告をクリックさせるテストスクリプトです
(http://matome2ch.hikoneko.net/)
その処理がTHENになるまでそのifを繰り返すというのはどうすればいいんでしょう？
ifb
THEN
●●
ELESE
WEND
endif
上手くいきません
ifb
THEN
●●
ELSE
CONTINUE
endif
WEND
多分これでいけるはず
WHILE
とでて上手くいきませんでした
ありがとうございました。
下にスクロールさせるにはどうすれば良いでしょうか？
お前はどうやってスクロールしてるんだよ。
そもそも条件を満たすまで繰り返しってのは
repeat〜untilがそれそのものだろう
これが出た場合、直前の処理にまで戻って再度実行するには、どう書いたらいいでしょうか？
画像認識させる方法以外で何か良い方法ありませんか？
>>55-56の文字サーチ使ったらええやん
ごめんなさい説明が悪かったかもしれないので訂正します
検索エンジンを使って文字を検索するのではなく既に開いてあるウェブページから文字列を抽出しクリックさせたいです
IELINK(IE,"文字列")
ありがとうです
過去スレを見ると4.2以降は完全無視されるって書かれていますが
何か方法はありませんでしょうか。
他人が作ったゲームマクロなんですが、その中で指定している座標位置を視認したく
マウスカーソルで確認できないかと思ったのですが…
Flashコンテンツ上で開くウィンドウ内の座標を確認したいので基準指定2を外すと
絶対座標？になってしまって画面外にカーソルが。。
IF GETKEYSTATE(VK_ESC) THEN EXIT
REPEAT
なんとか
UNTIL CHKIMG("画像.bmp")
REPEAT
なんとか
UNTIL CHKIMG("画像.bmp")
Call 名前.uws
ENDIF
WEND
て感じで書いてみたんですがIF GETKEYSTATE(VK_ESC) THEN EXITが発動しません
なんででしょうか?
WHILE TRUE
IF GETKEYSTATE(VK_ESC) THEN EXIT
REPEAT
IF GETKEYSTATE(VK_ESC) THEN EXIT
なんとか
UNTIL CHKIMG("画像.bmp")
REPEAT
IF GETKEYSTATE(VK_ESC) THEN EXIT
なんとか
UNTIL CHKIMG("画像.bmp")
Call 名前.uws
ENDIF
WEND
FILE Not Found
って言われるんだけど何でだろ
呼び出したいUWSは同じフォルダにあって
開くUWSは
call ○○○
だけなのに
PROCEDURE：パス→ファイル名
PROCEDURE：パス→ファイル名()
どういうことなんだ…
ファイル名に、ファイル名(1)等使えないんじゃなかったかな
文字をチェックしてクリックさせたいんだが、透過してる文字を上手く認識出来ないんだ
何か良い方法ないだろうか
マクロ動作が一回終わると、マウスポインタの位置が終了地点にあった場所のままになるのが不便です
終了時に、開始時にあった場所までマウスポインタを移動させることは出来ないでしょうか？
マウス位置は毎回決まっていないので絶対座標や相対座標での指定ではどうしても対応できません
開始時の座標に移動すればいいだけじゃないの?
G_MOUSE_XとG_MOUSE_Yを使えば良い
TOP カテ一覧 スレ一覧 削除依頼 ▲
・ 次のスレ
madVR Part1
foobar2000質問スレ Part21
Mozilla Thunderbird Part19
Windows Live Writer