帮我看看这段代码

wasfer 2015-03-23 09:36:11
Dim request As WebRequest = WebRequest.Create("http://192.168.0.219:81/WebService.asmx/UserLogin")

request.Method = "POST"

Dim postData As String = "UserName=andy&UserPassword=123123&macadd=Client/Server"
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

request.ContentType = "application/x-www-form-urlencoded"

request.ContentLength = byteArray.Length

Dim dataStream As Stream = request.GetRequestStream()

dataStream.Write(byteArray, 0, byteArray.Length)

dataStream.Close()

Dim response As WebResponse = request.GetResponse()

Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)

dataStream = response.GetResponseStream()

Dim reader As New StreamReader(dataStream)

Dim responseFromServer As String = reader.ReadToEnd()

MsgBox(responseFromServer)

reader.Close()
dataStream.Close()
response.Close()



接口返回值报错乱码,怎么解析返回值乱码?
...全文
222 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wasfer 2015-03-23
  • 打赏
  • 举报
回复
问题已经解决了 如果要post json格式到一个接口,这种方法行吗?今天弄了半天 值传不过去。是什么问题?
moonwrite 2015-03-23
  • 打赏
  • 举报
回复
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData) 你怎么知道就是UTF8呢~ request.ContentType = "application/x-www-form-urlencoded" 还有这个~~~

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧