说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

vb如何下载网页上的图片

编辑:说三道四文库 发布时间:2018-01-21 08:56
HTML文档下载 WORD文档下载 PDF文档下载
vb如何下载网页上的图片
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Showimage(URL As String)
    Dim tempfile As String
    tempfile = "C:\" & Mid(URL, InStrRev(URL, "/") + 1)
    URLDownloadToFile 0, URL, tempfile, 0, 0
    Picture1.Picture = LoadPicture(tempfile)
End Sub

Showimage "http://db.sohu.com/regurl/code.asp"
谢谢
VB如何检查您的电脑是否打开 ActiveDesktop? VB如何将程序建立成“启动”文件夹的捷径? VB如何将程序建立成「启动」资料夹的捷径。 VB如何结束 Shell 所启动的程序? VB如何拦截键盘输入 文件夹EFS加密及文件夹专用两项功能如何启用· 寻找素材图片 关于ActiveForm的问题,急! 关于response.sendredirect的疑问 求某字符在字符串中的位置!用什么函数? 用户名的问题. 高手来帮我区分一下NAT 和PAT到底有什么不同 怎样获得对方机的绝对路径呢?/ 如何禁止ComboBox的OnChange? 因为林则徐虎门销烟而引发鸦片战争,那林则徐是不是就 为什么林则徐虎门销烟的时间在鸦片战争的前面?貌似我 春夏秋冬的古诗各10首,记住要古诗名,朝代,诗人一 描写春夏秋冬的诗句,要有朝代,要有诗人,两句就可以 雪莱特陶瓷金卤灯、飞利浦陶瓷金卤灯、欧司朗的陶瓷金 金卤灯电子镇流器好还是电感好 英语翻译 在学习完第一课 鸦片战争 后,有同学说:“如果没有 The fence needs什么 男子将手伸进女子短裤乱摸日媒:中日论坛达成共识力避冲突 赵启中央财政采取多种措施 加快拨付农业综斯诺克国锦赛丁俊晖晋级次轮 手握赛点跨境电商游走政策灰色地带 诸多问题仍俄罗斯大使:确保地区安全是上合组织的德国政府将修改法律 加强限制“圣战者恒大新星遭国足苦主踢翻 怒摔护腿板发陕西延长一幼儿园21名师生集体中毒 王毅会见美国前国务卿克林顿仙烈九剑戮婴诀净土天宗我是鹰缘定西游梵宗寺旅游三亚国际购物中心旅游街南书屋旅游龙眼洞森林公园旅游福州源脉温泉旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘