这是我使用 HttpWebRequest 自动填写 Web 表单并提交的代码。
Dim cweb As String = "http://www.yellowpages.com/novato-ca/mip/creative-memories-consultant-senior-director-461725587/send_email?lid=171673036"
Dim POST As String = "&email%5Bto_address%<a href="https://stackoverflow.com/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="dde899e0afb8beb4adb4b8b3a99db8b0bcb4b1f3beb2b0" rel="noreferrer noopener nofollow">[email protected]</a>&email%5Bfrom_name%5D=Test Name&email%5Bfrom_address%<a href="https://stackoverflow.com/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="cbfe8ff6b8aea5afaeb98ba6aaa2a7e5a8a4a6" rel="noreferrer noopener nofollow">[email protected]</a>&email%5Bnote%5D=Hello There"
Dim request As HttpWebRequest
Dim response As HttpWebResponse
request = CType(WebRequest.Create(cweb), HttpWebRequest)
request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/28.0.1500.72 Safari/537.36"
request.AllowAutoRedirect = True
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = POST.Length
request.Method = "POST"
request.KeepAlive = True
Dim requestStream As Stream = request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(POST)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
response = CType(request.GetResponse(), HttpWebResponse)
response.Close()
在此代码中,我使用黄页的邮件表单作为示例。是的,它确实让我填写并提交,但我想要其他选择。除了我已经尝试过的 WebClient 之外,还有其他能够发送 POST 请求的替代方案吗?我已阅读有关 System.Net.Sockets 的主题,它能够发送 POST 请求,但我不知道从哪里开始。任何提示都将很乐意接受。我确实发现 HttpWebRequest 和 WebClient 在发送 POST 请求时有点慢。
最佳答案
您好,您可以尝试使用这种方式
Using sendto As New Net.WebClient
Dim param As New Specialized.NameValueCollection
param.Add("param1", "value1")
param.Add("param2", "value2")
Dim response_bytes = sendto.UploadValues(yourUrl, "POST", param)
Dim response_body = (New Text.UTF8Encoding).GetString(response_bytes)
End Using
关于VB.net 使用 POST 方法的 HttpWebRequest 替代方式,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18900458/