VB.NET 的HTTP访问，并POST数据

前言

第一次写博客，以前都是OneNote上私有的，但是今天换了电脑，还没来得及装。想着，有技术还是分享出来吧，不涉及机密的部分以后就上CSDN了。

项目需要

前天，接了一个项目，需要将传感器的数值采集回来，然后上传到云服务器上。
为了让现场采集站维护人员好用，得要有界面，用VB.net做界面还是极好的。采集回来的数据解析好，打包发往服务器代码如下：

'准备接口
Dim request = System.Net.WebRequest.Create("http://www.baidu.cn/com/api/api.php?mode=setIsee")
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"

'准备post内容
Dim encoding = New System.Text.UTF8Encoding
Dim bytes = encoding.GetBytes("isee=setIsesadfasdfasdfadfasfe")

'写入post内容
request.ContentLength = bytes.Length
Dim restream = request.GetRequestStream()
restream.Write(bytes, 0, bytes.Length)
restream.Close()

'发送服务器请求，并接受返回
Dim stream = request.GetResponse().GetResponseStream()
Dim sr = New System.IO.StreamReader(stream, System.Text.Encoding.GetEncoding("GB18030"))
Debug.Print(sr.ReadToEnd())
sr.Dispose()