- 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/
- 267 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/16(木) 01:55:56 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/16(木) 03:10:57 ID:0dNnVeDD0]
- >>266
ttp://yokohama.cool.ne.jp/chokuto/urawaza/prm/virtual_key_code.html
- 269 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/16(木) 09:05:27 ID:xFDHWS7+0]
- >>265
ｍｍｖとｋｂｄしかいらないツー事だな。
- 270 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/16(木) 16:32:09 ID:sj7WjVf90]
- >>268
ども、全然違ったしorz
- 271 名前：続き [2006/11/17(金) 07:54:02 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/18(土) 00:33:19 ID:QYr4TQXC0]
- >>271
おいおい！
//CLKITEM(id, "OK")
↑このコメントを外せばいいんだよ。
下の３行は不要。
ヘルプをよく読んだ方がいいと思うぞ。
KBD MMV から卒業しようよ。
- 273 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/18(土) 01:35:17 ID:t7NB8bux0]
- uwscスクリプトのブログ
ttp://blogs.yahoo.co.jp/uwsc_script/
- 274 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/18(土) 05:04:49 ID:gz9EZxfT0]
- いらねぇスクリプトばかりだった。
それが普通だけどな。
- 275 名前：名無しさん＠お腹いっぱい。 [2006/11/18(土) 09:29:28 ID:GJb2QK8r0]
- ｕｗｓｃがはやるには、よいスクリプトランキング付け．や、こんな命令をパソコンにやらせたいアンケートいるなあ、
- 276 名前：名無しさん＠お腹いっぱい。 [2006/11/18(土) 13:33:47 ID:40Sw6ctk0]
- パソコン１台しかもたんからKBD MMV で充分、
- 277 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/21(火) 05:03:59 ID:e3PWmBC/0]
- KBD MMV しか使えないとDQN
- 278 名前：続き [2006/11/21(火) 11:49:43 ID:xXhUGEUE0]
- >>267
shell = CreateOLEObj("Shell.Application")
↑
この情報はどうやってとるのですか？
右クリックでプロパティでもだめだし
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "explorer.exe C:", 1, True)
//CLKITEM(id, "OK")
>ところで、"DV2ControlHost"って何？
わかりません、マウスとキーボードで作ってるから
- 279 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/22(水) 03:32:22 ID:MZ4cnudL0]
- print文で出てくるちっこいウィンドウの位置って指定できないのかな？
UWSC起動してからマクロ実行すればUWSCにくっついて表示されるけど
引数に指定してマクロ動かすとデスクトップの左上隅に表示されてしまう。
複数実行すると重なって見えないんだよね。
- 280 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/22(水) 04:11:53 ID:b7Nu0a2F0]
- 試さずに提案するが、GETIDでGET_LOGPRINT_WINのウインドウIDを取得して、それをACWで位置指定してみたら？
やってみたら結果報告ヨロ
- 281 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/22(水) 04:36:50 ID:MZ4cnudL0]
- >>280
なるほど。いい手です。
試してみたらうまくいきました。ありがとうございました。
- 282 名前：続き [2006/11/22(水) 21:12:36 ID:DUEoKZur0]
- test
- 283 名前：続き [2006/11/22(水) 21:13:37 ID:DUEoKZur0]
- shell = CreateOLEObj("Shell.Application")
shell.FileRun
id = GETID("ファイル名を指定して実行","#32770")
SENDSTR(id, "pc7.2ch.net/test/read.cgi/software/1156416884/281n-", 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 名前：続き [2006/11/22(水) 21:26:32 ID:DUEoKZur0]
- test
- 285 名前：続き [2006/11/22(水) 21:32:35 ID:DUEoKZur0]
- test
- 286 名前：続き [2006/11/22(水) 21:34:02 ID:DUEoKZur0]
- 1分ごとのテスト
- 287 名前：続き [2006/11/22(水) 21:35:38 ID:DUEoKZur0]
- test
- 288 名前：続き [2006/11/22(水) 21:36:37 ID:DUEoKZur0]
- test
- 289 名前：続き [2006/11/22(水) 21:37:37 ID:DUEoKZur0]
- test
- 290 名前：名無しさん＠お腹いっぱい。 [2006/11/22(水) 21:38:34 ID:DUEoKZur0]
- 成功
- 291 名前：続き [2006/11/22(水) 21:39:42 ID:DUEoKZur0]
- sendstrを使ってやれたらもっといい
- 292 名前：続き [2006/11/22(水) 21:42:57 ID:DUEoKZur0]
- 10時に一回だけtest
- 293 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/22(水) 21:59:39 ID:PNW8OVuR0]
- ありがとう
- 294 名前：続き [2006/11/22(水) 22:02:57 ID:DUEoKZur0]
- 失敗した
- 295 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/22(水) 23:09:10 ID:f/WEUuv90]
- テストスレでやれよボケ
- 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
あーできた
ありがとうただ
ファイルの種類をアーカイブで保存したかった。
|
 |
