Sub Pegar_Link_FlashScore() Dim
Dim driver As New ChromeDriver Dim
Dim Contador_de_erros As Integer
'_________________________________________________________________Abrir O
Chromedriver Contador_de_erros
Contador_de_erros = 0 R_tratar_1
R_tratar_1: '
'------------------------------------------------------------------------------------- On
On Error GoTo tratar_1 Contador_de_erros = Contador_de_erros + 1 If Contador_de_erros > 10 Then Application.Speech.Speak ("Erro na parte de Ligar o driver, talvez você tenha que atualizar o crome driver") Exit Sub End If
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then
Application.Speech.Speak ("Erro na parte de Ligar o driver, talvez você tenha que atualizar o crome driver")
Exit Sub
End If
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
driver.Start
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.Start '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'------------------------------------------------------------------------------------- GoTo
GoTo pular_1 tratar_1
tratar_1:: Resume R_tratar_1 pular_1
pular_1:: On Error GoTo 0 '_____________________________________________________________________________________
'_____________________________________________________________________________________
'__________________________________________________________________________Digitar Url Contador_de_erros
Contador_de_erros = 0 R_tratar_2
R_tratar_2: '
'------------------------------------------------------------------------------------- On
On Error GoTo tratar_2 Contador_de_erros = Contador_de_erros + 1 If Contador_de_erros > 10 Then Application.Speech.Speak ("Erro na parte de digitar o url da paginá") Exit Sub End If
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then
Application.Speech.Speak ("Erro na parte de digitar o url da paginá")
Exit Sub
End If
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
driver.Get "https://www.flashscore.com.br/"
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.Get "https://www.flashscore.com.br/" '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'------------------------------------------------------------------------------------- GoTo
GoTo pular_2 tratar_2
tratar_2:: Resume R_tratar_2 pular_2
pular_2:: On Error GoTo 0 '_____________________________________________________________________________________
'_____________________________________________________________________________________
'__________________________________________________________________________Aceita Cooks Contador_de_erros
Contador_de_erros = 0 R_tratar_3
R_tratar_3: '
'------------------------------------------------------------------------------------- On
On Error GoTo tratar_3 Contador_de_erros = Contador_de_erros + 1 If Contador_de_erros > 10 Then Application.Speech.Speak ("Erro na parte de aceitar e fechar os Cooks") Exit Sub End If
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then
Application.Speech.Speak ("Erro na parte de aceitar e fechar os Cooks")
Exit Sub
End If
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
driver.FindElementById("onetrust-accept-btn-handler").Click
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.FindElementById("onetrust-accept-btn-handler").Click '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'------------------------------------------------------------------------------------- GoTo
GoTo pular_3 tratar_3
tratar_3:: Resume R_tratar_3 pular_3
pular_3:: On Error GoTo 0 '_____________________________________________________________________________________
'_____________________________________________________________________________________
Contador_de_erros = 0 R_tratar_3
R_tratar_3: On
On Error GoTo tratar_3 Contador_de_erros = Contador_de_erros + 1 If Contador_de_erros > 10 Then
Contador_de_erros = Contador_de_erros + 1
If Contador_de_erros > 10 Then ' aqui vc pode bota ´pra espera quantos erros vc quiser
Application.Speech.Speak ("Erro na parte de aceitar e fechar os Cooks")
Exit Sub
End If
' aqui vc pode bota ´pra espera quantos erros vc quiser Application.Speech.Speak ("Erro na parte de aceitar e fechar os Cooks") Exit Sub End If ' ex; de um id de botão pra click driver.FindElementById("onetrust-accept-btn-handler").Click
driver.FindElementById("onetrust-accept-btn-handler").Click
' se a estrutura der certo vc passa direto "pula" GoTo
GoTo pular_3 '
' se der error vc vem pro tratamento do erro, e aqui vc pode fazer oque quiser tbm, 'desde volta e tentar clickar d novo ou oque tiver em mente tratar_3
tratar_3: 'porem
'porem dando error depois que vc fizer oque quiser vc deve resumir o tratamento pra poder finalizar a respota Resume
Resume R_tratar_3
pular_3: 'e
'e depois de tudo vc deve zerar o o tratamento de error, lembrado se vc não de o Resume , vc não conseguirar usar outra vez o tratamento de erro dentro da msm sub! On
On Error GoTo 0