怎么把以下代码转化为 VC 7.0 的代码，（非托管项目）？

[anson_program]

Set objXML = CreateObject("MSXML2.XMLHTTP")
strURL="http://www.xxx.com/ixml/ixsendsms.asp?"
strURL=strURL&"vspname=ppp&vsppassword=ppp"
strURL=strURL&"&spnumber=8888&billcode=0000"
strURL=strURL&"&tomobile="&1306054875&"&message="&dddddd

objXML.Open "GET", strURL, True
objXML.Send

[anson_program]

在线等候！

[anson_program]

在线等候！

[masterz]

#import "msxml.dll"
#import "msxml2.dll"

using namespace MSXML2;
int main(int argc, char* argv[])
{
printf("Test of XMLHTTP by masterz!\n");
CoInitialize(NULL);
try
{
IXMLHTTPRequestPtr xmlrequest;
xmlrequest.CreateInstance("Msxml2.XMLHTTP");
_variant_t varp(false);
_bstr_t strURL = "...";//write your URL here
xmlrequest->open(_bstr_t("GET"),strURL ,varp);
xmlrequest->send();
BSTR bstrbody;
xmlrequest->get_responseText(&bstrbody);
_bstr_t bstrtbody(bstrbody);
printf("%s\n",(LPCTSTR)bstrtbody);

}
catch (_com_error &e)
{
printf("Description = '%s'\n", (char*) e.Description());
}
CoUninitialize();
printf("program end\n");
return 0;
}

[anson_program]

非常感谢！