個人記事

Function GetImageFromURL(ByVal strUrl As String) As System.Drawing.Image

 Dim MyRequest As Net.HttpWebRequest = Net.WebRequest.Create(strUrl) MyRequest.Referer = strUrl

 '這是為了抓有檢查referer的圖片 

 MyRequest.UserAgent = "FireDog" '這只是為了好玩

 Dim MyResponse As Net.HttpWebResponse = MyRequest.GetResponse() 

 Dim MyStream As IO.Stream = MyResponse.GetResponseStream 

 Dim MyImage As System.Drawing.Image = System.Drawing.Image.FromStream(MyStream) 

 MyStream.Close()

 MyResponse.Close()

 Return MyImage

 End Function

 來源: http://www.blueshop.com.tw/board/show.asp?subcde=BRD20060721181152IN1