Sub teste()
Dim driver As WebDriver
Dim screenShot As Image
Set driver = New ChromeDriver
driver.Get"https://www.tomasvasquez.com.br/forum"Set screenShot = driver.TakeScreenshot(1000)
screenShot.SaveAs ("C:\Temp\selenium\screenShot.jpg")
driver.Quit
EndSub
Sub teste()
Dim driver As WebDriver
Dim screenShot As Image
Set driver = New ChromeDriver
driver.Get "https://www.tomasvasquez.com.br/forum"
Set screenShot = driver.TakeScreenshot(1000)
screenShot.SaveAs ("C:\Temp\selenium\screenShot.jpg")
driver.Quit
End Sub
Está difícil encontrar um elemento na página utilizando Selenium? Calma que tem um jeito bem fácil de resolver esse problema!
O código está aqui:
Sub PegaHorario()
Dim driver As WebDriver
Dim valor As WebElement
Set driver = New ChromeDriver
driver.Get"https://www.cinemark.com.br/florianopolis/cinemas"'Application.Wait (Now + TimeValue("H:MM:SS"))
Application.Wait (Now + TimeValue("0:00:03"))
Set valor = driver.FindElementByXPath("/html/body/main/section/div/div/div/div[1]/section/div/div/div[2]/div[1]/div/div[1]/div[7]/ul/li/ul[3]/li/span", 5)
MsgBox valor.Text
driver.Quit
EndSub
Sub PegaHorario()
Dim driver As WebDriver
Dim valor As WebElement
Set driver = New ChromeDriver
driver.Get "https://www.cinemark.com.br/florianopolis/cinemas"
'Application.Wait (Now + TimeValue("H:MM:SS"))
Application.Wait (Now + TimeValue("0:00:03"))
Set valor = driver.FindElementByXPath("/html/body/main/section/div/div/div/div[1]/section/div/div/div[2]/div[1]/div/div[1]/div[7]/ul/li/ul[3]/li/span", 5)
MsgBox valor.Text
driver.Quit
End Sub
Pois é, Selenium, olha ele aqui de novo. Fazer o quê? Nos o amamos! 🙂
Eis mais uma dúvida que assola o pessoal que se aventura a brincar com Selenium e dá de cara com sites pra lá de complicados. E claro, quando aparecem os frames… bem, sorte sua! No vídeo abaixo demonstro como fazer para extrair os dados de um site com frames, no caso, meu antigo site (muita vergonha aqui).
Confira o vídeo e logo abaixo o código utilizado:
PublicSub ObterDadosDoMeuSiteAntigo()
Dim driver AsNew ChromeDriver
driver.Get"http://www.tomasvasquez.com.br/_index.htm"
Debug.Print"Frames encontrados no documento pai: " & driver.FindElementsByTag("frame").Count
Call driver.SwitchToFrame("principal")
Debug.Print"Frames encontrados no frame principal: " & driver.FindElementsByTag("frame").Count
Dim itens As WebElements, item As WebElement
Set itens = driver.FindElementsByTag("li")
Debug.Print"Itens encontrados:"ForEach item In itens
Debug.Print item.Text
Next item
driver.SwitchToDefaultContent
Debug.Print"Frames encontrados no documento pai: " & driver.FindElementsByTag("frame").Count
driver.Quit
EndSub
Public Sub ObterDadosDoMeuSiteAntigo()
Dim driver As New ChromeDriver
driver.Get "http://www.tomasvasquez.com.br/_index.htm"
Debug.Print "Frames encontrados no documento pai: " & driver.FindElementsByTag("frame").Count
Call driver.SwitchToFrame("principal")
Debug.Print "Frames encontrados no frame principal: " & driver.FindElementsByTag("frame").Count
Dim itens As WebElements, item As WebElement
Set itens = driver.FindElementsByTag("li")
Debug.Print "Itens encontrados:"
For Each item In itens
Debug.Print item.Text
Next item
driver.SwitchToDefaultContent
Debug.Print "Frames encontrados no documento pai: " & driver.FindElementsByTag("frame").Count
driver.Quit
End Sub
