前言

第一次写博客，以前都是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()

 

 

————————————————

版权声明：本文为CSDN博主「qq_41533938」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/qq_41533938/article/details/97952953