VC中调用XMLHTTP对象访问远程数据的代码

大家一起来学习一下，代码如下：
　　//这里是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提示: 调用下面初始化COM的函数
　　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;
　　}