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