主题：网盘api的post调用失败，请帮忙测试

Dim msg As String = "operation=copy&dst_repo=a716c6e0-23bf-450a-a7e7-b976c18f2ae9&dst_dir=/&file_names=foo.c"
Dim req = System.Net.WebRequest.Create("http://101.200.184.108/api2/repos/a716c6e0-23bf-450a-a7e7-b976c18f2ae9/file/?p=/foo.c")
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"    
req.Headers.Add("Authorization", "Token fd5c3f6fa71a2d00254863528206cadd2c4c4e5f")
req.Accept = "application/json; charset=utf-8; indent=4"
Dim aryBuf As Byte() = Encoding.GetEncoding("UTF-8").GetBytes(msg)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
msgbox(str)

Dim file As String = "c:\test.txt"
Dim responseContent As String
Dim memStream As New IO.MemoryStream
Dim webRequest = System.Net.HttpWebRequest.Create("http://localhost:8080")
'边界符
Dim boundary As String = "---------------" + DateTime.Now.Ticks.ToString("x")
Dim beginBoundary As Byte() = Encoding.ASCII.GetBytes("--" & boundary & vbCrLf)
Dim endBoundary As Byte() = Encoding.ASCII.GetBytes(vbcrlf & "--" & boundary & "--" & vbcrlf)

Dim fileStream As new IO.FileStream(file, io.FileMode.Open, io.FileAccess.Read)

'设置属性
webRequest.Method = "POST"
webRequest.Timeout = 5000
webRequest.ContentType = "multipart/form-data; boundary=" & boundary

memStream.Write(beginBoundary, 0, beginBoundary.Length)

'写入文件1
Dim header As String = "Content-Disposition: form-data; name=""file"";filename=""" & FileIO.FileSystem.GetName(file) & """" & vbCrLf & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf
Dim headerbytes As Byte() = Encoding.UTF8.GetBytes(header)
memStream.Write(headerbytes, 0, headerbytes.Length)

Dim buffer(1024) As Byte
Dim bytesRead As Integer = fileStream.Read(buffer, 0, buffer.Length)
While bytesRead > 0
    memStream.Write(buffer, 0, bytesRead)
    bytesRead = fileStream.Read(buffer, 0, buffer.Length)
End While

'写入最后的结束边界符
memStream.Write(endBoundary, 0, endBoundary.Length)
webRequest.ContentLength = memStream.Length

Dim requestStream = webRequest.GetRequestStream

memStream.Position = 0
Dim tempBuffer(memStream.Length - 1) As Byte
memStream.Read(tempBuffer, 0, tempBuffer.Length)
memStream.Close()

requestStream.Write(tempBuffer, 0, tempBuffer.Length)
requestStream.Close()
msgbox(5)
Dim httpWebResponse As Net.WebResponse = webRequest.GetResponse
msgbox(6)
Dim httpStreamReader As new Io.StreamReader(httpWebResponse.GetResponseStream, Encoding.GetEncoding("utf-8"))
responseContent = httpStreamReader.ReadToEnd

fileStream.Close()
httpWebResponse.Close()
webRequest.Abort()

msgbox( responseContent)