www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
oIE:Document:GetElementsByClassName("title")
DOCUMENT: No exported method
Otto wrote:Richard,
Is Internet Explorer installed?
Are the security settings the same?
Best regards,
Otto
Code: Select all | Expand
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 wrote: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
Code: Select all | Expand
#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 wrote:...
CreateObject function for “Shell.Application” vs “InternetExplorer.Application”
https://stackoverflow.com/questions/305 ... pplication