按键精灵PC如何获取网络图片并且保存到本地?
发布网友
共1个回答
热心网友
url = "https://www.baidu.com/img/_jgylogo3.gif" //这里写你要下载文件的全路径
Set obj1 = CreateObject("msxml2.xmlhttp")
Set obj2 = CreateObject("adodb.stream")
obj1.open "get",url,False
obj1.send
temp = obj1.responseBody
obj2.Type = 1
obj2.Mode = 3
obj2.Open
obj2.Write(temp)
obj2.SaveToFile "c:\logo.gif",2 //2的意思是已有则覆盖,后面是保存路径。
obj2.Close
Form1.PictureBox1.Picture="c:\logo.gif" //载入到图片框里面
这个例子就是读取百度网页上面的LOGO，然后保存，再载入到界面图片框里面。
