檔名:getqrcode.aspx 原始碼下載：getqrcode.rar
    <script runat="server">
    Dim mmsg As String, xsts, murl As String
    Dim ms As IO.MemoryStream = New IO.MemoryStream
    Dim mYstream As IO.Stream
    Dim img2 As System.Drawing.Bitmap
    Sub page_load()
        xsts = ""
        murl = "http://www.qrdoor.com.tw/api/qrcodefree.aspx"
        murl = murl & "?typ=4&siz=4&N4=總統府&A4=台北市中正區重慶南路一段&T4=0123456789"
        
        Dim myrequest As System.Net.HttpWebRequest = System.Net.WebRequest.Create(murl)
        Try
            Dim mywebresponse As System.Net.WebResponse = myrequest.GetResponse()
            Dim mystream As IO.Stream = mywebresponse.GetResponseStream()
            Dim sr As IO.StreamReader = New IO.StreamReader(mystream, Encoding.Default)
            img2 = System.Drawing.Bitmap.FromStream(mystream)
        Catch ex As Exception
            xsts = ex.Message
        Finally
        End Try
        If xsts.Length = 0 Then
            Response.ContentType = "image/x-png"
            img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            ms.WriteTo(Response.OutputStream)
        Else
            Response.Write(xsts)
        End If
    End Sub
    </script>