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

vb如何下载网页上的图片

编辑:说三道四文库 发布时间:2018-06-22 03:54
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"
谢谢
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘