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

自動化ツールuwsc使いよ集まれ5at SOFTWARE

自動化ツールuwsc使いよ集まれ5 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

719:名無しさん＠お腹いっぱい。
 10/08/26 21:11:51 X8EPE0dEi
>>718 
中断を表したいなら、breakに置き換えればいいだろ。ごく普通。 
時間経過を表したいなら、時間取得をすればいい。関数はある。 
 
抽象化したいという理想は何となく判るがね。

720:名無しさん＠お腹いっぱい。
 10/08/26 23:38:49 Pu7JT7nc0
ここは凄く勉強になるなぁ

721:名無しさん＠お腹いっぱい。
 10/08/28 08:38:47 oxztQxVg0
>>718 
これも良く出来てると想う

722:名無しさん＠お腹いっぱい。
 10/08/29 05:36:14 9AX1wooV0
>>716 
 
ありがとうございます。完璧です! まさに求めていた操作感です! 
 
 
サイズに加え、フォントも変更しているので、 
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings\Always Use My Font Face 
 
を追加したいのですが、これはむずかしいでしょうか。 
現状、UWSファイルを2つ作って、2つを実行させるUWSを走らせています。 
 
 
なんにせよ感謝です!!

723:名無しさん＠お腹いっぱい。
 10/08/29 08:02:00 2ohpKIfP0
>>722 こんな感じ? 
 
OPTION EXPLICIT 
 
CONST HWND_BROADCAST = $FFFF 
CONST WM_SETTINGCHANGE = $1A 
CONST SMTO_ABORTIFHUNG = $2 
 
DEF_DLL SendMessageTimeoutA(hwnd, uint, long, uint, uint, VAR dword): long: user32.dll 
 
 
DIM wshshell = CREATEOLEOBJ("WScript.Shell") 
DIM rsl 
 
toggle_ie_setting(wshshell, "Always Use My Font Face") 
toggle_ie_setting(wshshell, "Always Use My Font Size") 
wshshell = NOTHING 
 
SendMessageTimeoutA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Software\Microsoft\Internet Explorer", SMTO_ABORTIFHUNG, 5000, rsl) 
 
 
PROCEDURE toggle_ie_setting(obj, name) 
　 name = "HKCU\Software\Microsoft\Internet Explorer\Settings\" + name 
　 obj.RegWrite(name, !obj.RegRead(name), "REG_DWORD") 
FEND

次ページ