機車，攝影，網頁程式分享

以下這段為傳送出的值

       Dim bodydatabyte As Byte() = Encoding.ASCII.GetBytes(BodyData)
       '將字串轉換
        Dim keyrequest As HttpWebRequest = WebRequest.Create("http://XXXXXX.XxxxX.XXX/XXXX/")
        keyrequest.Method = "POST"
        keyrequest.ContentType = "application/x-www-form-urlencoded"
      
        keyrequest.ContentLength = bodydatabyte.Length
        Dim keysend As Stream = keyrequest.GetRequestStream()

        keysend.Write(bodydatabyte, 0, bodydatabyte.Length)
        送出
      

以下為接收資料!!

        Dim keyresponse As HttpWebResponse = keyrequest.GetResponse() '
     
        Dim sr As New StreamReader(keyresponse.GetResponseStream(), System.Text.Encoding.Default)

        Dim responsetext = ""
        If keyresponse.StatusCode = HttpStatusCode.OK Then
            responsetext = sr.ReadToEnd()
        ElseIf keyresponse.StatusCode = HttpStatusCode.InternalServerError Then
            Response.Write("伺服器錯誤!<br>")
            Response.Write(keyresponse.StatusCode & "<br>")
            Response.End()
        Else
            Response.Write(keyresponse.StatusCode)
            Response.End()
        End If
        ''obj = Nothing

        sr.Close()
        keyrequest = Nothing
        keyresponse = Nothing