请问怎样从网上批量下载图片啊？

天山神鹰

import threading # 导入多线程库
import requests
import os
'''
URL替换：
https://gitee.com/kevin2046/picture/raw/master/img/
https://gitee.com/kevin2046/pic/raw/master/img/
https://gitee.com/kevin2046/pict/raw/master/img
https://gitee.com/kevin2099/pict/raw/master/img/
https://gitee.com/kevin2099/pic/tree/master/img/
https://gitee.com/kevin2099/tupian/tree/master/img/
https://gitee.com/kevin2099/tu/tree/master/img/
'''
i = 0 # 先定义一个全局变量i，用于猜测图片的ID
def get_pic(i) : # 定义下载图片的函数
    # 拼接图片URL，将主函数while中的i传到这里，相当于是图片的ID
    picurl = 'https://gitee.com/kevin2046/picture/raw/master/img/' + str(i) + '.jpg'
    if os.path.exists('图片\\%s.jpg'%i): # 判断图片已经下载
        print('图片%s.jpg已下载！' % i) # 已下载就不再下载
    else: # 没有下载才下载
        pic = requests.get(picurl).content # 取得链接
        rec = len(pic) # 取得图片的大小
        if rec != 52: # 判断图片大小不是52字节，因为大小为52字节，说明图片有错
            print('(≧^.^≦)喵~~~正在下载：' + picurl)
            with open('图片\\%s.jpg'%i, 'wb') as f:# 图片没错就下载
                f.write(pic)
        else: # 图片有错就pass掉
            pass
if __name__ == '__main__' : # 设置主函数
    try:
        os.mkdir('图片') # 创建一个目录，知道有人习惯在桌面打开，建个目录安全点
    except:
        pass
    while i < 15000:
        i += 1 # 让i在1-15000中遍历，猜测图片的ID，，本套图的ID最多是12000+
        # 重头戏。设置多线程，我也是初学，还不太懂原理，见着比我用for循环，单个下载是要快得多
        # 还在继续学习中，学海无涯，学无止境！！
        # target用于调用先前创建的下载图片的函数，kwargs用于设置函数中的变量值
        t1 = threading.Thread(target=get_pic, kwargs={'i' : i})
        t1.start() # 启动多线程


上面是python代码，用VBA能不能达到同样的功能啊？
谢谢！！

duquancai

VBA多线程爬异步虫是很麻烦的。

changhong8

没用过迅雷这样的下载工具吗

ammyc

不喜欢拿python到这里踩场，vba也可以批量下载图片的，严重怀疑你开车！
Option Explicit
Private 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
Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Sub test1()
    Dim nUrl As String, localFilename As String, lngRetVal As Long, i
    For i = 1 To 100
        nUrl = "https://gitee.com/kevin2046/picture/raw/master/img/" & i & ".jpg"
        localFilename = ThisWorkbook.Path & Application.PathSeparator & i & ".jpg"
        DeleteUrlCacheEntry nUrl
        lngRetVal = URLDownloadToFile(0, nUrl, localFilename, 0, 0)
        If lngRetVal <> 0 Then
            MsgBox "失败"
        End If
    Next i
    MsgBox "OK"
End Sub

天山神鹰

ammyc 发表于 2020-8-18 09:43
不喜欢拿python到这里踩场，vba也可以批量下载图片的，严重怀疑你开车！
Option Explicit
Private Declar ...

多谢啦！！我试试看!
我用的是64位系统，提示编译错误，如下图所示：

天山神鹰

找到64位系统的解决办法了：将Declare  改成 Declare PtrSafe

余文宾

下载工具吗