- 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/
- 296 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/22(水) 23:15:56 ID:CTlU+HiT0]
- IDをNG指定したが、どうせならトリップぐらいつけて欲しい物だな
- 297 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/23(木) 00:24:11 ID:66H7nO9d0]
- だからIEはCOMを使えとあれほど…
- 298 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/23(木) 01:58:55 ID:FN84/L8u0]
- KBD
SENDSTR
SCKEY
以外のキー操作方法はある？
- 299 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/23(木) 02:39:23 ID:66H7nO9d0]
- ない。
ちなみにSENDSTRはキー操作ではない。
- 300 名前：続き [2006/11/23(木) 12:58:15 ID:QSlkSJJz0]
- 礼あらざるは聞く無かれ(礼儀しらずの話は聞かなくとも
良い）
- 301 名前：名無しさん＠お腹いっぱい。 [2006/11/23(木) 13:03:16 ID:h+KEICCL0]
- 礼儀知らずは人の話を聞かない
- 302 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/24(金) 10:48:48 ID:oXp7q/N00]
- ゲームとかで、キャラクターとかの画像を判別するってことできるんですか？
たとえば画面にそのキャラクターが出たら攻撃するとか。
- 303 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/24(金) 11:54:53 ID:0i9kKllL0]
- ｽﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟﾎﾟｰﾝ!!!
。 。
。 ｡ 。 。 ﾟ
。 ｡ﾟ。゜。 ﾟ｡ 。
/ ／/ ／ ／
( Д ) Д)Д))
ｽﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟﾊﾟｰﾝ!!!!!!
+ ,, * +
＋※ + ∴ * ※ *
* * +※ ﾞ* ※ * ＋
+ ※ ∴ * + *
( Д ) Д)Д))
- 304 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/24(金) 18:22:41 ID:nUA6kiYl0]
- >>302
ComputerVisionでぐぐればいいよ
- 305 名前：続き [2006/11/25(土) 20:14:20 ID:Joh5GvcF0]
- ここの書き込むボタンをクリックするにはどうするんですか？
- 306 名前：続き mailto:sage [2006/11/25(土) 20:23:09 ID:+KR2N9Va0]
- 自己解決しました
録画ボタン
書き込むの上にカーソルを持ってきて左クリック
停止ボタン
再生ボタン
- 307 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/25(土) 21:49:12 ID:wNqQP6lN0]
- CMサイトのCMを全自動で見るスクリプトをオネガイします。
- 308 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/26(日) 02:54:34 ID:58R/cqLI0]
- >>307
>>306
- 309 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/26(日) 05:11:30 ID:HmE0+f6Z0]
- >>308
ありがとー、出来ましたｗ
- 310 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 01:50:40 ID:zlEMbgyG0]
- uwscってKey Batや joy to keyみたいに
キーボードとマウスにドライバレベルで割り込むのは不可能？
- 311 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 04:12:33 ID:R+5LV7PM0]
- 不可能
- 312 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 10:27:14 ID:pSAEAzZ60]
- >>310
何したいの？
入力内容のすげ替えだったら無理っぽいけど、
UWSCスクリプトを実行中にマウス・キーボードの
入力を禁止する関数ならあったと思った。
- 313 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:04:11 ID:qfSYCWZK0]
- 16進数にして表示するにはどうしたらいいのでしょう？
a=32767
print $a
としてもエラーが出てしまいます。
- 314 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:13:47 ID:pSAEAzZ60]
- っ【FORMAT関数】
- 315 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:50:04 ID:qfSYCWZK0]
- >>314
でｋちあーーーーーーありいいい
- 316 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 23:40:17 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/29(水) 01:58:18 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/29(水) 15:48:46 ID:M/KTBCL60]
- tabキーやFキーの操作も記憶させたいのですが？
- 319 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/29(水) 18:52:47 ID:ZG/xeMMU0]
- >>318
記憶してください？
- 320 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 08:57:36 ID:KKb4lyTL0]
- >>319 uwscだと記憶できなくなかった？
- 321 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 11:26:03 ID:07NVT8wX0]
- 引っ越したばかりでネット環境が部屋にない。でも2chは見たい。
ネカフェで1個1個スレをクリックしてログを保存…面倒くさい。右手が吊る。
そんな時、UWSCを知りました。
openjane＋UWSCでスクリプト再生。あら雑誌を読んでる内に板全部のスレが保存できる。
700スレくらいの板で3分くらい。USBメモリで持ち帰って、家でゆっくりROM。
なんて便利なんだろう、作者さんありがとう。
同時接続エラーが出ない程度のスピードにしてるんだけど2chの鯖に負担かかる？
なんかもっと便利な使い方ありそうだ。過去スレ読んできます。
- 322 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 17:18:07 ID:Gb6WewGR0]
- アクティブにしないで、その操作だけを送るって事できないですよね
- 323 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 17:57:07 ID:KbN23QcZ0]
- 残念ながら出来ないっすね
- 324 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 19:44:28 ID:ppyEoi2B0]
- >>321
自動巡回できるちゃんぶら使えばいいのに。
- 325 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 21:16:49 ID:Gb6WewGR0]
- >>323
ですよね。
自分でプログラム核しかないかぁ
- 326 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 21:45:40 ID:7wzpHdM90]
- //おみくじ.UWS
DIM 運勢[3]="大吉","中吉","吉","末吉"
R=RANDOM(4)
FOR A=0 TO 3
IFB R=A
MSGBOX(運勢[A])
EXIT
ENDIF
NEXT
- 327 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/30(木) 22:28:14 ID:5koHXnxi0]
- //おみくじ.UWS
DIM 運勢[3]="大吉","中吉","吉","末吉"
MSGBOX(運勢[RANDOM(4)])
- 328 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 00:13:13 ID:JeM0K0y/0]
- ああそうなのか、直接入れれば2行ですむのか。
どうもありがとう。
- 329 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 01:39:34 ID:i7V3wzgJ0]
- >>323
UWSCってWin32API呼べるんでしょ?
SendMessage とか PostMessage でやれるんじゃないの？
- 330 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 04:47:42 ID:BhIz7lT80]
- test
test
test
むずい
むずい
むずい
test
こんなのみつけました
- 331 名前：名無しさん＠お腹いっぱい。 [2006/12/01(金) 06:45:36 ID:HqQsiF3P0]
- // Internet Explorer 上での文字設定、ボタンのクリック （COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("prog-etc.bbs.thebbs.jp/1164265310/")// 掲示板
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 名前：名無しさん＠お腹いっぱい。 [2006/12/01(金) 07:12:38 ID:xAQgo5dN0]
- 手軽に画像の更新をしたいなあと思って
画像をショートカット(実行ファイル)に放り込むと特定のアップローダーにpostする、ということをやりたいんですけど、
このツールで出来ますか？
- 333 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 09:35:19 ID:bhBGT+M70]
- >>332
まぁしこしこスクリプト書けばできるが、あまりUWSCが向いてるようには思わない。
PerlとかでHTTPしゃべらす方がスマートだと思う。
- 334 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 11:48:02 ID:i7V3wzgJ0]
- >>331
smは、documentの直下じゃないよ。
IE.document.Fm.sm.click()
とか
IE.document.all["sm"].click()
formsから辿る方法とか、いくらでもやり方ある
※ Fmは、FROMタグのname
- 335 名前：名無しさん＠お腹いっぱい。 [2006/12/01(金) 21:30:51 ID:Xs7RUjw90]
- CHKIMGをFPSゲームで使おうと思っているのですが、動的なところでどうしても画像判別ができません。
マウスがアクティブになるところ（メニュー画面など）では一応読み込めるようです。
フルスクリーンやウィンドウ両方で試しても読み込むことができませんでした。
CHKIMGなどでは判別することは不可能なのでしょうか？
わかる方がいましたらお願いします。
- 336 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/01(金) 22:24:41 ID: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 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 00:03:58 ID:CWQeQlur0]
- >>334ありがと
できた、
- 338 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 00:34:00 ID:lizCI7GG0]
- 06年12月02日00時33分
- 339 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 07:48:39 ID:43OZZphG0]
- しかしまだ難しい、ちょっと＂を全角．半角間違えただけでエラーがでて、その理由までＵＷＳＣは教えてくれない、
１０分もプログラムにらめっこ状態になった
- 340 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/02(土) 17:42:44 ID:hvFLwMCZ0]
- エラーが出て教えてくれてるわけだが。
- 341 名前：名無しさん＠お腹いっぱい。 [2006/12/02(土) 19:33:04 ID:DDIOW/mZ0]
- // Internet Explorer 上での文字設定、ボタンのクリック （COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("prog-etc.bbs.thebbs.jp/1164265310/")// 掲示板
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 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 08:13:53 ID:Zdl4S4Sj0]
- ソースにnameが無い場合、どうやってｃｌｉｃｋを設定するの？
- 343 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 13:24:17 ID:snS6N3rq0]
- sleep(0.1)を入れるといいかも
- 344 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 19:09:01 ID:JP0s2lkY0]
- >>341
せっかく新しい関数が追加されてるので
IESetData(IE,True,"TAG=input",4) とか
IESetData(IE,True,"sm")
IE.document.Fm.sm.click() でもいけると思うけど
- 345 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 19:35:32 ID:JP0s2lkY0]
- >>342
IE.document.all.tags["input"].item[3].click() みたいな感じで
あと最近追加されたIE操作用の関数もあります
- 346 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 20:13:39 ID:Ww/6AySw0]
- マウス動かしたりchkimgとか使わずにCOMの操作だけで済む場合は
UWS使わずにVBスクリプトで書くほうがスマートだなと最近気付いた。
まだWebで調べながら試行錯誤しながら書くレベルだけど
どこでも実行できるから便利だよね。
- 347 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/03(日) 21:04:09 ID:VUpqkTxs0]
- 最近スレ伸びてるね
もしかしてどこか厨雑誌で紹介された？
- 348 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:25:23 ID:JOKqZmnZ0]
- // Internet Explorer 上での文字設定、ボタンのクリック （COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("pc7.2ch.net/test/read.cgi/software/1156416884/200n-")// 掲示板
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 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:30:43 ID:JOKqZmnZ0]
- 06年12月03日21時30分
- 350 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:31:57 ID:JOKqZmnZ0]
- 成功21時40分に自動書き込み設定
- 351 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:40:40 ID:JOKqZmnZ0]
- 06年12月03日21時40分
- 352 名前：名無しさん＠お腹いっぱい。 [2006/12/03(日) 21:41:16 ID:JOKqZmnZ0]
- よっしゃー
- 353 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 00:28:04 ID:MJakTm8F0]
- ↑喜んでるところまで自動なら神
- 354 名前：名無しさん＠お腹いっぱい。 [2006/12/04(月) 03:25:18 ID:WHrXC3Jy0]
- ありがとうございます
- 355 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 04:10:21 ID:OmF4uqP80]
- テストはテストスレでやれよボケ
- 356 名前：名無しさん＠お腹いっぱい。 [2006/12/04(月) 09:02:00 ID:Qn4XOe5q0]
- type="file"のボックスのvlalueに入力する方法ってある？
type="text"と同じように指定しても入らない
- 357 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 19:10:25 ID:rtCP1keL0]
-
ファイル名入力フィールド（type="file"）
ブラウザからWWWサーバーにファイルをアップロードする際に用います。
入力フィールドの横には参照ボタンが表示されます。
WWWサーバー側にはファイルを受け取るための特別なCGIスクリプトなどを設置しておく必要があります。
セキュリティのために、初期値を設定したり、スクリプトで値を操作することはできません。
www.tohoho-web.com/html/input.htm
- 358 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/04(月) 21:10:31 ID:rtCP1keL0]
-
クリップボードへ入力したいものを送っておいて
フォーカスを移動して右クリック貼り付け
SCKEY(getid("- Windows Internet Explorer"),VK_APPS,VK_DOWN,VK_DOWN,VK_DOWN,VK_DOWN,VK_RETURN)
- 359 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 00:38:41 ID:TfVwWult0]
- IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("headline.2ch.net/bbynews/")// 掲示板
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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 03:17:03 ID:4dBMWCwl0]
- お前等2chにアクセスすんのにいちいちIE使うなボケ。
- 361 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 03:34:03 ID:lDz8eYVx0]
- 基本は wget と curl だよな。
寂しくなったりしたときは telnet で喋るのもいいが。
- 362 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 10:31:03 ID:PMUEJKEi0]
- まだ難しいよな、数学で言えば、掛け算の九九をすっとばして、高等数学やるような気持ち
- 363 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 15:04:59 ID:UmSZpxfc0]
- でも「UWSCは難しい、もっと簡単にせよ」というのはこのスレでは一人なんだよな
- 364 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 16:39:26 ID:Xx8yar820]
- すれ違いかもしれないけど、
特定の時刻に決まった座標位置をダブルクリックしたい場合
このソフトうまく動かないんだけど、ネットゲームで使いたいんだけど
- 365 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 17:28:39 ID: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 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 18:54:35 ID:PMUEJKEi0]
- うーんうまくいかない。自分はタイマー自動でファイル（Ｆ）⇒名前をつけて保存
⇒ファイル名（Ｎ）でファイル名の後ろに日付をつけて保存したいんだけど、
マウスとカーソルだけでプログラム作れるようになればいいのになあ
- 367 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 19:07:09 ID:PMUEJKEi0]
- >>365
あーできた
ありがとうただ
ファイルの種類をアーカイブで保存したかった。
- 368 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 19:17:24 ID:PMUEJKEi0]
- // 文字の送信
SENDSTR( ID, 文字列, [番号, 送信モードフラグ, ACC指定] )
引数
ID： Windowを識別するID
（ID = 0 であれば クリップボードへ）
文字列： 送りたい文字列
番号： 左上から数えたエディトコントロールの順番 （１から指定）
（デフォルトはフォーカスを持ったエディトコントロール）
送信モードフラグ：
FALSE： 追加 （デフォルト）
TRUE： 置き換え
ACC指定：
FALSE： APIによる （デフォルト）
TRUE： アクセシビリティ用インターフェースを利用
番号の部分が難しい、ウインドウみたいにソースが使えない
- 369 名前：名無しさん＠お腹いっぱい。 [2006/12/05(火) 19:28:22 ID:PMUEJKEi0]
-
なきゃないでかまわんがやはり
フリーのソフトはつかわんほうがいいのかな。
なんか怪しいソフトでも困るしなあ。いくら便利でも社長がちゃんとした人物
でないと、ウィンドウズＸＰ作ったビルゲイツはエイズの研究費出したり
して悪人でないだろうと思って使っているが、社員全部を管理できるかといえば
というきがする。
- 370 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 19:43:58 ID:TbpDXn5y0]
- な
フ
な
で
し
と
- 371 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 20:07:59 ID:lDz8eYVx0]
- とりあえず難しいから使えない=>フリーソフトは怪しいから使わない、
っていう論法にワラタ。
バカは無理して使わなくてもいいお?
- 372 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/05(火) 20:41:20 ID:kin3Zm3D0]
- 個人的には、uwscがオートメーションサーバー機能搭載してくれたら最高なんだが・・・
wshから簡単に利用できると使用者激増するだろうなー。
独自言語だと、どうしても習得に手間と時間かかるし
- 373 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 02:56:21 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 03:01:40 ID:+7fqDNkb0]
- あっそ
- 375 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 03:41:13 ID:FAzu1gps0]
- >>372
要らん事言うな。
やり兼ねないだろ。VBS有るのに。
俺はもっと退化してほしい。
- 376 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 05:31:27 ID: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 名前：名無しさん＠お腹いっぱい。 [2006/12/06(水) 13:43:20 ID:BvKVwaQG0]
- エッフェル塔のライブカメラの画像を日付つけて保存、（スケジューラーで1時間ごとにするときれい）
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("www.paris-live.com/paris_webcam/eiffeltowerwebcams.htm")// 掲示板
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 名前：続き [2006/12/06(水) 13:43:49 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 15:11:21 ID:adcM/QV70]
- NGWordに追加 KBD
- 380 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 15:46:24 ID:KUjaXZFz0]
- SCKEYっていうとっても便利な命令があるんだけどなーwww
- 381 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 17:45:57 ID:GLEwdEWu0]
- >>378
いいですね！
レスをまとめて参考にしたいのでコテにしてくれませんか
- 382 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 19:44:23 ID:FU5gZqhb0]
- 何この日記帳
- 383 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 21:10:02 ID:quIrFEQz0]
- >>377
わざわざIE起動せんでも、直接DLしたほうがいいんでないかい。
url = "www.images2-abcparislive.com/eiffelcam1.jpg"
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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/06(水) 22:55:14 ID:JB2DjNOW0]
- 近頃異様にﾚｽ伸びてんなあ。
どこかで紹介されたか？
そういや、これでLotusNotesって操作出来るんかな？
- 385 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 01:59:16 ID:VyEoqVxS0]
- できないものはない
あえて言うとすればUWSCそれ自身
- 386 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 02:02:14 ID:PZ8cfJA90]
- DirectInput にイベント放り込んだりできないじゃない。
DLL 呼び出せばできるが。
- 387 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 14:44:40 ID:FRC6maaU0]
- キーボード操作で
KBD(VK_RALT,UP,100)
KBD(VK_D,DOWN,100)
とあるのですがUPとDOWNの違いは何なんでしょうか？
普通のクリックしかしていないつもりなんですが表記が違ってて…
- 388 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 16:21:19 ID:7TNBYEsO0]
- DOWNがキー押下げ
UPが押していたキーを離す
- 389 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 16:32:10 ID:FRC6maaU0]
- >>388
有難う御座います。
- 390 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 16:50:46 ID:3GkzlLog0]
- どういたしまして
- 391 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 18:33:21 ID:hs1oaTsD0]
- KBDとMMV以外は廃止したほうがいい。
- 392 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 18:43:49 ID:7lLokSkD0]
- むしろKBDとMMVを廃止したほうがいい。
- 393 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 19:33:07 ID:hs1oaTsD0]
- >>392
mmvとkbdだけなら他のOSでも動く。
mmvとkbdだけにしてそれを拡張したほうがいい。
- 394 名前：名無しさん＠お腹いっぱい。 mailto:sage NGWord KBD [2006/12/07(木) 20:04:35 ID:ICY6rlFi0]
- >>369 >>378
かの有名な社長はきちんと偽善事業していますが
名前からして怪しい！そう思いませんか？
怪しいフリーソフトは使わない方が良いと思います。
KBDは便利ですが…手遅れになる前に…
あなたに感謝してます。
貴重な情報ありがとう。
- 395 名前：名無しさん＠お腹いっぱい。 [2006/12/07(木) 22:14:57 ID:7ZOeS0w50]
- >>394
桜田門の人？
個人情報取るときは、本人に教えてほしい、共和党が選挙で破れたのは
国民の盗聴しすぎたからでないのかな、
民主党になれば権力のトップが替わるので不正が発見しやすい。
- 396 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/07(木) 23:37:18 ID:2dPIF4520]
- Excelからマクロでスクリプトを出力してUWSCを起動させてる馬鹿は、俺以外にいるか？
|
 |
![www.images2-abcparislive.com/eiffelcam1.jpg"](http://yomi.mobi/rjump/www.images2-abcparislive.com/eiffelcam1.jpg"){kind=link}