Skip to main content
adicionou 126 caracteres ao conteúdo
Fonte Link

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

Sub Pegar_Link_FlashScore() Dim driver As New ChromeDriver Dim Contador_de_erros As Integer

'_________________________________________________________________Abrir O Chromedriver Contador_de_erros = 0 R_tratar_1: '------------------------------------------------------------------------------------- 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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.Start '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'------------------------------------------------------------------------------------- GoTo pular_1 tratar_1:: Resume R_tratar_1 pular_1:: On Error GoTo 0 '_____________________________________________________________________________________

'__________________________________________________________________________Digitar Url Contador_de_erros = 0 R_tratar_2: '------------------------------------------------------------------------------------- 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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.Get "https://www.flashscore.com.br/" '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'------------------------------------------------------------------------------------- GoTo pular_2 tratar_2:: Resume R_tratar_2 pular_2:: On Error GoTo 0 '_____________________________________________________________________________________

'__________________________________________________________________________Aceita Cooks Contador_de_erros = 0 R_tratar_3: '------------------------------------------------------------------------------------- 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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.FindElementById("onetrust-accept-btn-handler").Click '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'------------------------------------------------------------------------------------- GoTo pular_3 tratar_3:: Resume R_tratar_3 pular_3:: On Error GoTo 0 '_____________________________________________________________________________________

Contador_de_erros = 0 R_tratar_3: On Error GoTo tratar_3 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 ' ex; de um id de botão pra click driver.FindElementById("onetrust-accept-btn-handler").Click

' se a estrutura der certo vc passa direto "pula" 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: 'porem dando error depois que vc fizer oque quiser vc deve resumir o tratamento pra poder finalizar a respota Resume R_tratar_3

pular_3: '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 Error GoTo 0

Sub Pegar_Link_FlashScore()

Dim driver As New ChromeDriver

Dim Contador_de_erros As Integer

'_________________________________________________________________Abrir O 

Chromedriver

Contador_de_erros = 0

R_tratar_1:

'-------------------------------------------------------------------------------------

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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

driver.Start

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'-------------------------------------------------------------------------------------

GoTo pular_1

tratar_1:: Resume R_tratar_1

pular_1:: On Error GoTo 0

'_____________________________________________________________________________________

'__________________________________________________________________________Digitar Url

Contador_de_erros = 0

R_tratar_2:

'-------------------------------------------------------------------------------------

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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

driver.Get "https://www.flashscore.com.br/"

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'-------------------------------------------------------------------------------------

GoTo pular_2

tratar_2:: Resume R_tratar_2

pular_2:: On Error GoTo 0

'_____________________________________________________________________________________

'__________________________________________________________________________Aceita Cooks

Contador_de_erros = 0

R_tratar_3:

'-------------------------------------------------------------------------------------

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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

driver.FindElementById("onetrust-accept-btn-handler").Click

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'-------------------------------------------------------------------------------------

GoTo pular_3

tratar_3:: Resume R_tratar_3

pular_3:: On Error GoTo 0

'_____________________________________________________________________________________

Contador_de_erros = 0

R_tratar_3:

On Error GoTo tratar_3

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

' ex; de um id de botão pra click

driver.FindElementById("onetrust-accept-btn-handler").Click

' se a estrutura der certo vc passa direto "pula"

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:

'porem dando error depois que vc fizer oque quiser vc deve resumir o tratamento pra poder finalizar a respota

Resume R_tratar_3

pular_3:

'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 Error GoTo 0

Fonte Link

Opa, bem dependendo do pq espera o elemento, por ex: quando é pra da um click, eu faço um loop com o on error goto, ou ate msm pra pegar o conteudo da teg como texto ou outherHTML.

Ex:

Sub Pegar_Link_FlashScore() Dim driver As New ChromeDriver Dim Contador_de_erros As Integer

'_________________________________________________________________Abrir O Chromedriver Contador_de_erros = 0 R_tratar_1: '------------------------------------------------------------------------------------- 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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.Start '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'------------------------------------------------------------------------------------- GoTo pular_1 tratar_1:: Resume R_tratar_1 pular_1:: On Error GoTo 0 '_____________________________________________________________________________________

'__________________________________________________________________________Digitar Url Contador_de_erros = 0 R_tratar_2: '------------------------------------------------------------------------------------- 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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.Get "https://www.flashscore.com.br/" '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'------------------------------------------------------------------------------------- GoTo pular_2 tratar_2:: Resume R_tratar_2 pular_2:: On Error GoTo 0 '_____________________________________________________________________________________

'__________________________________________________________________________Aceita Cooks Contador_de_erros = 0 R_tratar_3: '------------------------------------------------------------------------------------- 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

'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> driver.FindElementById("onetrust-accept-btn-handler").Click '<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

'------------------------------------------------------------------------------------- GoTo pular_3 tratar_3:: Resume R_tratar_3 pular_3:: On Error GoTo 0 '_____________________________________________________________________________________

end sub

sub AEstruturaéSimples ' vc cria uma variavel e acumula os erros gerados toda vez que vc clicka no elemento e der error

dim tratamentoDeErro as double ' por ex

tratamentoDeErro =0

' ai vc entra no loop com os erros, ao clicar e o elemento nao existir,

Contador_de_erros = 0 R_tratar_3: On Error GoTo tratar_3 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 ' ex; de um id de botão pra click driver.FindElementById("onetrust-accept-btn-handler").Click

' se a estrutura der certo vc passa direto "pula" 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: 'porem dando error depois que vc fizer oque quiser vc deve resumir o tratamento pra poder finalizar a respota Resume R_tratar_3

pular_3: '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 Error GoTo 0

' ue uso essa estrutura com muita eficiencia, ela me faz ir mais rapido sem p´recisar usar application.wait

end sub