07/01/20 19:05:25 uRMPRV7/0
ぜんぜんわからないんだけど、vbスクリプト（wsh？）とどっちがいいのかな。
どっちか勉強しようかとおもってるんだけど、、、
エクセルとIEを連携させていろいろしたいんだ。
578:名無しさん＠お腹いっぱい。
07/01/20 20:24:51 RFPdD2MV0
>>577
VBAでいいじゃん
579:名無しさん＠お腹いっぱい。
07/01/21 05:22:39 Q4nEdwmO0
>>577
初めて勉強するならWSHがおすすめ。何よりも資料が豊富。
UWSCの書式は(VBS+JS)/2+αって感じだから… >>376
エクセル使いなら>>578が適当かも。
580:名無しさん＠お腹いっぱい。
07/01/21 22:12:07 YnB2PVtI0
IE_SelectItem(1, "Tag='A',LinkText='文字列'")
IE_ItemProc(1, "CLICK", "")
IEとあるページで
<td width="30%"><a href="URL">文字列</a></td>
の「文字列」のところをクリックしたいんだけど
どうしてもできないので手助けお願いします。
エラー内容
IE_SelectItem の引数の形式が不適切です。
「'」が多すぎるか「,」が少なすぎます。
該当箇所： Tag='A',LinkText='現物買'
URLﾘﾝｸ(www.icnet.ne.jp)
ここの例が間違ってるの？
581:名無しさん＠お腹いっぱい。
07/01/21 22:33:46 YnB2PVtI0
ついでにこのエラー
//
でコメントにしても
同じエラーになる
582:名無しさん＠お腹いっぱい。
07/01/22 01:27:03 iOAPnPki0
>>580
UWSC Ver4～には対応してないらしい。
そのサブルーチンを使わなくても標準でできる。
ヘルプを見よう。
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(????)) // ←アドレス
while IE.Busy or IE.ReadyState<>4; SLEEP(0.1); wend
IELink(IE,"現物買") // ←クリックするリンクの表示文字
583:名無しさん＠お腹いっぱい。
07/01/22 01:34:13 pabBt9LS0
ielink(IE,"文字列")
じゃダメなの？
584:名無しさん＠お腹いっぱい。
07/01/22 03:05:22 a8PeaC4D0
>>582 >>583
ありがとうございます
再度 書き直してみます。
585:名無しさん＠お腹いっぱい。
07/01/22 05:37:39 a8PeaC4D0
また行き詰ったorz
超速マクロテクの例では フォーム 要素名指定での入力は
うまく入力できるんだけど
Eトレサイトではなぜか
フォームへの入力ができない
IE.document.trg.price.value = "100"
エラー
Uスクリプト com_error
IE.document.trg.price.value = "100"
ここでは要素名では使えないってことなのかな？
586:名無しさん＠お腹いっぱい。
07/01/24 16:28:19 UY8qL/2O0
特定ウインドウの文字列を取得したい場合、OCR機能を外部から取り入れて
入力欄にその取得文字列をインプットする様なコマンドってわかります？
587:名無しさん＠お腹いっぱい。
07/01/24 16:41:18 oOdl/NuF0
日本語でおｋ
588:名無しさん＠お腹いっぱい。
07/01/24 16:55:36 Tu3OEDDA0
>>586
INPUT( 表示メッセージ, [デフォルト値])
デフォルト値に取得した文字列（もしくはその変数）
589:名無しさん＠お腹いっぱい。
07/01/24 19:43:58 QNCrSZg7O
リストビューの項目を選択するのを自動化したいんですが
ClkItem(id,"リストビュー項目",CLK_LSTVEW)
で、できないんですけど間違ってるんですか？選択したいのはインターネットブラウザの項目なんですが、
ClkItem(id,"リストビュー項目",CLK_ACC)だとできるんです。
ただこの場合リストビュー上にマウスを持っていかないと変わらないんです。
インターネットブラウザのリストビュー項目を自動選択するにはどうしたら良いですか？
590:名無しさん＠お腹いっぱい。
07/01/25 17:58:40 r0DwPlYF0
URLﾘﾝｸ(www.k-den.jp)
このネットゲームのフリレ自動化のプログラムが組める方がいらっしゃれば、お願いしたいのですが？
登録などは無料となっております。
591:名無しさん＠お腹いっぱい。
07/01/25 23:41:51 XH7KwjZi0
＞お願いしたいのですが
いくらぐらいで？
592:名無しさん＠お腹いっぱい。
07/01/26 13:41:53 Pav5kCE90
c=peekColor(55,28)
ifb G_赤(c)<127
print "OK"
Else
endif
function G_赤(c)
Result = c and $FF
fend
これのG_赤(c)<127 の部分が良く分からないのですが
何方か解説してくれませんか？
593:名無しさん＠お腹いっぱい。
07/01/26 15:26:52 L9rKW3Kv0
あまり赤くなければ
ってこと
594:名無しさん＠お腹いっぱい。
07/01/26 17:08:03 gpe3xmDS0
横からで申し訳ない。
Result = c and $FF の 'and' ってどういう計算だろ？
考えてたら訳わかんなくなった…
595:名無しさん＠お腹いっぱい。
07/01/26 17:30:52 L9rKW3Kv0
>594
ビット積やね。
論理積のandとは意味が違うので注意
596:名無しさん＠お腹いっぱい。
07/01/26 17:35:37 L9rKW3Kv0
本家ＢＢＳ過去ログより
URLﾘﾝｸ(www3.bigcosmic.com)
597:名無しさん＠お腹いっぱい。
07/01/26 17:36:10 P2hWYSFw0
peekcolorの返り値は、ＲＧＢ、16進数でＢＢＧＧＲＲで入ってるから、c and $ff0000 で 青、 c and $00ff00 で緑、 c and $0000ffで赤の値が取り出せる
ヘルプに書いてあるがな
598:名無しさん＠お腹いっぱい。
07/01/26 17:37:01 gpe3xmDS0
>>595
おぉ 即レスさんくすです。 ひとつ賢くなった…
599:名無しさん＠お腹いっぱい。
07/01/26 18:39:02 76a1bqKG0
BGRなんだ。。なんで青とってるのに関数名が赤なのかと悩んだｗ
600:名無しさん＠お腹いっぱい。
07/01/26 21:50:39 IQwz3Hx50
>>591
ただでお願いします。
無理言ってすいません。
601:名無しさん＠お腹いっぱい。
07/01/27 11:43:07 G4PUCkhd0
いや、言うのは自由だから。
602:名無しさん＠お腹いっぱい。
07/01/27 14:41:39 doRzyfmA0
//基本的なことをやってみました
id = status(getid("Microsoft Internet Explorer","IEFrame",0.02),st_title)
ifb id = "";fukidasi("ページがありません");for x=1 to 5;sleep(0.2);next;exit;endif
IE = GETACTIVEOLEOBJ("InternetExplorer.Application",id)
Name = IE.LocationName
URL = IE.LocationURL
//IE.Quit
WSH = CREATEOLEOBJ("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop")
Link = WSH.CreateShortcut(Path+"\"+Name+".url")
Link.TargetPath = URL
Link.Save
//fid=fopen(Link.FullName,f_read or f_write);fdelline(fid,3);fclose(fid)
603:名無しさん＠お腹いっぱい。
07/01/29 22:05:37 fcyz6KYn0
ヘルプを参考に「最小化」ボタンをグレーにしてみようとしたのですが、上手くいきません。
DEF_DLL ModifyMenuA(HWND,Long,Long,Long,Long):Long:user32.DLL
MF_GRAYED = $1
SC_MINISIZE = $F020
id = exec("notepad")
hwnd = GetCtlHnd(id,GET_SYSMENU_HND)
ModifyMenuA(hwnd,SC_MINISIZE,MF_GRAYED,0,0)
どこがおかしいのでしょうか。。。
604:名無しさん＠お腹いっぱい。
07/01/30 19:14:54 C9/gwCO90
すみません、教えてほしいのですが
MojiRetsu = "abcdefg"
を一文字づつ取り出して、文字の処理をしたいのですがUWSCではどのようにすればいいのでしょうか？
VBの場合
for i = 1 to Length(MojiRetsu)
txt = mid(MojiRetsu, i, 1)
もしくは
txt = Right(Left(MojiRetsu, i),1)
.... 処理....
Next
でとりだせるはずですが、UWSCの場合の処理を教えていただけませんか？
よろしくお願いします。
605:604
07/01/30 19:28:38 C9/gwCO90
すみません、自己解決です。
ヘルプをよく読んでませんでした。
COPY関数がMIDに相当するものだったんですね。
COPYですから、文字列の単純コピーだと思い込んでました。
すみません。
606:名無しさん＠お腹いっぱい。
07/01/30 22:14:21 IHRQvlYn0
>>603
グレーにはならないけど、無効状態にはなってるね。
「SC_MAXIMIZE = $F030」も試してみたが同じだった。
「MF_DISABLED = $2」の挙動みたいだが？
API使いの光臨を待とう…
607:603
07/01/31 00:09:22 ylP9utd10
>>606
返答ありがとうございます。
そのような場合には最後に
acw(id,status(id,st_x),status(id,st_y))
を書き足してウィンドウの再描写をすれば解決しそうですが、
自分の環境では最小化ボタンの無効化が行われません。
左上のプログラムのアイコンをクリックする事によって出てくる
ポップアップメニューからは「最小化」が削除されているし、
ModifyMenuの戻値は1なのですが。。。
自分はXPなのですが、環境によって違うのでしょうか。
608:名無しさん＠お腹いっぱい。
07/02/01 04:05:02 C4wyYcBXO
天才にご指導願いたい。
指定したウィンドウに画像で４桁の数字がランダムに何種類か表示される。
このウインドウの数字を解析し、テキストボックスにその答えを打ち込みたい。
こんなものはマクロで出来ますか？
できるなら式を教えてください。
609:名無しさん＠お腹いっぱい。
07/02/01 08:50:32 cGUezFrd0
OCRでぐぐって少し考えてみろ
610:名無しさん＠お腹いっぱい。
07/02/01 21:02:52 S0Ax5EkM0
特定のフォントでいいならAUTOITのOCRスクリプトが公開されている。
特定フォントの数字だけならUWSCでも簡単だろ。
611:名無しさん＠お腹いっぱい。
07/02/02 02:12:12 jlqlXg/70
UWSCでは指定ウィンドウに表示されている画像を解析し、その画像に表示されている数字を解析後にテキストボックスに打ち込むなんて事は可能でしょうか？
612:名無しさん＠お腹いっぱい。
07/02/02 02:20:36 zIadodU90
>>611
どこのサイトのどんな画像？
613:名無しさん＠お腹いっぱい。
07/02/02 02:35:07 jlqlXg/70
>>590であがっている
ネットゲームのレースキー入力ウィンドウなんです。
ウィンドウ内に画像が表示され、その表示されている数字を打ち込まないとレースが開始されない。
この面倒な作業を無人で行えないものかと思いまして。
以前はUWSCでマクロのみでレースが発走できたのですが、今はキーを打ち込むという作業が追加されてしまいまして、
その作業がみな面倒だというのでなんとか作れないものかと思い。
このようなスレを見つけ、詳しい皆様に教えを乞いたいです。
614:名無しさん＠お腹いっぱい。
07/02/02 16:40:42 qRWklRGG0
なんのためにそういう面倒な処理が追加されたと思う？
マクロ蔓延への対策だよ
このスレ読んでできないようならあきらめたほうがいい
615:名無しさん＠お腹いっぱい。
07/02/02 17:17:28 O3A6Wfi+0
つまり作る技術も知識も無い奴しかここには居ないってことさ
616:名無しさん＠お腹いっぱい。
07/02/02 17:39:12 K3C4+/Yt0
どこもタチの悪い質問が増えてるな
617:名無しさん＠お腹いっぱい。
07/02/02 22:03:28 NWOMEjb/0
IE.Navigate("URLﾘﾝｸ(ameblo.jp) 0, null, 1, "Referer: URLﾘﾝｸ(ameblo.jp));
こういう感じで実行しても、表示はするけどリファラが残りません＞＜
誰かリファラの残し方教えてください
618:名無しさん＠お腹いっぱい。
07/02/03 00:44:28 rAFsDkfj0
本日、ｸｿｯﾀﾚなWORDファイルの整形に大活躍しました。
特定の文字列を検索
→インデント指定
コレをループさせてずいぶん楽できた。
手の操作をエミュレートしてるだけだから、失敗してもCtrl+Zで気楽に戻せるのがいいな。
619:名無しさん＠お腹いっぱい。
07/02/03 01:39:52 jgpOFn4V0
>>617
"\r\n" → "<#CR>"
620:名無しさん＠お腹いっぱい。
07/02/04 16:33:00 wsNHttRV0
赤に近い色がある場所を取得したいのですが、どうやったら出来ますか？
chkimgだと～に近い色という設定が出来ず、peekcolorで1ドットずつ調べるのは重いので。。。
while true
for i=0 to g_screen_w
for j=0 to g_screen_h
c=peekcolor(i,j)
red=c and $FF
green=(c and $FF00)/$100
blue=(c and $FF0000)/$10000
if red>$F0 and green<$10 and blue<$10 then print i+","+j
next
next
sleep(0.1)
wend
peekcolorを使うとこんな感じですが、重すぎてまともに動きません。
621:名無しさん＠お腹いっぱい。
07/02/04 23:29:19 AZ3768rq0
対象物がどういう画像かにもよるけど
まずはchkimgで色無視で探して
見つかったらその部分だけに範囲を絞ってpeekcolorで色判定するとか。
あと赤に近い色ならR成分だけの比較でよくね？
速度的には改善されると思う。
peekcolorでやるなら走査を1ドットずつじゃなくて例えば10ドット間隔にするとか。
美術品とかの防犯用赤外線センサーみたいなイメージ。
ただ対象物があまりに小さいと見逃すかも。
622:名無しさん＠お腹いっぱい。
07/02/04 23:38:08 acEjdmZB0
R成分だけだと白とかもヒットしてしまうから無理でしょう
>>620
速度求めるならCなりでDLL作って、画面キャプチャ→クリップボード内の画像を走査 が速そう。
623:620
07/02/05 00:27:24 R6II9j8F0
>>621,622
レスありがとうございます！
>>621
赤っぽい物体がランダムな形で表示されているので、色無視は無理です・・・
調べる間隔を離すのは試してみます！
>>622
やはりUWSCだけでは難しいですか・・・
コンパイラ形式の言語はまだよく分からないのですが、これから勉強してみます！
624:名無しさん＠お腹いっぱい。
07/02/05 00:42:36 2cLewcZO0
>622
おっと、確かにそうでした…<白とかもヒット
とりあえずpeekcolorでやってみたけど
うちの環境(1280*768)でループ一回まわすのにかかったのが「3分19秒78」
こりゃ確かに使い物にならん…
色判定部分を工夫して
if (c and $f0f0f0) = $f0 then print i+","+j
これで速度５０％ほどアップして「2分2秒422」
あとは走査をxy両方10ドット間隔にして「1秒297」
これならまあなんとか使い物になるかも？
625:名無しさん＠お腹いっぱい。
07/02/05 01:02:44 2cLewcZO0
追記
c=peekcolor(i,j)
//↓削除ここから
//red=c and $FF
//green=(c and $FF00)/$100
//blue=(c and $FF0000)/$10000
//if red>$F0 and green<$10 and blue<$10 then print i+","+j//→3分19秒78
//↑削除ここまで
if (c and $f0f0f0) = $f0 then print i+","+j//→2分2秒422
626:620
07/02/05 01:25:03 R6II9j8F0
>>624
そういうやり方もありましたか。
参考になります。
このスレにはやさしい人が沢山いて助かります。
ありがとうございました。
627:('A`)ﾏﾝﾄﾞｸｾ ◆2zoWxZ0KXY
07/02/06 10:14:23 N8aNtigh0
口癖とかｗｗｗｗｗｗｗｗｗｗｗｗ
628:名無しさん＠お腹いっぱい。
07/02/07 23:40:57 NIA0HC/g0
すみません、初心者なのですが、
ゲーム上で使う時は
While True
KBD(VK_XXX,DOWN,0)
KBD(VK_XXX,UP,0)
KBD(VK_YYY,DOWN,0)
KBD(VK_YYY,UP,0)
SLEEP(12)
Wend
(VK_XXX、VK_YYYは何かしらのボタンです)
を記述したものを再生するのみでは繰り返さないのでしょうか？
試してみたところ、1回行った後ゲーム上では繰り返しませんでした。
ゲーム上でなければ問題なく繰り返しの動作を行っています。
629:名無しさん＠お腹いっぱい。
07/02/08 00:33:21 IHNssdF00
ヒント:DirectInput
630:名無しさん＠お腹いっぱい。
07/02/08 07:42:37 j0ePCC9y0
// While Wend 文
WHILE 式 // 式が True の間実行
処理
WEND
WHILE 式 // 式が True の間実行
WHILE 式 // 式が True の間実行
WHILE 式 // 式が True の間実行
631:名無しさん＠お腹いっぱい。
07/02/08 10:08:02 kgzJBX1p0
メッセージ投げてるわけでもないからDirectInputも関係ないし
構文もあってる
ゲーム上の動作確認がおかしいだけじゃねーの
632:名無しさん＠お腹いっぱい。
07/02/08 11:25:00 FKJuKnE50
>>628の
While True
ってのは「何が」Trueの間繰り返すという意味なんですか？
633:名無しさん＠お腹いっぱい。
07/02/08 12:44:40 ZEUQBsQ/0
>>632
While True = True
634:名無しさん＠お腹いっぱい。
07/02/08 14:23:56 wOF5n7Uf0
フォーカスがあってないんじゃ？
635:名無しさん＠お腹いっぱい。
07/02/08 22:25:03 8w4lo9zN0
フォーカスを合わせる必要があるのですね…
もしよろしければ、その記述についても教えていただけますか？
636:名無しさん＠お腹いっぱい。
07/02/09 00:14:51 CVVEcBKi0
つヘルプファイル
637:名無しさん＠お腹いっぱい。
07/02/09 00:37:33 xRDFOrHc0
ネトゲなんかでさ、GETIDはできるのは想像つくんだけど、
中のウインドウはGETITEMで操作できんの？
試せよって話なんだが、もう寝る時間なんだ
638:名無しさん＠お腹いっぱい。
07/02/09 04:15:57 R85AHkSa0
バックグラウンドで使うのは難しいのでしょうか？
他の作業をしながら
特定のウインドウで単純にF1キーを押し続ける作業をさせたいのですが、
言語も何もわからないので困っています。
639:名無しさん＠お腹いっぱい。
07/02/09 05:34:00 RTUEj3qb0
>>638
APIを使う。
Windowsアプリの仕組みを知らないのであれば難しい。
640:名無しさん＠お腹いっぱい。
07/02/09 07:53:31 mxygUe7L0
TeamSpeak2( URLﾘﾝｸ(www.goteamspeak.com) )というボイスチャットのスクリプトを作ろうと思ったのですが
GETITEMでアイテム情報を取得できませんでした。
このような場合はどう対応したらよいのでしょうか？
641:名無しさん＠お腹いっぱい。
07/02/09 10:42:08 U7MLjCC+0
おねがいします。
UWSC.exe名を変更するにはどうしたら良いのでしょうか？
エロイ人教えてください
642:名無しさん＠お腹いっぱい。
07/02/09 10:45:58 9N5pvLBZ0
>>641
スレ違いだカス
643:名無しさん＠お腹いっぱい。
07/02/09 12:12:03 Eho8eh0PO
>>641
低レベルな質問をする前に少しは勉強しなさい
644:名無しさん＠お腹いっぱい。
07/02/10 16:00:56 DagaOjlC0
>>641
exec("cmd /c ren uwsc.exe cswu.exe")
645:名無しさん＠お腹いっぱい。
07/02/12 23:11:21 GqqG+y+o0
>>641
UWSC.exeをエロ胃人にに帰るには制てゃpぎおｗｎ
646:名無しさん＠お腹いっぱい。
07/02/13 00:36:42 FAav4dLC0
// 時報
While !GetKeyState(vk_esc)
sleep(0.2)
GetTime()
T = g_time_ww+":"+g_time_hh+":"+g_time_nn+":"+g_time_ss
ifb g_time_nn = 0 and g_time_ss = 0
Fukidasi(g_time_hh+":"+g_time_nn2,0,0,0,72,"Arial","$ffff","",-2)
for i = 1 to 25; sleep(0.2); next
Fukidasi()
endif
//Timer(T = "0:12:34:56","メッセージ")
Wend
Fukidasi("時報を終了します。"); for i = 1 to 5; sleep(0.2); next
//
Procedure Timer(T,str)
ifb T
Fukidasi(str); for i = 1 to 25; sleep(0.2); next; Fukidasi()
endif
Fend
647:名無しさん＠お腹いっぱい。
07/02/13 13:56:17 vkIAvlxP0
>>640
muri
648:名無しさん＠お腹いっぱい。
07/02/13 20:08:16 pgEpS4cV0
>646
なんだ？添削希望か？
649:名無しさん＠お腹いっぱい。
07/02/13 21:59:53 FAav4dLC0
おながいします。
650:名無しさん＠お腹いっぱい。
07/02/13 22:49:24 pgEpS4cV0
とりあえず
for i = 1 to 25; sleep(0.2); next
は
sleep(5)
でいいかと
あと、
Timerは何がしたいの？
651:名無しさん＠お腹いっぱい。
07/02/13 23:44:52 FAav4dLC0
＞>sleep(5)
＞でいいかと
ホントだ…。前に>>115を読んだときに
＞0.5sec待機するより0.01secを5回程度回した方が～
ってところを何を勘違いしたのか間違って解釈しちゃったようですorz
Timerは指定の時間にメッセージを出すだけです。
別に何でも、アプリ起動とかでも良かったんですけど…
指定の時間になったら何かするっていう、つまりタイマー
どっちにしろ一行で済むしそれだけなら別にわざわざサブルーチンにしなくても良かったようですがorz
652:名無しさん＠お腹いっぱい。
07/02/14 10:34:58 g3LUNaLB0
現在のディレクトリを得る方法ってない？
UWSCから、WSH利用するしかないのかな？
653:名無しさん＠お腹いっぱい。
07/02/14 13:42:26 x+7ZQl1v0
GET_CUR_DIR // 現在のカレントディレクトリ
654:名無しさん＠お腹いっぱい。
07/02/15 00:20:10 nGU/ckMc0
サイズの一様(640×480)な中身が違うビットマップファイルが数百個あります。
そのBMPの中から、例えば、ある一定の区画 500, 200, 100 ,100を切り出した新しいBMPファイルを作りたいと思います。
数百もその作業をやるのはしんどうし、
切り出す区画は全ファイル同じ部分なので、uwscなどを用いて簡単に処理できないかと考えてみました。
充分なsleepを与えつつ、画像編集アプリケーションに取り込ませ実際操作する自動化は思いつきましたが、
それは非常にスマートではありません。
uwscのみで行うにはどういった手法があるでしょうか？
WINAPIとかを導入しないとできないでしょうか？
655:名無しさん＠お腹いっぱい。
07/02/15 00:25:42 d0mE+fGw0
ｐｓのアクション＋パッチで十分な話だと思う
uwscさえ必要ねえ
656:名無しさん＠お腹いっぱい。
07/02/15 00:41:57 SGEKa07X0
IRfanでもできるかな
657:名無しさん＠お腹いっぱい。
07/02/15 01:36:36 0kiNIKH70
ImageMagick でやるのが楽かと
658:名無しさん＠お腹いっぱい。
07/02/15 01:38:23 0kiNIKH70
>>654
と言うか、
> 充分なsleepを与えつつ、画像編集アプリケーションに取り込ませ実際操作する自動化は思いつきましたが、
> それは非常にスマートではありません。
こういうスマートじゃない処理をするためだけに uwsc があると思うんだが。
659:名無しさん＠お腹いっぱい。
07/02/15 02:16:43 4zVU3Oy00
>>654
こういうのは、PhotoShopのアクションと自動処理のバッチを使えば一発なんだけどね('A`)
俺なら、ImageMagickでも使うかなあ。
660:名無しさん＠お腹いっぱい。
07/02/15 12:48:27 bY/cVw6K0
>>654
自分なら、>>656の人と同じくIrfanViewを使うかな。
661:名無しさん＠お腹いっぱい。
07/02/15 15:50:26 l9DhUzp90
> GET_CUR_DIR // 現在のカレントディレクトリ
ちょっと前とちょっとあとのカレントディレクトリはどうやって取得すればいい？
662:名無しさん＠お腹いっぱい。
07/02/15 17:12:45 VdGp7gLH0
>>661
ちょっと前に Get_Cur_Dir を使えばいい
663:名無しさん＠お腹いっぱい。
07/02/15 17:13:18 VdGp7gLH0
>>661
同じく、ちょっと後に Get_Cur_Dir を使えばいい
664:名無しさん＠お腹いっぱい。
07/02/15 17:15:14 VdGp7gLH0
>>661 冗談だと思うな、本当のことだぞ。
665:名無しさん＠お腹いっぱい。
07/02/15 18:29:55 VJCrc4le0
>>661
確かに>>662-664以外の方法はないと思う
ちなみにちょっとあとのカレントディレクトリを取得するのは不可能
未来を予知できるなら別だが。
666:名無しさん＠お腹いっぱい。
07/02/15 18:47:09 RqXFGw0H0
てか、UWSCでカレントディレクトリ変更できるの？
667:名無しさん＠お腹いっぱい。
07/02/15 19:02:09 VJCrc4le0
>654
皆が言うように、uwscよりも、内部マクロのようなものが使える画像処理アプリケーションを使う方がスマートだとは思う。
餅は餅屋ということで。
ただuwscを使ってという条件で（まあuwscのスレだし）
よりスマートに改善するなら
>充分なsleepを与えつつ
ここを見直してみるべきでは？
まあ自分ならあえてuwsc+ペイントでやるかなw
668:名無しさん＠お腹いっぱい。
07/02/15 20:35:48 6ZnakJ6o0
>>666
色んな方法があるでしょ
ヘルプ見れば。
君がどういう方法でカレントディレクトリを変更したいのかにもよる。
DOSCMD コマンドもあるし とにかくHELP嫁
669:名無しさん＠お腹いっぱい。
07/02/15 21:01:54 RqXFGw0H0
いや、別に俺がしたいわけじゃないんだけど、できるのかなと疑問に思っただけ。
とりあえずDOSCMDではUWSC自体のカレントディレクトリは変更できない。
670:名無しさん＠お腹いっぱい。
07/02/16 07:25:23 aEdQXwcP0
こんなのはられてたｗ
ｽﾚﾘﾝｸ(mmosaloon板:644-646番)
671:名無しさん＠お腹いっぱい。
07/02/16 08:18:53 CMWBeYzi0
>>670
ﾊﾞﾛｽ
もっと見破られないようにしないとｗ
672:名無しさん＠お腹いっぱい。
07/02/16 10:19:10 RClLESTD0
kbd(VK_LEFT, DOWN, 50) //左ナビ
kbd(VK_LEFT, UP, 50)
このへんのDOWN・UPコンボで
一目で厨ぶりがわかるな
673:名無しさん＠お腹いっぱい。
07/02/17 00:35:46 vy3y0xxR0
ゲームによってはclickが正常に作動しないこともあるんだぜ？
674:名無しさん＠お腹いっぱい。
07/02/17 21:48:54 RM+qUXCD0
その通り。
クリックの放す速度が速いと押したことにならないゲームもある
675:名無しさん＠お腹いっぱい。
07/02/18 12:32:49 EOUmUz5k0
while True
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
IEの表示待ちはこれですけど
他のアプリケーションの表示待ちする場合の方法ってありますか？
676:名無しさん＠お腹いっぱい。
07/02/19 17:39:32 P5MUdYEo0
>>675
ヘルプで『GETID』をキーワード検索しろ
677:名無しさん＠お腹いっぱい。
07/02/19 18:39:43 eyre+X9O0
>>670のリンク先、延々uwscの話題をしていてワラタ
678:名無しさん＠お腹いっぱい。
07/02/19 22:15:18 K8AGIvtf0
操作すんのが面倒ならデモ画面でも見てりゃいいのにな。
679:名無しさん＠お腹いっぱい。
07/02/19 22:52:16 16dl77Y30
comでエクセルを呼び出して作業させているのですが、
呼び出したエクセルのモジュールに作成した「sub処理()」を実行できずに、悩んでいます。
EXCEL.RUN("処理")やEXCEL.RUN "処理"とかやったのですがダメでした。
どなたか、ご教示願います。
680:名無しさん＠お腹いっぱい。
07/02/20 02:05:52 jUqXQ7cY0
>>675
STATUS, GETSTR, POSACC, CHKBTN
CHKIMG
681:名無しさん＠お腹いっぱい。
07/02/20 19:23:08 Xpux+e7b0
>>675
>>680以外ではGETITEMとか
//例(Jane): ステータスバーの表示が "|0 |完了 " になるまで待つ
repeat
GETITEM(ID, ITM_STATUSBAR)
sleep(0.2)
until all_item_list[0] + all_item_list[1] = "0完了"
682:名無しさん＠お腹いっぱい。
07/02/21 01:04:00 wkuVEwNm0
1.WEBサイトの特定の英語のテキスト箇所をコピー。
2.翻訳サイト（Excite翻訳など）のフォーム部分に先程コピーしたテキストをペースト。
こんな感じの流れはこのソフトで可能ですか？
683:名無しさん＠お腹いっぱい。
07/02/21 01:43:41 U+6PFKs/0
可能ですけど、2. をするくらいなら直接 http で POST しちゃって、
結果をツールチップで表示とかのほうがいいんじゃ。
むしろ、そういうことをしてくれるソフトやアドオンはいっぱいあるんじゃ。
684:名無しさん＠お腹いっぱい。
07/02/21 01:56:38 oJndc07q0
RECタブブラウザ作ってください、IEは操作途中に落っこちちゃうんだよね
685:名無しさん＠お腹いっぱい。
07/02/21 02:09:31 dZEZ/RMS0
>>682
GoogleもGooもExciteも全部uwsc(w
// 選択範囲をコピーするウインドウIDの取得
FUNCTION MUSI()
FOR I=0 TO GETALLWIN()-1
T=STATUS(ALL_WIN_ID[I],ST_TITLE)
C=STATUS(ALL_WIN_ID[I],ST_CLASS)
// 無視するウインドウ
IFB T=""_
or C="TApplication"_
or POS("#",C)>0
or POS("UnicodeClass",C)>0
// とか
CONTINUE
ELSEIF C="Progman"
MSGBOX("ERROR: ウインドウがない")
EXITEXIT
ELSE
BREAK
ENDIF
NEXT
RESULT=GETID(T,C)
FEND
686:名無しさん＠お腹いっぱい。
07/02/21 02:35:02 wkuVEwNm0
夜分遅くにレスありがとうございます。
参考にして色々試してみます。
687:名無しさん＠お腹いっぱい。
07/02/21 22:35:01 4wiCaUFR0
うあ、、、、これ便利すぎるｗ
688:名無しさん＠お腹いっぱい。
07/02/22 06:36:09 2kS6WF+F0
質問です
複数の画像を指定して、その画像毎に違ったアクションをさせるにはどうすればいいですか？
サンプルの
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
while True
if GETKEYSTATE(VK_ESC) then exit
MMV(G_SCREEN_W, G_SCREEN_H)
ifb CHKIMG("test.bmp")
～～処理～～
break
endif
sleep(1)
wend
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
のSleep後に
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
ifb CHKIMG("test.bmp")
～～処理～～
break
endif
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
を処理する数だけ加えていけば可能ですが、
もう少しすっきりさせる為に皆さんの知恵をお貸しください。
689:名無しさん＠お腹いっぱい。
07/02/22 15:30:25 XrP4EUKx0
UWSCの勉強に役立つ書籍はスレの最初の方にあった
”Windowsマクロテクニック”だけで問題ないですか？
690:名無しさん＠お腹いっぱい。
07/02/22 16:23:18 qSpCSOux0
>689
日本語でおk
691:名無しさん＠お腹いっぱい。
07/02/23 01:39:23 0sH5Ww6M0
例えば行の先頭から指定した文字列（句点、濁点等）までを選択して
クリップボードにコピーするのってどうやるん？
692:名無しさん＠お腹いっぱい。
07/02/23 02:17:40 aKHo+G7T0
キーボードのあるキーを押すと
マウスの左クリックを０．５秒後に押すマクロってどうやってつくるんでしょうか？
if KBD(VK_DIVIDE,CLICK) then BTN(LEFT,CLICK,500)
とかやってみたんですけどできなくて…
693:名無しさん＠お腹いっぱい。
07/02/23 02:42:27 9AJmM97l0
>>691
line= "例えば行の先頭から指定した文字列（句点、濁点等）までを選択して"
sendstr(0,token("、",line))
>>692
getkeystate
694:名無しさん＠お腹いっぱい。
07/02/23 02:46:11 0sH5Ww6M0
>>693
レスありがとです！
695:名無しさん＠お腹いっぱい。
07/02/23 15:22:29 OI7ziwL20
UWSCおもすれー（ ＾ω＾）
696:名無しさん＠お腹いっぱい。
07/02/23 20:27:31 6yiL1E+C0
あるプログラムのメモリを書き換えるスクリプトは、
どういう記述をすればいいのでしょうか？>>533を見たのですが
APIやDLLは使い方がよくわかりません・・・
697:名無しさん＠お腹いっぱい。
07/02/23 20:35:33 x+nYfDMf0
>>696
WriteProcessMemory 呼び出すだけだろ。
698:名無しさん＠お腹いっぱい。
07/02/23 21:53:58 g22vXUMk0
みんなこのソフトどういう時に使ってるの？
なんか便利な使い道あったら教えて下さい。
このソフトプログラマーの人しか使わないのかな。
699:名無しさん＠お腹いっぱい。
07/02/23 23:32:07 lMs4LxVV0
>>698
俺はnPOPで受信したメールがたまってきたら
テキストに保存して纏めて圧縮してるんだけど，
その操作をuwscにやらせてる。
自分が頻繁に行う定型の操作があって，
プログラムを組むほどでもないようなことをuwscで，，，みたいな
700:名無しさん＠お腹いっぱい。
07/02/23 23:41:01 Zsv/MN0i0
>>688
DIM x[] = "test1.bmp","test2.bmp", ・・・
for i=0 to LENGTH(x)-1
ifb CHKIMG(x[i]) then
select i+1
case 1
処理 1
case 2
処理 2
case ・・・
処理・・・
selend
endif
next
701:名無しさん＠お腹いっぱい。
07/02/24 12:15:07 ifk79U590
>>700
ありがとうございます、参考になりました。
それに加えて、複数個指定した画像以外に
指定した画像がなかった場合の処理を組み込む事は可能ですか？
この場合、配列をもう一つ別に指定した方が綺麗にまとまりますか？
702:696
07/02/24 12:55:52 NQZTMvMn0
>>697
回答ありがとうございます、呼び出し方の記述がよくわからないので
勉強して出直してきます
703:名無しさん＠お腹いっぱい。
07/02/25 08:28:12 Y68j1HBx0
>>698
午前10時45分にシャットダウンしたい時。
704:名無しさん＠お腹いっぱい。
07/02/25 14:38:01 4DUTXKqq0
GETITEM() の ITM_ACCTXTやITM_ACCCLKで文字列取るときに「&」を取っ払うのは仕様なのか？
ショートカットキーを表現する「&」を消すのはまだ納得できるけど、URL内の「&」消されるのはつらいぞ。
705:名無しさん＠お腹いっぱい。
07/02/25 15:01:21 rNvu9Obr0
アクセスエクスチェンジとかだろ
706:名無しさん＠お腹いっぱい。
07/02/25 19:13:40 dSivR6Uy0
>>701
bmp = "test.bmp" //bmp = "test1.bmp" //bmp = "test2.bmp"
DIM x[] = "test1.bmp","test2.bmp"
DIM y[LENGTH(x)-1]
for i=0 to LENGTH(x)-1
ifb bmp = x[i] then
select i+1
case 1
msgbox(x[i]+"発見")
case 2
msgbox(x[i]+"発見")
selend
// break
else
y[i] = "無い"
// msgbox(x[i]+"が無い")
// break
endif
next
for i=0 to LENGTH(x)-1
ifb y[i]<>"" then
select i+1
case 1
msgbox(x[i]+"は無かった")
case 2
msgbox(x[i]+"は無かった")
selend
endif
next
707:名無しさん＠お腹いっぱい。
07/02/26 18:55:13 MQXBg9MI0
失礼します。
最小化しているウィンドウに対して処理を行う事は可能ですか？
行おうとしている作業は、最小化しているメールソフトに対して、
一定時間毎に"送受信"ボタンを押す、というものなのですが、
while
ifb chkimg(送受信.bmp)
btn(left, click, g_img_x, g_img_y)
break
sleep(60)
wend
に何を加えればいいでしょうか？
後、疑問なのですが、最小化しているウィンドウに命令を行えるなら
chkimgで指定した画像は、表示している画面をサーチするのか、
最小化しているウィンドウ内をサーチするのか、どちらなのでしょうか？
回答頂ければ幸いです。
708:名無しさん＠お腹いっぱい。
07/02/26 20:30:10 XaitowDR0
ｃｈkimgは画面表示をチェックするんだろ?
最小化していて表示されるところだけちぇっくすればOK。
それが嫌ならｃｈkimgなんか使うな。
ちなみに俺はchkimgなど1度も使った事は無い。
709:名無しさん＠お腹いっぱい。
07/02/26 20:53:44 5Y5GLnn70
>>707
最小化したままだとchkimgでは無理ですね。
chkimg以外の方法で処理可能であるならば自分だったらこんな感じにするかな。
他の方法もあるかもしれないけど。
x = gettime()
while !getkeystate(vk_esc)//escキーで終了
y = gettime()-x
s = y mod 60
sleep(0.2)
ifb s = 0
//処理
endif
wend
MsgBox("終了")
710:名無しさん＠お腹いっぱい。
07/02/27 02:13:24 bZ9qrAwt0
>707
とりあえず
MOUSEORG(id,2)
あとは
PostMessage使うとか
711:名無しさん＠お腹いっぱい。
07/02/27 02:14:15 UsiWTpU40
♪ ／妊_娠＼
. |/-O-O-ヽ|
6| . : )'e'( : . |9
(( ( つ｀‐-＝-‐ 'ヽ、 )) ♪ ♪
〉 と/ ))) ♪
（__／￣￣(＿)
♪ ／￣￣ ＼
. | | ♪
（|＼ ／|）
♪ / ￣￣ ) )) ♪ ♪
(( ( . : ( : . 〈 ♪
(＿)￣￣ヽ__）
♪ ／妊_娠＼
. |/-O-O-ヽ|
6| . : )'e'( : . |9
(( ( つ｀‐-＝-‐ 'ヽ、 )) ♪ ♪
〉 と/ ))) ♪
（__／￣￣(＿)
712:名無しさん＠お腹いっぱい。
07/02/27 05:12:53 xdrZIzQI0
>>707
WinLister（英）
URLﾘﾝｸ(www.nirsoft.net)
ProcessWalkerなど
URLﾘﾝｸ(www001.upp.so-net.ne.jp)
最小化されているウィンドウの「クラス」「タイトル」なども取得できるソフト。
同系ソフトは他にもあるけど、この機能に限定すればWinListerが使いやすい感じ。
713:名無しさん＠お腹いっぱい。
07/02/27 05:33:04 XIHG/8cC0
>>712訂正
△最小化されているウインドウの
○不可視ウインドウの
714:名無しさん＠お腹いっぱい。
07/02/27 13:09:22 dd7Gb3CU0
すっげー久しぶりに来た。３ヶ月は見てないかな。ここ。
>>547
>>589
SE = IE.document.getElementsByTagName("select").item(1)
Op = SE.options
for i = 0 to Op.length - 1
Itm = Op.item(i)
if Itm.text = "名前/ヨミガナ" then Itm.selected = true // 選択
next
SE.fireEvent("onChange") // onChange イベントを発生させる
715:714
07/02/27 13:10:56 dd7Gb3CU0
業務用の抜き出しなんで、適当に直してね。
716:名無しさん＠お腹いっぱい。
07/02/27 20:29:18 5o3nqbUw0
IEでリンクの文字列をクリックしたいのですがHTMLが
<a href="ｈURLﾘﾝｸ(......">)<)リンク名
</a>
IELink(IE_br[1],"リンク名"+"<#CR>") // 改行追加
複数行になってしまう場合は無理なのでしょうか？
717:名無しさん＠お腹いっぱい。
07/02/27 21:52:50 mtZrmXvS0
getElementsByTagName("a")とかで試してみては
718:名無しさん＠お腹いっぱい。
07/02/28 00:22:00 /zsDSXub0
>716
htmlに改行は関係ないはずだしそんなわけないやろ…と思って検証してみた。
うん、たしかに改行が入ってるとクリックできないわ。
RecIEで記録してみたら改行を含むリンクの方は改行じゃなくて
"リンク名 "みたいに半角スペースが入ってるみたい。
これに習って半角スペース入れてやれば、
無事クリックすることはできたけど。
…これってバグだよね？
719:名無しさん＠お腹いっぱい。
07/02/28 00:36:17 lKePO2390
UWSCでDirectInputを扱うことはできるかな？
720:名無しさん＠お腹いっぱい。
07/02/28 00:50:01 +F5S3BZ40
どういうのが扱うの定義なの?
721:名無しさん＠お腹いっぱい。
07/02/28 01:34:24 lKePO2390
ああ、ミジンコですいません・・・。
単純にKBDやBTNの代わりにDirectInputを使ってみたいな、と思いまして。だから
キーやマウス操作で使いたいんです。
どうもUWSCでそういう事例がないっぽい感じなんで、聞いてみた次第です。
722:名無しさん＠お腹いっぱい。
07/02/28 04:11:01 WxlpFZeq0
>>716
umiumi様に報告しなっせ。
723:名無しさん＠お腹いっぱい。
07/02/28 05:50:57 +F5S3BZ40
>>721
特定のアプリのみなら DLL Injection すればできるよ。
後はドライバ作ればなんでもできる。キーボードだけなら mayu.sys 使えばいい。
724:名無しさん＠お腹いっぱい。
07/02/28 22:56:38 lKePO2390
>>723
なるほど。そういう策があるんですね。Thx!
725:名無しさん＠お腹いっぱい。
07/02/28 22:59:46 6bZJcGLF0
IESETDATAに対応するvbscriptってあります？
これすげー便利なんだけどvbscriptで同じのがあれば教えてください。
726:716
07/03/01 00:20:04 dHFep3w80
>>717 , >>718様
ありがとうございます。
スペースを入れることで無事解決いたしました。
727:名無しさん＠お腹いっぱい。
07/03/01 00:23:51 KFbXBiFs0
vbsでIE操作関連のライブラリは聞いたことないなあ。
IESETDATAぐらいの機能なら自分で互換プロシージャ書いたほうが早いかも。
VBScriptにこだわらず、PerlやRubyやJavascript使えるならMechanize使うべし。
728:名無しさん＠お腹いっぱい。
07/03/01 03:11:08 eWsgJP0Y0
>>727
やっぱそうですか。
vbscriptで実現しようとするとうまくいかないサイトがありまして、
RECIEでやると簡単にいったんです。
IESETDATAってのをたくさん使ってたのでｖｂでもできないかなあといろいろググってます。
でもないんですねえ。素人にはむつかしい。
Mechanizeってのをググっても？？？が頭に浮かぶばかりです。
やたらIT英単語が羅列される高度なサイトしかでてこない。
729:名無しさん＠お腹いっぱい。
07/03/02 11:28:21 wgmImKY+0
すみませんちょっと教えてほしいのですが
CALL で呼び出した サブマクロをリリースすることは出来るのでしょうか？
やりたいことは 一日中動かす制御系マクロで、条件にしたがって CALLするサブマクロを変えたいのです。
只、問題になるのではないかと懸念しているのは
例えば 条件にしたがって A.UWS をCALLして
しばらくして、条件が変わり 今度はB.UWSをCALLした後
また、条件が元に戻って A.UWSをCALLすると、関数の重複エラーを起こすのではないかと思ってます。
CALLする際には、既にCALLしていればCALLしないような関数自体の制御はあるのでしょうか？
よろしくお願いします。
730:名無しさん＠お腹いっぱい。
07/03/02 12:09:17 WyS8M7wk0
CALLはスクリプトの始まりで全て読み込まれる仕様だったと思うが。
731:名無しさん＠お腹いっぱい。
07/03/02 12:11:33 wgmImKY+0
>>730 そうなんですか？
以前に
Select 条件
Case A
Call A.uws
Case B
Call B.uws
Case C
Call C.uws
Selend
みたいなので動かしてましたが、条件に関係なく Callされてしまうということでしょうか？
732:名無しさん＠お腹いっぱい。
07/03/02 12:14:46 WyS8M7wk0
なので、CALLの中は関数のみにして条件式で関数を呼び出したほうが管理し易い。
733:名無しさん＠お腹いっぱい。
07/03/02 12:16:44 wgmImKY+0
>>732
了解です。アルゴリズムを変えます。
734:名無しさん＠お腹いっぱい。
07/03/02 12:19:54 WyS8M7wk0
> CALL文はスクリプトが走る前に評価してマージ
らしいので、何回呼び出してもOKということ。
735:名無しさん＠お腹いっぱい。
07/03/02 12:21:37 wgmImKY+0
>>734
そうなんですか、であればすごく楽です。いろいろありがとうございました。
736:名無しさん＠お腹いっぱい。
07/03/02 12:24:09 WyS8M7wk0
なので は変だったかな。
まとめると、CALLの重複呼び出しは可能だが、
関数呼び出しの方がCALLする数も減らせてよいのではないか・・と。
737:名無しさん＠お腹いっぱい。
07/03/02 17:18:17 LEgHzb2/0
教えてください
kbd(vk_tab)
kbd(vk_tab)
kbd(vk_tab)
kbd(vk_tab)
kbd(vk_tab)
の簡略化の仕方って、どうすればいいのでしょうか？
初歩的な事ですいません。
738:名無しさん＠お腹いっぱい。
07/03/02 17:40:28 zd/tmG0Y0
for i=1 to 5
kbd(vk_tab)
next
739:名無しさん＠お腹いっぱい。
07/03/02 18:51:13 LEgHzb2/0
>>738
なりました
どうもありがとうございました！
740:名無しさん＠お腹いっぱい。
07/03/02 23:29:55 YTqW5ImN0
kbd(vk_tab, 5 ) * 5;
741:名無しさん＠お腹いっぱい。
07/03/02 23:31:39 YTqW5ImN0
I=5
WHILE I--
kbd(vk_tab)
Wend
742:名無しさん＠お腹いっぱい。
07/03/03 00:35:02 VMJxRwv40
>740,741
……うそつき
（緒川たまき）
743:名無しさん＠お腹いっぱい。
07/03/03 09:17:41 V9IC+ExM0
kbd(vk_tab)
kbd(vk_tab)
kbd(vk_tab)
kbd(vk_tab)
kbd(vk_tab)
これを誰よりも複雑に書いてください。
744:名無しさん＠お腹いっぱい。
07/03/03 20:43:41 s3yQZgWo0
kbd(vk_tab , vk_tab , vk_tab , vk_tab , vk_tab) ;
745:名無しさん＠お腹いっぱい。
07/03/03 23:14:36 MQ3VC4ET0
Dim TabCnt = 0
While TabCnt < 5
repeat
rd = RANDOM(100)
ret = (int(rd / 10) * 10) mod 7
until (ret = 3)
kbd(vk_tab)
TabCnt = TabCnt + 1;
wEnd
746:名無しさん＠お腹いっぱい。
07/03/03 23:23:26 YLpnXPZY0
>>316をDF 1.40で使ってるけど Sleipnir 1.xへ誤爆することがある。
タイトルは「DF」の2文字しかないし、クラス名がほぼ同じ・・・
リソース弄ってタイトル書き換えたらOKになったよ。
あと、DROPFILEの前にST_BUSYを入れてみたが効果は不明。
while STATUS(id, ST_BUSY); sleep(0.1); wend
DROPFILE(id, dir, fname)
>>741-742
意味無いけどこれなら動く。
i=5
while i
i=i-1
kbd(vk_tab)
wend
747:名無しさん＠お腹いっぱい。
07/03/04 02:53:05 5kEaDmCz0
ifb fopen("tab5.uws",f_exists) = 0
fid = fopen("tab5.uws",f_read or f_write)
fput(fid,chr(102)+chr(111)+chr(114)+chr(32)+chr(105)+chr(61)+chr(49)+chr(32)+chr(116)+chr(111)+chr(32)+chr(53),1)
fput(fid,"<#tab>"+chr(107)+chr(98)+chr(100)+chr(40)+chr(118)+chr(107)+chr(95)+chr(116)+chr(97)+chr(98)+chr(41),2)
fput(fid,chr(110)+chr(101)+chr(120)+chr(116),3)
fclose(fid)
endif
while 1
sleep(0.2)
ifb fopen("tab5.uws",f_exists) = 0
continue
else
break
endif
wend
call tab5
748:名無しさん＠お腹いっぱい。
07/03/04 11:10:58 jZ09oSHm0
Class Tab5
Dim Count5
Procedure Tab5()
Sleep(1)
this.TabClick()
Fend
Procedure TabClick()
kbd(chr(57))
this.CountUp()
this.TabClick()
Fend
Procedure CountUp()
Count5 = Count5 + 1
if Count5 = 5 then exitexit
Fend
EndClass
749:名無しさん＠お腹いっぱい。
07/03/04 16:30:49 ZVZ7OXQj0
ブログのバックアップデータのあるCSVファイルがあるんだけど
コレをWIKIに移行しようと思って自動化プログラム作りたいんだけど
どんなプログラムくめばいい意
750:名無しさん＠お腹いっぱい。
07/03/04 16:34:23 QvCR5Gc90
>>749
要約するとこうだな
①ブログのバックアップCSVデータがある
②WIKIに移行する自動化プログラムを作りたい
③どんなプログラムを組めばいいか？という質問
答え：自動化プログラムを組めばいい
751:名無しさん＠お腹いっぱい。
07/03/04 17:18:20 ZVZ7OXQj0
>>750
そう
わからないのが
エクセルから特定のセルをキャッシュにコピーする方法
特定のアドレスにアクセスする方法
がわかればたぶんできると思うのですが
752:名無しさん＠お腹いっぱい。
07/03/04 17:30:46 m1xVfsXi0
テキスト処理だけでできる作業を何でわざわざ GUI でやろうと思うのかが謎
753:名無しさん＠お腹いっぱい。
07/03/04 17:50:39 aLBEPeVF0
ここ数時間試行錯誤をしてるのですが解決しませんので質問させていただきます
メモ帳などでキーボードのaを押したら処理１が開始されるようなマクロを組みたいのですが
start
__________|________
| |
aが押される bが押される （キーボード
| |
処理1 処理2
|__________________|
|
~
このようなスクリプトはUWSCにはないのでしょうか
INPUTでは新たにウィンドウが出てしまいますし、エンターを押さなければ処理１には進みません
なにか知恵をお貸しいただければ幸いです
754:名無しさん＠お腹いっぱい。
07/03/04 17:53:38 QvCR5Gc90
ifb GETKEYSTATE(VK_A) then
//a key を押した時の処理
endif
当然 while ～ wend に入れるべし
ていうか752にもあるように、UWSCでつくるべきプログラムじゃないよ
755:名無しさん＠お腹いっぱい。
07/03/04 18:05:33 aLBEPeVF0
>>754
即レスありがとうございます
それでうまくできなければ他のマクロを探してみます
ありがとうございました
756:名無しさん＠お腹いっぱい。
07/03/04 23:26:57 a4NBNM9n0
>>752
テキストでやるのはいいけど
ファイル名のつけ方がわからん
757:名無しさん＠お腹いっぱい。
07/03/05 10:59:05 kPPaI09y0
>749
csvを読み込み処理する部分は
FOPEN
758:名無しさん＠お腹いっぱい。
07/03/05 11:02:26 kPPaI09y0
おっと途中で書き込んでしまった。
csvを読み込み処理する部分は
FOPENして
FGETして
ごにょごにょしたらおｋ
wikiに書き込むのは
IESETDATA使うなり
直接COMでDHTMLたたくなり
好みとスキルに応じてどうぞ
759:名無しさん＠お腹いっぱい。
07/03/07 12:24:23 2NSKScfX0
UWSCスクリプトを実行ファイルに変換するスクリプト
欠点: ファイルがでかすぎる。
760:名無しさん＠お腹いっぱい。
07/03/08 12:11:00 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:名無しさん＠お腹いっぱい。
07/03/08 14:44:22 Q+kjASni0
>>760
DIM WshNetwork = CREATEOLEOBJ("WScript.Network")
PRINT WshNetwork.ComputerName
じゃダメなのか?
762:名無しさん＠お腹いっぱい。
07/03/08 14:55:38 7XN40pw00
>760
DEF_DLL GetComputerNameA(string, var long):long:kernel32.dll
引数は前が値渡しで後ろが参照渡しみたいだね
763:名無しさん＠お腹いっぱい。
07/03/08 15:02:40 7XN40pw00
DEF_DLL GetComputerNameA(var string,var long):long:kernel32.dll
あれ？前もvarじゃないとだめみたい
764:名無しさん＠お腹いっぱい。
07/03/08 15:18:11 O6XSymB40
>>763
そりゃ、stringに結果が返るんだから参照渡しなんじゃないの
765:760
07/03/08 16:10:33 PbsxIEko0
ありがとうございます。うまくいきました。
よく見たら、第二引数がLPDWORDっすね・・・orz
>>761
そう言う方法もあるんですね。ﾒﾓﾒﾓ。
766:名無しさん＠お腹いっぱい。
07/03/08 16:33:01 7XN40pw00
>764
もちろんおれもそうとは思ったんだけど
VBの例見てみたらなぜか一つ目の引数はByValだったんだよね…
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal Buffer As String, Size As Long) As Long
767:名無しさん＠お腹いっぱい。
07/03/08 16:36:47 7XN40pw00
>760
ちなみにバッファは16バイトでいくない？
コンピュータ名ってANSI15文字までだった気がする。
768:名無しさん＠お腹いっぱい。
07/03/08 23:10:03 3vwnAUEJ0
CTRL+Rを押すとあらかじめ作っておいたAというスクリプトが
CTRL+Lを押すとあらかじめ作っておいたBというスクリプトが実行される
こういう感じで使うことってできますか？
769:名無しさん＠お腹いっぱい。
07/03/08 23:21:51 QhMdkY5Q0
uwsファイルをuwsc.exeに関連づけを行う
uwsファイルのショートカットをデスクトップに作成
そのショートカットのプロパティを開いて、ショートカットキーを割り当てる
770:名無しさん＠お腹いっぱい。
07/03/08 23:26:22 3vwnAUEJ0
>>769
ありがとうございます！
771:名無しさん＠お腹いっぱい。
07/03/09 02:16:24 pF+OFex30
>>767
ご指摘の通り、
MAX_COMPUTERNAME_LENGTH + 1 ということなので、１６で３２も必要ないですね。
772:名無しさん＠お腹いっぱい。
07/03/10 16:03:33 EidvIQ3R0
コンパクトなランタイム版欲しくないか?
コピー自由だからEXE化不要というのは概ね同意だったが
ここまでファイルがでかくなるとEXE化というのもアリかな?
773:名無しさん＠お腹いっぱい。
07/03/11 15:16:00 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] //URLﾘﾝｸ(www.honda.co.jp)
print EVENT_PRM[1] //URLﾘﾝｸ(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:名無しさん＠お腹いっぱい。
07/03/11 17:41:38 gXtUVhMk0
>>773
IDispatch型ってのはそもそもprintするようなものじゃないと思うんだ
775:名無しさん＠お腹いっぱい。
07/03/11 22:10:17 FHiSloY00
>>774
**&ppDispは入れ込むものだってのはわかった
URLﾘﾝｸ(www.melonpan.net)
みたいなことをやりたいんだけど無理なんでしょうか
そもそも
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:名無しさん＠お腹いっぱい。
07/03/12 00:45:56 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:名無しさん＠お腹いっぱい。
07/03/12 01:09:19 A4ISQcDy0
yahooのブリーフケースにいれてあるファイルを開きたいのですがなかなかうまくいきません。
良い知恵orミスの指摘をお願いします。
IELink(IE,"ブリーフケース")
BusyWait(IE)
IELink(IE,"****.xls") //対象ファイル
BusyWait(IE)
ACW(GETID("ファイルのダウンロード"))
CLKITEM(GETID("ファイルのダウンロード"),"開く(O)",CLK_BTN)
778:名無しさん＠お腹いっぱい。
07/03/12 02:08:47 JMJM6ows0
おおっと、この場合VALIANT_BOOLだからTRUEは1でよかったね。
まあどちらにしても新しいウィンドウ開いちゃうんだけど。
779:名無しさん＠お腹いっぱい。
07/03/12 02:28:25 JMJM6ows0
やっぱVARIANT_TRUEは-1でよかった
ウソ言ってスマソ
780:773
07/03/12 09:03:24 a3O+JiPS0
うはNewWindow2でできました
すいません2で試してなかったようです
cancelが駄目だったからあきらめてしまった
ありがとうございました
781:名無しさん＠お腹いっぱい。
07/03/12 16:49:47 n5L2tYqJ0
Sleepで待ってるスレッドを中断するにはどうすればいい?
ウィンドウ持っていればCtlWinで中断できる?
それともSleepの代わりにWAIT・POSTみたいのはWin32APIでできる?
782:名無しさん＠お腹いっぱい。
07/03/12 17:13:41 wxNktC0X0
WHILE+GETKEYSTATE
783:名無しさん＠お腹いっぱい。
07/03/12 18:30:24 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:名無しさん＠お腹いっぱい。
07/03/12 23:08:41 n5L2tYqJ0
それって単にフラグポーリングしてるだけやんか…。
785:名無しさん＠お腹いっぱい。
07/03/13 05:29:39 cUL5v4BL0
じゃあなにがしたいの？
786:名無しさん＠お腹いっぱい。
07/03/13 09:20:34 cyFSWzt+0
fukidasi("10秒後にこのメッセージを消すぞ!")
thread fukioff(10)
Sleep(20)
Msgbox("噴出し消えてるか?")
Exit
procedure fukioff(t)
sleep(t)
fukidasi()
fend
スレッドでfukidasiが消えてくれないのだが?
なぜ?
吹きだしウインドウを捜してCTRLWINで閉じなきゃ駄目なのか?
それともバグ?
787:名無しさん＠お腹いっぱい。
07/03/13 09:30:12 cyFSWzt+0
thread fukioff(10)
Msgbox("噴出し消えてるか?")
Exit
procedure fukioff(t)
fukidasi("10秒後にこのメッセージを消すぞ!")
sleep(t)
fukidasi()
fend
これなら消える。
fukidasi以外も全部そうか?
ああそうかい。
じゃ。
788:名無しさん＠お腹いっぱい。
07/03/13 12:15:17 Jt3WP4T70
メイン側とスレッド側のfukidasiは別物。
スレッド数と同じ数のfukidasiを表示できる。
789:名無しさん＠お腹いっぱい。
07/03/13 12:39:02 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:名無しさん＠お腹いっぱい。
07/03/13 13:29:22 cyFSWzt+0
>>788
> メイン側とスレッド側のfukidasiは別物。
スレッド毎に別になるのは上でもう試したので判ってるが。
例えばコンソールは同じもんなのか？
なーんでだ？ていうかあれは？これは？で全部試さなきゃ駄目そうだな。
UWSCはためしためし作るのがあたりまえなのでそれくらい全然平気だが。
791:名無しさん＠お腹いっぱい。
07/03/13 17:03:36 Jt3WP4T70
だったらぶつぶつ言わないでガンバレ。
792:名無しさん＠お腹いっぱい。
07/03/13 17:14:31 z+6WW4kl0
複数ｔhread間で、printやbtn、mmvなんかを実行するとき
当然これらはシステムで１つしか存在しない共有資源なんだが
ロックとかどうなってんのかな？
793:名無しさん＠お腹いっぱい。
07/03/14 08:49:07 aZuPqBx+0
とにかく試すんだよ。
794:名無しさん＠お腹いっぱい。
07/03/14 16:51:21 yQ01SVVO0
質問させていただきます。
以下のような処理を uwsc で組むとどうなりますか。
1.現在、起動中のアプリから"プログラムＡ" を探す
2.みつかったら、
非アクティブのままで(バックグランドのアプリに)
キーX を送る。
恥ずかしい話ですが、いつもuwscに挑戦しょうとしますが挫折します。
テンプレにかいてあるいろんなサイトにいき、ヘルプなどみているうちに
わからなくなってしまいます。（どれを参考にしてよいかわかりません。）
なにか良い方法はないでしょうか。
上の1.2.を組むためにはどこを見て勉強すればよいのでしょう。
教えていただければ幸いです。
795:名無しさん＠お腹いっぱい。
07/03/14 20:35:06 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:名無しさん＠お腹いっぱい。
07/03/14 23:09:31 yQ01SVVO0
>>795 回答、有難うございました。
コマンド1つづつ、調べてみます。
797:名無しさん＠お腹いっぱい。
07/03/15 20:50:07 echeEF2V0
画面内に指定画像があるか無いかチェックし、あればクリックしたりするスクリプト文を作成したいのですが・・・、うまくいきません；
詳しい方、どうかご教授お願いしますm(_ _)m
798:名無しさん＠お腹いっぱい。
07/03/15 21:19:32 gAtpnVa70
>>797
CHKIMG使えばいいと思う。
それとどう上手く行かないのか書かないと分からない。
ご教授じゃなくてご教示、意味の分からないこと葉は使わないほうがいい。
799:名無しさん＠お腹いっぱい。
07/03/15 21:21:39 yidvy73a0
>>797
どううまくいかないのか書かないと
誰も答えられないよ。
ここままではヘルプぐらい嫁としか言えない。
800:名無しさん＠お腹いっぱい。
07/03/15 21:51:43 RMTAm+Y00
キャラだろ。
801:名無しさん＠お腹いっぱい。
07/03/15 21:52:09 Bw9W6nzv0
ま～たオンラインゲームかｗ
802:名無しさん＠お腹いっぱい。
07/03/16 00:22:58 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("つURLﾘﾝｸ(www.google.co.jp))
endif
803:名無しさん＠お腹いっぱい。
07/03/16 00:26:58 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:名無しさん＠お腹いっぱい。
07/03/16 00:35:15 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:名無しさん＠お腹いっぱい。
07/03/16 02:07:45 qAGjSoPe0
>>802
ちょとﾜﾛﾀ
わざわざスクリプトまで組んでくれるなんて
親切な人だね
806:名無しさん＠お腹いっぱい。
07/03/16 02:15:31 31It80P50
どういたしまして
807:名無しさん＠お腹いっぱい。
07/03/16 03:21:58 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:名無しさん＠お腹いっぱい。
07/03/16 04:01:48 e+a/E5Ma0
質問です。
最小化しているウィンドウに対して命令を送ろうと
public 2ch
2ch = GETID("Jane","TApplication")
MOUSEORG(2ch,2)
以降、処理
というマクロを組んだのですが、うまくいきません。
処理自体は、キーボードのボタンを一定時間毎に入力する簡単なものなので
間違いは無いはずですし、上記の記述に不備があるのでしょうか？
クラスの取得には>>712のWinListerを使ったのですが
指定するID自体が間違っているのでしょうか？
皆さんのお力添えをいただきたいです。
809:名無しさん＠お腹いっぱい。
07/03/16 09:50:08 7NEMi9s/0
SendMessage
せめてsckey chkitem
janeに何させたいの？
810:名無しさん＠お腹いっぱい。
07/03/16 13:37:57 WOCiyC/30
IEコンポーネントブラウザを使っていて、タイトルに指定した文字列があれば
次の処理へ（無ければ1秒SLEEP）移行するという制御文で詰まりましたｗ
識者よどうか知恵を貸して下さい。
CLIP=文字列
GETID("WTL:Donut")
STATUS("WTL:Donut",ST_TITLE)
WHILE POS(CLIP,ST_TITLE) <> 0
SLEEP(1)
WEND
.
.
.
次の処理
811:名無しさん＠お腹いっぱい。
07/03/16 16:44:47 qAGjSoPe0
…
id = GETID("WTL:Donut")
title = STATUS(id,ST_TITLE)
WHILE POS(CLIP,title) <> 0
…
じゃね？
まずは戻り値や変数といった基礎を理解すべし
812:名無しさん＠お腹いっぱい。
07/03/16 16:47:23 WOCiyC/30
>>811
了解です。
もっとじっくりと勉強してみます。
813:名無しさん＠お腹いっぱい。
07/03/16 17:50:32 qAGjSoPe0
あと、
WHILE POS(CLIP,title) = 0
だな
814:名無しさん＠お腹いっぱい。
07/03/16 18:02:54 7NEMi9s/0
TOKENでデリミタ複数指定した時、どのデリミタで引っ掛ったのか判る方法無いの?
組み込み関数が今位置不便なのでどいつもこいつもCOM使うんだよな…。
815:名無しさん＠お腹いっぱい。
07/03/16 19:26:55 mqTPjeha0
>>804,807
遅れましたが、どうもありがとうございます。
sleep()
getkeystate(VK_LBUTTON)
を挟むことで、入力の機会を2回得ることが出来ました。
816:名無しさん＠お腹いっぱい。
07/03/16 21:27:28 qAGjSoPe0
>>814
そもそもデリミタ複数指定って、想定されてる使用法なの？
817:名無しさん＠お腹いっぱい。
07/03/17 04:30:41 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:名無しさん＠お腹いっぱい。
07/03/17 04:31:28 MCeA35RR0
あ…
819:名無しさん＠お腹いっぱい。
07/03/18 09:45:56 G1MEbanD0
スピーカーから音が出ているかどうかをuwscスクリプトから確認する方法はないですか？
820:名無しさん＠お腹いっぱい。
07/03/18 10:51:08 g9NJe7xK0
>>819
// サウンドが再生されたかをチェック
戻値 = CHKSND( [サウンド名] )
821:名無しさん＠お腹いっぱい。
07/03/18 11:00:07 N0d6UYUB0
>>820
それだとスピーカーがつながっているかわからないし、
スピーカーの電源が入ってるかもわからないし、
スピーカーのボリュームが最小になっていて聞こえなくなってるかもわからない
822:819
07/03/18 11:08:31 G1MEbanD0
スミマセン、私の質問の仕方はよくなかったかも。
目的は複数の動画ファイルを順に５秒ほど再生して、
音が全然無かったものと、音があったものとを識別したいのです。
音は当然、動画ごとに違うので、ビープとか××.wavとかではないです。
823:名無しさん＠お腹いっぱい。
07/03/18 21:55:05 qeai6ROm0
動画に音声ストリームがあるかどうかをチェックするのは可能かもしれんが
UWSCでやる必要は無い。
まず動画ファイルがどういうものか、音声ストリームとは何か
意味を知らないならググれ。
824:名無しさん＠お腹いっぱい。
07/03/18 22:00:49 wpAgcroq0
その辺がわからないからOSがハードウェアに指示出すところで
拾えないかなと思ったんじゃないかな
825:名無しさん＠お腹いっぱい。
07/03/18 22:03:46 N0d6UYUB0
UWSCで出来たとしてもどのみちDLL使用だろうし、
UWSCじゃないところで勉強してからきたほうがいいな。
826:名無しさん＠お腹いっぱい。
07/03/18 22:23:27 g9NJe7xK0
WMPとかで再生してスペアナの画面監視するってのはどうだ？
827:名無しさん＠お腹いっぱい。
07/03/19 23:12:54 zKhTt2fP0
SOREDA！
828:名無しさん＠お腹いっぱい。
07/03/21 23:34:53 wOQv7e7l0
質問です。
改行を含む文字列をファイルから読み出して、別のファイルに改行抜いて書き込みたいのですが、
CHGMOJを使って<#CR>を検索してもヒットせず改行が削除できなくて困っています。。
何が原因なのでしょうか。
829:名無しさん＠お腹いっぱい。
07/03/22 00:19:06 N4q8VkjG0
USB-RS232Cのインターフェースを使っているのですが、
接続の度にCOM番号が移動してしまいます。
uwscで、現在有効なCOM番号を取得する事は出来ますか？
ヒントだけでもいいので、よろしくお願いします。
830:名無しさん＠お腹いっぱい。
07/03/22 02:22:37 G1apsxhH0
>>828
改行なし文字列 = chgmoj(改行入り文字列,"<#CR>","")
で普通にできたけど。
まさかファイル読み込み→置換→書き込みを一行づつ処理したりしてないよね？
831:名無しさん＠お腹いっぱい。
07/03/22 10:14:02 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:名無しさん＠お腹いっぱい。
07/03/22 10:40:14 G1apsxhH0
>>831
つENDIF
ヘルプぐらい読もうぜ
833:名無しさん＠お腹いっぱい。
07/03/22 10:55:55 qku/eKST0
>>832
レスありがとうございます。
上ではENDIF書き忘れました。すみません。
実際にはENDIF入ってます。
ELSEの時がうまく機能しないのです。
具体的に言うと何も画像が見つからなかった時はNGと打たずに
そのままスクリプトが終了してしまます。
834:名無しさん＠お腹いっぱい。
07/03/22 11:16:05 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:名無しさん＠お腹いっぱい。
07/03/22 12:29:32 qku/eKST0
>>834レスありがとうございます。
ほんとですね、そのスクリプトだと問題なくいけました。
ただ、今つかってるPCと、実行させたいPCが違うので、
後で>>834さんが書いてくれたスクリプトと自分のスクリプトを比べて、
実行させたいPCで試して検証してみます。
ありがとうございました。
836:名無しさん＠お腹いっぱい。
07/03/22 18:45:18 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:名無しさん＠お腹いっぱい。
07/03/22 19:53:37 G1apsxhH0
>>836
FAQ中のFAQ
まずはifb～endifの間にprintでも入れて
画像をちゃんと見つけているか確認すれ
838:名無しさん＠お腹いっぱい。
07/03/22 22:43:14 +Ql66cZK0
>>836
俺ならば、
MMV(G_IMG_X + 50, G_IMG_Y + 50)
などとするな。（50はbmp中の中央付近の位置として）
それから各操作の間に10～100ミリ程度の時間を置いて。
しかも、
CTRLを離してから左クリックを離す？
それが仕様の動作なのか？
ここの部分は疑問点。
俺ならばCTRL押下でクリックを囲うな。
839:名無しさん＠お腹いっぱい。
07/03/22 22:46:31 +Ql66cZK0
それから良くある間違いが、マウスポインタが指定の画像の位置の上にあると当然検知されない。
そのためCHKIMGの前に、その画像が絶対ない箇所へのマウスポインタの移動は必須だ。
その後僅かに時間をとってからCHKIMG
840:名無しさん＠お腹いっぱい。
07/03/22 23:15:53 R7pm3fb20
>>829
レス付きそうに無いなぁ…。あれからあちこち見て回って、
なんとなく取っ掛かりになりそうな方法を見つけましたので、質問を取り下げます。
お目汚し失礼しました。
841:名無しさん＠お腹いっぱい。
07/03/23 01:20:18 uBr/UHik0
>>840
手動で確認する方法を知っていればその通りにやればいいと思う。
842:名無しさん＠お腹いっぱい。
07/03/23 02:09:21 1q7aiu0K0
>>840
未確認だけど
WMIでできないかな？
843:名無しさん＠お腹いっぱい。
07/03/23 10:24:54 1q7aiu0K0
新バージョンがでましたよ
UWSC Ver4.2、 Pro版と Free版をリリースしました。
URLﾘﾝｸ(www.uwsc.jp)
844:名無しさん＠お腹いっぱい。
07/03/23 11:09:12 P2WtzyeM0
あーぁ
845:名無しさん＠お腹いっぱい。
07/03/23 12:04:19 uBr/UHik0
まじ?
846:名無しさん＠お腹いっぱい。
07/03/23 12:22:31 uBr/UHik0
英語版はなくなったのか…。
847:名無しさん＠お腹いっぱい。
07/03/23 13:06:35 cFrgCyQq0
昨日、初めて使ったんだけど、VBSに目覚めたYO
848:名無しさん＠お腹いっぱい。
07/03/23 13:39:02 gCPoW1cE0
EXE化できるとおもったら
6720円のシェア板・・・
849:名無しさん＠お腹いっぱい。
07/03/23 13:39:15 1q7aiu0K0
>>847
スレ違い
UWSCはVBSじゃないよ
850:名無しさん＠お腹いっぱい。
07/03/23 14:09:01 cKmBDk7C0
>>848
コンパイルしない配布用で、UPX使って1/3程らしい。400kb前後か？
851:名無しさん＠お腹いっぱい。
07/03/23 14:20:02 cFrgCyQq0
>>849
VBSに目覚めたYO
852:名無しさん＠お腹いっぱい。
07/03/24 00:41:07 pN06s1ix0
>>848
EXE化って必要かな？
起動が面倒だっていうなら起動バッチ作って一緒に配布すればいいし
複数ファイルになるのがいやならまとめて自己解凍ZIPにでもすればサイズも減ってウマー
>>851
違いが分からないようなら
半年ROMってたほうがいいYO
ここでVBScriptな質問して怒られないようにね
853:名無しさん＠お腹いっぱい。
07/03/24 02:45:42 psPhH9ly0
>>852
何も知らない初心者に渡すなら exe になってた方が楽かな。
まぁ、AHK があるから UWSC で exe 作れてもなぁ…
854:名無しさん＠お腹いっぱい。
07/03/24 04:11:24 YI01TIfJ0
正直今回の変化にはかなり戸惑っている…。
855:名無しさん＠お腹いっぱい。
07/03/24 09:35:52 hp8fITTl0
あーあ、ついに金儲けにはしったか。
さよならUWSC
856:名無しさん＠お腹いっぱい。
07/03/24 09:37:53 mi/yjfLL0
↑なんでﾀﾞｳｿ乞食ってすぐこういう反応するのか理解に苦しむな
857:名無しさん＠お腹いっぱい。
07/03/24 09:49:52 5Xt+hBM90
これでフリー版が消えたんならその意見も尤もだが、フリー版はちゃんと残っているし。
いままでのユーザーとしては何の問題もなし。
858:名無しさん＠お腹いっぱい。
07/03/24 10:07:29 SaEHRzRt0
フリー版とPro版を全く同じものにすればいいんだよ。
それで金払いたい人だけがPro版を買えばいい。
金を払うほどではないと判断した人はフリー版を使う。
これで万事解決。
金の亡者の作者以外はハッピーになれる。
859:名無しさん＠お腹いっぱい。
07/03/24 10:11:01 5Xt+hBM90
おまいさんの図々しさに脱帽で脱力で脱毛で脱腸で脱糞だよ
860:名無しさん＠お腹いっぱい。
07/03/24 11:22:17 cpQZ5pcq0
ガッカリ。非常に萎えた。
なんか他にいいのないかな？
861:名無しさん＠お腹いっぱい。
07/03/24 11:37:38 2igQbiJF0
まぁ、この機会（Vista）を逃したら、有料化の機会は当分ないからな。
多少「UWSCよ、お前もか」って気持ちはあるけど、仕方ない。
俺は、UWSCのお陰で業務効率が劇的に改善された人なので、
有料化しても買うけどな。むしろ、突然開発中止とかになる
リスクが減ったという意味では良いのかもしれん。
オンラインゲーム厨とか、小遣い稼ぎクリック厨なんかは
文句垂れるだろうな。ｲｲﾊﾅｼﾀﾞﾅｰ。
862:名無しさん＠お腹いっぱい。
07/03/24 14:00:37 pN06s1ix0
Pro版のターゲット層がいまいち分からない…
パワーユーザならFree版でもPro版と同じ機能は簡単に実装できる。
現時点ではスクリプトは組めるがCOM使えない中級者ぐらいにしかPro版のメリットはない気が。
863:名無しさん＠お腹いっぱい。
07/03/24 14:04:52 pN06s1ix0
>>860
つAutoIt
864:名無しさん＠お腹いっぱい。
07/03/24 14:14:09 BkqOk5US0
AutoIt
URLﾘﾝｸ(www.autoitscript.com)
・スクリプトをexeファイルにする事が出来る
これによりテスト自動化機能を単体で利用できる小さなユーティリティの部品にすることができます。
そしてAutoitでGUI部分だけを別に作る事によりこれらの部品を組み合わせるだけでいろいろな事が簡単
にできるようになります。
・Basicとそっくりである
これは多くの人にとってプラスになる事が多いはずです。Basicは初心者でも覚えやすくとっつきやす
い事は経験的に判っています。暫くAutoitプログラミングのブランクが有ったとしてもその書き方や感覚
を忘れてしまう事を心配する必要がありません。例えばPerlGUITestを学んで使い込むと、Perlのプラス
面が多い事は良く解りますが、それよりもとにかく直ぐにはじめやすい事が重要です。
・良く文書化されている
Autoitは.chmファイルとオンラインの両方で詳しい資料を提供しています。また多くの利用例もあり、
これをコピーして実行する事は理解を助けます。またAutoItウェブサイトには親しみ易いフォーラムがあ
って第三者からの支援を容易に受ける事が出来ます。
・USBメモリに入れていつでもインストール無しで利用できる
インストールする事でシステムを破壊する事は有りません。また、どこのPCにもオートメーション環境
を持ち歩く事が出来ます。
・標準的なエディタ・統合開発環境を持っている
AutoitはSciTeエディタを使ってそれをAutoit用に設定します。AU3ファイルの編集や作成を簡単にする
完全なIDE環境を提供します。
865:名無しさん＠お腹いっぱい。
07/03/24 14:24:06 C3AArdPx0
>>860
つWindowController
要.NETだけど
866:名無しさん＠お腹いっぱい。
07/03/24 14:32:23 BkqOk5US0
WindowController
URLﾘﾝｸ(chi.usamimi.info)
867:861
07/03/24 14:36:32 GhiwqB4f0
>>862
>スクリプトは組めるがCOM使えない中級者ぐらいにしかPro版のメリットはない
がびーん。
ビンゴ過ぎて死語しか出ない。
でもシェア化前にRecIE落としてるから、
実際にPro版にお布施するのは相当先の話だな。
868:名無しさん＠お腹いっぱい。
07/03/24 16:44:13 LGizvyWQ0
>>867
RecIEうｐおねがい！
869:名無しさん＠お腹いっぱい。
07/03/24 16:47:57 YI01TIfJ0
デイトレで使うのもオンラインゲームで使うのも
テレクラでつかうのもかわらんと思う。
870:名無しさん＠お腹いっぱい。
07/03/24 16:50:08 5fFnWtM30
日本人の金の払わなさは異常。
871:名無しさん＠お腹いっぱい。
07/03/24 16:54:12 5fFnWtM30
というか、値段や会社の業務を見ると、
企業相手に商売したいって事じゃないのか。
元から>>855 >>858 >>860みたいな貧乏人は相手にしていないだろうよ。
872:名無しさん＠お腹いっぱい。
07/03/24 20:53:05 lOnStwBo0
ソフト自体は無料で配布してサポートを有料にすりゃあいいのに。頭悪いな作者。
873:名無しさん＠お腹いっぱい。
07/03/24 21:12:19 pN06s1ix0
>>872
サポートって、掲示板やらメールやらで質問に答えること？
それじゃ労力のわりにぜんぜんお金にならないと思うけど
874:名無しさん＠お腹いっぱい。
07/03/24 21:14:02 pE98QjQf0
UWSC有料化を持ちかけた会社。
URLﾘﾝｸ(j-ken.co.jp)
やっちまったな・・・AHKに乗り換えだな
875:名無しさん＠お腹いっぱい。
07/03/24 21:20:15 lOnStwBo0
>>873
企業を相手に商売するんならそこがいちばん金になる
876:名無しさん＠お腹いっぱい。
07/03/24 21:50:27 pN06s1ix0
じゃあいっそのこと認定資格作って
それで儲けるってのはどうだ？w
877:名無しさん＠お腹いっぱい。
07/03/24 21:52:24 3PcCL/oI0
そうか春休みか
878:名無しさん＠お腹いっぱい。
07/03/25 16:50:59 UZFeoDre0
有料化する事でドキュメントが充実するなら、願ったり叶ったりじゃないか。
HSPやなでしこを見習って欲しい。
そりゃ対象層が違うのは、分かっちゃ居るんですけどね。
879:名無しさん＠お腹いっぱい。
07/03/25 20:20:50 81DYoDh90
さよならＵＷＳＣ！いままでありがとう ﾉｼ
880:名無しさん＠お腹いっぱい。
07/03/25 20:48:44 NHgZXlqB0
最近、これ使い出したんですが、ＵＷＳＣを起動、実行させ
別ユーザーに切り替えて作業はできるんでしょうか？
一応やってみたんですがユーザー切り替えると、とまった状態になっている
みたいののですが・・・
できるのなら、お教えてほしいです；
881:名無しさん＠お腹いっぱい。
07/03/25 21:01:56 BVjMWp1n0
こっち使おうぜ
AutoIt
URLﾘﾝｸ(www.autoitscript.com)
WindowController
URLﾘﾝｸ(chi.usamimi.info)
882:名無しさん＠お腹いっぱい。
07/03/25 21:25:21 50Ukn8d20
黙って乗り換えればいいから
883:名無しさん＠お腹いっぱい。
07/03/25 22:14:57 /xeqLetr0
>>880
たぶん無理。
やりたい内容にもよるけどユーザ切り替えじゃなく、
runasでしのげないかな？
884:８８０
07/03/25 23:45:51 NHgZXlqB0
>>881-883
レスありがとうです。
乗り換えも試みていますがWindowController をﾀﾞｳﾝﾛｰﾄﾞしても起動せず（どのＶｅｒも）
AutoIt は英語でちょっと理解するまで時間かかりそうだし・・
runasっていうやり方は知らないのでちょっと調べてみます。
多ユーザーでの操作は無理そうなのでちょっと思案してみます。
885:名無しさん＠お腹いっぱい。
07/03/25 23:57:57 sqa1z0ug0
> WindowController
> URLﾘﾝｸ(chi.usamimi.info)
これUWSC使うのに便利そうなソフトだな。
その他にもその手のツールがあるし。
いただき。
886:名無しさん＠お腹いっぱい。
07/03/26 00:01:29 sqa1z0ug0
うさみみだって似すぎ。
887:名無しさん＠お腹いっぱい。
07/03/26 00:13:02 HsV4RiOe0
ドットネットフレームワークが初期化できません…。
.net 1.1じゃダメってか?
期待したのにこれはないだろう。ぺっ!
888:８８０
07/03/26 00:45:24 TULfiqz50
WindowController、これ使うのにインストール不足なのがあったので
入れたら起動できました。
多ユーザーでできればいいのだが・・・
889:名無しさん＠お腹いっぱい。
07/03/26 01:29:52 sWHLiG1t0
>>885
.NET framework必須てのが痛いなぁ
まっさらな環境でも動くものであって欲しい…
言語がC#なのは魅力的だけど
890:名無しさん＠お腹いっぱい。
07/03/27 02:52:37 0WvhfyJS0
Drop on Scriptをuwscで使ってる人いる？
説明どおり設定したけど動かない…
891:名無しさん＠お腹いっぱい。
07/03/27 18:10:05 YP4KMB+w0
ｸﾜｼく
892:名無しさん＠お腹いっぱい。
07/03/27 21:10:14 YZCCCkq70
AutoHotkeyでいいじゃん。COMも使えるようになったことだし。
893:名無しさん＠お腹いっぱい。
07/03/27 21:29:44 SIZOJIiv0
AutoHotkey
URLﾘﾝｸ(www.autohotkey.com)
894:名無しさん＠お腹いっぱい。
07/03/27 22:26:34 qOK6LF170
専用スレ
AutoHotkey 3
ｽﾚﾘﾝｸ(software板)
895:名無しさん＠お腹いっぱい。
07/03/27 23:44:26 YP4KMB+w0
英語版ないの?
外人無視か?
896:名無しさん＠お腹いっぱい。
07/03/30 00:38:47 FzIdn+cU0
質問ですが、このツールを起動して作業してる間、他の画面に切り替えて作業するってのは
てのは可能なんでしょうか？
できるならやり方、教えてほしいです・・
897:名無しさん＠お腹いっぱい。
07/03/30 01:38:57 O/pRJDe20
ウィンドウの状態等に影響されないように
動くようにスクリプトを組んでおけば可能
可能だが、スキルと手間次第
898:名無しさん＠お腹いっぱい。
07/03/30 14:24:36 DhVxkDZk0
きちがいどもRecIEうｐしろ
899:名無しさん＠お腹いっぱい。
07/03/30 16:20:39 x9Te4/Wg0
へ へ|＼ へ √￣|
（ レ⌒） |＼ （ |＼)| |/~| ノ ,__√
|＼_／ ／へ＿ ＼) | | | |∠ | |＿＿ /￣`> _, --､ ＿
＼_.／| |／ ＼ .| |(￣ ＿） | ） /~￣~'i /~￣~'i/~￣ ￣~7 / ￣￣￣￣￣,／
／ ／￣~ヽ ヽ. | | フ ヽ、 ﾉ √| | ./ ././ /l,,,,,,, ,,,,,,,ノ､.＿.{＿＿＿＿ ./
/ ／| | ｜ | | |（ ノ| |`､) i ﾉ | | { ノ/ ./''~￣ ￣7~ `ヽ _／ /
| | | | / / | | . し' ノ ノ | | _,~二'-'~ /ヽ､, .,,ノ,ヽ-､ ./,_.l￣ _ノ
＼＼ﾉ | / / | |＿＿＿∠-". | | ／~ ,／ ,,-' .//~￣￣ ~`>/ r-''~
＼＿ノ_／ ／ （＿＿＿＿） し',／_,,,,,,,,,､ ---ｰ'~''''~~~~~~~~~`''''ー-------'''''~ ./
∠-''~ ~／ * O K O T O W A R Y C U R E +_,,,／
.／ _,,,,､ -一一''''''''''''''''''''''ー--------一'''~
.／_,, -ｰ''''~
.／-~
900:名無しさん＠お腹いっぱい。
07/03/31 02:02:13 lNlpDXMe0
>>897
常時カーソルを動くようにしたかったので、ウィンドウに影響しそうな感じです。
レスありがとうでした。
901:名無しさん＠お腹いっぱい。
07/03/31 12:30:41 ggPXtR/R0
uwscの fukidasi()関数ってどうやって実現しているのでしょうか？
他の言語からOLEを使用して同じような関数を作成したいのです。
あとinputbox()についても分かる方がおりましたら、ぜひ宜しくお願いします。
902:名無しさん＠お腹いっぱい。
07/03/31 12:35:28 hLF6DMUu0
こっち使おうぜ
AutoIt
URLﾘﾝｸ(www.autoitscript.com)
WindowController
URLﾘﾝｸ(chi.usamimi.info)
903:名無しさん＠お腹いっぱい。
07/03/31 15:02:13 8qH2AfkN0
>>902
煽る訳ではないが、何故に乗り換える必要があるのか？
それほど使って欲しければ、それぞれの利点と欠点を簡潔に述べよ。
904:名無しさん＠お腹いっぱい。
07/03/31 18:07:25 3WSOWTTg0
タスクバーのuwscは消せないの?
StopForm(FALSE)でも駄目だった。
905:名無しさん＠お腹いっぱい。
07/03/31 21:28:39 CLHmQ1tP0
>>900
目的を達成する手段にもいろいろあるから
マウスを動かさずに同じ結果が得られる方法があるかもしれないよ
906:名無しさん＠お腹いっぱい。
07/03/31 21:34:07 CLHmQ1tP0
>>901
ウィンドウ作ってスタティックコントロール貼ってるだけじゃないかなぁ？
InputBoxはWSHのやつが使えるんじゃない？
907:名無しさん＠お腹いっぱい。
07/03/31 21:38:25 CLHmQ1tP0
>>903
AutoItは一通りドキュメント見てみたけど機能にはUWSCに決して引けは取らない
むしろGUIも作れるし、ライブラリ、開発環境(SciTEはいいね)の充実度、
文法の一貫性等、勝ってる気がする
最大の難点はコミュニティもドキュメントもすべて英語だということ
素人にはおすすめできない
あとchkimg大好き人間にも
908:901
07/03/31 23:18:40 5Yb1Nwwp0
>>906
レスサンクスです。
そのあたりの言葉をぐぐってみます。
UWSCの、fukidasi（） input() sendstr()
を使うためだけにUWSCを選択していたので実現法をしりたかったんです。
それにしてもPro版（新バージョン）はやけに重い。
4.1で安定して連続稼動してたスクリプトがすぐに仮想メモリいっぱいになる。
909:名無しさん＠お腹いっぱい。
07/03/31 23:27:31 YPn25uej0
ネットの外人が英語版希望してるんだがもう辞めたのか?
めんどくさいので英語版の4.1dのアドレスおしえて
これが最新と伝えたがたぶんばれるだろうな。
ついでに質問ひとつ
fukidasiの文字列はGetStrじゃ読めないみたいだがなんかの
Win32API使えば読める?
910:名無しさん＠お腹いっぱい。
07/04/01 08:58:02 adG0ejDi0
金儲けにはしったUWSCは見限って
こっち使おうぜ
AutoIt
URLﾘﾝｸ(www.autoitscript.com)
WindowController
URLﾘﾝｸ(chi.usamimi.info)
911:名無しさん＠お腹いっぱい。
07/04/01 12:11:13 fo4Xkd3C0
タイトルの文字列による判定の他に、InnerTextによる判定でも試そうかと思って試したら
以下のスクリプト（一部抜粋）の箇所でかなりの確率でエラーが発生。
0.5秒が早すぎるのかな？
うまくいく場合もあり。。。いきなり最初にエラーの時もあり。。。
//
REPEAT
SLEEP(0.5)
UNTIL POS("文字列",IE.DOCUMENT.BODY.INNERTEXT)
//
「Uスクリプト: COM_Error:モジュール 'UWSC.exe' のアドレス 00521550 でアドレス 00000000 に対する読み込み違反がおきました。」
912:名無しさん＠お腹いっぱい。
07/04/01 12:41:51 SLYcsGb70
これ、確かVer3.1の時は動くと思う。
この前Ver.4.2で動かしたらこのエラーが出た様な気がする。
それでまた3.1に戻ったけどw
913:名無しさん＠お腹いっぱい。
07/04/01 13:20:28 i/cUBwgO0
>>910
他人の金儲けがイヤなんじゃなくて、おまえが金取られるのがイヤなだけだろ？
914:名無しさん＠お腹いっぱい。
07/04/01 14:33:28 fo4Xkd3C0
観光地等で、今までタダで商品をかっぱらっていたお猿さん。
明日から一部の商品には対価を支払えと言っても意味が通じないお猿さん。
915:名無しさん＠お腹いっぱい。
07/04/01 14:56:09 PbZs9CXV0
同等のものがタダで使えるのにわざわざ金払う人よりはお猿さんのほうが賢いと思いまーす
916:名無しさん＠お腹いっぱい。
07/04/01 15:02:20 xBjIORbj0
だから使えばいいじゃん
917:名無しさん＠お腹いっぱい。
07/04/01 15:26:12 oCcZ9llM0
>>915
UWSC Pro 6,720円
使い慣れたUWSCを捨て、英文ドキュメントの類似ソフトの
言語・仕様を身につけるために必要な時間：5時間
今までに貯まったUWSCスクリプトを、類似ソフト用に
書き直すのに必要な時間：10時間
6,720円÷15h=448円
結論：
有料化を理由に乗り換えたがる人間の
時給は448円以下。ｶﾜｲｿス
918:名無しさん＠お腹いっぱい。
07/04/01 15:32:26 QmnxHExP0
お金払うのいやなら
Pro版じゃなくてFree版使えばいい
Free版でなにか困ることある？
919:名無しさん＠お腹いっぱい。
07/04/01 15:36:51 xBjIORbj0
Free版で特に困らないから不満もないってとこ
なくてもいいけどちょっと便利なのを含めてシェアってのは海外製でもよくあるし
別になんとも思わない。
920:名無しさん＠お腹いっぱい。
07/04/01 16:55:27 bzr723gj0
ＲｅｃＩＥってなくなったの？
やべー。どっかにあるかな。
921:913
07/04/01 17:09:24 i/cUBwgO0
>>914
> 観光地等で、今までタダで商品をかっぱらっていたお猿さん。
俺はシェア化もいいと思う人間だが、今までフリーだったものを使ってた
ことについてこんな例え方されたらさすがにムカつくわ。神経を疑う。
922:名無しさん＠お腹いっぱい。
07/04/01 17:40:15 CgmyEoUf0
>>920
4.1dに入ってるのじゃダメ?
923:名無しさん＠お腹いっぱい。
07/04/01 17:50:06 QmnxHExP0
>>913
914の例えは
ぜんぜん例えになってないから気にスンナ
今までは売り物ではなかったのだから
商品ではないし、かっぱらっていたわけでもない
何故に何の共通点もない観光地の猿にかけて例えようとしたのか
はなはだ疑問
924:名無しさん＠お腹いっぱい。
07/04/01 17:51:34 QmnxHExP0
>>922
4.2より前はRecIEは別配布だったYO
925:名無しさん＠お腹いっぱい。
07/04/01 18:08:55 bzr723gj0
Recieはproに統合されたのか。まいったね。
今もってるやつ大事にしておく。
926:名無しさん＠お腹いっぱい。
07/04/01 18:14:32 rvyPBRxL0
>>921
なんでそのレスで神経を疑うのか神経を疑うが
927:名無しさん＠お腹いっぱい。
07/04/01 18:16:58 CgmyEoUf0
あ、そうか。
ダウンロードもできなくなってるな。
これは再配布できないのか?
今回の件で一番気になるのは旧/フリー版のダウンロードと再配布だな。
928:名無しさん＠お腹いっぱい。
07/04/01 18:44:46 fo4Xkd3C0
おまいら食い付きすぎｗ 良く読め。
漏れはUWSCの一連の事の”例え”とは一言も言ってないぞ？ｗ
929:名無しさん＠お腹いっぱい。
07/04/01 19:42:05 QmnxHExP0
>>928
それならこれあげる
つチラシ
930:名無しさん＠お腹いっぱい。
07/04/01 19:54:58 QmnxHExP0
>>927
旧/フリー版のダウンロードは問題ないと思うよ。
機能的には4.2Free＞4.1dなんだし。
旧版RecIE1.0aの再配布についてはグレーゾーンかな。
過去バイナリのリポジトリでも
J-Kenに確認した結果、再配布はやめることにしたみたい。
ちなみにPro同梱のRecIE1.1は
UWSCProレジストしてないと起動できない。
931:名無しさん＠お腹いっぱい。
07/04/02 12:11:12 g1Zhvdkx0
上のほうで inputbox() を他の言語から実現方法を尋ねていたものなんだけど
WSHのインプットボックスは利用できないみたい。
OLEのみの利用からどうにかしてインプットボックスは作れないでしょうか?
解決してくれた方には、ものすごい感謝をさせていただきます。
うみうみやさんも見てたらお願いします。
932:名無しさん＠お腹いっぱい。
07/04/02 15:50:35 hUBsO6hf0
自分で頑張って書いて貼ってくれたら
俺からものすごい賛辞をおくらせていただきます。
933:名無しさん＠お腹いっぱい。
07/04/02 16:39:53 bL7dTpiU0
>>931
使う予定の他の言語ってのが何かは知らないけど
COM使えるならVBScriptのinputbox使ったらいいんじゃね？
ヒント：スクリプトコンポーネント
934:名無しさん＠お腹いっぱい。
07/04/02 16:41:28 bL7dTpiU0
失礼。
つスクリプトコントロール
935:名無しさん＠お腹いっぱい。
07/04/02 17:04:41 bL7dTpiU0
COMコンポーネントのインストールができる環境なら
使えるのいくらでもあると思うけど。それこそAutoItXでもいいしさ。
それができない環境という条件でやるなら
sendstrは代わりにsendkeysで我慢するか
Excel経由でWin32API叩く
fukidasiは同じようなの見当たらないけど
小さいIEでも立ち上げてそこに表示するとかで代用できない？
それかExcel経由でWin32API
どちらにしても、素直にUWSC使っといたほうが楽だと思うなあ。
逆に聞きたいんだけど、UWSC使えない理由は？