vb将base64码转化为图片

Question

VB 6.0如何将如下base64编码解析或者转换为 BMP JPG格式的图片，有没有转换函数类东东？
  高手解答下，多谢！新号银子不多见谅！
  VB如何转换？？？望赐教！！！！！！！
iVBORw0KGgoAAAANSUhEUgAAAKgAAACoCAIAAAD7KTLjAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAuTSURBVHhe7dFBbiTbEQRB3f/SXxtbySEgZrKrQEptW0fkKzb/9Vv884fMHuOZkL8+xe86M3uMZ0L++hS/68zsMZ4J+etT/K4zs8d4JuSvT/G7zswe45mQvz7F7zoze4xnQv76FL/rzOwxngn561P8rjOzx3gm5N/L3/E6z4c8Mws55JBnZiG/zvM7u9d5PuSZWcghhzwzC/l1nt/Zvc7zIc/MQg455JlZyK/z/M7udZ4PeWYWcsghz8xCfp3nd3av83zIM7OQQw55Zhby6zy/s3ud50OemYUccsgzs5Bf5/md3es8H/LMLOSQQ56Zhfw6z+/sXuf5kGdmIYcc8sws5Nd5fmcX8plzIYc8Mwv5MZ4JOeQz50Le2YV85lzIIc/MQn6MZ0IO+cy5kHd2IZ85F3LIM7OQH+OZkEM+cy7knV3IZ86FHPLMLOTHeCbkkM+cC3lnF/KZcyGHPDML+TGeCTnkM+dC3tmFfOZcyCHPzEJ+jGdCDvnMuZB3diGfORdyyDOzkB/jmZBDPnMu5J1dyGfOhRzyzCzkx3gm5JDPnAt5ZxfymXMhhxzyYzwzMws55DPnQt7ZhXzmXMghh/wYz8zMQg75zLmQd3YhnzkXcsghP8YzM7OQQz5zLuSdXchnzoUccsiP8czMLOSQz5wLeWcX8plzIYcc8mM8MzMLOeQz50Le2YV85lzIIYf8GM/MzEIO+cy5kHd2IZ85F3LIIT/GMzOzkEM+cy7knV3IZ86FHHLIj/HMzCzkkM+cC3lnF/KZcyGHHHLIIZ85F3LIIZ85F/LOLuQz50IOOeSQQz5zLuSQQz5zLuSdXchnzoUccsghh3zmXMghh3zmXMg7u5DPnAs55JBDDvnMuZBDDvnMuZB3diGfORdyyCGHHPKZcyGHHPKZcyH
v7EI+cy7kkEMOOeQz50IOOeQz50Le2YV85lzIIYcccshnzoUccshnzoW8swv5zLmQQw455JDPnAs55JDPnAt5Z/c6z4d85lzIIYcccsiv8/zO7nWeD/nMuZBDDjnkkF/n+Z3d6zwf8plzIYcccsghv87zO7vXeT7kM+dCDjnkkEN+ned3dq/zfMhnzoUccsghh/w6z+/sXuf5kM+cCznkkEMO+XWe39m9zvMhnzkXcsghhxzy6zy/s3ud50M+cy7kkEMOOeTXef738neEHHLIIYcccshfn+J3DTnkkEMOOeSQvz7F7xpyyCGHHHLIIX99it815JBDDjnkkEP++hS/a8ghhxxyyCGH/PUpfteQQw455JBDDvnrU/yuIYcccsghhxzy16f4XUMOOeSQQw455J/P9/7P8ec9xjO/1vcf/5c882t9//F/yTO/1vcf/5c882t9//F/yTO/1vcf/5c882t9//F/yTO/1vcf/5c882v5M3Z2Z86dORdyyDOzkM+cm5mdObezO3PuzLmQQ56ZhXzm3MzszLmd3ZlzZ86FHPLMLOQz52ZmZ87t7M6cO3Mu5JBnZiGfOTczO3NuZ3fm3JlzIYc8Mwv5zLmZ2ZlzO7sz586cCznkmVnIZ87NzM6c29mdOXfmXMghz8xCPnNuZnbm3M7uzLkz50IOeWYW8plzM7Ozjx36U/6OkGdmZ86FHHLIM7OZ2cws/vjhT/FdIc/MzpwLOeSQZ2Yzs5lZ/PHDn+K7Qp6ZnTkXcsghz8xmZjOz+OOHP8V3hTwzO3Mu5JBDnpnNzGZm8ccPf4rvCnlmduZcyCGHPDObmc3M4o8f/hTfFfLM7My5kEMOeWY2M5uZxR8//Cm+K+SZ2ZlzIYcc8sxsZjYziz9++FN8V8gzszPnQg455JnZzGxmFnLpr/P8zCzkkEMOeWY2M3ud50t/nednZiGHHHLIM7OZ2es8X/rrPD8zCznkkEOemc3MXuf50l/n+ZlZyCGHHPLMbGb2Os+X/jrPz8xCDjnkkG
dmM7PXeb7013l+ZhZyyCGHPDObmb3O86W/zvMzs5BDDjnkmdnM7HWeL/11np+ZhRxyyCHPzGZmr/P8zi7kmdljPBPymXMhz8zOnJuZ7exCnpk9xjMhnzkX8szszLmZ2c4u5JnZYzwT8plzIc/Mzpybme3sQp6ZPcYzIZ85F/LM7My5mdnOLuSZ2WM8E/KZcyHPzM6cm5nt7EKemT3GMyGfORfyzOzMuZnZzi7kmdljPBPymXMhz8zOnJuZ7exCnpk9xjMhnzkX8szszLnZ4z/Ef2MWcsgzs5DPnDtzbmZ2596ZczOzkEOemYV85tyZczOzO/fOnJuZhRzyzCzkM+fOnJuZ3bl35tzMLOSQZ2Yhnzl35tzM7M69M+dmZiGHPDML+cy5M+dmZnfunTk3Mws55JlZyGfOnTk3M7tz78y5mVnIIc/MQj5z7sy5mdmde2fOzcxCDnlmFvKZc2fOzczu3Pu1/BkhnzkXcsghnzl3596v5c8I+cy5kEMO+cy5O/d+LX9GyGfOhRxyyGfO3bn3a/kzQj5zLuSQQz5z7s69X8ufEfKZcyGHHPKZc3fu/Vr+jJDPnAs55JDPnLtz79fyZ4R85lzIIYd85tyde7+WPyPkM+dCDjnkM+f+f/i7Qw455JBDnpmdORdyyCGH/PP53pBDDjnkkGdmZ86FHHLIIf98vjfkkEMOOeSZ2ZlzIYcccsg/n+8NOeSQQw55ZnbmXMghhxzyz+d7Qw455JBDnpmdORdyyCGH/PP53pBDDjnkkGdmZ86FHHLIIf98vjfkkEMOOeSZ2ZlzIYcccsg/n+8NOeSQQw55ZnbmXMghhxxy6a/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs
5B3diGfORdyyDOzkEMO+cy5mVnIz/FOyGfOhRzyzCzkkEM+c25mFvJzvBPymXMhhzwzCznkkM+cm5mF/BzvhHzmXMghz8xCDjnkM+dmZiE/xzshnzkXcsgzs5BDDvnMuZlZyM/xTshnzoUc8sws5JBDPnNuZhbyc7wT8plzIYc8Mws55JDPnJuZhfwc74R85lzIIc/MQg455DPnZmYhP8c7IZ85F3LIZ87NzEIOeWZ25tzMrPSQz5wLOeQz52ZmIYc8MztzbmZWeshnzoUc8plzM7OQQ56ZnTk3Mys95DPnQg75zLmZWcghz8zOnJuZlR7ymXMhh3zm3Mws5JBnZmfOzcxKD/nMuZBDPnNuZhZyyDOzM+dmZqWHfOZcyCGfOTczCznkmdmZczOz0kM+cy7kkM+cm5mFHPLM7My5mVnpIZ85F3LIM7OQQz5zbmYWcsjP8U7IZ86FHPLMLOSQz5ybmYUc8nO8E/KZcyGHPDMLOeQz52ZmIYf8HO+EfOZcyCHPzEIO+cy5mVnIIT/HOyGfORdyyDOzkEM+c25mFnLIz/FOyGfOhRzyzCzkkM+cm5mFHPJzvBPymXMhhzwzCznkM+dmZiGH/BzvhHzmXMghz8xCDvnMuZlZyCE/xzuv83zIIYc8Mztz7sy5mdnMrPTXeT7kkEOemZ05d+bczGxmVvrrPB9yyCHPzM6cO3NuZjYzK/11ng855JBnZmfOnTk3M5uZlf46z4cccsgzszPnzpybmc3MSn+d50MOOeSZ2ZlzZ87NzGZmpb/O8yGHHPLM7My5M+dmZjOz0l/n+ZBDDnlmdubcmXMzs5nZz+d7Q56ZhTwzm5m9zvMh/3y+N+SZWcgzs5nZ6zwf8s/ne0OemYU8M5uZvc7zIf98vjfkmVnIM7OZ2es8H/LP53tDnpmFPDObmb3O8yH/fL435JlZyDOzmdnrPB/yz+d7Q56ZhTwzm5m9zvMh/3y+N+SZWcgzs5nZ6zz/H/7559+hXya/QGVAkgAAAABJRU5ErkJg
gg==

Answer 1

将 base64 编码转换为二进制编码不是问题。核心问题是，你源数据的数据结构是什么？

Answer 2

你首先要把“BSAE64编码”的文本，转换成二进制的字节序列。
然后，再进行下一步处理（保存到文件、“加载”图片等等）。你的这个，是一个PNG格式图片文件转换成的BASE64编码。
我的处理结果是一个二维码图片：二维码内容为：　p2SEXjJ2IFE=

Answer 3

VB6没有现成的转换函数，但是网上的 BASE64编码转换代码多的很呢。

Answer 4

这个用 msxml 的最简单了。
http://thydzik.com/vb6vba-functions-to-convert-binary-string-to-base64-string/

Answer 5

仅供参考，尽管不是VB6：#pragma comment(lib,"crypt32")
#include <windows.h>
#include <stdio.h>
#include <tchar.h>//+-------------------------------------------------------------------------
// convert formatted string to binary
// If cchString is 0, then pszString is NULL terminated and
// cchString is obtained via strlen() + 1.
// dwFlags defines string format
// if pbBinary is NULL, *pcbBinary returns the size of required memory
// *pdwSkip returns the character count of skipped strings, optional
// *pdwFlags returns the actual format used in the conversion, optional
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptStringToBinaryA(
    IN     LPCSTR  pszString,
    IN     DWORD     cchString,
    IN     DWORD     dwFlags,
    IN     BYTE     *pbBinary,
    IN OUT DWORD    *pcbBinary,
    OUT    DWORD    *pdwSkip,    //OPTIONAL
    OUT    DWORD    *pdwFlags    //OPTIONAL
    );
//+-------------------------------------------------------------------------
// convert formatted string to binary
// If cchString is 0, then pszString is NULL terminated and
// cchString is obtained via strlen() + 1.
// dwFlags defines string format
// if pbBinary is NULL, *pcbBinary returns the size of required memory
// *pdwSkip returns the character count of skipped strings, optional
// *pdwFlags returns the actual format used in the conversion, optional
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptStringToBinaryW(
    IN     LPCWSTR  pszString,
    IN     DWORD     cchString,
    IN     DWORD     dwFlags,
    IN     BYTE     *pbBinary,
    IN OUT DWORD    *pcbBinary,
    OUT    DWORD    *pdwSkip,    //OPTIONAL
    OUT    DWORD    *pdwFlags    //OPTIONAL
    );
#ifdef UNICODE
#define CryptStringToBinary  CryptStringToBinaryW
#else
#define CryptStringToBinary  CryptStringToBinaryA
#endif // !UNICODE//+-------------------------------------------------------------------------
// convert binary to formatted string
// dwFlags defines string format
// if pszString is NULL, *pcchString returns the size of required memory in byte
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptBinaryToStringA(
    IN     CONST BYTE  *pbBinary,
    IN     DWORD        cbBinary,
    IN     DWORD        dwFlags,
    IN     LPSTR      pszString,
    IN OUT DWORD       *pcchString
    );
//+-------------------------------------------------------------------------
// convert binary to formatted string
// dwFlags defines string format
// if pszString is NULL, *pcchString returns the size of required memory in byte
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptBinaryToStringW(
    IN     CONST BYTE  *pbBinary,
    IN     DWORD        cbBinary,
    IN     DWORD        dwFlags,
    IN     LPWSTR      pszString,
    IN OUT DWORD       *pcchString
    );
#ifdef UNICODE
#define CryptBinaryToString  CryptBinaryToStringW
#else
#define CryptBinaryToString  CryptBinaryToStringA
#endif // !UNICODE// dwFlags has the following defines
#define CRYPT_STRING_BASE64HEADER           0x00000000
#define CRYPT_STRING_BASE64                 0x00000001
#define CRYPT_STRING_BINARY                 0x00000002
#define CRYPT_STRING_BASE64REQUESTHEADER    0x00000003
#define CRYPT_STRING_HEX                    0x00000004
#define CRYPT_STRING_HEXASCII               0x00000005
#define CRYPT_STRING_BASE64_ANY             0x00000006
#define CRYPT_STRING_ANY                    0x00000007
#define CRYPT_STRING_HEX_ANY                0x00000008
#define CRYPT_STRING_BASE64X509CRLHEADER    0x00000009
#define CRYPT_STRING_HEXADDR                0x0000000a
#define CRYPT_STRING_HEXASCIIADDR           0x0000000b#define CRYPT_STRING_NOCR                   0x80000000// CryptBinaryToString uses the following flags
// CRYPT_STRING_BASE64HEADER - base64 format with certificate begin
//                             and end headers
// CRYPT_STRING_BASE64 - only base64 without headers
// CRYPT_STRING_BINARY - pure binary copy
// CRYPT_STRING_BASE64REQUESTHEADER - base64 format with request begin
//                                    and end headers
// CRYPT_STRING_BASE64X509CRLHEADER - base64 format with x509 crl begin
//                                    and end headers
// CRYPT_STRING_HEX - only hex format
// CRYPT_STRING_HEXASCII - hex format with ascii char display
// CRYPT_STRING_HEXADDR - hex format with address display
// CRYPT_STRING_HEXASCIIADDR - hex format with ascii char and address display
//
// CryptBinaryToString accepts CRYPT_STRING_NOCR or'd into one of the above.
// When set, line breaks contain only LF, instead of CR-LF pairs.// CryptStringToBinary uses the following flags
// CRYPT_STRING_BASE64_ANY tries the following, in order:
//    CRYPT_STRING_BASE64HEADER
//    CRYPT_STRING_BASE64
// CRYPT_STRING_ANY tries the following, in order:
//    CRYPT_STRING_BASE64_ANY
//    CRYPT_STRING_BINARY -- should always succeed
// CRYPT_STRING_HEX_ANY tries the following, in order:
//    CRYPT_STRING_HEXADDR
//    CRYPT_STRING_HEXASCIIADDR
//    CRYPT_STRING_HEXASCII
//    CRYPT_STRING_HEX
char *flags[12]={
"CRYPT_STRING_BASE64HEADER",
"CRYPT_STRING_BASE64",
"CRYPT_STRING_BINARY",
"CRYPT_STRING_BASE64REQUESTHEADER",
"CRYPT_STRING_HEX",
"CRYPT_STRING_HEXASCII",
"CRYPT_STRING_BASE64_ANY",
"CRYPT_STRING_ANY",
"CRYPT_STRING_HEX_ANY",
"CRYPT_STRING_BASE64X509CRLHEADER",
"CRYPT_STRING_HEXADDR",
"CRYPT_STRING_HEXASCIIADDR",
};
#define MAXC 1024
BYTE b[22]={
0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
0x41,0x42,0xB0,0xA1,0x4A,0x55,
};
BOOL r;
DWORD len,dwFlags;
TCHAR s[MAXC];
int _tmain() {
    _tprintf(_T("API CryptBinaryToString in crypt32.dll Demonstration:\n"));
    for (dwFlags=0;dwFlags<12;dwFlags++) {
        if (dwFlags==2
         || dwFlags==6
         || dwFlags==7
         || dwFlags==8) continue;
        r=CryptBinaryToString(b,22,dwFlags,NULL,&len);
        if (!r) {
            _tprintf(_T("CryptBinaryToString error!\n"));
            return 1;
        }
        if (len>MAXC) {
            _tprintf(_T("%d==len>MAXC==%d!\n"),len,MAXC);
            return 2;
        }
        r=CryptBinaryToString(b,22,dwFlags,s,&len);
        if (!r) {
            _tprintf(_T("CryptBinaryToString error!\n"));
            return 3;
        }
        _tprintf(_T("\n%s:[\n%s]\n"),flags[dwFlags],s);
    }
    return 0;
}
//API CryptBinaryToString in crypt32.dll Demonstration:
//
//CRYPT_STRING_BASE64HEADER:[
//-----BEGIN CERTIFICATE-----
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//-----END CERTIFICATE-----
//]
//
//CRYPT_STRING_BASE64:[
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//]
//
//CRYPT_STRING_BASE64REQUESTHEADER:[
//-----BEGIN NEW CERTIFICATE REQUEST-----
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//-----END NEW CERTIFICATE REQUEST-----
//]
//
//CRYPT_STRING_HEX:[
//        00 01 02 03 04 05 06 07  08 09 0a 0b 0c 0d 0e 0f
//        41 42 b0 a1 4a 55
//]
//
//CRYPT_STRING_HEXASCII:[
//        00 01 02 03 04 05 06 07  08 09 0a 0b 0c 0d 0e 0f   ................
//        41 42 b0 a1 4a 55                                  AB..JU
//]
//
//CRYPT_STRING_BASE64X509CRLHEADER:[
//-----BEGIN X509 CRL-----
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//-----END X509 CRL-----
//]
//
//CRYPT_STRING_HEXADDR:[
//0000    00 01 02 03 04 05 06 07  08 09 0a 0b 0c 0d 0e 0f
//0010    41 42 b0 a1 4a 55
//]
//
//CRYPT_STRING_HEXASCIIADDR:[
//0000    00 01 02 03 04 05 06 07  08 09 0a 0b 0c 0d 0e 0f   ................
//0010    41 42 b0 a1 4a 55                                  AB..JU
//]
//

Answer 6

我也遇到楼主的问题，请问您是怎么解决的？能否将代码发到我的信箱中 notery#163.com （#--@） 我可以开帖给您100分。

Answer 7

我也遇到楼主的问题，请问您是怎么解决的？能否将代码发到我的信箱中 notery#163.com （#--@） 我可以开帖给您100分。
你的那个贴子，我已经写了个简单的示例工程回复你了。

Answer 8

Private Sub Command1_Click()Dim test As String
test = "/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL"
test = test & "/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wgARCABRAFUDASIAAhEBAxEB/8"
test = test & "QAGgABAAMBAQEAAAAAAAAAAAAAAAMEBQIBBv/EABgBAQADAQAAAAAAAAAAAAAAAAABAgME/9oADAMBAAIQAxAAAAGIAAAAAAFThsxtndaVTSII7UGryara5"
test = test & "8wQBmW6Odr07veP1drSYMJu2qlvn5wQBXraPKcXP+k8rtV6tS2z5kFAAAAAAAAAAAAAP//EACUQAAEDBAECBwAAAAAAAAAAAAMAAQIEERIgExQzISIkMTRA"
test = test & "UP/aAAgBAQABBQL7BiuNRmWSxOsDrA6fmZCnmPQ2PLGlE8DtjPzK0lK6p+xpV+9IZhRc83l6i2R8etVN2NK1NJM81mRO5FdU3x9ChiZdGNVEOFsiKAIkF0Y"
test = test & "1CDDhq7XTiZ1wxTDsm8Pxf//EAB8RAAEDBAMBAAAAAAAAAAAAAAABAhEDEBIhIDAxQf/aAAgBAwEBPwHm1qYyQhAvt6Lsfhs2O9vko2okbFcvf//EAB0RAA"
test = test & "EEAgMAAAAAAAAAAAAAAAIAARESAyATMUD/2gAIAQIBAT8B3uLPDrC1wsTQuMdA6hVFQLeX/8QAKBAAAQIEBAUFAAAAAAAAAAAAAAECERIhMQMgMlEQQEJDk"
test = test & "UFQYZLR/9oACAEBAAY/AuYbKiV3Og6DtnbO2I5cuFNpjUjh4iR2iQZUspZSo3LhiuHQlrYjM0gQWg3KzhpUspWbgzKk0abF3eRJHOivyalGqrn1Tcu7yI1L"
test = test & "Jn/UPT6l/Zv/xAAmEAEAAgEBBwQDAAAAAAAAAAABABEhMRAgQVFhobFxkfDxQFDR/9oACAEBAAE/IfyGghbGhHfMOnfPmudTug+5EPAvA3eM8mEvFarFhkT"
test = test & "TVCfORHX25QYM8/zuoLObCWZcXGykDTlCzKaVi5wAUKycfly1VYYit/Xzu6fWxwogP4RDHbgywDZ87zuhDoLbNa7Rm4+4ZxwoNnVgfU3uaYpa36DOh7UHQq"
test = test & "5GIOR/S//aAAwDAQACAAMAAAAQ88888885Td88892CV889n488888888888888/8QAHREBAAICAgMAAAAAAAAAAAAAAQARECEgQTAxYf/aAAgBAwEBPxDm6"
test = test & "+o9BAPUNIyIttphP1PbkAoYHY3LTTqLe/N//8QAHBEBAAIDAAMAAAAAAAAAAAAAAQARICFBEDCB/9oACAECAQE/EM6Y23oaghYN6+xAh5qtPY8WbFQwRuHv"
test = test & "/8QAJxABAAICAAUDBAMAAAAAAAAAAQARITEgQVFhcZGx0UCBofBQwfH/2gAIAQEAAT8Q+oDYxaaKL5SvpX1YEt4cyV2p7XKPyyAquu8lxdvQUp/XCzvgpUg"
test = test & "hn7blTT2ghvG9QYiMsl+ZT033wqxXnLhdR7UkNE9Pc4VQKcnwTd2LNkWA1zK3mtZv8d5s2GB2pya1lLigT6lQUlIWVrLsRahQtzGpYjdnucKpf1ogtnsd4v"
test = test & "ZhxvD8V6KIgqLKiFRvtWfje5wqaLKqNwPJ6T4h2Cil5VdqlyLYFXyvWNjocgPM15n+c+JigFFrd3xAMh4ZQnXWA9Sdb9HtMGDoAehEwEOq/wAL/9k="
Call decodeBase64ToJpg(test, App.Path & "\12.jpg")
End SubFunction decodeBase64ToJpg(ByVal strData As String, ByVal ImgPath As String)
    Dim xml As Object: Set xml = CreateObject("MSXML2.DOMDocument")
    Dim stm As Object: Set stm = CreateObject("ADODB.Stream")
    With xml
        .resolveExternals = False
        .loadxml ("<data>" & strData & "</data>")
        .documentElement.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
        .documentElement.dataType = "bin.base64"
    End With
    
    With stm
        .Type = 1 'adTypeBinary
        .Open
        .Write xml.documentElement.nodeTypedValue
        .SaveToFile ImgPath
        .Close
    End With    Set xml = Nothing
    Set stm = Nothing
End Function