vb.net Post 的问题，已经弄了快三天了，都要疯了，跪求解决方法~

[LittleCalabash]

Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
Imports System.Web.Security.FormsAuthentication

Dim Web As New System.Net.WebClient()
Web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim uid As String = TextBox1.Text
Dim pwd As String = TextBox2.Text
Dim paraCode As String = "{" + """" + "username" + """" + ":" + """" + uid + """" + "," + """" + "password" + """" + ":" + """" + pwd + """" + "}"
Dim AR As Byte() = System.Text.Encoding.GetEncoding(-0).GetBytes(paraCode)
Dim Str As Byte() = Web.UploadData("http://180.169.1.222:8082/api/login?para=", "POST", AR)
LinkLabel1.Text = "http://180.169.1.222:8082/api/login?para="
LinkLabel2.Text = paraCode
LinkLabel3.Text = "Url + " + Convert.ToBase64String(AR)
RichTextBox1.Text = "Address:" & Chr(10) & "http://180.169.1.222:8082/api/login?para=" + Convert.ToBase64String(AR) & Chr(10) & System.Text.Encoding.ASCII.GetString(Str)

最后生成出的链接直接在公司的调试软件里可以连接成功，有返回值，如下：


{
"result": "SUCCESS",
"data": "eyJpZCI6InhzYyIsInVzZXJuYW1lIjoieHNjIiwicGFzc3dvcmQiOiJiZDAwMTU2MzA4NWZjMzUxNjUzMjllYTFmZjVjNWVjYmRiYmVlZiIsImZ1bGxuYW1lIjoi5paw6KeG56qXIiwicm9sZWlkIjoyLCJkZXB0aWQiOjMsInJlZ2lzdF90aW1lIjoxNDk0MjE2MDY1MDAwLCJ0eXBlIjowLCJka2V5IjoiYTE4OGZkYWEtZTMyOC00NWM1LWIzMjUtNDJkMDg5ODNkMTQ3IiwiZGVwdF9uYW1lIjoi5paw6KeG56qXIiwidHAiOiJUT1BJQ18zIn0=",
"errorCode": 0
}

但是在VB.NET里无论如何都显示获取结果失败 {"result":"FAILED","errorCode":0}
如下图：

跪求大仙们帮帮我吧，我头都要炸了，水平有限到现在我都没找到原因所在。。。

[LittleCalabash]

自己解决了~

[LSWQRYQ113]

怎么解决的，我也碰到类似的情况，找了两天都没找大

[weixin_42644554]

引用 楼主 <span style="color:#4788C7">qq_30580587</span>的回复:

自己解决了~

<br />请问怎么解决的？

[LittleCalabash]

时间太长了，我也忘记当时改了什么，反正是能分析出数据了，以下是源码 Imports System.IO Imports System.Net Public Class Form19 Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '试运行后将DBadd加入INI配置文件中在登录时读取 DBadd = "http://218.92.103.149:8081/api/login?para=" End Sub Public Function PostData(ByVal Url As String, ByVal data As String) As String Dim uid As String = TextBox1.Text Dim pwd As String = TextBox2.Text Dim ups As String = "{" + """" + "username" + """" + ":" + """" + uid + """" + "," + """" + "password" + """" + ":" + """" + pwd + """" + "}" Dim upe As Byte() = System.Text.Encoding.GetEncoding(-0).GetBytes(ups) Dim tbs = Convert.ToBase64String(upe) Url = DBadd + tbs Dim Request As HttpWebRequest = WebRequest.Create(Url) Request.Method = "POST" Request.ContentType = "application/x-www-form-Urlencoded" Dim Str As StreamReader = New StreamReader(Request.GetResponse().GetResponseStream) Return Str.ReadToEnd() End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ‘测试连接 Dim Web As New System.Net.WebClient() Web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim uid As String = TextBox1.Text Dim pwd As String = TextBox2.Text Dim ups As String = "{" + """" + "username" + """" + ":" + """" + uid + """" + "," + """" + "password" + """" + ":" + """" + pwd + """" + "}" Dim upe As Byte() = System.Text.Encoding.GetEncoding(-0).GetBytes(ups) Dim tbs = Convert.ToBase64String(upe) Dim tbe As Byte() = System.Text.Encoding.GetEncoding(-0).GetBytes(tbs) Dim Url As String = DBadd + tbs Dim Str As Byte() = Web.UploadData(Url, "Post", tbe) LinkLabel1.Visible = True LinkLabel2.Visible = True LinkLabel3.Visible = True LinkLabel1.Text = DBadd LinkLabel2.Text = ups LinkLabel3.Text = "Url + " + tbs RichTextBox1.Text = System.Text.Encoding.ASCII.GetString(Str) If InStr(RichTextBox1.Text, "SUCCESS") Then Button2.Enabled = True Else Button2.Enabled = False End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ‘分析数据 Dim Str As String = CStr(RichTextBox1.Text) Dim prs As String = "" Dim x, y, z As Integer x = InStr(Str, "data") + 6 Str = Str.Substring(x) y = InStr(Str, "error") - 4 Str = Str.Substring(0, y) Str = System.Text.Encoding.GetEncoding("utf-8").GetString(Convert.FromBase64String(Str)) Str = Str.Substring(1, Str.Length - 2) Str = Replace(Str, """", "") Dim AR() As String = Split(Str, ",") z = UBound(AR) For i = 0 To z If i = 0 Then prs = AR(i) ElseIf i > 0 Then prs = prs + Chr(10) + AR(i) End If Next RichTextBox1.Text = prs prs = Nothing Str = Nothing Button2.Enabled = False End Sub End Class