Bom dia,
Tenho um formulario, com um webBrowser control, onde visualizo a pagina, de um site vendas de automoveis :
https://pt.bca-europe.com/Pages/Viewlot.aspx?Token=null&VehId=6ae9ff2d-5085-4f51-aac9-96010d0b7870&LotId=10984660&ViewLotLink=aHR0cDovL3BlZXBhcGktcHJvZHVjdGlvbi5iY2EtZGlyZWN0LmNvbS9hcGkvbG90cy8xMDk4NDY2MA==&q=&bq=saleid_exact%3Ac9264aa4-0b2f-4629-bb17-930dce57a33d&sort=LotNumber&missingMileage=True&page=1&extraFiltersActive=true&saleHeader=true&returnTo=05MQ47&R=15&SR=10&selectedVehicleIds=
o que pretendo é que via codigo , e logo que se carrege a pagina seja feito um click na imagem principal, para dessa forma ver fotos do automovel
Fiz o seguinte até agora o seguinte :
Alguem me ajuda, ando com isto faz horas, e nada
Tenho um formulario, com um webBrowser control, onde visualizo a pagina, de um site vendas de automoveis :
https://pt.bca-europe.com/Pages/Viewlot.aspx?Token=null&VehId=6ae9ff2d-5085-4f51-aac9-96010d0b7870&LotId=10984660&ViewLotLink=aHR0cDovL3BlZXBhcGktcHJvZHVjdGlvbi5iY2EtZGlyZWN0LmNvbS9hcGkvbG90cy8xMDk4NDY2MA==&q=&bq=saleid_exact%3Ac9264aa4-0b2f-4629-bb17-930dce57a33d&sort=LotNumber&missingMileage=True&page=1&extraFiltersActive=true&saleHeader=true&returnTo=05MQ47&R=15&SR=10&selectedVehicleIds=
o que pretendo é que via codigo , e logo que se carrege a pagina seja feito um click na imagem principal, para dessa forma ver fotos do automovel
Fiz o seguinte até agora o seguinte :
- Código:
Dim ieFotos As WebBrowser
Set ieFotos = Me.WebBrowser2.Object
Me.WebBrowser2.Object.Silent = True
Dim strPath As String
strPath = https://pt.bca-europe.com/Pages/Viewlot.aspx?Token=null&VehId=6ae9ff2d-5085-4f51-aac9-96010d0b7870&LotId=10984660&ViewLotLink=aHR0cDovL3BlZXBhcGktcHJvZHVjdGlvbi5iY2EtZGlyZWN0LmNvbS9hcGkvbG90cy8xMDk4NDY2MA==&q=&bq=saleid_exact%3Ac9264aa4-0b2f-4629-bb17-930dce57a33d&sort=LotNumber&missingMileage=True&page=1&extraFiltersActive=true&saleHeader=true&returnTo=05MQ47&R=15&SR=10&selectedVehicleIds=
ieFotos.Navigate strPath
' aqui coloquei um timer para esperar que a pagina se carregue
For Each ctlSelect In ieFotos.Document.getElementsByTagName("select")
If ctlSelect.Name = "MainImg" Then
ctlSelect.Click
Exit For
End If
Next
Alguem me ajuda, ando com isto faz horas, e nada