Ole: Error code not recognized

[mueer01]

Hello,

I use this code to read the content of an html file:

msie = ObjectCreate("InternetExplorer.Application")
msie.Width = 1000
msie.Height = 600
msie.addressbar = @TRUE
...
msie.navigate("http://.....") ;;; a VALID URL

While msie.busy || msie.readystate <> 4
   TimeDelay(0.5)
EndWhile
...


This works fine on  Windows7 with IE11.

But on Windows10 with IE11
- the IE opens
- then I get the following ERROR:

---
Ole: Error code not recognized

While msie.busy || msie.readystate <> 4
---
(see attachment)

Do I need to setup or install anything on Windows10?

Regards,
Erhard

[stanl]

Not exactly the same [uses navigate2() ]... but just tested on Win10 with IE11 and no errors

Code (WINBATCH) Select Expand



#defineFunction WaitForMSIE(br)
while br.readystate <> 4
timedelay(1)
endwhile
while br.busy
timedelay(1)
endwhile
return
#endFunction


oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 1
oIE.Navigate2("http://www.microsoft.com/")
WaitForMSIE(oIE)


oIE=0


Exit


[mueer01]

Thanks for the Reply.

And does it still work, when you add

FilePut("c:\tmp\text.txt", oIE.document.body.CreateTextRange().htmlText)

at the end?
Or how do you get the content into a file?

[JTaylor]

May or may not help...Do you have "Protected Mode" turned on in IE under Win10?   That can cause problems.

Jim

[mueer01]

YEPP! It was a security problem!
Many thanks. One virtual beer for you!