Quando tento fazer login no site gov.br após o login e senha ele pede o captcha, preciso entrar direto no site, existe alguma forma de resolver esse problema?
library(httr)
library(RSelenium)
library(netstat)
library(shadowr)
login_url <- "https://www.gov.br/pt-br"
Sys.setlocale(locale = "C")
driver <- RSelenium::rsDriver(port = free_port(),
browser = "firefox",
chromever = NULL,
geckover = "latest",
iedrver = NULL,
phantomver =NULL,
verbose = TRUE,
check = TRUE)
remDr <- driver[["client"]]
remDr$navigate(login_url)
shadow_rd <- shadow(remDr)
Sys.sleep(5)
webElem <- find_element(shadow_rd, 'button[type="button"][onclick="this.getRootNode().host.signIn(event);"]')
webElem[[1]]$clickElement()
Sys.sleep(5)
login <- remDr$findElement(using = 'id', value = 'accountId')
login$sendKeysToElement(list("cpf"))
btn <- remDr$findElement(using = "xpath", value = "/html/body/div[1]/main/form/div/div[2]/div/button")
btn$clickElement()
passwd <- remDr$findElement(using = "id", value = "password")
passwd$sendKeysToElement(list("senha"))
btn_Entrar <- remDr$findElement(using = "id", value = "submit-button")
btn_Entrar$clickElement()
remDr$close()
driver$server$stop()
rm(driver)
Tentei investigar o uso de API para acesso ao site, ainda estou pesquisando, conforme link abaixo:
https://manual-roteiro-integracao-login-unico.servicos.gov.br/pt/stable/iniciarintegracao.html