Simulate a click on a document

[Natter]

Hi !

Open IE as an Activex and load a page with a map. I need to simulate a click on this page at the point where the mouse cursor is. How can I do that ?

[Horizon]

+1

[Silvio.Falconi]

oWnd:Click()
oWnd is the map

[Natter]

How can I get this "oWnd is the map" ?

[Silvio.Falconi]

oWnd is the object of the page where you open the activex

[Natter]

Thanks. I usually just used a DOM

[Horizon]

Thanks. I usually just used a DOM

Hi Mr. Natter,

Can you please explain more DOM or give some sample?

Thanks.

[Natter]

Hi, Mr. Horizon

Create Activex object and open website
oAx:Do("Navigate", myURL)

Any page of the website is a Document.
oDc:=oAx:GetProp("Document")

All we see on the page are the elements of the document (buttons, forms, etc.).
There was a map element on my page. I got this element method of a DOM
el:=oDc:getElementById("map")

Using other DOM methods, you can perform various manipulations on the element

[Horizon]

Hi, Mr. Horizon

Create Activex object and open website
oAx:Do("Navigate", myURL)

Any page of the website is a Document.
oDc:=oAx:GetProp("Document")

All we see on the page are the elements of the document (buttons, forms, etc.).
There was a map element on my page. I got this element method of a DOM
el:=oDc:getElementById("map")

Using other DOM methods, you can perform various manipulations on the element

Thank you.

[Horizon]

Hi,

https://vatandas.uyap.gov.tr/main/vatandas/giris.jsp

I want to click "E-Şifre Aracılığıyla Giriş" but, I can not find any name or id?

Can anyone help me?

Code: Select all  Expand view

PROCEDURE Web_Deneme()
Local IE, WshShell

    IE       := CreateObject("InternetExplorer.Application")
    WshShell := CreateObject("WScript.Shell")

    IE:Visible := .t.
    IE:Navigate( "https://vatandas.uyap.gov.tr/main/vatandas/giris.jsp" )

    Do While IE:Busy
       SysWait(1)
       SysRefresh() // To Refresh
       Loop
    Enddo
                                           
    Button  := ie:document:getElementsByClassName("a.btn.red-flamingo")
    TRY
       Button[0]:click()
       SysReFresh()
    CATCH
       Msginfo("Could not find DOM element 'button'")
//     IE:Quit()
       return(nil)
    END
       
RETURN 

[Natter]

The searched element may not have an identifier, name, type. In this case, there is a unique class -"btn red-flamingo"

getElementsByClassName()

[Horizon]

The searched element may not have an identifier, name, type. In this case, there is a unique class -"btn red-flamingo"

getElementsByClassName()

Hi,

with this code there is no error but does not clicked() anymore.

Any advice?

Code: Select all  Expand view

    Button  := ie:document:getElementsByClassName("btn red-flamingo")
   
    TRY
       Button:click()
       SysReFresh()
    CATCH
       Msginfo("Could not find DOM element 'ilk giriş'")
//     IE:Quit()
       return(nil)
    END

[Natter]

Try so

oEvt:=button:createEventObject()
oEvt:type:="click"
button:fireEvent("onclick", oEvt)

[Horizon]

Try so

oEvt:=button:createEventObject()
oEvt:type:="click"
button:fireEvent("onclick", oEvt)

I think I can not find the Button object with

Code: Select all  Expand view

Button  := ie:document:getElementsByClassName("btn red-flamingo")

Code: Select all  Expand view

  Error description: (DOS Error -2147352570) WINOLE/1009  No exported method: CREATEEVENTOBJECT

Stack Calls
===========
   Called from:  => TOLEAUTO:CREATEEVENTOBJECT( 0 )
   Called from: .\ICRA_LBT.prg => WEB_DENEME( 722 )
 

after this I have remarked TRY, CATCH, END Statement. tried this.

Code: Select all  Expand view

Button  := ie:document:getElementsByClassName("btn red-flamingo")
       Button:click()

it also gives an error

Code: Select all  Expand view

  Error description: (DOS Error -2147352570) WINOLE/1009  No exported method: CLICK

Stack Calls
===========
   Called from:  => TOLEAUTO:CLICK( 0 )
   Called from: .\ICRA_LBT.prg => WEB_DENEME( 727 )

Is there any method to see HTMLDocument content to find out button?

[Giovany Vecchi]

Hello try this way

Button := ie:document:All:Item("btn red-flamingo",0)
Button:Click(.t.)