- 1 名前：名無しさん＠お腹いっぱい。 [2006/08/24(木) 19:54:44 ID:x9yegvov0]
- Windowsを自動化させるツールUWSC。
ttp://www.h7.dion.ne.jp/~umiumi/
uwsc使いよ 己のスクリプトを晒すのだ。
前スレ
自動化ツールuwsc使いよ集まれ
pc7.2ch.net/test/read.cgi/software/1107738590/
- 756 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/04(日) 23:26:57 ID:a4NBNM9n0]
- >>752
テキストでやるのはいいけど
ファイル名のつけ方がわからん
- 757 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/05(月) 10:59:05 ID:kPPaI09y0]
- >749
csvを読み込み処理する部分は
FOPEN
- 758 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/05(月) 11:02:26 ID:kPPaI09y0]
- おっと途中で書き込んでしまった。
csvを読み込み処理する部分は
FOPENして
FGETして
ごにょごにょしたらおｋ
wikiに書き込むのは
IESETDATA使うなり
直接COMでDHTMLたたくなり
好みとスキルに応じてどうぞ
- 759 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/07(水) 12:24:23 ID:2NSKScfX0]
- UWSCスクリプトを実行ファイルに変換するスクリプト
欠点: ファイルがでかすぎる。
- 760 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 12:11:00 ID:BBPkbtD90]
- コンピュータ名が欲しくて、次のように書いてみたのだけど、
UWSCがアクセス違反エラーだと言ってきます。
書き方悪いですかね？
DEF_DLL GetComputerNameA(var string, int):int:kernel32.dll
buf = FORMAT(" ", 32)
res = GetComputerNameA(buf, LENGTHB(buf))
print buf
別のAPIならOKなんですが・・・
DEF_DLL GetPrivateProfileStringA(string, string, string, var string, int, string):int:kernel32.dll
buf = FORMAT(" ", 255)
res = GetPrivateProfileStringA("section", "param", "default", buf, LENGTHB(buf), "test.ini")
if ( res > 0 ) then print buf
- 761 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 14:44:22 ID:Q+kjASni0]
- >>760
DIM WshNetwork = CREATEOLEOBJ("WScript.Network")
PRINT WshNetwork.ComputerName
じゃダメなのか?
- 762 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 14:55:38 ID:7XN40pw00]
- >760
DEF_DLL GetComputerNameA(string, var long):long:kernel32.dll
引数は前が値渡しで後ろが参照渡しみたいだね
- 763 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 15:02:40 ID:7XN40pw00]
- DEF_DLL GetComputerNameA(var string,var long):long:kernel32.dll
あれ？前もvarじゃないとだめみたい
- 764 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 15:18:11 ID:O6XSymB40]
- >>763
そりゃ、stringに結果が返るんだから参照渡しなんじゃないの
- 765 名前：760 mailto:sage [2007/03/08(木) 16:10:33 ID:PbsxIEko0]
- ありがとうございます。うまくいきました。
よく見たら、第二引数がLPDWORDっすね・・・orz
>>761
そう言う方法もあるんですね。ﾒﾓﾒﾓ。
- 766 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 16:33:01 ID:7XN40pw00]
- >764
もちろんおれもそうとは思ったんだけど
VBの例見てみたらなぜか一つ目の引数はByValだったんだよね…
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal Buffer As String, Size As Long) As Long
- 767 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 16:36:47 ID:7XN40pw00]
- >760
ちなみにバッファは16バイトでいくない？
コンピュータ名ってANSI15文字までだった気がする。
- 768 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 23:10:03 ID:3vwnAUEJ0]
- CTRL+Rを押すとあらかじめ作っておいたAというスクリプトが
CTRL+Lを押すとあらかじめ作っておいたBというスクリプトが実行される
こういう感じで使うことってできますか？
- 769 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 23:21:51 ID:QhMdkY5Q0]
- uwsファイルをuwsc.exeに関連づけを行う
uwsファイルのショートカットをデスクトップに作成
そのショートカットのプロパティを開いて、ショートカットキーを割り当てる
- 770 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/08(木) 23:26:22 ID:3vwnAUEJ0]
- >>769
ありがとうございます！
- 771 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/09(金) 02:16:24 ID:pF+OFex30]
- >>767
ご指摘の通り、
MAX_COMPUTERNAME_LENGTH + 1 ということなので、１６で３２も必要ないですね。
- 772 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/10(土) 16:03:33 ID:EidvIQ3R0]
- コンパクトなランタイム版欲しくないか?
コピー自由だからEXE化不要というのは概ね同意だったが
ここまでファイルがでかくなるとEXE化というのもアリかな?
- 773 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/11(日) 15:16:00 ID:FHiSloY00]
- IEのイベント使おうと思っていろいろ調べてここまで来たんだけど
EVENT_PRM[4]でByref Dispatch型から OleStr 型へのバリアント型変換はできません
ってエラーになっちゃう。どうすればいいんでしょうか。
**&ppDispって形式は無理なのかな？
IE = GETACTIVEOLEOBJ("InternetExplorer.Application","honda")
OLEEVENT(IE,"DWebBrowserEvents2","NewWindow3","NewWindow")
SLEEP(100)
procedure NewWindow()
print EVENT_PRM[0] //www.honda.co.jp/WGP/
print EVENT_PRM[1] //www.honda.co.jp/
print EVENT_PRM[2] //131206
print EVENT_PRM[3] //0
print EVENT_PRM[4] //エラー
// 4 IDispatch **&ppDisp,
// 3 VARIANT_BOOL *&Cancel,
// 2 DWORD dwFlags,
// 1 BSTR bstrUrlContext,
// 0 BSTR bstrUrl
fend
- 774 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/11(日) 17:41:38 ID:gXtUVhMk0]
- >>773
IDispatch型ってのはそもそもprintするようなものじゃないと思うんだ
- 775 名前：名無しさん＠お腹いっぱい。 [2007/03/11(日) 22:10:17 ID:FHiSloY00]
- >>774
**&ppDispは入れ込むものだってのはわかった
www.melonpan.net/letter/backnumber_all.php?back_rid=283118
みたいなことをやりたいんだけど無理なんでしょうか
そもそも
IE = CREATEOLEOBJ("InternetExplorer.Application");
IE.navigate("www.honda.co.jp/");
IE.visible = true
OLEEVENT(IE,"DWebBrowserEvents2","NewWindow3","NewWindow")
sleep(100)
procedure NewWindow()
print "newWindow"
EVENT_PRM[3] = true
fend
でも新ウィンドウ起動しちゃう
- 776 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 00:45:56 ID:JMJM6ows0]
- >>775
ie = CREATEOLEOBJ("InternetExplorer.Application")
ie.Navigate("www.honda.co.jp/")
ie.Visible = True
public ie2 = CREATEOLEOBJ("InternetExplorer.Application")
ie2.Navigate("www.google.com")
ie2.Visible = True
OLEEVENT(ie,"DWebBrowserEvents2","NewWindow2","NewWindow2")
fukidasi("ESCで終了")
while !GetKeyState(VK_ESC)
sleep(0.1)
wend
procedure NewWindow2()
print "newWindow2"
EVENT_PRM[1] = ie2
fend
NewWindow2ならこんな感じであらかじめ準備しておいた
任意のieで開かせることができたけど
NewWindow3のほうはなぜかできないね。
>でも新ウィンドウ起動しちゃう
これはNewWindow2でも3でも再現した。
念のため「True」の代わりに-1入れてみたけどやっぱりだめだった。
- 777 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 01:09:19 ID:A4ISQcDy0]
- yahooのブリーフケースにいれてあるファイルを開きたいのですがなかなかうまくいきません。
良い知恵orミスの指摘をお願いします。
IELink(IE,"ブリーフケース")
BusyWait(IE)
IELink(IE,"****.xls") //対象ファイル
BusyWait(IE)
ACW(GETID("ファイルのダウンロード"))
CLKITEM(GETID("ファイルのダウンロード"),"開く(O)",CLK_BTN)
- 778 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 02:08:47 ID:JMJM6ows0]
- おおっと、この場合VALIANT_BOOLだからTRUEは1でよかったね。
まあどちらにしても新しいウィンドウ開いちゃうんだけど。
- 779 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 02:28:25 ID:JMJM6ows0]
- やっぱVARIANT_TRUEは-1でよかった
ウソ言ってスマソ
- 780 名前：773 mailto:sage [2007/03/12(月) 09:03:24 ID:a3O+JiPS0]
- うはNewWindow2でできました
すいません2で試してなかったようです
cancelが駄目だったからあきらめてしまった
ありがとうございました
- 781 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 16:49:47 ID:n5L2tYqJ0]
- Sleepで待ってるスレッドを中断するにはどうすればいい?
ウィンドウ持っていればCtlWinで中断できる?
それともSleepの代わりにWAIT・POSTみたいのはWin32APIでできる?
- 782 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 17:13:41 ID:wxNktC0X0]
- WHILE+GETKEYSTATE
- 783 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 18:30:24 ID:lWuXjild0]
- >>781
>>782さんのいうとおり、僕も使ってますよ
Dim WaitFLG = false
while WaitFLG = true
sleep(xx)
if GETKEYSTATE(VK_W) then WaitFLG = !WaitFLG
if GETKEYSTATE(VK_S) then exitexit
wEnd
- 784 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/12(月) 23:08:41 ID:n5L2tYqJ0]
- それって単にフラグポーリングしてるだけやんか…。
- 785 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 05:29:39 ID:cUL5v4BL0]
- じゃあなにがしたいの？
- 786 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 09:20:34 ID:cyFSWzt+0]
- fukidasi("10秒後にこのメッセージを消すぞ!")
thread fukioff(10)
Sleep(20)
Msgbox("噴出し消えてるか?")
Exit
procedure fukioff(t)
sleep(t)
fukidasi()
fend
スレッドでfukidasiが消えてくれないのだが?
なぜ?
吹きだしウインドウを捜してCTRLWINで閉じなきゃ駄目なのか?
それともバグ?
- 787 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 09:30:12 ID:cyFSWzt+0]
- thread fukioff(10)
Msgbox("噴出し消えてるか?")
Exit
procedure fukioff(t)
fukidasi("10秒後にこのメッセージを消すぞ!")
sleep(t)
fukidasi()
fend
これなら消える。
fukidasi以外も全部そうか?
ああそうかい。
じゃ。
- 788 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 12:15:17 ID:Jt3WP4T70]
- メイン側とスレッド側のfukidasiは別物。
スレッド数と同じ数のfukidasiを表示できる。
- 789 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 12:39:02 ID:vHwEZC+W0]
- 質問です
テキストをコピー → エクセルへの貼り付け
テキストをコピー → エクセルへの貼り付け
・・・
・・・
を連続でしたいんですが、テキストに空白があればスキップさせたいです
さらにエクセルへのターゲットを A1,A2等ではなく選択しているセルへの
貼り付けを行いたいのです！
どなたかご教授願います。
ClkItem(memo_id,"1") ←ほにゃらら ｺﾝﾄﾛｰﾗの1番タブ
BUN = GETSTR(GETID("ほにゃらら ｺﾝﾄﾛｰﾗ"))
SENDSTR(0, BUN)
ACW(GETID("MICROSOFT EXCEL"))
memo = GETID("MICROSOFT EXCEL")
EXCEL = GETACTIVEOLEOBJ("Excel.Application")
EXCEL.Range("A1").PasteSpecial
ClkItem(memo_id,"2")
BUN = GETSTR(GETID("ほにゃらら ｺﾝﾄﾛｰﾗ"))
SENDSTR(0, BUN)
memo = GETID("MICROSOFT EXCEL")
EXCEL = GETACTIVEOLEOBJ("Excel.Application")
EXCEL.Range("A2").PasteSpecial
ClkItem(memo_id,"3")
BUN = GETSTR(GETID("ほにゃらら ｺﾝﾄﾛｰﾗ"))
SENDSTR(0, BUN)
memo = GETID("MICROSOFT EXCEL")
EXCEL = GETACTIVEOLEOBJ("Excel.Application")
EXCEL.Range("A3").PasteSpecial
- 790 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 13:29:22 ID:cyFSWzt+0]
- >>788
> メイン側とスレッド側のfukidasiは別物。
スレッド毎に別になるのは上でもう試したので判ってるが。
例えばコンソールは同じもんなのか？
なーんでだ？ていうかあれは？これは？で全部試さなきゃ駄目そうだな。
UWSCはためしためし作るのがあたりまえなのでそれくらい全然平気だが。
- 791 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 17:03:36 ID:Jt3WP4T70]
- だったらぶつぶつ言わないでガンバレ。
- 792 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/13(火) 17:14:31 ID:z+6WW4kl0]
- 複数ｔhread間で、printやbtn、mmvなんかを実行するとき
当然これらはシステムで１つしか存在しない共有資源なんだが
ロックとかどうなってんのかな？
- 793 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/14(水) 08:49:07 ID:aZuPqBx+0]
- とにかく試すんだよ。
- 794 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/14(水) 16:51:21 ID:yQ01SVVO0]
- 質問させていただきます。
以下のような処理を uwsc で組むとどうなりますか。
1.現在、起動中のアプリから"プログラムＡ" を探す
2.みつかったら、
非アクティブのままで(バックグランドのアプリに)
キーX を送る。
恥ずかしい話ですが、いつもuwscに挑戦しょうとしますが挫折します。
テンプレにかいてあるいろんなサイトにいき、ヘルプなどみているうちに
わからなくなってしまいます。（どれを参考にしてよいかわかりません。）
なにか良い方法はないでしょうか。
上の1.2.を組むためにはどこを見て勉強すればよいのでしょう。
教えていただければ幸いです。
- 795 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/14(水) 20:35:06 ID:aZuPqBx+0]
- >>794
Function SendMessage(id,cmd,p1,p2)
DEF_DLL PostMessageA(HWND, LONG, LONG, DWORD): Bool: user32.DLL
DEF_DLL SendMessageA(HWND, LONG, LONG, DWORD): LONG: user32.DLL
SendMessageA(IDtoHND(id),cmd,p1,p2)
Result=0
Fend
または、CTRLWINで非表示にしてからSCKEYしてやれば大抵問題ない。
しかしこれは絶対問題ないわけではない。そのAが何かに夜。
- 796 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/14(水) 23:09:31 ID:yQ01SVVO0]
- >>795 回答、有難うございました。
コマンド1つづつ、調べてみます。
- 797 名前：名無しさん＠お腹いっぱい。 [2007/03/15(木) 20:50:07 ID:echeEF2V0]
- 画面内に指定画像があるか無いかチェックし、あればクリックしたりするスクリプト文を作成したいのですが・・・、うまくいきません；
詳しい方、どうかご教授お願いしますm(_ _)m
- 798 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/15(木) 21:19:32 ID:gAtpnVa70]
- >>797
CHKIMG使えばいいと思う。
それとどう上手く行かないのか書かないと分からない。
ご教授じゃなくてご教示、意味の分からないこと葉は使わないほうがいい。
- 799 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/15(木) 21:21:39 ID:yidvy73a0]
- >>797
どううまくいかないのか書かないと
誰も答えられないよ。
ここままではヘルプぐらい嫁としか言えない。
- 800 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/15(木) 21:51:43 ID:RMTAm+Y00]
- キャラだろ。
- 801 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/15(木) 21:52:09 ID:Bw9W6nzv0]
- ま〜たオンラインゲームかｗ
- 802 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 00:22:58 ID:nhMfxJG20]
- JOUTAI = SLCTBOX(SLCT_BTN,0,"状態","わからない","やっぱりわからない","それでもわからない")
ifb JOUTAI = 1
EXEC("hh "+GET_UWSC_DIR+"\uwsc.chm")
elseif JOUTAI = 2
SCKey(GetID("自動化ツールuwsc使いよ集まれ2"),vk_ctrl,f)
elseif JOUTAI = 4
MsgBox("つwww.google.co.jp/")
endif
- 803 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 00:26:58 ID:mqTPjeha0]
- repeat
until getkeystate(VK_LBUTTON)
x = G_MOUSE_X
y = G_MOUSE_Y
repeat
until getkeystate(VK_LBUTTON)
xx = G_MOUSE_X
yy = G_MOUSE_Y
と組んだ時に、ワンクリックで両方のrepeat判定を満たしてしまうのですが、
先のrepeat判定を抜けた時点でクリックしたフラグを消すにはどうすれば良いのでしょうか。
分かり難いと思うので簡潔に書くと、
前後のrepeat判定で、別々の場所を記憶させたいのです。
- 804 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 00:35:15 ID:nhMfxJG20]
- repeat
sleep(0.02)
until getkeystate(VK_LBUTTON)
MsgBox(G_MOUSE_X+" , "+G_MOUSE_Y)
getkeystate(VK_LBUTTON)
repeat
sleep(0.02)
until getkeystate(VK_LBUTTON)
MsgBox(G_MOUSE_X+" , "+G_MOUSE_Y)
- 805 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 02:07:45 ID:qAGjSoPe0]
- >>802
ちょとﾜﾛﾀ
わざわざスクリプトまで組んでくれるなんて
親切な人だね
- 806 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 02:15:31 ID:31It80P50]
- どういたしまして
- 807 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 03:21:58 ID:nhMfxJG20]
- >804を訂正
repeat
sleep(0.02)
until getkeystate(VK_LBUTTON)
x = G_MOUSE_X
y = G_MOUSE_Y
sleep(1) // 長めのsleep
getkeystate(VK_LBUTTON)
repeat
sleep(0.02)
until getkeystate(VK_LBUTTON)
xx = G_MOUSE_X
yy = G_MOUSE_Y
MsgBox("x="+x+" , y="+y+" xx="+xx+" , yy="+yy)
- 808 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 04:01:48 ID:e+a/E5Ma0]
- 質問です。
最小化しているウィンドウに対して命令を送ろうと
public 2ch
2ch = GETID("Jane","TApplication")
MOUSEORG(2ch,2)
以降、処理
というマクロを組んだのですが、うまくいきません。
処理自体は、キーボードのボタンを一定時間毎に入力する簡単なものなので
間違いは無いはずですし、上記の記述に不備があるのでしょうか？
クラスの取得には>>712のWinListerを使ったのですが
指定するID自体が間違っているのでしょうか？
皆さんのお力添えをいただきたいです。
- 809 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 09:50:08 ID:7NEMi9s/0]
- SendMessage
せめてsckey chkitem
janeに何させたいの？
- 810 名前：名無しさん＠お腹いっぱい。 [2007/03/16(金) 13:37:57 ID:WOCiyC/30]
- IEコンポーネントブラウザを使っていて、タイトルに指定した文字列があれば
次の処理へ（無ければ1秒SLEEP）移行するという制御文で詰まりましたｗ
識者よどうか知恵を貸して下さい。
CLIP=文字列
GETID("WTL:Donut")
STATUS("WTL:Donut",ST_TITLE)
WHILE POS(CLIP,ST_TITLE) <> 0
SLEEP(1)
WEND
.
.
.
次の処理
- 811 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 16:44:47 ID:qAGjSoPe0]
- …
id = GETID("WTL:Donut")
title = STATUS(id,ST_TITLE)
WHILE POS(CLIP,title) <> 0
…
じゃね？
まずは戻り値や変数といった基礎を理解すべし
- 812 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 16:47:23 ID:WOCiyC/30]
- >>811
了解です。
もっとじっくりと勉強してみます。
- 813 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 17:50:32 ID:qAGjSoPe0]
- あと、
WHILE POS(CLIP,title) = 0
だな
- 814 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 18:02:54 ID:7NEMi9s/0]
- TOKENでデリミタ複数指定した時、どのデリミタで引っ掛ったのか判る方法無いの?
組み込み関数が今位置不便なのでどいつもこいつもCOM使うんだよな…。
- 815 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 19:26:55 ID:mqTPjeha0]
- >>804,807
遅れましたが、どうもありがとうございます。
sleep()
getkeystate(VK_LBUTTON)
を挟むことで、入力の機会を2回得ることが出来ました。
- 816 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/16(金) 21:27:28 ID:qAGjSoPe0]
- >>814
そもそもデリミタ複数指定って、想定されてる使用法なの？
- 817 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/17(土) 04:30:41 ID:MCeA35RR0]
- s= "abc,efg xyz/abc"
d=",/ "
t= token(d,s)
while s<>""
print t
t= token(d,s)
wend
exit
結果
abc
efg
xyz
要望だせばデリミッタ自体もトークンに含めるモードとか
つけてくれそうだけど、まぁtoken使わなくてもいいし何とかするべ。
abc
- 818 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/17(土) 04:31:28 ID:MCeA35RR0]
- あ…
- 819 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 09:45:56 ID:G1MEbanD0]
- スピーカーから音が出ているかどうかをuwscスクリプトから確認する方法はないですか？
- 820 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 10:51:08 ID:g9NJe7xK0]
- >>819
// サウンドが再生されたかをチェック
戻値 = CHKSND( [サウンド名] )
- 821 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 11:00:07 ID:N0d6UYUB0]
- >>820
それだとスピーカーがつながっているかわからないし、
スピーカーの電源が入ってるかもわからないし、
スピーカーのボリュームが最小になっていて聞こえなくなってるかもわからない
- 822 名前：819 mailto:sage [2007/03/18(日) 11:08:31 ID:G1MEbanD0]
- スミマセン、私の質問の仕方はよくなかったかも。
目的は複数の動画ファイルを順に５秒ほど再生して、
音が全然無かったものと、音があったものとを識別したいのです。
音は当然、動画ごとに違うので、ビープとか××.wavとかではないです。
- 823 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 21:55:05 ID:qeai6ROm0]
- 動画に音声ストリームがあるかどうかをチェックするのは可能かもしれんが
UWSCでやる必要は無い。
まず動画ファイルがどういうものか、音声ストリームとは何か
意味を知らないならググれ。
- 824 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 22:00:49 ID:wpAgcroq0]
- その辺がわからないからOSがハードウェアに指示出すところで
拾えないかなと思ったんじゃないかな
- 825 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 22:03:46 ID:N0d6UYUB0]
- UWSCで出来たとしてもどのみちDLL使用だろうし、
UWSCじゃないところで勉強してからきたほうがいいな。
- 826 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/18(日) 22:23:27 ID:g9NJe7xK0]
- WMPとかで再生してスペアナの画面監視するってのはどうだ？
- 827 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/19(月) 23:12:54 ID:zKhTt2fP0]
- SOREDA！
- 828 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/21(水) 23:34:53 ID:wOQv7e7l0]
- 質問です。
改行を含む文字列をファイルから読み出して、別のファイルに改行抜いて書き込みたいのですが、
CHGMOJを使って<#CR>を検索してもヒットせず改行が削除できなくて困っています。。
何が原因なのでしょうか。
- 829 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 00:19:06 ID:N4q8VkjG0]
- USB-RS232Cのインターフェースを使っているのですが、
接続の度にCOM番号が移動してしまいます。
uwscで、現在有効なCOM番号を取得する事は出来ますか？
ヒントだけでもいいので、よろしくお願いします。
- 830 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 02:22:37 ID:G1apsxhH0]
- >>828
改行なし文字列 = chgmoj(改行入り文字列,"<#CR>","")
で普通にできたけど。
まさかファイル読み込み→置換→書き込みを一行づつ処理したりしてないよね？
- 831 名前：名無しさん＠お腹いっぱい。 [2007/03/22(木) 10:14:02 ID:qku/eKST0]
- ifb elseif elseの使い方でつまづいています。
させたい事としては
A.bmp B.bmp C.bmpなどの複数画像の認識と、そうでなかった場合の認識で,
メモ帳にA.bmpなどの場合はAと打ち込み、B.bmp、C.bmpも同じようにB,Cと打ち込ませ
画像がみつけられなかった場合にはngと打ち込ませたいと思っています。
現在は
IFB CHKIMG("A.bmp")
KBD(VK_A,CLICK,30)
ELSEIF CHKIMG("B.bmp")
KBD(VK_B,CLICK,30)
ELSEIF CHKIMG("C.bmp")
KBD(VK_C,CLICK,30)
ELSE
KBD(VK_N,CLICK,30)
KBD(VK_G,CLICK,30)
この様にしてありますが、どうもELSE以下の、画像が見つけられなかった時のng入力がうまく
いきません。どのように対処したらいいでしょうか？
- 832 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 10:40:14 ID:G1apsxhH0]
- >>831
つENDIF
ヘルプぐらい読もうぜ
- 833 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 10:55:55 ID:qku/eKST0]
- >>832
レスありがとうございます。
上ではENDIF書き忘れました。すみません。
実際にはENDIF入ってます。
ELSEの時がうまく機能しないのです。
具体的に言うと何も画像が見つからなかった時はNGと打たずに
そのままスクリプトが終了してしまます。
- 834 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 11:16:05 ID:TVb0c2890]
- 俺の環境では再現しないな
以下試してみたコード
ChkImg()に問題があるのかな？
IFB FALSE
KBD(VK_A,CLICK,30)
ELSEIF FALSE
KBD(VK_B,CLICK,30)
ELSEIF FALSE
KBD(VK_C,CLICK,30)
ELSE
KBD(VK_N,CLICK,30)
KBD(VK_G,CLICK,30)
ENDIF
- 835 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 12:29:32 ID:qku/eKST0]
- >>834レスありがとうございます。
ほんとですね、そのスクリプトだと問題なくいけました。
ただ、今つかってるPCと、実行させたいPCが違うので、
後で>>834さんが書いてくれたスクリプトと自分のスクリプトを比べて、
実行させたいPCで試して検証してみます。
ありがとうございました。
- 836 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 18:45:18 ID:2wM5CfJf0]
- 指定画像をクリックさせたいんだが上手く動かん・・・
スクリプトは
Wend
while True
if GETKEYSTATE(VK_ESC) then exit
ifb CHKIMG("a.bmp")
MMV(G_IMG_X,G_IMG_Y)
KBD(VK_CTRL,DOWN)
BTN(LEFT,DOWN,G_IMG_X,G_IMG_Y)
KBD(VK_CTRL,UP)
BTN(LEFT,UP,G_IMG_X,G_IMG_Y)
endif
wend
現在こうなってますマクロ自体は走らせることができるのだが
画像をクリックしにいかない状態。
アドバイスよろしくお願いします
- 837 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 19:53:37 ID:G1apsxhH0]
- >>836
FAQ中のFAQ
まずはifb〜endifの間にprintでも入れて
画像をちゃんと見つけているか確認すれ
- 838 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 22:43:14 ID:+Ql66cZK0]
- >>836
俺ならば、
MMV(G_IMG_X + 50, G_IMG_Y + 50)
などとするな。（50はbmp中の中央付近の位置として）
それから各操作の間に10〜100ミリ程度の時間を置いて。
しかも、
CTRLを離してから左クリックを離す？
それが仕様の動作なのか？
ここの部分は疑問点。
俺ならばCTRL押下でクリックを囲うな。
- 839 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 22:46:31 ID:+Ql66cZK0]
- それから良くある間違いが、マウスポインタが指定の画像の位置の上にあると当然検知されない。
そのためCHKIMGの前に、その画像が絶対ない箇所へのマウスポインタの移動は必須だ。
その後僅かに時間をとってからCHKIMG
- 840 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/22(木) 23:15:53 ID:R7pm3fb20]
- >>829
レス付きそうに無いなぁ…。あれからあちこち見て回って、
なんとなく取っ掛かりになりそうな方法を見つけましたので、質問を取り下げます。
お目汚し失礼しました。
- 841 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 01:20:18 ID:uBr/UHik0]
- >>840
手動で確認する方法を知っていればその通りにやればいいと思う。
- 842 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 02:09:21 ID:1q7aiu0K0]
- >>840
未確認だけど
WMIでできないかな？
- 843 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 10:24:54 ID:1q7aiu0K0]
- 新バージョンがでましたよ
UWSC Ver4.2、 Pro版と Free版をリリースしました。
www.uwsc.jp/
- 844 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 11:09:12 ID:P2WtzyeM0]
- あーぁ
- 845 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 12:04:19 ID:uBr/UHik0]
- まじ?
- 846 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 12:22:31 ID:uBr/UHik0]
- 英語版はなくなったのか…。
- 847 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 13:06:35 ID:cFrgCyQq0]
- 昨日、初めて使ったんだけど、VBSに目覚めたYO
- 848 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 13:39:02 ID:gCPoW1cE0]
- EXE化できるとおもったら
6720円のシェア板・・・
- 849 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 13:39:15 ID:1q7aiu0K0]
- >>847
スレ違い
UWSCはVBSじゃないよ
- 850 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 14:09:01 ID:cKmBDk7C0]
- >>848
コンパイルしない配布用で、UPX使って1/3程らしい。400kb前後か？
- 851 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/23(金) 14:20:02 ID:cFrgCyQq0]
- >>849
VBSに目覚めたYO
- 852 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/24(土) 00:41:07 ID:pN06s1ix0]
- >>848
EXE化って必要かな？
起動が面倒だっていうなら起動バッチ作って一緒に配布すればいいし
複数ファイルになるのがいやならまとめて自己解凍ZIPにでもすればサイズも減ってウマー
>>851
違いが分からないようなら
半年ROMってたほうがいいYO
ここでVBScriptな質問して怒られないようにね
- 853 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/24(土) 02:45:42 ID:psPhH9ly0]
- >>852
何も知らない初心者に渡すなら exe になってた方が楽かな。
まぁ、AHK があるから UWSC で exe 作れてもなぁ…
- 854 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/24(土) 04:11:24 ID:YI01TIfJ0]
- 正直今回の変化にはかなり戸惑っている…。
- 855 名前：名無しさん＠お腹いっぱい。 [2007/03/24(土) 09:35:52 ID:hp8fITTl0]
- あーあ、ついに金儲けにはしったか。
さよならUWSC
- 856 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/03/24(土) 09:37:53 ID:mi/yjfLL0]
- ↑なんでﾀﾞｳｿ乞食ってすぐこういう反応するのか理解に苦しむな
|
 |
