- Code: Select all Expand view
oCl:=TActiveX():New(oWnd, "Shell.Explorer")
oCl:Silent:=.T.
oCl:Do("Navigate2", "file.html")
do while .T.
oDk:=oCl:GetProp("Document")
if valtype(oDk)="U".or.oDk:ReadyState!="complete"
WaitMessage()
SysRefresh()
else
exit
endif
enddo
In the xHB open Activex and get a type object type document (1111111:Document)
Next, I can find the element I need on this document el:=
oDk:getElementById("id-el") and click on it el:click()
In HB, this does not work. The problem is in the
oDk.
oDk:getElementById does not work
If I try to display
oDk on the screen and get an error
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = C
[ 2] = U
Stack Calls
===========
Called from: => CHARACTER:__OPPLUS( 0 )
Called from: .\source\function\WQOUT.PRG => (b)WQOUT( 11 )
Called from: => AEVAL( 0 )
Called from: .\source\function\WQOUT.PRG => WQOUT( 11 )