timsky
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Вобщем, кому понадобится данное решение ....
После смены прокси в реестре вызываем следующую функцию:
Func Internet_Update_RegistryChange($h_wnd = 0)
Local Const $_INTERNET_OPTION_SETTINGS_CHANGED = 39
Local Const $_INTERNET_OPTION_REFRESH = 37
DllCall("wininet.dll", "int", "InternetSetOption", "hwnd", $h_wnd, "dword", $_INTERNET_OPTION_SETTINGS_CHANGED, "str", "", "dword", 0)
DllCall("wininet.dll", "int", "InternetSetOption", "hwnd", $h_wnd, "dword", $_INTERNET_OPTION_REFRESH, "str", "", "dword", 0)
EndFunc |
Что-то не работает у меня эта функция 
Например, открыл ya.ru в IE и запускаю следующий скрипт:
Код: HotkeySet('1', 'NoImages')
HotkeySet('2', 'Images')
HotkeySet('0', 'Internet_Update_RegistryChange')
While 1
Sleep(100)
Wend
Func NoImages()
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Images', 'REG_SZ', 'no')
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Animations', 'REG_SZ', 'no')
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Videos', 'REG_SZ', 'no')
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Background_Sounds', 'REG_SZ', 'no')
TrayTip('', 'No Images', 5)
EndFunc ;==>
Func Images()
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Images', 'REG_SZ', 'yes')
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Animations', 'REG_SZ', 'yes')
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Videos', 'REG_SZ', 'yes')
RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Background_Sounds', 'REG_SZ', 'yes')
TrayTip('', 'Images', 5)
EndFunc ;==>
Func Internet_Update_RegistryChange()
Local Const $h_wnd = 0
Local Const $_INTERNET_OPTION_SETTINGS_CHANGED = 39
Local Const $_INTERNET_OPTION_REFRESH = 37
DllCall('wininet.dll', 'int', 'InternetSetOption', 'hwnd', $h_wnd, 'dword', $_INTERNET_OPTION_SETTINGS_CHANGED, 'str', '', 'dword', 0)
DllCall('wininet.dll', 'int', 'InternetSetOption', 'hwnd', $h_wnd, 'dword', $_INTERNET_OPTION_REFRESH, 'str', '', 'dword', 0)
TrayTip('', 'APPLY', 5)
EndFunc |
Пришлось $h_wnd = 0 объявить в теле ф-и: Local Const $h_wnd = 0, а то скрипт выдавал ошибку, что undeclared.
Ну так вот далее жмем 1, чтобы в реестре отключились картинки и прочее, далее жмем 0 и срабатывает вышеуказанная ф-я, но IE как отображал картинки, так и дальше их отображает. Обновлял страницу, открывал др. сайты (кеш и куки предварительно был вычищен) до тех пор, пока не перезапущу IE.
Вобщем, не срабатывает функция. А параметры из реестра и так подхватываются при перезапуске.
В чем трабля, не пойму |
