自動化ツールuwsc使いよ集まれ2

自動化ツールuwsc使い ..

263:名無しさん＠お腹いっぱい。
06/11/14 17:09:14 mcbR0tcA0
>>261
エラーは君が間違った場所を教えているんだよ。
つか、すなおに質問しろよ。
親切に教えてもらえるぞ。

264:名無しさん＠お腹いっぱい。
06/11/15 20:37:40 nx6se5lf0
KBD(VK_WIN,CLICK,0)
MMV(868,38,10)
ACW(GETID("スタートメニュー","DV2ControlHost"),0,260,400,478,0)
MMV(868,38,5)
MMV(868,38,11)
KBD(VK_R,DOWN,1)
MMV(868,38,2)
KBD(VK_R,UP,7)
ACW(GETID("ファイル名を指定して実行","#32770"),3,562,403,168,0)

265:続き
06/11/15 20:39:21 nx6se5lf0
MMV(868,38,7)
MMV(868,38,5)
KBD(VK_SHIFT,DOWN,3)
KBD(VK_SHIFT,DOWN,4)
KBD(VK_SHIFT,DOWN,4)
KBD(VK_SHIFT,DOWN,3)
KBD(VK_C,DOWN,10)
MMV(868,38,5)
MMV(868,38,0)
KBD(VK_C,UP,10)
KBD(VK_SHIFT,UP,1)
KBD(VK_OEM_1,DOWN,2)
MMV(868,38,20)
KBD(VK_OEM_1,UP,11)
MMV(868,38,280)
KBD(VK_OEM_5,DOWN,1)
MMV(868,38,20)
KBD(VK_OEM_5,UP,10)
MMV(868,38,12)
MMV(868,38,2)
KBD(VK_RETURN,CLICK,20)
MMV(868,38,20)
MMV(868,38,1)
ACW(GETID("ローカルディスク (C:)","CabinetWClass"),295,54,631,600,0)

// ローカルデスクＣを開く、
これをsendstrで開くにはどうすればいいですか？
スタート⇒ファイル名を指定して実行でsendstr使いたいんだけどうまくいかない

266:名無しさん＠お腹いっぱい。
06/11/16 01:04:54 sj7WjVf90
OEMキーってなんだっけ？
ボリュームとかIEランチャの所謂インターネットキー？

267:名無しさん＠お腹いっぱい。
06/11/16 01:55:56 LP5m8d9x0
>>265
EXEC("explorer.exe C:")
↑これで C: は開けるけど駄目なんだろうね。

どうしても「ファイル名を指定して実行」を使いたいなら
shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")

ところで、"DV2ControlHost"って何？
あと、自動取得スクリプトは貼らなくていいから…

268:名無しさん＠お腹いっぱい。
06/11/16 03:10:57 0dNnVeDD0
>>266
URLﾘﾝｸ(yokohama.cool.ne.jp)

269:名無しさん＠お腹いっぱい。
06/11/16 09:05:27 xFDHWS7+0
>>265
ｍｍｖとｋｂｄしかいらないツー事だな。

270:名無しさん＠お腹いっぱい。
06/11/16 16:32:09 sj7WjVf90
>>268
ども、全然違ったしorz

271:続き
06/11/17 07:54:02 pu68rP8u0
shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")

KBD(VK_RETURN,DOWN,0)
MMV(661,39,140)
KBD(VK_RETURN,UP,0)

>>267
開いたーTHX

272:名無しさん＠お腹いっぱい。
06/11/18 00:33:19 QYr4TQXC0
>>271
おいおい！
//CLKITEM(id, "OK")
↑このコメントを外せばいいんだよ。
下の３行は不要。

ヘルプをよく読んだ方がいいと思うぞ。
KBD MMV から卒業しようよ。

273:名無しさん＠お腹いっぱい。
06/11/18 01:35:17 t7NB8bux0
uwscスクリプトのブログ
URLﾘﾝｸ(blogs.yahoo.co.jp)

274:名無しさん＠お腹いっぱい。
06/11/18 05:04:49 gz9EZxfT0
いらねぇスクリプトばかりだった。
それが普通だけどな。

275:名無しさん＠お腹いっぱい。
06/11/18 09:29:28 GJb2QK8r0
ｕｗｓｃがはやるには、よいスクリプトランキング付け．や、こんな命令をパソコンにやらせたいアンケートいるなあ、

276:名無しさん＠お腹いっぱい。
06/11/18 13:33:47 40Sw6ctk0
パソコン１台しかもたんからKBD MMV で充分、

277:名無しさん＠お腹いっぱい。
06/11/21 05:03:59 e3PWmBC/0
KBD MMV　しか使えないとDQN

278:続き
06/11/21 11:49:43 xXhUGEUE0
>>267
shell = CreateOLEObj("Shell.Application")
　　　　　　　　　　　　　　↑
　　　　　この情報はどうやってとるのですか？
右クリックでプロパティでもだめだし
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")

>ところで、"DV2ControlHost"って何？
わかりません、マウスとキーボードで作ってるから

279:名無しさん＠お腹いっぱい。
06/11/22 03:32:22 MZ4cnudL0
print文で出てくるちっこいウィンドウの位置って指定できないのかな？
UWSC起動してからマクロ実行すればUWSCにくっついて表示されるけど
引数に指定してマクロ動かすとデスクトップの左上隅に表示されてしまう。
複数実行すると重なって見えないんだよね。

280:名無しさん＠お腹いっぱい。
06/11/22 04:11:53 b7Nu0a2F0
試さずに提案するが、GETIDでGET_LOGPRINT_WINのウインドウIDを取得して、それをACWで位置指定してみたら？
やってみたら結果報告ヨロ

281:名無しさん＠お腹いっぱい。
06/11/22 04:36:50 MZ4cnudL0
>>280
なるほど。いい手です。
試してみたらうまくいきました。ありがとうございました。

282:続き
06/11/22 21:12:36 DUEoKZur0
test

283:続き
06/11/22 21:13:37 DUEoKZur0
shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "ｽﾚﾘﾝｸ(software板:281番)n-", 1, True)
CLKITEM(id, "OK")
ACW(GETID("自動化ツールUWSC使いよ集まれ2 - MICROSOFT INTERNET EXPLORER","IEFrame"),0,0,1024,734,0)
sleep(8)
BTN(LEFT,DOWN,542,347,6)
MMV(542,347,30)
BTN(LEFT,UP,542,347,90)
MMV(542,347,1012)
KBD(VK_SHIFT,DOWN,6)
KBD(VK_TAB,CLICK,2)
KBD(VK_TAB,CLICK,5)
KBD(VK_SHIFT,UP,6)
KBD(VK_T,CLICK,9)
KBD(VK_E,CLICK,190)
KBD(VK_S,CLICK,1)
KBD(VK_T,CLICK,4)
KBD(VK_SHIFT,DOWN,4)
KBD(VK_TAB,CLICK,3)
KBD(VK_TAB,CLICK,4)
KBD(VK_TAB,CLICK,3)
KBD(VK_SHIFT,UP,1)
KBD(VK_RETURN,DOWN,1)
KBD(VK_NEXT,CLICK,1)
KBD(VK_RETURN,UP,0)
MMV(542,347,90)

284:続き
06/11/22 21:26:32 DUEoKZur0
test

285:続き
06/11/22 21:32:35 DUEoKZur0
test

286:続き
06/11/22 21:34:02 DUEoKZur0
1分ごとのテスト

287:続き
06/11/22 21:35:38 DUEoKZur0
test

288:続き
06/11/22 21:36:37 DUEoKZur0
test

289:続き
06/11/22 21:37:37 DUEoKZur0
test

290:名無しさん＠お腹いっぱい。
06/11/22 21:38:34 DUEoKZur0
成功

291:続き
06/11/22 21:39:42 DUEoKZur0
sendstrを使ってやれたらもっといい

292:続き
06/11/22 21:42:57 DUEoKZur0
10時に一回だけtest

293:名無しさん＠お腹いっぱい。
06/11/22 21:59:39 PNW8OVuR0
ありがとう

294:続き
06/11/22 22:02:57 DUEoKZur0
失敗した

295:名無しさん＠お腹いっぱい。
06/11/22 23:09:10 f/WEUuv90
テストスレでやれよボケ

296:名無しさん＠お腹いっぱい。
06/11/22 23:15:56 CTlU+HiT0
IDをNG指定したが、どうせならトリップぐらいつけて欲しい物だな

297:名無しさん＠お腹いっぱい。
06/11/23 00:24:11 66H7nO9d0
だからIEはCOMを使えとあれほど…

298:名無しさん＠お腹いっぱい。
06/11/23 01:58:55 FN84/L8u0
KBD
SENDSTR
SCKEY
以外のキー操作方法はある？

299:名無しさん＠お腹いっぱい。
06/11/23 02:39:23 66H7nO9d0
ない。

ちなみにSENDSTRはキー操作ではない。

300:続き
06/11/23 12:58:15 QSlkSJJz0
礼あらざるは聞く無かれ(礼儀しらずの話は聞かなくとも
良い）

301:名無しさん＠お腹いっぱい。
06/11/23 13:03:16 h+KEICCL0
礼儀知らずは人の話を聞かない

302:名無しさん＠お腹いっぱい。
06/11/24 10:48:48 oXp7q/N00
ゲームとかで、キャラクターとかの画像を判別するってことできるんですか？
たとえば画面にそのキャラクターが出たら攻撃するとか。

303:名無しさん＠お腹いっぱい。
06/11/24 11:54:53 0i9kKllL0
　　　　　　　　　　　　ｽﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟｰﾝ!!!
　　　　　　。　　　　　。
　　　　　　　　。　　｡　。　。ﾟ
　　　　　　。　　｡ﾟ。゜。ﾟ｡　。
　　　　　　/　／/ ／／
　　　　　(　Д ) Д)Д))

　　　　　　　　　　　　ｽﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟｰﾝ!!!!!!
　　　　　　　　　+　,,　　*　　　　+
　　　　＋※　+　∴　　*　※　*
　　　　*　　* +※　ﾞ*　※　* ＋
　　　+　　※　∴　*　+　*　
　　　　　(　Д ) Д)Д))

304:名無しさん＠お腹いっぱい。
06/11/24 18:22:41 nUA6kiYl0
>>302
ComputerVisionでぐぐればいいよ

305:続き
06/11/25 20:14:20 Joh5GvcF0
ここの書き込むボタンをクリックするにはどうするんですか？

306:続き
06/11/25 20:23:09 +KR2N9Va0
自己解決しました

録画ボタン
書き込むの上にカーソルを持ってきて左クリック
停止ボタン

再生ボタン

307:名無しさん＠お腹いっぱい。
06/11/25 21:49:12 wNqQP6lN0
CMサイトのCMを全自動で見るスクリプトをオネガイします。

308:名無しさん＠お腹いっぱい。
06/11/26 02:54:34 58R/cqLI0
>>307
>>306

309:名無しさん＠お腹いっぱい。
06/11/26 05:11:30 HmE0+f6Z0
>>308
ありがとー、出来ましたｗ

310:名無しさん＠お腹いっぱい。
06/11/28 01:50:40 zlEMbgyG0
uwscってKey Batや joy to keyみたいに
キーボードとマウスにドライバレベルで割り込むのは不可能？

311:名無しさん＠お腹いっぱい。
06/11/28 04:12:33 R+5LV7PM0
不可能

312:名無しさん＠お腹いっぱい。
06/11/28 10:27:14 pSAEAzZ60
>>310
何したいの？
入力内容のすげ替えだったら無理っぽいけど、
UWSCスクリプトを実行中にマウス・キーボードの
入力を禁止する関数ならあったと思った。

313:名無しさん＠お腹いっぱい。
06/11/28 22:04:11 qfSYCWZK0
16進数にして表示するにはどうしたらいいのでしょう？
a=32767
print $a
としてもエラーが出てしまいます。

314:名無しさん＠お腹いっぱい。
06/11/28 22:13:47 pSAEAzZ60
っ【FORMAT関数】

315:名無しさん＠お腹いっぱい。
06/11/28 22:50:04 qfSYCWZK0
>>314
でｋちあーーーーーーありいいい

316:名無しさん＠お腹いっぱい。
06/11/28 23:40:17 tuCDpiEC0
// DROPFILE サンプル "df.uws" - ファイル比較 DF 1.36 の場合（ファイラーのDFでは無い）
app = "?:\?????\DF\DF.exe" //■DF.exe のパス
wtitle = "DF" //■タイトル
wclass = "Afx:400000:8:10011:0:" //■クラス
//--------------------------------------------
fpath = PARAM_STR[0]
id = GETID(wtitle, wclass, 0.1)
if id<0 then id = EXEC(app)
ifb id>0 then
　　CTRLWIN(id, ACTIVATE)
　　ifb fpath<>"" then
　　　　fso = CreateOLEObj("Scripting.FileSystemObject")
　　　　dir = fso.GetParentFolderName(fpath)
　　　　fname = fso.GetFileName(fpath)
　　　　DROPFILE(id, dir, fname)
　　endif
endif

=== Unknown File & Directory へ関連付け "reg.uws" ===
uws = GET_CUR_DIR + "\df.uws" //■↑df.uws のパス
keyname = "DF" //■
caption = "DFで比較(&A)" //■
pth = "<#DBL>"+ GET_UWSC_DIR +"\UWSC.exe<#DBL> <#DBL>"+ uws +"<#DBL> <#DBL>%1<#DBL>"
//--------------------------------------------
ws = CreateOleObj("Wscript.Shell")
ws.RegWrite("HKCR\*\shell\"+ keyname +"\", caption ,"REG_SZ")
ws.RegWrite("HKCR\*\shell\"+ keyname +"\command\", pth ,"REG_SZ")
ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\", caption ,"REG_SZ")
ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\command\", pth ,"REG_SZ")

// DropHandler （本家サンプルで *.uws を関連付けた場合）
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ")

317:名無しさん＠お腹いっぱい。
06/11/29 01:58:18 Ysr2cqrx0
>>316
補足
DropHandler ①②どちらでも可。

//① Shell Extension For Windows Script Host - wshext.dll 使用 >>316
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ")

//② .exe drop target - shell32.dll 使用
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{86C86720-42A0-1069-A2E8-08002B30309D}","REG_SZ")

318:名無しさん＠お腹いっぱい。
06/11/29 15:48:46 M/KTBCL60
tabキーやFキーの操作も記憶させたいのですが？

319:名無しさん＠お腹いっぱい。
06/11/29 18:52:47 ZG/xeMMU0
>>318
記憶してください？

320:名無しさん＠お腹いっぱい。
06/11/30 08:57:36 KKb4lyTL0
>>319 uwscだと記憶できなくなかった？

321:名無しさん＠お腹いっぱい。
06/11/30 11:26:03 07NVT8wX0
引っ越したばかりでネット環境が部屋にない。でも2chは見たい。
ネカフェで1個1個スレをクリックしてログを保存…面倒くさい。右手が吊る。

そんな時、UWSCを知りました。
openjane＋UWSCでスクリプト再生。あら雑誌を読んでる内に板全部のスレが保存できる。
700スレくらいの板で3分くらい。USBメモリで持ち帰って、家でゆっくりROM。
なんて便利なんだろう、作者さんありがとう。

同時接続エラーが出ない程度のスピードにしてるんだけど2chの鯖に負担かかる？

なんかもっと便利な使い方ありそうだ。過去スレ読んできます。

322:名無しさん＠お腹いっぱい。
06/11/30 17:18:07 Gb6WewGR0
アクティブにしないで、その操作だけを送るって事できないですよね

323:名無しさん＠お腹いっぱい。
06/11/30 17:57:07 KbN23QcZ0
残念ながら出来ないっすね

324:名無しさん＠お腹いっぱい。
06/11/30 19:44:28 ppyEoi2B0
>>321
自動巡回できるちゃんぶら使えばいいのに。

325:名無しさん＠お腹いっぱい。
06/11/30 21:16:49 Gb6WewGR0
>>323
ですよね。
自分でプログラム核しかないかぁ

326:名無しさん＠お腹いっぱい。
06/11/30 21:45:40 7wzpHdM90
//おみくじ.UWS
DIM 運勢[3]="大吉","中吉","吉","末吉"
R=RANDOM(4)
FOR A=0 TO 3
　IFB R=A
　　MSGBOX(運勢[A])
　　EXIT
　ENDIF
NEXT

327:名無しさん＠お腹いっぱい。
06/11/30 22:28:14 5koHXnxi0
//おみくじ.UWS
DIM 運勢[3]="大吉","中吉","吉","末吉"
MSGBOX(運勢[RANDOM(4)])

328:名無しさん＠お腹いっぱい。
06/12/01 00:13:13 JeM0K0y/0
ああそうなのか、直接入れれば2行ですむのか。
どうもありがとう。

329:名無しさん＠お腹いっぱい。
06/12/01 01:39:34 i7V3wzgJ0
>>323
UWSCってWin32API呼べるんでしょ?
SendMessage とか PostMessage でやれるんじゃないの？

330:名無しさん＠お腹いっぱい。
06/12/01 04:47:42 BhIz7lT80
test
test
test
むずい
むずい
むずい
test

こんなのみつけました

331:名無しさん＠お腹いっぱい。
06/12/01 06:45:36 HqQsiF3P0
// Internet Explorer 上での文字設定、ボタンのクリック　（COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"

IE.document.all["body"].value = timeｂ// タイトル書込み
IE.document.sm.click()

//IE.document.all["body"].value = "body"// タイトル書込み

IE.document.sm.click()

日付
書き込むところまでいくんだけど書き込みボタンクリックしない。

332:名無しさん＠お腹いっぱい。
06/12/01 07:12:38 xAQgo5dN0
手軽に画像の更新をしたいなあと思って
画像をショートカット(実行ファイル)に放り込むと特定のアップローダーにpostする、ということをやりたいんですけど、
このツールで出来ますか？

333:名無しさん＠お腹いっぱい。
06/12/01 09:35:19 bhBGT+M70
>>332
まぁしこしこスクリプト書けばできるが、あまりUWSCが向いてるようには思わない。
PerlとかでHTTPしゃべらす方がスマートだと思う。

334:名無しさん＠お腹いっぱい。
06/12/01 11:48:02 i7V3wzgJ0
>>331
smは、documentの直下じゃないよ。
　　IE.document.Fm.sm.click()
とか
　　IE.document.all["sm"].click()
formsから辿る方法とか、いくらでもやり方ある
※ Fmは、FROMタグのname

335:名無しさん＠お腹いっぱい。
06/12/01 21:30:51 Xs7RUjw90
CHKIMGをFPSゲームで使おうと思っているのですが、動的なところでどうしても画像判別ができません。
マウスがアクティブになるところ（メニュー画面など）では一応読み込めるようです。
フルスクリーンやウィンドウ両方で試しても読み込むことができませんでした。
CHKIMGなどでは判別することは不可能なのでしょうか？
わかる方がいましたらお願いします。

336:名無しさん＠お腹いっぱい。
06/12/01 22:24:41 9eh7+OGM0
if timeGetTime-Lasttiger > DWord(teletime.Value*1000) then
if GetForeGroundWindow=TargetWnd then
begin

keybd_event(VK_F2+cbAutoSC.ItemIndex,0,0,0);
keybd_event(VK_F2+cbAutoSC.ItemIndex,0,KEYEVENTF_KEYUP,0);
LastAutoShortcut:=timeGetTime;
end;
end
else
LastAutoShortcut:=timeGetTime;

337:名無しさん＠お腹いっぱい。
06/12/02 00:03:58 CWQeQlur0
>>334ありがと
できた、

338:名無しさん＠お腹いっぱい。
06/12/02 00:34:00 lizCI7GG0
06年12月02日00時33分

339:名無しさん＠お腹いっぱい。
06/12/02 07:48:39 43OZZphG0
しかしまだ難しい、ちょっと＂を全角．半角間違えただけでエラーがでて、その理由までＵＷＳＣは教えてくれない、
１０分もプログラムにらめっこ状態になった

340:名無しさん＠お腹いっぱい。
06/12/02 17:42:44 hvFLwMCZ0
エラーが出て教えてくれてるわけだが。

341:名無しさん＠お腹いっぱい。
06/12/02 19:33:04 DDIOW/mZ0
// Internet Explorer 上での文字設定、ボタンのクリック　（COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"

IE.document.all["body"].value = timeｂ// タイトル書込み
IE.document.all["sm"].click()

IE.document.all["sm"].click() //ここがうまくいかなくて書き込めないTHEBBS 書き込み

342:名無しさん＠お腹いっぱい。
06/12/03 08:13:53 Zdl4S4Sj0
ソースにnameが無い場合、どうやってｃｌｉｃｋを設定するの？

343:名無しさん＠お腹いっぱい。
06/12/03 13:24:17 snS6N3rq0
　sleep(0.1)を入れるといいかも

344:名無しさん＠お腹いっぱい。
06/12/03 19:09:01 JP0s2lkY0
>>341
せっかく新しい関数が追加されてるので

IESetData(IE,True,"TAG=input",4)　とか
IESetData(IE,True,"sm")

IE.document.Fm.sm.click()　でもいけると思うけど

345:名無しさん＠お腹いっぱい。
06/12/03 19:35:32 JP0s2lkY0
>>342
IE.document.all.tags["input"].item[3].click() 　みたいな感じで

あと最近追加されたIE操作用の関数もあります

346:名無しさん＠お腹いっぱい。
06/12/03 20:13:39 Ww/6AySw0
マウス動かしたりchkimgとか使わずにCOMの操作だけで済む場合は
UWS使わずにVBスクリプトで書くほうがスマートだなと最近気付いた。
まだWebで調べながら試行錯誤しながら書くレベルだけど
どこでも実行できるから便利だよね。

347:名無しさん＠お腹いっぱい。
06/12/03 21:04:09 VUpqkTxs0
最近スレ伸びてるね
もしかしてどこか厨雑誌で紹介された？

348:名無しさん＠お腹いっぱい。
06/12/03 21:25:23 JOKqZmnZ0
// Internet Explorer 上での文字設定、ボタンのクリック　（COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("ｽﾚﾘﾝｸ(software板:200番)n-")// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"

IE.document.all["MESSAGE"].value = timeｂ// タイトル書込み
IE.document.all["submit"].click()
//このスレに挑戦

349:名無しさん＠お腹いっぱい。
06/12/03 21:30:43 JOKqZmnZ0
06年12月03日21時30分

350:名無しさん＠お腹いっぱい。
06/12/03 21:31:57 JOKqZmnZ0
成功21時40分に自動書き込み設定

351:名無しさん＠お腹いっぱい。
06/12/03 21:40:40 JOKqZmnZ0
06年12月03日21時40分

352:名無しさん＠お腹いっぱい。
06/12/03 21:41:16 JOKqZmnZ0
よっしゃー

353:名無しさん＠お腹いっぱい。
06/12/04 00:28:04 MJakTm8F0
↑喜んでるところまで自動なら神

354:名無しさん＠お腹いっぱい。
06/12/04 03:25:18 WHrXC3Jy0
ありがとうございます

355:名無しさん＠お腹いっぱい。
06/12/04 04:10:21 OmF4uqP80
テストはテストスレでやれよボケ

356:名無しさん＠お腹いっぱい。
06/12/04 09:02:00 Qn4XOe5q0
type="file"のボックスのvlalueに入力する方法ってある？

type="text"と同じように指定しても入らない

357:名無しさん＠お腹いっぱい。
06/12/04 19:10:25 rtCP1keL0

ファイル名入力フィールド（type="file"）

ブラウザからWWWサーバーにファイルをアップロードする際に用います。
入力フィールドの横には参照ボタンが表示されます。
WWWサーバー側にはファイルを受け取るための特別なCGIスクリプトなどを設置しておく必要があります。
セキュリティのために、初期値を設定したり、スクリプトで値を操作することはできません。

URLﾘﾝｸ(www.tohoho-web.com)

358:名無しさん＠お腹いっぱい。
06/12/04 21:10:31 rtCP1keL0

クリップボードへ入力したいものを送っておいて
フォーカスを移動して右クリック貼り付け
SCKEY(getid("- Windows Internet Explorer"),VK_APPS,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_RETURN)

359:名無しさん＠お腹いっぱい。
06/12/05 00:38:41 TfVwWult0
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(headline.2ch.net))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
ACW(GETID("２ちゃんねる　電車男　ニュース　ヘッドライン BBY (NEWS) - MICROSOFT INTERNET EXPLORER","IEFrame"),68,54,870,658,0)
KBD(VK_ALT,DOWN,40)
KBD(VK_F,DOWN,31)
KBD(VK_F,UP,0)
KBD(VK_ALT,UP,170)
KBD(VK_CTRL,DOWN,30)
KBD(VK_A,DOWN,10)
ACW(GETID("WEB ページの保存","#32770"),72,77,654,411,0)
BTN(LEFT,UP,)
//日付を入れて保存するにはどうすればいいの？

360:名無しさん＠お腹いっぱい。
06/12/05 03:17:03 4dBMWCwl0
お前等2chにアクセスすんのにいちいちIE使うなボケ。

361:名無しさん＠お腹いっぱい。
06/12/05 03:34:03 lDz8eYVx0
基本は wget と curl だよな。
寂しくなったりしたときは telnet で喋るのもいいが。

362:名無しさん＠お腹いっぱい。
06/12/05 10:31:03 PMUEJKEi0
まだ難しいよな、数学で言えば、掛け算の九九をすっとばして、高等数学やるような気持ち

363:名無しさん＠お腹いっぱい。
06/12/05 15:04:59 UmSZpxfc0
でも「UWSCは難しい、もっと簡単にせよ」というのはこのスレでは一人なんだよな

364:名無しさん＠お腹いっぱい。
06/12/05 16:39:26 Xx8yar820
すれ違いかもしれないけど、
特定の時刻に決まった座標位置をダブルクリックしたい場合
このソフトうまく動かないんだけど、ネットゲームで使いたいんだけど

365:名無しさん＠お腹いっぱい。
06/12/05 17:28:39 eR0sB+8F0
>>359
ie = CreateOLEObj("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("about:blank")
while ie.Busy or ie.ReadyState<>4; SLEEP(0.1); wend

ＩＥのウインドウＩＤ = GETID(" - Microsoft Internet Explorer","IEFrame")
DEF_DLL PostMessageA(HWND,Long,Long,DWORD):Bool:user32.DLL
PostMessageA(IDToHnd(ＩＥのウインドウＩＤ), $111, $102, 0)

ページの保存ダイアログＩＤ = GETID("Web ページの保存","#32770")
日付 = "現在の日時を設定"　// GETTIME(0)～
SENDSTR(ページの保存ダイアログＩＤ, 日付 , 1, True)
CLKITEM(ページの保存ダイアログＩＤ, "保存")
// 敢えて変数に全角を使った。このままで動くから…

366:名無しさん＠お腹いっぱい。
06/12/05 18:54:35 PMUEJKEi0
うーんうまくいかない。自分はタイマー自動でファイル（Ｆ）⇒名前をつけて保存
⇒ファイル名（Ｎ）でファイル名の後ろに日付をつけて保存したいんだけど、

マウスとカーソルだけでプログラム作れるようになればいいのになあ

367:名無しさん＠お腹いっぱい。
06/12/05 19:07:09 PMUEJKEi0
>>365
あーできた
ありがとうただ
ファイルの種類をアーカイブで保存したかった。

368:名無しさん＠お腹いっぱい。
06/12/05 19:17:24 PMUEJKEi0
//　文字の送信
SENDSTR( ID,　文字列,　[番号,　送信モードフラグ,　ACC指定] )
引数
　　ID：　Windowを識別するID
　　　　　（ID = 0　であればクリップボードへ）
　　文字列：　送りたい文字列
　　番号：　左上から数えたエディトコントロールの順番（１から指定）
　　　　　　　（デフォルトはフォーカスを持ったエディトコントロール）　　　　　　　
　　送信モードフラグ：　
　　　　　　　FALSE：　追加（デフォルト）
　　　　　　　TRUE：　置き換え
　　ACC指定：　
　　　　　　　FALSE：　APIによる（デフォルト）
　　　　　　　TRUE：　アクセシビリティ用インターフェースを利用
番号の部分が難しい、ウインドウみたいにソースが使えない

369:名無しさん＠お腹いっぱい。
06/12/05 19:28:22 PMUEJKEi0

なきゃないでかまわんがやはり
フリーのソフトはつかわんほうがいいのかな。
なんか怪しいソフトでも困るしなあ。いくら便利でも社長がちゃんとした人物
でないと、ウィンドウズＸＰ作ったビルゲイツはエイズの研究費出したり
して悪人でないだろうと思って使っているが、社員全部を管理できるかといえば
というきがする。

370:名無しさん＠お腹いっぱい。
06/12/05 19:43:58 TbpDXn5y0
な
フ
な
で
し
と

371:名無しさん＠お腹いっぱい。
06/12/05 20:07:59 lDz8eYVx0
とりあえず難しいから使えない=>フリーソフトは怪しいから使わない、
っていう論法にワラタ。

バカは無理して使わなくてもいいお?

372:名無しさん＠お腹いっぱい。
06/12/05 20:41:20 kin3Zm3D0
個人的には、uwscがオートメーションサーバー機能搭載してくれたら最高なんだが・・・
wshから簡単に利用できると使用者激増するだろうなー。
独自言語だと、どうしても習得に手間と時間かかるし

373:名無しさん＠お腹いっぱい。
06/12/06 02:56:21 UsSPovY80
>>366,367
id = GETID("Web ページの保存","#32770")
GETTIME(0); 日付 = "_" + G_TIME_YY2 + "-" + G_TIME_MM2 + "-" + G_TIME_DD2
SENDSTR(id , 日付 , 1, False, True)
SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, VK_W, VK_RETURN)

//CLKITEM(id, "Web アーカイブ、単一のファイル (*.mht)", CLK_LIST) //←何故か失敗する
//CLKITEM(id, "保存")

>>362,368-369　ID:PMUEJKEi0
あんたの日記帳じゃないんだから、余計なレス＆コピペは不要！

374:名無しさん＠お腹いっぱい。
06/12/06 03:01:40 +7fqDNkb0
あっそ

375:名無しさん＠お腹いっぱい。
06/12/06 03:41:13 FAzu1gps0
>>372
要らん事言うな。
やり兼ねないだろ。VBS有るのに。
俺はもっと退化してほしい。

376:名無しさん＠お腹いっぱい。
06/12/06 05:31:27 yhihj9By0
>>372
いきなりではとっつき難いけど、WSHが書けるんなら楽勝だと思うよ。
ｵﾚはVBS,JSから入ったんで目から鱗状態だった。
WSHで出来ることはWSHでやればいいし。
UWSCからWSH等を利用するのは割と簡単なんだけどなぁ…

>>373
id = GETID("Web ページの保存","#32770")
tt = COPY(GETSTR(id, 1), 1, 8)　// ページタイトルの先頭から８文字をコピー
GETTIME(0); 日付 = "_" + G_TIME_YY2 + "-" + G_TIME_MM2 + "-" + G_TIME_DD2
SENDSTR(id, tt + 日付, 1, True)
SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, W, VK_RETURN)　// *.mht で保存

377:名無しさん＠お腹いっぱい。
06/12/06 13:43:20 BvKVwaQG0
エッフェル塔のライブカメラの画像を日付つけて保存、（スケジューラーで1時間ごとにするときれい）
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(www.paris-live.com))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
ACW(GETID("PARIS-LIVE.COM - PARIS WEBCAM - EIFFEL TOWER - MICROSOFT INTERNET EXPLORER","IEFrame"),68,54,870,658,0)
BTN(LEFT,DOWN,800,67,140)
ACW(GETID("PARIS-LIVE.COM - PARIS WEBCAM - EIFFEL TOWER - MICROSOFT INTERNET EXPLORER","IEFrame"),68,54,870,658,0)
BTN(LEFT,UP,800,67,91)
KBD(VK_RALT,DOWN,340)
KBD(VK_F,DOWN,441)
KBD(VK_F,UP,60)
KBD(VK_RALT,UP,80)
KBD(VK_CTRL,DOWN,40)
KBD(VK_A,DOWN,0)
ACW(GETID("WEB ページの保存","#32770"),72,77,654,411,0)

378:続き
06/12/06 13:43:49 BvKVwaQG0
KBD(VK_A,UP,0)
KBD(VK_CTRL,UP,0)
KBD(VK_RALT,DOWN,3465)
KBD(VK_I,CLICK,311)
KBD(VK_RALT,UP,170)
KBD(VK_RALT,DOWN,40)
KBD(VK_N,CLICK,40)
KBD(VK_SPACE,CLICK,40)

GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"
SENDSTR(GETID("WEB ページの保存"),timeｂ+"EIFFEL TOWER")

KBD(VK_RALT,UP,340)
KBD(VK_RALT,DOWN,481)
KBD(VK_T,CLICK,30)
KBD(VK_RALT,UP,221)
KBD(VK_DOWN,DOWN,10)
KBD(VK_DOWN,UP,20)
KBD(VK_DOWN,DOWN,641)
KBD(VK_DOWN,UP,0)
KBD(VK_RETURN,DOWN,321)
KBD(VK_RETURN,UP,0)
KBD(VK_RETURN,DOWN,145)
ACW(GETID("WEB ページの保存","#32770"),322,283,379,168,0)
KBD(VK_RETURN,UP,0)

379:名無しさん＠お腹いっぱい。
06/12/06 15:11:21 adcM/QV70
NGWordに追加　KBD

380:名無しさん＠お腹いっぱい。
06/12/06 15:46:24 KUjaXZFz0
SCKEYっていうとっても便利な命令があるんだけどなーwww

381:名無しさん＠お腹いっぱい。
06/12/06 17:45:57 GLEwdEWu0
>>378
いいですね！
レスをまとめて参考にしたいのでコテにしてくれませんか

382:名無しさん＠お腹いっぱい。
06/12/06 19:44:23 FU5gZqhb0
何この日記帳

383:名無しさん＠お腹いっぱい。
06/12/06 21:10:02 quIrFEQz0
>>377
わざわざIE起動せんでも、直接DLしたほうがいいんでないかい。

url = "URLﾘﾝｸ(www.images2-abcparislive.com)
http = CreateOLEObj("MSXML2.XMLHTTP");
http.open("GET", url, false);
http.SetRequestHeader("If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT")
http.SetRequestHeader("Pragma", "no-cache");
http.SetRequestHeader("Cache-Control", "no-cache");
http.send("");
ifb http.status = 200 then
gettime()
s_time = g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"
ados = CreateOLEObj("ADODB.Stream");
ados.Open();
ados.Type = 1;
ados.Write(http.responseBody);
ados.SaveToFile(s_time+" EIFFEL TOWER"+".jpg", 2);
ados.Close();
ados = NULL
endif
http = NULL

384:名無しさん＠お腹いっぱい。
06/12/06 22:55:14 JB2DjNOW0
近頃異様にﾚｽ伸びてんなあ。
どこかで紹介されたか？
そういや、これでLotusNotesって操作出来るんかな？

385:名無しさん＠お腹いっぱい。
06/12/07 01:59:16 VyEoqVxS0
できないものはない
あえて言うとすればUWSCそれ自身

386:名無しさん＠お腹いっぱい。
06/12/07 02:02:14 PZ8cfJA90
DirectInput にイベント放り込んだりできないじゃない。
DLL 呼び出せばできるが。

387:名無しさん＠お腹いっぱい。
06/12/07 14:44:40 FRC6maaU0
キーボード操作で
KBD(VK_RALT,UP,100)
KBD(VK_D,DOWN,100)
とあるのですがUPとDOWNの違いは何なんでしょうか？
普通のクリックしかしていないつもりなんですが表記が違ってて…

388:名無しさん＠お腹いっぱい。
06/12/07 16:21:19 7TNBYEsO0
DOWNがキー押下げ
UPが押していたキーを離す

389:名無しさん＠お腹いっぱい。
06/12/07 16:32:10 FRC6maaU0
>>388
有難う御座います。

390:名無しさん＠お腹いっぱい。
06/12/07 16:50:46 3GkzlLog0
どういたしまして

391:名無しさん＠お腹いっぱい。
06/12/07 18:33:21 hs1oaTsD0
KBDとMMV以外は廃止したほうがいい。

392:名無しさん＠お腹いっぱい。
06/12/07 18:43:49 7lLokSkD0
むしろKBDとMMVを廃止したほうがいい。

393:名無しさん＠お腹いっぱい。
06/12/07 19:33:07 hs1oaTsD0
>>392
mmvとkbdだけなら他のOSでも動く。
mmvとkbdだけにしてそれを拡張したほうがいい。

394:名無しさん＠お腹いっぱい。
06/12/07 20:04:35 ICY6rlFi0
>>369 >>378
かの有名な社長はきちんと偽善事業していますが
名前からして怪しい！そう思いませんか？
怪しいフリーソフトは使わない方が良いと思います。
KBDは便利ですが…手遅れになる前に…
あなたに感謝してます。
貴重な情報ありがとう。

395:名無しさん＠お腹いっぱい。
06/12/07 22:14:57 7ZOeS0w50
>>394
桜田門の人？
個人情報取るときは、本人に教えてほしい、共和党が選挙で破れたのは
国民の盗聴しすぎたからでないのかな、
民主党になれば権力のトップが替わるので不正が発見しやすい。

396:名無しさん＠お腹いっぱい。
06/12/07 23:37:18 2dPIF4520
Excelからマクロでスクリプトを出力してUWSCを起動させてる馬鹿は、俺以外にいるか？

397:名無しさん＠お腹いっぱい。
06/12/08 00:03:09 chHOovwv0
漢だな

使ってるCADでショートカット割り振れないアイコン、しかも右下の辺鄙なとこにあるやつね、
そいつをクリックするのがめんどいんでロジの８つボタンマウスに割り振ってる、俺は。

398:名無しさん＠お腹いっぱい。
06/12/08 00:10:40 ec1k12CL0
連動させてファイルの圧縮も自動化させたいんだけどなにか相性いいやつある？
できればコマンドラインで操作したい
LHAはファイル名の制限きついし……

399:396
06/12/08 00:37:07 0g+qQw1G0
>>397
エンドユーザが作成したデータを元に、
コマンドプロンプトもどき（メインフレームと通信する奴）に
入力する作業を自動化したら、そうなってしまったんだよ。

ホントレガシーシステムは地獄だぜ！フゥハハハーハァー

400:名無しさん＠お腹いっぱい。
06/12/08 14:52:07 nDsO2FL70
>>398
引数につけたファイルがアーカイブでなければ圧縮する
その際の設定は事前に設定しておく

っていうアーカイバを使えばいいんじゃないか？

401:名無しさん＠お腹いっぱい。
06/12/08 16:42:24 0zLBfT2k0
>>398
アイコンに D&D すると圧縮してくれる奴なら、
コマンドラインから渡せるんじゃないの?

と言うか別に DLL 叩けばいいんジャマイカ?

402:名無しさん＠お腹いっぱい。
06/12/08 19:32:34 9NJfuLhZ0
ずーっと前から気になってたんだけど○○叩くって何からきてんの？
DLL叩く、Winsock叩くとか日本語として変じゃない？

403:名無しさん＠お腹いっぱい。
06/12/08 20:27:49 dcPVzq7I0
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
　　if (! IE.busy) and (IE.readyState=4) then Break
　　sleep(0.1)
wend
select RANDOM(7)
case　0
moji="長すけ「ばかやろ！」"
case　1
moji="仲本「長さんのいうとうり」"
case　3
moji="加藤「すんずれいしました」"
case　4
moji="高木「ブー」"
case　5

404:続き
06/12/08 20:29:21 dcPVzq7I0
moji="荒井「なんだばかやろ」"
case　6
moji="志村「あいーん」"
case　7
moji="また来週"
selend
select RANDOM(3)
case　0
mo="志村"
case　1
mo="また来週"
case　2
mo="加藤"
selend
IE.document.all["crypt_moto"].value = moji// タイトル書込み
IE.document.all["name"].value =mo // 名前書込み
IE.document.all["body"].value =moji//テキスト書き込み
IE.document.all["sm"].click()
SLEEP(10)
ACW(GETID("THEBBS 書き込み - MICROSOFT INTERNET EXPLORER","IEFrame"),69,8,870,658,0)

IE.document.all["sm"].click()

405:名無しさん＠お腹いっぱい。
06/12/08 21:23:09 nDsO2FL70
そのURL覗いてみたら早速試されてる形跡があってﾜﾛﾀ

406:名無しさん＠お腹いっぱい。
06/12/08 21:33:55 hZKfmjKg0
ありがとう！

407:名無しさん＠お腹いっぱい。
06/12/09 03:45:45 himiiWWI0
>>403 >>404 >>406
あ！まだやってるんですか…驚きました。
賢明なあなたのことですから全て理解して戴けたと思っていたのですが…
残念です、しかし、まだ間に合います、
過去の私の書込みを思い起こしてください。
気になる情報が有った時には下記スレッドへお願いします。
24時間注目してますから。
KBDｽﾚﾘﾝｸ(operate板)

408:名無しさん＠お腹いっぱい。
06/12/09 05:20:01 J16nIrh00
>>406
無意味な文章を定期的に書き込むのは「迷惑」行為に当たるぞ。
良く考えて行動してくれ。
UWSCがとばっちりを受けて公開中止になったらどう責任取るんだ！
削除要請出しとけ！

409:名無しさん＠お腹いっぱい。
06/12/09 06:19:57 CpeVJ4Nj0
>>402
英語の kick から来てるんだからおかしくても問題無いだろ。

410:名無しさん＠お腹いっぱい。
06/12/09 06:23:07 MrCYpI9z0
どういたしまして

411:名無しさん＠お腹いっぱい。
06/12/09 17:54:50 nWYe904v0
２チャンに自動書き込みするマクロの例プリーズ

412:名無しさん＠お腹いっぱい。
06/12/09 20:52:45 8gCVgCO70
sendstr(getid（"OpenJane 【ソフトウェア】 - 自動化ツール"）,"ウルセー馬鹿")

413:名無しさん＠お腹いっぱい。
06/12/10 04:08:19 dN5jDykH0
某競馬ゲームに自己開催レースを開始する際に4数字を入力しなければならず
当然その文字はサイズ及び位置が微妙に変化しキャプチャしたファイルを用意するには
膨大な量になるのですが、、、こういった方法以外で4つの数字を判別して自動的に
入力する様なスクリプトを組むには何か方法はありますでしょうか？

414:名無しさん＠お腹いっぱい。
06/12/10 06:03:24 D/A7riMi0
０－９９９９まで順番に入力。

415:名無しさん＠お腹いっぱい。
06/12/10 06:10:07 K3uOep/x0
その4つの数字ってテキストじゃなくて画像データなの？

416:名無しさん＠お腹いっぱい。
06/12/10 06:47:30 0UNXTb3i0
最近いろんなフォームで、画像で数字を表示して「この数字を入力してください」って出るよな。
自動処理よけなんだろうな。
画像の領域さえ分かれば、それをBMPに保存して、OCRソフトに送り込んで…
スゲー面倒くさそう。

こういう不正処理の仕方ばっかり話し合って不正ユーザー御用達ソフトのイメージがついちゃうのもちょっとアレだなあ。

417:名無しさん＠お腹いっぱい。
06/12/10 13:32:45 WZj2QqSU0
既存のOCRソフトは印刷物とかのフォントが整った文字しか読めないんだよね。
結局自分でプログラム書かないと無理だった。
大学の図書館で画像認識の教科書借りてきたよ。

418:名無しさん＠お腹いっぱい。
06/12/10 18:53:40 7pZAjrPi0
>>415
テキストのような綺麗な文字を大小の組み合わせ4文字にしている画像データですね。

>>416
不正というかこういったツールが無いお陰で過疎化が進んでいて金をがめたい企業が
課金アイテムを更に高額化させて（役所考え的）悪循環を生んでいる状態で
自主開催レースを行うと微々たるアイテムですが手に入るという条件から
一つの防衛手段であり、ハッキングを促すツールではないですしGAMEデータを直接改変
するものでは無いのでユーザーの同士の為なら企業の意思に反しても咎めません特には・・ね。

OCRか・・・

419:名無しさん＠お腹いっぱい。
06/12/10 19:26:30 D/A7riMi0
ていーうかーそれくらい手入力しろよ。

420:ｷﾀ━━━━━━m9( ﾟ∀ﾟ)━━━━━━!!
06/12/10 19:50:22 kdkSxCJw0
ＵＷＳＣ　自動化ソフト
　Ver 4.1c 　2006/12/10版　　フリーソフト
[Ver4.1c]
　例外処理構文 Try-Finally, Try-Except を付けた
　SENDSTR関数にてフォーカスが移動するようにした
　IESETDATA関数にて input type="file" タグに文字を送れるようにした
　MSGBOX, FUKIDASI, ログ等のフォントを変更可にした（INIファイルのDefaultFont）
　一部のドロップダウン式のコンボボックスにて内容が変更できなかったのを修正
　FGET, INPUT にて数字の時にゼロの小数点が消える、指数表記になるのを修正

RecIE 　ブラウザ(IE)上の操作を記録
　Ver 1.0a　2006/12/10版　　フリーソフト
[Ver1.0a]
　IELINKにて複数行表示に対応していなかったのを修正

421:名無しさん＠お腹いっぱい。
06/12/11 17:44:49 JjGOR1vX0
str = GetPnirText()
MSGBOX(str)

function GetPnirText()
// 選択文字列を取得（UWSC 4.1c, Sleipnir 1.67 で動作確認）
　　Dim doc, idx, pnir
　　try
　　　　pnir = CreateOLEObj("Sleipnir.API")
　　except
　　　　MSGBOX(TRY_ERRMSG + "<#CR><#CR>" +_
　　　　　　　"<#TAB><#TAB>Sleipnirを起動してから実行して下さい。")
　　　　Result = -1
　　　　Exit // ExitExit
　　endtry
　　idx = pnir.GetDocumentID(pnir.ActiveIndex)
　　doc = pnir.GetDocumentObject(idx)
　　try
　　　　while POS("FRAME",doc.activeElement.tagName)
　　　　　　//msgbox(POS("FRAME",doc.activeElement.tagName)) // デバッグ用
　　　　　　doc = doc.activeElement.contentWindow.document
　　　　wend
　　　　Result = doc.selection.createRange().text // 選択文字列
　　except
　　　　Result = ""
　　endtry
fend

===========================
>>376
//SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, W, VK_RETURN)　// *.mht で保存
CLKITEM(id, "Web アーカイブ、単一のファイル (*.mht)", CLK_LIST) //←何故か成功する 4.1c
CLKITEM(id, "保存")

422:名無しさん＠お腹いっぱい。
06/12/12 05:19:39 xrHkevWY0
トライって何?

423:名無しさん＠お腹いっぱい。
06/12/12 07:43:07 hRXY00b50
＜＜
ありがとうございます。

424:名無しさん＠お腹いっぱい。
06/12/12 08:09:05 xAxZUHOq0
>>423
> ＜＜
?

425:名無しさん＠お腹いっぱい。
06/12/12 18:15:36 LtBtwK3a0
メモ帳が開いていれば以下の動作をする
と言う文を作る場合、式の部分はどの様に書けばいいのでしょうか
すみませんが教えてください。

426:名無しさん＠お腹いっぱい。
06/12/12 20:18:36 xrHkevWY0
while メモ帳が開いていれば()
以下の動作をする()
Wend

Function メモ帳が開いていれば()
Result= getid("メモ帳")>=0
Fend

Procedure 以下の動作をする()
:
Fend

427:名無しさん＠お腹いっぱい。
06/12/12 20:21:38 vPJ35X2l0
//ヤター、ホットキーランチャーもどき出来たよ【CTRL+L】

//ホットキーランチャーもどき.UWS
WHILE 1
　　SLEEP(0.02)
　　IFB GETKEYSTATE(VK_ESC)
　　　　MSGBOX("ホットキーランチャーもどきを終了します。")
　　　　EXIT
　　ENDIF
　　IF GETKEYSTATE(VK_CTRL) and !GETKEYSTATE(VK_ALT) and !GETKEYSTATE(VK_SHIFT) _
and GETKEYSTATE(VK_L) THEN CALL MENU
WEND

//MENU.UWS
DIM PP[]="0. メモ帳","1. 電卓","UWSC"
X=POPUPMENU(PP)
IFB X<0
　　EXIT
ELSEIF X=0
　　EXEC("NOTEPAD")
ELSEIF X=1
　　EXEC("CALC")
ELSEIF X=2
　　EXEC(GET_UWSC_DIR+"\UWSC")
ENDIF

>>425
ヘルプの例の一番あたまにあったと思います。

428:名無しさん＠お腹いっぱい。
06/12/12 20:34:05 xrHkevWY0
誰かUWSCの基本関数(バージョン1.0からあったようなヤツ)を
VBS用にしたのを公開してくれないか?
対応リストがあるとどっちのユーザにも便利だと思うんだが?

429:名無しさん＠お腹いっぱい。
06/12/12 20:43:06 FgZSUGnE0
そんな便利なものがあったらUWSC必要なくなるな。

430:名無しさん＠お腹いっぱい。
06/12/12 21:08:13 I4NEN3JE0
質問です。

FOpenで開いたファイルを別名で保存したいのですがFCloseすると上書きになってしまいます。
開いたファイル名+"処理済"として出力したいのですがこういった事は出来ないのでしょうか？

431:名無しさん＠お腹いっぱい。
06/12/12 21:09:51 xrHkevWY0
それでもやっぱりUCSWの法が便利だよ。
ただ、誰かに配る時はVBSにしておいた方が便利だから。

432:名無しさん＠お腹いっぱい。
06/12/13 00:29:48 08giVOq70
>>430
俺も知りたい。
現状doscmdで処理ファイルを別フォルダにコピーしてdoscmdでリネーム、その後処理を行っている。
この方法だとコピー＞読み込み＞処理＞書き出しになってしまう。
コピーする分時間的ロスになるので
読み込み＞処理＞書き出しで出来る方法があれば知りたい。

433:名無しさん＠お腹いっぱい。
06/12/13 00:51:10 YBAilhCV0
>>432
多分close時にﾌｧｲﾙを別名保存は無理なような気がス…
というか、ﾌｧｲﾙのOpen前に
doscmd("copy /y hoge.txt hoge,txt.bak") とかではダメなんか？

434:名無しさん＠お腹いっぱい。
06/12/13 01:52:17 Ofnypsy40
FID1 = FOPEN(ファイル名)
　　STR = FGET(FID1, F_ALLTEXT)
FCLOSE(FID1)

// 処理

FID2 = FOPEN(ファイル名+"処理済",F_WRITE)
　　FPUT(FID2,STR)
FCLOSE(FID2)

435:425
06/12/13 01:52:34 XdCi3l4y0
>>426
>>427
遅くなりましたが有難う御座います。

436:名無しさん＠お腹いっぱい。
06/12/13 03:13:53 WrpxBZ3A0
>>426　ID:xrHkevWY0
「Procedure 以下の動作をする()」でメモ帳を閉じないと悲惨なことになるが…
ケアレスだと信じたい。
なんで while なの？

次ページ