如果检查HTML,您将看到表单的操作是
../cgi-bin/statos_OIB.cgi,这意味着表单已提交到
http://www.hzzo-net.hr/cgi-bin/statos_OIB.cgi,因此您必须使用该URL。
另外,经过一些测试,我发现服务器返回了500响应,除非提供了有效的
Referer(
http://www.hzzo-net.hr/statos_OIB.htm)。
我不熟悉R,但是可以使用该
requests库在Python中提供示例。
import requestsurl = "http://www.hzzo-net.hr/cgi-bin/statos_OIB.cgi"hzzo_response = 'your token'data = { 'upoib': '93335620125', 'g-recaptcha-response': hzzo_response}headers = {'referer': 'http://www.hzzo-net.hr/statos_OIB.htm'}r = requests.post(url, data=data, headers=headers)html = r.textprint(html)在研究了
httr文档之后,我设法在R中“翻译”了上面的代码。如果提供了有效的令牌,该代码将产生正确的结果。
library(httr)url <- "http://www.hzzo-net.hr/cgi-bin/statos_OIB.cgi"hzzo_response <- "your token"parameters <- list( 'upoib' = "93335620125", 'g-recaptcha-response' = hzzo_response)test <- POST( url, body = parameters, add_headers(Referer = 'http://www.hzzo-net.hr/statos_OIB.htm'), enpre = "form", verbose())html <- content(test, 'text', encoding = 'UTF-8')print(html)



