CloseProcess("iexplore.exe")
loop 20
{
if A_Index = 1
enableJava()
if A_Index = 2
{
disableJava()
disableJava := 1
}
loop
{
com++
oIE := ComObjCreate("InternetExplorer.Application")
oIE.navigate("http://yandex.ru/internet")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
Sleep, 10
if disableJava != 1
break
ResponseText := oIE.document.documentElement.OuterHtml
If Instr(ResponseText, "<strong>JavaScript</strong>: да")
{
oIE.visible := True, oIEHWND := oIE.HWND
WinMaximize ahk_id %oIEHWND%
msgbox, экземпляр IE %com% почему-то использует джаву
Continue
}
msgbox, с экземпляром IE %com% все в порядке
break
}
}
CloseProcess(MyProc)
{
ErrorLevel := 1
While ErrorLevel and A_Index < 10
{
Process, Close, %MyProc%
Process, WaitClose, %MyProc%, 1
}
return
}
enableJava()
{
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3,1400, 0
dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
return
}
disableJava()
{
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3,1400, 3
dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
return
}
;If (A_Index = 2) or (A_Index = 6)
; Continueто все становится в порядке.
Но мне надо чтобы все окна запускались с отключенным джаваскриптом.
CloseProcess("iexplore.exe")
ComObjError(false)
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3,1400, 0
dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True, oIEHWND := oIE.HWND
WinMaximize ahk_id %oIEHWND%
oIE.navigate("https://www.whatismybrowser.com/is-javascript-enabled")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
Sleep, 10
If Instr(oIE.document.documentElement.OuterHtml, "<span>No</span>")
msgbox % Error
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3,1400, 3
dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
loop 10
{
oIE := ComObjCreate("InternetExplorer.Application")
;If (A_Index = 2) or (A_Index = 6)
; Continue
oIE.visible := True, oIEHWND := oIE.HWND
WinMaximize ahk_id %oIEHWND%
oIE.navigate("https://www.whatismybrowser.com/is-javascript-enabled")
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
Sleep, 10
If Instr(oIE.document.documentElement.OuterHtml, "<span>Yes</span>")
msgbox % "Ошибка на " A_Index " итерации "
;WinClose ahk_id %oIEHWND%
;WinWaitClose ahk_id %oIEHWND%
}
CloseProcess(MyProc)
{
ErrorLevel := 1
While ErrorLevel and A_Index < 10
{
Process, Close, %MyProc%
Process, WaitClose, %MyProc%, 1
}
return
}
INTERNET_OPTION_SETTINGS_CHANGED
39
Notifies the system that the registry settings have been changed so that it verifies the settings on the next call to InternetConnect. This is used by InternetSetOption.Но почему-то эта фишка не срабатывает с запущенными приложениями Ie.
Для изменения прокси на лету после 39, нужно еще вызывать 37
INTERNET_OPTION_REFRESH
37
Causes the proxy data to be reread from the registry for a handle. No buffer is required. This option can be used on the HINTERNET handle returned by InternetOpen. It is used by InternetSetOption.
Но эта опция касается только прокси как я понял.
Вот и вопрос - какую опцию вызвать, чтобы оповестить запущенный IE об отключении джаваскрипта.
Скопипастил откуда-то.
А ты уверен, что нужный ключ в реестре меняешь? Это зависит от версии IE.
]]>f11::
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3,1400, 0
dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
return
f12::
regwrite,REG_DWORD,HKCU,Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3,1400, 3
dllcall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
return