我试图在带有R的论坛上发布消息(它不需要注册)。
表格看起来像这样
session <- html_session("http://brchan.org/test/res/17.html")
form <- read_html(session) %>% html_form()
form[[1]]
<form> 'post' (POST /post.php)
<input hidden> 'thread': 17
<input hidden> 'board': test
<input text> 'email':
<input text> 'subject':
<input submit> 'post': Responder
<textarea> 'body' [0 char]
<input file> 'file':
<input text> 'embed':
<input checkbox> 'no-bump':
<input checkbox> 'spoiler':
<input text> 'password':
论坛只需要textarea或图像文件中的短信。我已经尝试了很多方法填写表单,但所有这些都失败了。例如。
filled_form <- set_values(form[[1]], file = 'test.png')
submit_form(session, filled_form)
Submitting with 'post'
<session> http://brchan.org/post.php
Status: 400
Type: text/html; charset=UTF-8
Size: 2257
Warning message:
In request_POST(session, url = url, body = request$values, encode = request$encode, :
Bad Request (HTTP 400).