Solved. Because of AmMilinPatel’s nice assist. to me it is nice!!
Utilizing the assistance,I(user56534)accomplished my remaining supply code and share for others’s reference.
But it surely have a bug that I do not know the explanation.If anybody know,please beneficiant to me.
[URL-1!]
https://datacentersupport.lenovo.com/ch/ko/warrantylookup#/
[URL-2!]
https://datacentersupport.lenovo.com/ch/ko/merchandise/servers/thinksystem/sr650/7×06/7x06cto1ww/j30a7xlg/guarantee
Bug description:The VBA clicks URL-1, then get URL-2 robotically nicely most case.
However in an amazing whereas,between URL-1 and URL-2, a alert window(see connected picture) pop up.
In that solid, I have to click on one in all two choices. I wish to do it in Code.
I attempted chd.SwitchToAlert.Settle for with out success.
My new objective: how can click on one in all two choices between URL-1 and URL-2.
Picture desc: Due to not figuring out the best way to add picture,I describe in textual content.
Primarily based on IP,though bodily person is in Switzerland,this web site is in US.
Both ahead to Switzerland or proceed with this US web site.
After which beneath, there’re two icons. one is for Switzerland and the opposite is for US.
'My new revised full code
Sub ScrapeWTY_Solved()
Dim ss As String
Dim i, j
Dim chd As New Selenium.ChromeDriver
Dim arr As Variant, merchandise As Variant
arr = Array("j30a7xlg", "J303A3DB")
chd.Get "https://datacentersupport.lenovo.com/us/ko/warrantylookup#/"
For i = 1 To 10
For j = LBound(arr) To UBound(arr)
chd.FindElementByClass("button-placeholder__input").SendKeys arr(j)
'-----------------------------------------
' Look forward to the submit button to grow to be clickable
'chd.WaitElementPresentByCss("#app-standalone-warrantylookup button", timeout:=5000) 'Not working, Why?
chd.Wait 5000
'chd.SwitchToAlert.Settle for 'Not working
' Click on the submit button
chd.FindElementByCss("#app-standalone-warrantylookup button").Click on
chd.Wait 5000
Debug.Print i, j, arr(j), chd.FindElementByCss("#app-psp-warranty > div.psp-warranty__body > div > div.psp-warranty__status > div > div.warranty-status__content > div > div.chart-time-bucket > div.chart-expires > p:nth-child(2) > sturdy").Textual content
chd.GoBack
Subsequent j
Subsequent i
Finish Sub