Win10 IE problem?

[richard-service]

Hi,

I use this codes in Win10 IE and appear error message below:

Code: Select all  Expand view

oIE:Document:GetElementsByClassName("title")
 

DOCUMENT: No exported method

in Windows7 IE no problem.

Anyone can help it

[Otto]

Richard,
Is Internet Explorer installed?
Are the security settings the same?
Best regards,
Otto

[Natter]

oDk:=oWnd:aControls[nn]:GetProp("Document")

It works perfectly with W10

[richard-service]

Richard,
Is Internet Explorer installed?
Are the security settings the same?
Best regards,
Otto

Yes, I installed IE 11 and setting.

[richard-service]

Hi
Call IE function code below:

Code: Select all  Expand view

DEFINE WINDOW oWnd FROM 0,0 TO 0,0 TITLE "特定地區旅遊及接觸史查詢"

            oIE:=CreateObject("InternetExplorer.Application")            
             
            IF oIE<>Nil
                oIE:Visible :=.T.
                oIE:TheaterMode:=.T.
                oIE:AddressBar:=.T.
                oIE:ToolBar   :=.T.
                oIE:FullScreen=.F.
                oIE:Silent    =.T.
                oIE:Navigate2(cHOSTIP)
                Do While oIE:Busy
                   SysWait(1)
                   SysRefresh()
                   Loop
                Enddo
                hWnd:=oIE:hWnd
                ShowWindow(hWnd, SW_MAXIMIZE )
                BringWindowToTop(hWnd)
             ENDIF
      ACTIVATE WINDOW oWnd ICONIZED ON INIT BuildTimer()

 

[Otto]

Richard,
I am not certain, but is InternetExplorer the same as Shell.Explorer?

I use it like this:

oActiveX = TActiveX():New( oDlg, "Shell.Explorer.2",10,10,400,200 )


Best regards,
Otto

[richard-service]

Richard,
I am not certain, but is InternetExplorer the same as Shell.Explorer?

I use it like this:

oActiveX = TActiveX():New( oDlg, "Shell.Explorer.2",10,10,400,200 )


Best regards,
Otto

Hi, Otto,

Thanks for your help. But it's not work and appear message below:

DOCUMENT: No exported method

[Otto]

Hello Richard,

I tested with the attached code on my brand-new Surface.
I have to check allow and then all is working.

Interesting:
I also tested with
oIE := TActiveX():New( NIL, "Shell.Explorer.2",10,10,600,400 )

In this case, it seems that scripts are blocked. I see the web page but CSS and JS do not work.

Code: Select all  Expand view

#include "FiveWin.ch"

function main()
local oDlg
local   oIE
local cHOSTIP := "https://www.modharbour.club"
 
 
  DEFINE WINDOW oWnd FROM 0,0 TO 0,0 TITLE "????????????"

  //     oIE := TActiveX():New( NIL, "Shell.Explorer.2",10,10,600,400 )
         
         
     oIE:=CreateObject("InternetExplorer.Application")              // OK
             
            IF oIE<>Nil
                oIE:Visible :=.T.
                oIE:TheaterMode:=.T.
                oIE:AddressBar:=.T.
                oIE:ToolBar   :=.T.
                oIE:FullScreen=.F.
                oIE:Silent    =.T.
                oIE:Navigate2(cHOSTIP)
                Do While oIE:Busy
                   SysWait(1)
                   SysRefresh()
                   Loop
                Enddo
                hWnd:=oIE:hWnd
               // ShowWindow(hWnd, SW_MAXIMIZE )
                BringWindowToTop(hWnd)
             ENDIF
      ACTIVATE WINDOW oWnd ICONIZED ON INIT msginfo("timer")
return(.T.)
 

[Otto]

...

CreateObject function for “Shell.Application” vs “InternetExplorer.Application”
https://stackoverflow.com/questions/305 ... pplication

[richard-service]

...

CreateObject function for “Shell.Application” vs “InternetExplorer.Application”
https://stackoverflow.com/questions/305 ... pplication

Hi, Otto

I will check web data for it.