try Dim url As String = "http://www.jintuerp.com:8088/tiaoma/C863C2A97E300001D78B1AF018AB1F1D/10019001300011.jpg" Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url) rqst.Method = "GET" Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse Dim stm As System.IO.Stream = rsps.GetResponseStream() Dim img = Image.FromStream(stm) ClipBoard.SetImage(img) stm.Dispose() msgbox("ok") catch ex As exception msgbox("出错") End try
|