VC中調(diào)用XMLHTTP對(duì)象訪問遠(yuǎn)程數(shù)據(jù)的代碼

大家一起來學(xué)習(xí)一下，代碼如下：
    //這里是DLL入口
    #import "C:\WINDOWS\system32\msxml.dll"
    #import "C:\WINDOWS\system32\msxml2.dll"
    using namespace MSXML2;
    HRESULT ComInit();
    #include "stdio.h"
    int APIENTRY WinMain(HINSTANCE hInstance,
    HINSTANCE hPrevInstance,
    LPSTR lpCmdLine,
    int nCmdShow)
    {
    ComInit(); //Examda提示: 調(diào)用下面初始化COM的函數(shù)
    IXMLHTTPRequestPtr xmlrequest; //定義變量
    xmlrequest.CreateInstance("Msxml2.XMLHTTP");
    xmlrequest->open(_bstr_t("GET"),_bstr_t("http://www.baidu.com/s/index.asp?wd=vc+Com&tn=site888_1_pg&cl=3&ie=utf-8"),_variant_t("false"));
    xmlrequest->send();
    BSTR bstrbody;
    xmlrequest->get_responseText(&bstrbody);
    _bstr_t bstrtbody(bstrbody);
    MessageBox(0, (LPCTSTR)bstrtbody, "OK", MB_OK);
    return 0;
    }
    //這里是初始化COM
    HRESULT ComInit()
    {
    HRESULT hr = S_OK;
    if FAILED(CoInitialize(NULL))
    {
    CoUninitialize();
    hr = E_UNEXPECTED;
    }
    return hr;
    }