Dim url As String = "你要的網址"
Dim req As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
Dim rsp As System.Net.HttpWebResponse = DirectCast(req.GetResponse(), System.Net.HttpWebResponse)
            Try
                If rsp.StatusCode = System.Net.HttpStatusCode.OK Then
                    PictureBox1.Image = New Bitmap(rsp.GetResponseStream())
                End If
            Finally

                rsp.Close()
            End Try

阿倫 發表在 痞客邦 PIXNET 留言(0) 人氣()