- 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/
- 47 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/24(日) 21:36:13 ID:fhtS8nCg0]
- >>39
ログとかかな。ちょっと試してみたけど、copyコマンドより遅いね。
-test.uws-
fid = FOPEN("b.txt", F_WRITE)
FPUT(fid, "test test")
FCLOSE(fid)
EXEC("a.bat", TRUE)
-a.bat-
copy /b a.txt+b.txt
--
こんなのどう？
- 48 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/24(日) 22:30:34 ID:v8AkmGyT0]
- >>47
その手があったか！気がつかなかったよ！
bat用意しなくてもDOSCMD関数使えばよさげやね
ほんとありがとう！
- 49 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/26(火) 03:59:24 ID:etFLpUqv0]
- >>39
そのためのクラスなんじゃないの？
newできないクラスなんて、namespace代わりに使うぐらいしか
利用方法が思いつかないんだが。
- 50 名前：名無しさん＠お腹いっぱい。 [2006/09/28(木) 18:14:53 ID:sIrPOmIv0]
- 座標(190,100)が黒くなると{8}を押すマクロを誰か組んでくれないか・・
orz
- 51 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/28(木) 23:47:07 ID:gOYjRFYb0]
- IEで特定の文字が出たときにボタンをクリックする方法ってある？
- 52 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/29(金) 02:04:05 ID:H4bCYEp40]
- >>50
PEEKCOLOR(190,190) を使えばおｋ
IFB PEEKCOLOR(190,190) = 0
KBD(VK_8)
ENDIF
とかか？適当だが・・・
>>51
COM使えばおｋ
COMはヘルプとかにサンプルがあるからそれみればいい
あとは少しHTML/JavaScriptの知識がいる
とほほのWWW入門でぐぐれば両方とも解説されてる
他にもやり方がありそうだけど、すぐにはわからないや
ちがってたらごめん
- 53 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/29(金) 05:53:48 ID:kfMl+X/40]
- 負荷が大きかったりすとちゃんと動かないというのに
やたら言語仕様を拡張されてもウンザリすんだが。
- 54 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/29(金) 15:04:24 ID:ZUEZZIDA0]
- >>50
HP減ったら回復しようとしてるだろｗ
おまえはこっちに行け。規約違反MMOプレイヤー。
【ちんこ】TANTRA【まんこ】マクロスレ【うんこ】
game10.2ch.net/test/read.cgi/mmosaloon/1147255071/
- 55 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/09/29(金) 21:08:54 ID:kfMl+X/40]
- ↑
>>50と同好か?
書いている意味がさっぱりワカラン｡
せいぜい仲良くしろ。
- 56 名前：名無しさん＠お腹いっぱい。 [2006/10/02(月) 12:29:00 ID:VK84fyQu0]
- rknt.jp/s/entry.php?in_id=547410&id=glaylaby
- 57 名前：名無しさん＠お腹いっぱい。 [2006/10/04(水) 16:23:41 ID:mTVBsp4v0]
- 設定でスケジューラーで設定したのがパソコンの電源オンオフしたら
スケジューラーの設定が消えてた。ばぐ？
- 58 名前：名無しさん＠お腹いっぱい。 [2006/10/04(水) 17:45:53 ID:XlU0S/VK0]
- マウスの左クリック右クリック中クリックをキーボードでできのないのでは、
プログラムが作りにくい。
- 59 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/06(金) 09:41:13 ID:r+xl4OdM0]
- ( ＾ω＾)？
- 60 名前：名無しさん＠お腹いっぱい。 [2006/10/06(金) 10:12:08 ID:5m00SAfb0]
- キーボドやマウスの操作をパソコンに覚えさせるのは面白いソフトだけど
もう少しわかりやすくならんかな。
- 61 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/06(金) 10:34:26 ID:r+xl4OdM0]
- １度実行したマクロを停止→再度実行すると激遅くなるバグを改善してほしい
- 62 名前：58 [2006/10/06(金) 11:56:50 ID:kld74IFI0]
- // マウス移動
MMV( x, y, [ms] )
引数
x, y： 位置
ms： 実行までの待ち時間 （ミリセカンド）
--------------------------------------------------------------------------------
// マウスボタン
BTN( ボタン, 状態, [x, y, ms] )
引数
ボタン： LEFT(0), RIGHT(1), MIDDLE(2)
状態： CLICK（0), DOWN(1), UP(2)
x, y： 位置 （省略時は現在位置にて）
- 63 名前：58 [2006/10/06(金) 12:03:22 ID:kld74IFI0]
- saveHTMLTo("www.yahoo.co.jp", "yahoo.htm");
procedure saveHTMLTo(url, filePath)
e = CREATEOLEOBJ("InternetExplorer.Application");
e.navigate(url);
while e.busy = true or e.readyState <> 4; SLEEP(0.1); wend
fileOutHTMLTo(e.document.parentWindow.document, filePath);
fend
procedure fileOutHTMLTo(document, filePath)
fileID = FOPEN(filePath, F_WRITE);
ifb fileID <> -1 then
FPUT(fileID, document.body.parentElement.outerHTML);
FCLOSE(fileID);
endif
fend
- 64 名前：58 [2006/10/06(金) 12:21:38 ID:kld74IFI0]
- id = exec("notepad.exe")
acw(id,50,50)
sleep(1)
acw(id,100,100)
sleep(2)
acw(id,0,0)
//ノートパッド起動後左上に行く
- 65 名前：58 [2006/10/06(金) 16:24:33 ID:kld74IFI0]
- // RANDOM(Range) 0 <=X <Range の範囲にある乱数を返す
print RANDOM(6)+1
さいころプログラム
- 66 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/07(土) 01:09:25 ID:rtwC/kO20]
- うぇぶの取得にＩＥ使わなくてもいいだろ。
と、思いました●
- 67 名前：名無しさん＠お腹いっぱい。 [2006/10/07(土) 23:52:34 ID:EDQj6l5g0]
- exec("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
webページ開く
- 68 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 00:13:41 ID:fcriUCip0]
- 入力した文字を吹出しで表示する
KAISU = INPUT("何か入れてください")
FUKIDASI(KAISU, 100, 100, 0, 30)
SLEEP(10)
- 69 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 00:59:05 ID:fcriUCip0]
- プログラムの命令を日本語でわかりやすくならんかな
SLEAP⇒休みとか
- 70 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 01:14:16 ID:DTYSPgyz0]
- sleep の間違いではないか。
- 71 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 08:12:29 ID:dsiDZkNA0]
- すまん、そうだった、ここ人がまったくいないわけではないんだな、
しかしプログラム書きこむ者が少ない、
ソフトに欠陥あるのか、
プログラム用のサイトがあるのかな、Ｊａｖａより簡単だと思うが、もっと日本語化して欲しい、
年とった自分には面倒
- 72 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 09:20:20 ID:/OF9ES520]
- あと、予測変換機能あるといい、
ｓを押すとsleep がでるようなに
- 73 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 09:21:14 ID:/OF9ES520]
- でるようなに×
でるような Ｏ
- 74 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 10:35:37 ID:IWQ+hQr+0]
- 沸いてるな
- 75 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 11:28:30 ID:ngyuh0ar0]
- めもちょうでまくろかいてるんですか
- 76 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 13:27:51 ID:95bCWU0q0]
- 日本語でコード書きたいやつはなでしこでぐぐれ
インテリセンスはサクラエディタので代用できる
- 77 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 20:23:07 ID:8dClfRVE0]
- EXEC("C:\Program Files\Internet Explorer\iexplore.exepc7.2ch.net/test/read.cgi/software/1156416884/l50 ")
このページ起動
- 78 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 20:29:01 ID:8dClfRVE0]
- //失敗、起動しなかった。
EXEC("C:\Program Files\Internet Explorer\iexplore.exe pc7.2ch.net/test/read.cgi/software/1156416884/l50 ")
//これならOK
- 79 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 20:41:01 ID:8dClfRVE0]
- EXEC("C:\Program Files\Internet Explorer\iexplore.exe www.google.co.jp/")
EXEC("C:\Program Files\Internet Explorer\iexplore.exe www.yahoo.co.jp/ ")
EXEC("C:\Program Files\Internet Explorer\iexplore.exe www.goo.ne.jp/")
EXEC("C:\Program Files\Internet Explorer\iexplore.exe www.excite.co.jp/ ")
EXEC("C:\Program Files\Internet Explorer\iexplore.exe www.msn.co.jp/")
//検索サイト,google yahoo goo excite msnを一度に開く
- 80 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 21:07:21 ID:5USZtKz50]
- いい加減にしろ！
- 81 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 22:41:48 ID:16fZOmGN0]
- >>77-78
.urlファイル(インターネットショートカット)でも置いておけば？
>>79
これの何がうれしいのかさっぱりだ
メタサーチエンジンでもHTMLで書いた方がよほど役に立たね？
- 82 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 22:47:17 ID:8dClfRVE0]
- 練習中。このUWSCつかって１週間、
- 83 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 22:48:32 ID:8dClfRVE0]
- もたってない。
基本を調べてる。しかしまだ難しいな、javaよりはわかりやすいが
- 84 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 22:59:37 ID:8dClfRVE0]
- // スクリーンセーバーを変更する
id = Exec("Control Desk.cpl") // 画面のプロパティを起動
ClkItem(id, "スクリーン セーバー", CLK_TAB)
ClkItem(id, "伝言板", CLK_LIST) // 伝言板を選択し設定する
ClkItem(id, "設定", CLK_BTN, True, 1)
SendStr(GETID("伝言板"), "練習中", 1, True)
ClkItem(GETID("伝言板"), "OK")
ClkItem(id, "OK")
- 85 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/08(日) 23:19:08 ID:wcb1HDHK0]
- >>82
練習ならわざわざ書き込まんでもいいだろう
だから>>80のようなレスが帰ってくることになる
それからわざわざレスを分割するなよ
- 86 名前：名無しさん＠お腹いっぱい。 [2006/10/08(日) 23:23:58 ID:8dClfRVE0]
- 礼あらざるは聞くなかれ
（礼儀知らずの話は聞かずともよい）
- 87 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/09(月) 01:14:13 ID:zfk8Ds1G0]
- 電波襲来
- 88 名前：名無しさん＠お腹いっぱい。 [2006/10/09(月) 08:00:24 ID:mgCYGQoH0]
- まあ掲示板はググればやまほどあるからな、
- 89 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/09(月) 14:56:02 ID:JcIL1z+A0]
- うちのスクリプトが勝手にここに書きこんでるようですいません。
最近やんちゃで全然手が付けられないくらい状態なんです。
- 90 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/09(月) 22:01:48 ID:PPAQxkeJ0]
- >86
とりあえずトリップつけてくんない?
- 91 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 00:48:13 ID:sATsasDf0]
- ゼロックスのドキュワークスのファイル(.xdwや.xdb)のOCRデータの有無を取得することは出来るのでしょうか？
- 92 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 01:08:27 ID:FAlUR16d0]
- バージョンうｐ
[Ver4.1b]
COMのイベント処理ができる OLEEVENTを付けた
INIファイルをメモ帳で修正すると正しく読めなくなるのを修正
DLL使用にて var PCHAR, var PWCHAR指定時に文字列長が勝手に変化しないよう修正
[Ver1.0]
一部のWebページにて浮動小数点数演算エラーが出るのを修正
- 93 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 08:11:39 ID:FILBXPW40]
- uwscのすれ立てようとすると、よく悪口かかれるな、ソフトの開発者が失業するからか
。しかしフリーのソフトは信用できんのだよな。ただでくれるわけない
悪質なプログラムはいってんじゃねえの
とうたがってしまう。
ビルゲイツはエイズの研究機関に資金援助したりしたので
悪いやつではないと思って
WINDOWSを使えるが、しかしまだUWSCでも難しいな初心者でも作れるようにならんかな
- 94 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 09:04:19 ID:r6ej1a7b0]
- どこを日本語読み？
- 95 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 09:48:36 ID:ydq9/y/K0]
- たとえば、バックアップソフトでバックアップ→検索ソフトのインデックス作成→デフラグ→シャットダウン
を自動的に行わせることも可能なんですか？
- 96 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 15:24:50 ID:WmvWf2H10]
- 例えばじゃなくてそれをやりたいんだろ?
素直にやり方尋ねろよ。
(自動書き込み by 2ch_surf.uws)
- 97 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 15:59:58 ID:2DJUW8+30]
- 礼あらざるは聞くなかれ（礼儀知らずのはなしは聞かずともよい）
- 98 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 16:24:05 ID:r6ej1a7b0]
- >>97
２ｃｈ初心者は半年ＲＯＭれという話があってだな
- 99 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 16:34:34 ID:hBdNqsJv0]
- >>93
そのUWSCも「フリーのソフト」なんだがなぁ
そのスレの建て方とか自分自身の書き込みとかの原因を疑ってみろよ
2chはおろかWindowsの初心者してますって感じだな
>>98
まて、>>97はもしや2ch_surf.uwsじゃね？
- 100 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 16:55:43 ID:uqAKoqtr0]
- あらゆるスレで
「スレ住人ならわかりきった質問をして解答させようとする香具師」
「あからさまに間違ったことを書いてツッコミを誘う香具師」を
頻繁に見かけるんだが、何なんだろうねコレは？
- 101 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 17:08:24 ID:BqSsW1JB0]
- UWSCは株式会社が作ってて責任がはっきりしている、
ほかのフリーソフトは使う気にならんな、悪質なプログラムが隠れているんじゃ中と疑う、
UWSCに文句言うのはプログラマーが失業がこわいからだろ。
まあほとんど学生のバイトだと思うが。
- 102 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 17:11:27 ID:BqSsW1JB0]
- ACW(GETID("スタート メニュー","DV2ControlHost"),0,244,400,494,0)
BTN(LEFT,DOWN,63,749,1272)
ACW(GETID("スタート メニュー","DV2ControlHost"),0,244,400,494,0)
BTN(LEFT,UP,63,749,140)
KBD(VK_U,DOWN,180)
MMV(188,724,50)
KBD(VK_U,UP,1682)
KBD(VK_U,DOWN,180)
MMV(188,724,50)
KBD(VK_U,UP,1682)
//終了プログラムUWSCに投げ込むだけでウインドウXP終了。時間指定すれば勝手に電源オフ
- 103 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 17:24:39 ID:WmvWf2H10]
- BTN
MMV
KBD
：
：
この繰返し
まだまだ甘ちゃんだね。
(自動書込み by 2ch wacher.uws)
- 104 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 18:49:33 ID:CzZkec6z0]
- // マウスカーソル下の文章を読み上げる,英語しか不可
sv_s = ""
While True
x = G_MOUSE_X; y = G_MOUSE_Y
id = GETID(GET_FROMPOINT_WIN) // アクティブウィンドウ
ofx = x - STATUS(id, ST_CLX) // 相対位置
ofy = y - STATUS(id, ST_CLY)
wks = PosACC(id, ofx, ofy) // マウスカーソル下の文章拾得
ifb sv_s <> wks
sv_s = wks
Speak(wks) // 読み上げ
endif
Sleep(0.5)
Wend
- 105 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 18:57:36 ID:uqAKoqtr0]
- ヘルプに載っている例文をコピペして何がしたいの君は
- 106 名前：91 [2006/10/10(火) 19:12:49 ID:sATsasDf0]
- アプリケーション固有の情報を取得して、その情報の内容によって作業内容を決めるというようなことも出来ますか？
具体的には、1万以上ある.xdwファイルのなかでOCR情報が無いファイルに対してOCRをかけたいと言うものです。
せめてリストアップでも出来れば、対象ファイルが1万までOKというソフトを使ってOCRをかけようかなと思ってまして・・
対象ファイルが1万なら全部OCRかけろ、と言われそうな気もしますが・・・
なんとか自動化したいなと思ってます。せめて、可能か、不可能だけでも御教授いただきたいと存じます。
- 107 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 20:09:05 ID:WmvWf2H10]
- 解釈困難
(自動書込み 2ch_crawler.ahk)
- 108 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 20:15:31 ID:eLWfDLzl0]
- uwsc についてはさほど詳しくないのですが、
xdw ファイルをどんな viewer でみるかによって情報を取得できるかどうか
変わると考えます。
ちょこっと技術的な話をすると listview クラスのクラスや static text など
uwsc でハンドリングできれば、上記のリストアップが可能だと思います。
ascii24.com/news/i/soft/article/2004/03/17/648745-000.html
でこちらのスクリーンショットなどみるとなんとなくできるのではないのか？
とかって考えましたけど保障はできないです。edit クラスになりそう。。。
で SDK base で xdw の読み書きはできるはずなので、こちらをもちいたほうが
面倒かもしれませんがらくちんぽんです。でここまでがファイルのリストアップ。
リストアップした部分を
OCR にかける部分は、UWSC でスクリプトかけばいいかとおもいます。
と学生がのたまわっています。。。
はずしていたらごめんなさい
- 109 名前：名無しさん＠お腹いっぱい。 [2006/10/10(火) 20:33:50 ID:sATsasDf0]
- >>108
ありがとう御座います。
SDKを使用するとなるとプログラミング言語の習得が必要になりそうですね。。。
道は遠いんですね。
- 110 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/10(火) 22:43:34 ID:eLWfDLzl0]
- uwsc のスクリプトも basic とほぼ同じ文法なので、似たようなもんかと
おもっています。ということで、どんなことやってもさほど道は遠くないです。
一万件の中でリストアップを行わずにとりあえず外部から制御して
自動化なら UWSC で適当にスクリプトかけばよろしいような気がするのですけど
面倒なのでしょうか？
- 111 名前：名無しさん＠お腹いっぱい。 [2006/10/11(水) 05:24:23 ID:j5qhh2vO0]
- >>110
いや・・・。プログラミングなんてしたことが無くて。
面倒な作業の解決策を探しているうちにUWSCを知った口ですので。
貴君の仰るように、適当にスクリプトが書けません。でも、頑張ります。小林シンヤ氏の本も買いましたし。
できれば、ヒントでもいただけますとうれしいな・・・
- 112 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 08:38:14 ID:i2I18Cfj0]
-
Primary IDE Channel
ALL Integer Float MemoryR MemoryW MemoryRW DirectDraw
15720 0 0 0 0 0 0
Rectangle Text Ellipse BitBlt Read Write RRead RWrite Drive
0 0 0 0 42917 44833 16808 21200 C:\50MB
ALL Integer Float MemoryR MemoryW MemoryRW DirectDraw
15357 0 0 0 0 0 0
Rectangle Text Ellipse BitBlt Read Write RRead RWrite Drive
0 0 0 0 41524 44024 18927 18384 D:\50MB
ALL Integer Float MemoryR MemoryW MemoryRW DirectDraw
8793 0 0 0 0 0 0
Rectangle Text Ellipse BitBlt Read Write RRead RWrite Drive
0 0 0 0 24450 25806 7710 12376 E:\50MB
ALL Integer Float MemoryR MemoryW MemoryRW DirectDraw
12259 0 0 0 0 0 0
Rectangle Text Ellipse BitBlt Read Write RRead RWrite Drive
0 0 0 0 34065 34972 8088 20949 F:\50MB
- 113 名前：111 mailto:sage [2006/10/11(水) 09:41:20 ID:j5qhh2vO0]
- >>112
ありがとう御座います。疑問が氷解しました。
- 114 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 17:30:52 ID:Rim1xxVx0]
- UWSC でスクリプト書いてる人にお聞きしたいのですが、
速度がボトルネックになってる場合どうやって高速化してるんでしょうか？
やっぱり、 COM-server つくるか、 DLL をつくるかでどうにかしてるんでしょうか？
上記のほうでもテキスト読み書きするのが doscmd より遅いとあったように
結構ここらへんのノウハウがしりたかったりします。
よろしければおしえてください。
- 115 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 18:11:47 ID:LFeyogrT0]
- >>114
やることによるんじゃね？
基本かもしれんが、すぐに思いつくのを列挙すると
* ループ文での条件判断を減らすように結果がキャッシュできるならする
* ログファイルへの出力はDOSCMDも手だけど、
ログファイルのローテーションや、そもそも出力する項目と量を絞る
* SLEEPだけで待機するのでなく、そもそもidleかを確認ループを作る
(余裕を持たせて0.5sec待機するより0.01secを5回程度回した方が速い)
とかかなぁ。俺もあんまりノウハウもってないや
でもDLLとかCOM作るくらいなら最初からC/C++とか使うさｗ
- 116 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 19:05:44 ID:rpieq5070]
- JavaスクリプトあるいはVisual BasicとUWSC両方を使用している方がいたら質問させてください
Photohop7のスクリプト機能
www.adobe.com/support/downloads/detail.jsp?ftpID=1536
のCOMコンポーネントをUWSCで動かそうとしているのですが、
マニュアルの例文(JavaとVISUAL BASIC)に、
textItemRef.Position = Array(0.75, 0.75) という具合にArrayを使用して数値を入れている箇所があるのです。
マニュアルでは、このposition というパラメータは、
position . . . . . . . . . . . Object[ Array of two Numbers(double) ])
position of origin (unit value)
UWSCではこのような場合、どうやってこの数値を入れたらいいのかご存知の方、知恵を貸して下さい
書いているスクリプトはこんな感じです（文字の位置を指定する以外の動作は確認）
ps= CreateOLEObj("photoshop.Application")
ps.Documents.Add(480, 590) //480*590の新規画像作成
ps.ActiveDocument.ArtLayers.Add //新規レイヤ
ps.ActiveDocument.ActiveLayer.Kind=2 // text //新規レイヤをテキストレイヤに
ps.ActiveDocument.ActiveLayer.TextItem.Contents = "wahaha"
// ps.ActiveDocument.ActiveLayer.TextItem.position=array(100,100) ＜−ここの書き方が分からない
ps.ActiveDocument.ActiveLayer.TextItem.Font = "Georgia"
ps.ActiveDocument.ActiveLayer.TextItem.size = 36
- 117 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 19:06:41 ID:3rPslZqQ0]
- While 1
user= geti(お前）
SendStr(id,"少しは働けタコ")
Wend
//自動スクリプト生成 (realworldsurf.uws)
- 118 名前：117 mailto:sage [2006/10/11(水) 19:08:19 ID:3rPslZqQ0]
- まだユーザに真意が伝わらない。
バグがあるようだ。
(自動書込み realworldsurf.uws)
- 119 名前：名無しさん＠お腹いっぱい。 [2006/10/11(水) 19:17:04 ID:1UcTqtwR0]
- >>1
>Windowsを自動化させるツールUWSC。
ttp://www.h7.dion.ne.jp/~umiumi/
uwsc使いよ 己のスクリプトを晒すのだ。
前スレ
自動化ツールuwsc使いよ集まれ
すれ違いばかりだ
- 120 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 20:09:35 ID:G7qiWYFp0]
- 俺の良く使うスクリプト
--
acw(getid(PARAM_STR[0]),0,0)
--
BlueWindからつかう(アプリ登録は基本的にGetIdで引っかかる名前で入れてある)
皆様のよくつかう一行UWSCを教えてください
- 121 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 20:16:43 ID:3rPslZqQ0]
- オンラインゲームと
デイトレードと
競馬予測
こんなすくりぷとで一杯になりそうだな。
ウェブ検索するとそんなんばっか。
UWSCは人を幸せにしているね。
- 122 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/11(水) 21:15:48 ID:9isb2QYR0]
- そうだね、プロテインだね
- 123 名前：名無しさん＠お腹いっぱい。 [2006/10/12(木) 07:49:23 ID:XysNT8v10]
- Ｊａｖａより簡単だが、まだ難しいだよな
- 124 名前：名無しさん＠お腹いっぱい。 [2006/10/12(木) 09:23:54 ID:rDlBU4fJ0]
- ttp://park14.wakwak.com/~simizu/cgi-bin/uwscbbs2/cocoqa.cgi
- 125 名前：116 mailto:sage [2006/10/14(土) 00:01:02 ID:tiD3tTjH0]
- 自己解決
KAJIKAS TOWNにようこそ「UWSC/VBScriptの関数を使う」に答えがありました
ps= CreateOLEObj("photoshop.Application")
SC = CreateOleObj("ScriptControl")
SC.Language = "VBScript"
ps.Documents.Add(480, 590) //480*590の新規画像作成
ps.ActiveDocument.ArtLayers.Add //新規レイヤ
ps.ActiveDocument.ActiveLayer.Kind=2 // text //新規レイヤをテキストレイヤに
ps.ActiveDocument.ActiveLayer.TextItem.Contents = "wahaha"
ps.ActiveDocument.ActiveLayer.TextItem.position= SC.Eval("Array(100,100)") // "Array(100,100)"をScriptControlに送り、返り値を使用
ps.ActiveDocument.ActiveLayer.TextItem.Font = "Georgia"
ps.ActiveDocument.ActiveLayer.TextItem.size = 36
- 126 名前：名無しさん＠お腹いっぱい。 [2006/10/14(土) 08:02:02 ID:tIzDCsWZ0]
- 難しい、中学生でもわかる程度のプログラムにならないと、広まらない
- 127 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/14(土) 08:43:42 ID:GMc6GASu0]
- すみません。
別のユーザーとして
アプリを実行したいのですが
できますでしょうか？
windowsのコマンドだとrunasに相当するものです。
今のユーザで起動するにはEXECでできたのですが・・・
- 128 名前：名無しさん＠お腹いっぱい。 [2006/10/14(土) 12:00:18 ID:FMuMUYs00]
- >>1
- 129 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/14(土) 14:03:25 ID:s1Q3HVfk0]
- すれ違いでしたね
ほか逝きます
- 130 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/14(土) 14:56:56 ID:NOh62Hbu0]
- >>126
分かり易いかどうかは何を扱うかによるんよ。
ユーザに一番近いのはシェルとアプリだろうから
その範囲で使っていれば問題ないし本来そういうもの。
Win32APIとかOLEとか妙に凝ったヤツを無理して勉強する必要はない。
まずやりたい事があればそれができるアプリ(フリーソフトなど)を
捜してからその操作を自動的にやるように勤めた方がいい。
特にUWSCにはインターネット関連を直接扱う関数がないので
IEを使ったスクリプトを使う事が多いが、残念ながら普段自分がIEを
使っているようにスクリプトを作る事は難しい。
だったら無理してそれを使う事はないと思う。まずウェブページを
取得したりHTTPを扱える簡単なツールをさがして使いなれたら
それを使えば良いと俺は思う。
誰かが作った便利なライブラリを使うのもひとつの手。だが、ライブラリは
アプリと違ってそれ単体で使い慣れる事が出来ないから面倒だよね。
誰もが欲しがるカッコイイプログラムなんてまず出来ないんだし
出来る範囲で使ってやればいいと思うよ。
- 131 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/14(土) 14:57:53 ID:NOh62Hbu0]
- >>127
UWSCへのショートカットのプロパティを参照
- 132 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/14(土) 17:13:25 ID:Me109xHi0]
- >127
DOSCMDでrunas
- 133 名前：名無しさん＠お腹いっぱい。 [2006/10/16(月) 09:02:26 ID:HYgbnD2O0]
- // WindowsXP/Windows2000 のデフラグの実行＆シャットダウン
dim disk[5] = "(C:)", "(D:)", "STOP_DFRG" // 調べるディスク名定義
exec(GET_SYS_DIR+"\mmc.exe dfrg.msc") // デフラグ起動
id = getid("ディスク デフラグ")
dcnt = 0
While ClkItem(id, disk[dcnt], CLK_SHORT)
ClkItem(id, "分析")
ifb KINDOFOS() >= 13 // Windows XP
Repeat; sleep(1); Until id<>getid("ディスク デフラグ ツール")
bnsekiid = getid("ディスク デフラグ ツール")
wks = GetStr(bnsekiid, 1)
sai_msg = "最適化してください"
else
bnsekiid = GetID("分析が完了しました", , -1) // Windows2000
wks = GetStr(bnsekiid, 1, STR_STATIC)
sai_msg = "最適化することを推奨"
endif
- 134 名前：続き [2006/10/16(月) 09:02:56 ID:HYgbnD2O0]
- ifb Pos(sai_msg, wks) > 0 // では最適化
ClkItem(bnsekiid, "最適化")
While True
Sleep(2)
ifb KINDOFOS() >= 13 // Windows XP
wks = GetStr(getid("ディスク デフラグ ツール"), 1)
ifb Pos("最適化が完了しました", wks) > 0
ClkItem(getid("ディスク デフラグ ツール"), "閉じる")
Break
endif
else
wks = GetStr(id, 1, STR_STATIC)
if Pos("一時停止", wks) > 0 then ClkItem(GetID("デフラグ ツール"), "はい")
ifb Pos("最適化済", wks) > 0
ClkItem(GetID("最適化が完了"), "閉じる")
Break
endif
endif
Wend
else
ClkItem(bnsekiid, "閉じる") // 最適化必要なし
endif
dcnt = dcnt + 1 // 次のディスクへ
Wend
POFF(P_POWEROFF or P_FORCE) // 電源断
- 135 名前：名無しさん＠お腹いっぱい。 [2006/10/16(月) 09:03:58 ID:HYgbnD2O0]
- // マウスカーソル下のウィンドウのタイトルとクラス名を表示
While True
id = GETID(GET_FROMPOINT_WIN) // マウスカーソル下のウィンドウ
moji = STATUS(id, ST_TITLE) + " , " + STATUS(id, ST_CLASS)
Fukidasi(moji, G_MOUSE_X+8, G_MOUSE_Y, 3)
Sleep(0.2)
Wend
- 136 名前：むっずかしい [2006/10/16(月) 11:29:51 ID:jK9okWJi0]
- も少し簡単なプログラム製作ソフトないかな。
- 137 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/16(月) 15:25:04 ID:H0BBNBLi0]
- 開いているｓべてのウィンドウを
閉じるスクリプトを
どなたが組んでましたら
くださいませ〜
- 138 名前：訂正 mailto:sage [2006/10/16(月) 15:25:35 ID:H0BBNBLi0]
- 開いているすべてのウィンドウを
閉じるスクリプトを
どなたが組んでましたら
くださいませ〜
- 139 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/16(月) 18:36:45 ID:jCNlzY+H0]
- POFF(P_SHUTDOWN)
- 140 名前：むっずかしい [2006/10/16(月) 21:04:20 ID:9pakctTK0]
- Windowsロゴキー＋ｄ
ショートカットキー 基本操作 一覧表（Windows初心者部屋）でプログラム
作るとよさそう、
ttp://www.geocities.jp/kagemusyamk1/e.short1.html#menu
しかしもう少し簡単でないと普及しない。
- 141 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/16(月) 21:52:15 ID:xRwh19CP0]
- winKazu=GETALLWIN( )
for i=0 to winKazu-1
d=ALL_WIN_ID[i]
CTRLWIN( id, CLOSE )
next
- 142 名前：むっずかしい [2006/10/16(月) 21:55:12 ID:9pakctTK0]
- 定義されていません、変数何たらのエラーばかりでる。
うーんどこがいかんのか
- 143 名前：途中で投稿しちまったので修正 mailto:sage [2006/10/16(月) 21:56:53 ID:xRwh19CP0]
- >>137
winKazu=GETALLWIN( )
for i=0 to winKazu-1
id=ALL_WIN_ID[i]
CTRLWIN( id, CLOSE )
next
- 144 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/16(月) 22:21:35 ID:Cp7ED5W+0]
- uwscの多重起動の方法を教えて下さい
- 145 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/17(火) 03:47:07 ID:hsEE0z/U0]
- uwsc.exe baka.uws
uwsc.exe aho.uws
- 146 名前：名無しさん＠お腹いっぱい。 [2006/10/17(火) 08:07:01 ID:05dtnnnT0]
- もっと日本語でプログラムをつくれんかな、
- 147 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/10/17(火) 08:29:17 ID:13XjZlnd0]
- >>143
ありがとうございます。
sleepを挟んで使いたいと思います。
|
 |
