VB.NET REST API call with Basic Authorization

 VB.NET REST API call with Basic Authorization

---

引用來源:

Dim origResponse As HttpWebResponse

        Dim objResponse As HttpWebResponse

        Dim origReader As StreamReader

        Dim objReader As StreamReader

        Dim origRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://api.orls.voxeo.net/files/exports/2017/10/31?"), HttpWebRequest)

        origRequest.Headers.Add("Authorization", "Basic c3NhX2RzdDpBc3AzY3RfMTIzNA==")

        origRequest.AllowAutoRedirect = False

        origRequest.Method = "GET"

        Try

            origResponse = DirectCast(origRequest.GetResponse(), HttpWebResponse)

            Dim Stream As Stream = origResponse.GetResponseStream()

            Dim sr As New StreamReader(Stream, Encoding.GetEncoding("utf-8"))

            Dim str As String = sr.ReadToEnd()

            MessageBox.Show(str)

        Catch ex As WebException

            MsgBox(ex.Status)

            Dim myRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://api.orls.voxeo.net/files/exports/2017/10/31/Export-production-202715_20171030.zip.gpg"), HttpWebRequest)

            myRequest.Headers.Add("Authorization", "Basic c3NhX2RzdDpBc3AzY3RfMTIzNA==")

            Try

                objResponse = DirectCast(myRequest.GetResponse(), HttpWebResponse)

            Catch ex2 As WebException

                objReader = New StreamReader(objResponse.GetResponseStream())

                MsgBox(objReader.ReadToEnd())

                MsgBox(ex2.Status)

            End Try

        End Try