insert value in html combobox and click 2

[sal21]

based the link:

http://anagrafe.cng.it/anagrafe/geometri.aspx

how to insert value from MyVar="LIVORNO" in combobox (collegio), and click on button "cerca geometri"

tks.

Sorry but really urgent.

 

[Andrzejek]

How about this or this

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[sal21]

tKS in other case, Andy.
but i not have exeperince with dom.

 

[sal21]

TEST...

....
With IE.Document.Forms(0)
'.Item("pepGender").selectedIndex = "1"
.Item("ctl00$ContentPlaceHolder1$ddlCodiceCollegio").Value = "LIVORNO"
'.Item("ctl00_ContentPlaceHolder1_ddlCodiceCollegio_VI").Value = "SALERNO"
Call CLICKB
End With
...

Private Sub CLICKB()

Dim btnInput As Object
Set ElementCol = IE.Document.getElementsByTagName("INPUT")
For Each btnInput In ElementCol
'Debug.Print btnInput.Name
If btnInput.Name = "ctl00$ContentPlaceHolder1$btnFiltra" Then
btnInput.Click
Exit For
End If
Next

Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE

End Sub

 

[strongm]

Probably won't work, since it doesn't appear to run any of the necessary szupporting ASPX code on the page. The following simplified version should work (it does here). As ever, this is NOT a full piece of production code, just solves the core challenge you described.

[COLOR=blue]With IE.Document.Forms(0)
    .Item("ctl00$ContentPlaceHolder1$ddlCodiceCollegio").Value = "LIVORNO"
    .Item("ctl00$ContentPlaceHolder1$ddlCodiceCollegio").FireEvent ("onchange")
    .Item("ctl00$ContentPlaceHolder1$btnFiltra").Click
End With[/color]

 

[sal21]

Strongm....
oNLY YOU!
tKS....
wORK GEAT!!!!!

 

[sal21]

Strongm, many tk.
but same problem to select 100 from listbox on web page...

based the link:

https://www.georoma.it/DNN80426/albo-online

click on : Albo on line

insert in box comune: ROMA, en click on lens.

appear list of user.

in the top of table on the left, is present a listbox Visualizza with:

10
20
50
100

i need to select 100 from listbox

how to?

i use a tipical IE code to open the page

 

[strongm]

UserForm1.WebBrowser1.document.all("dnn_ctr1675_Albo_ResultsGrid_length")(1).Value = 100

 

[sal21]

TKS strongm,
but after i insert the value 100 in listbox, dont retrieve 100s records..., boh?

 

[sal21]

hi Strongm....

link of site:
see image

How to select from in listbox Vallata, the value "AREZZO"

 

[strongm]

No link shown

 

[sal21]

strongm here the link, in image

 

[strongm]

Oh, I can go back to a previous page to get the link, but my real point is: er ... why did you remove the link?

And what have you tried so far?

 

[2009luca]

Reserved data link.

 

[strongm]

???

 

[Andrzejek]

Just out of curiosity, why would you want to influence / access / affect a web application from a VB 6 app...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson