vba 下载某个微信群里所有图片

sub 下载某个微信群里所有图片()

    Dim objShell As Object

    Dim objFolder As Object

    Dim objFile As Object

    Dim objHTTP As Object

    Dim strPicURL As String

    Dim strPicName As String

    Dim i As Integer

    

    '创建Shell对象

    Set objShell = CreateObject("Shell.Application")

    '选择保存图片的文件夹

    Set objFolder = objShell.BrowseForFolder(0, "请选择保存图片的文件夹", 0)

    

    '如果用户没有选择文件夹，则退出

    If objFolder Is Nothing Then Exit Sub

    

    '创建HTTP对象

    Set objHTTP = CreateObject("MSXML2.XMLHTTP")

    

    '遍历微信群中的所有消息

    For i = 1 To WeChat.Count

        '判断消息类型是否为图片

        If WeChat(i).MsgType = 3 Then

            '获取图片的URL和名称

            strPicURL = WeChat(i).ImgURL

            strPicName = WeChat(i).CreateTime & ".jpg"

            

            '下载图片

            objHTTP.Open "GET", strPicURL, False

            objHTTP.Send

            

            '保存图片到指定文件夹中

            Set objFile = objFolder.Self.ParseName(strPicName)

            If Not objFile Is Nothing Then

                objFile.Write objHTTP.responseBody

            End If

            

            Set objFile = Nothing

        End If

    Next i

    

    '释放对象

    Set objHTTP = Nothing

    Set objFolder = Nothing

    Set objShell = Nothing

    

End Sub

需要注意的是，这段代码需要在微信中打开要下载的群聊，并且需要先获取微信群中的所有消息，可以使用类似于以下代码获取：

Dim WeChat As Object
Set WeChat = CreateObject("WeChat.WXApp")
WeChat.GetGroupMsgs "群聊名称"

"群聊名称"需要替换为你要获取的微信群的名称。