vc列举浏览器“历史”记录

VC MFC程序，列举浏览器“历史”记录并记录到文件中：

?

void CMy111Dlg::OnButton1()

{

    HRESULT   hr;

    IUrlHistoryStg2   *puhs;

    IEnumSTATURL   *pesu;

    STATURL   su;

    ULONG   celt;

    _bstr_t   bstr;

     

    hr = ::CoCreateInstance(CLSID_CUrlHistory, NULL, CLSCTX_INPROC_SERVER, IID_IUrlHistoryStg, (LPVOID*)&puhs);

    if(SUCCEEDED(hr))

    {

        hr = puhs-> EnumUrls(&pesu);

        if(SUCCEEDED(hr))

        {

            CStdioFile file;

            if(file.Open("history.txt", CFile::modeCreate | CFile::modeWrite))

            {

                while(SUCCEEDED(pesu->Next(1, &su, &celt)) && celt > 0)

                {

                    bstr = su.pwcsUrl;

                    file.WriteString(bstr + "\n");

                }

                file.Close();

            }

            puhs-> Release();

        }

    }

}

 千万不要忘了添加头文件：

#include  <urlhist.h>   //   Needed   for   IUrlHistoryStg2   and   IID_IUrlHistoryStg2
#include <COMDEF.H>