#include 
namespace MSXML
{
#include 
}
#include 

MSXML::IXMLDOMDocument     *iXMLDoc     = NULL;
MSXML::IXMLDOMParseError   *pParsingErr = NULL;
MSXML::IXMLDOMElement      *iXMLElm     = NULL;
MSXML::IXMLDOMNodeList     *iXMLChild   = NULL;
MSXML::IXMLDOMNode         *iXMLItem    = NULL;
short tEmpty;
BSTR bStr;
VARIANT         vXMLSrc;
HRESULT         hr;
HWND            hListBox;
long            lLength;

hr = CoInitializeEx(NULL,COINIT_MULTITHREADED);
if(!SUCCEEDED(hr)) return 0;
hr = CoCreateInstance (MSXML::CLSID_DOMDocument, 
    NULL,CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
    MSXML::IID_IXMLDOMDocument, (LPVOID *)&iXMLDoc);
if(iXMLDoc)
{
   iXMLDoc->put_async(VARIANT_FALSE);

   //Smartphone 2002 工作区:
   //删除文档安全选项
   IObjectSafety *pSafety;
   DWORD dwSupported, dwEnabled;

   if ( SUCCEEDED(iXMLDoc->QueryInterface(
                  IID_IObjectSafety, (void**)&pSafety)))
   {
      pSafety->GetInterfaceSafetyOptions(
      MSXML::IID_IXMLDOMDocument, &dwSupported, &dwEnabled );
      pSafety->SetInterfaceSafetyOptions(
      MSXML::IID_IXMLDOMDocument, dwSupported, 0 );
   }

    VariantInit( &vXMLSrc );
    vXMLSrc.vt = VT_BSTR;

    iXMLDoc->put_async(VARIANT_FALSE);

    vXMLSrc.bstrVal = SysAllocString(L"http:/localhost/
                      smartphonearticledata.xml");
    hr = iXMLDoc->load(vXMLSrc, &tEmpty);
    SysFreeString(vXMLSrc.bstrVal);

   iXMLDoc->get_documentElement(&iXMLElm);
    iXMLElm->selectNodes(L"//DATA/STATUS/S",&iXMLChild);
   //iXMLElm->get_childNodes(&iXMLChild);
    iXMLChild->get_length(&lLength);

    hListBox = GetDlgItem( hWnd, IDC_LISTISSUES);
    for (int x=0;xget_item(x,&iXMLItem);
        iXMLItem->get_text(&bStr);
        SendMessage (hListBox, LB_ADDSTRING, 0, (LPARAM) bStr); 
    }
   //iXMLChild->get_item(1,&iXMLItem);
   iXMLDoc->get_xml(&bStr);
   MessageBox(NULL,bStr,TEXT("Article Demo"),MB_OK);

#ifdef CSIDL_APPDATA
if(!SHGetSpecialFolderPath(NULL, szFolderPath, CSIDL_APPDATA, TRUE))
    {
         ASSERT(FALSE);
         hr = HRESULT_FROM_WIN32(GetLastError());
    }
#else
    // Pocket PC没有这种定义来在根中读取目录。
//也许未来会作些改变，但代码仍然可以工作 
   _tcscpy(szFolderPath, TEXT("\"));
#endif

TCHAR szDocPath[250];
if (!SHGetDocumentsFolder(L"\",szDocPath))
    MessageBox(NULL,L"Retrieveing Path Failure",L"Call Failure",MB_OK); else
    MessageBox(NULL,szDocPath,L"Documents Folder Path",MB_OK);

MSXML::IXMLDOMDocument      *iXMLDoc     = NULL;
MSXML::IXMLHttpRequest      *iXMLHttp    = NULL;
HRESULT                hr;
BSTR bStr = NULL;
VARIANT vUserID;
VARIANT vPassword;
VARIANT vPassValue;
VARIANT vAsync;
short tEmpty;

hr = CoInitializeEx(NULL,COINIT_MULTITHREADED);
if(!SUCCEEDED(hr)) return 0;
hr = CoCreateInstance (MSXML::CLSID_DOMDocument, NULL,
   CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
   MSXML::IID_IXMLDOMDocument, (LPVOID *)&iXMLDoc);
if(iXMLDoc)
{
   iXMLDoc->put_async(VARIANT_FALSE);

   // Smartphone 2002工作区:
   //删除文档安全选项
   IObjectSafety *pSafety;
   DWORD dwSupported, dwEnabled;

    if ( SUCCEEDED(iXMLDoc->QueryInterface(IID_IObjectSafety, 
         (void**)&pSafety)))
    {
        pSafety->GetInterfaceSafetyOptions(
        MSXML::IID_IXMLDOMDocument, &dwSupported, &dwEnabled );
        pSafety->SetInterfaceSafetyOptions(
        MSXML::IID_IXMLDOMDocument, dwSupported, 0 );
    }

    iXMLDoc->put_async(VARIANT_FALSE);
    iXMLDoc->loadXML(L"Joe
        Smith", &tEmpty);
}

VariantInit(&vAsync);
vAsync.vt = VT_BOOL;
vAsync.boolVal = false;

VariantInit(&vUserID);
vUserID.vt = VT_BSTR;
vUserID.bstrVal = L"";

VariantInit(&vPassword);
vPassword.vt = VT_BSTR;
vPassword.bstrVal = L"";

VariantInit(&vPassValue);
vPassValue.vt =  VT_DISPATCH;
vPassValue.pdispVal = iXMLDoc;

hr = CoInitializeEx(NULL,COINIT_MULTITHREADED);
     if(!SUCCEEDED(hr)) return 0;
hr = CoCreateInstance (MSXML::CLSID_XMLHTTPRequest, NULL, 
   CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
   MSXML::IID_IXMLHttpRequest, (LPVOID *)&iXMLHttp);


iXMLHttp->open(L"GET", L"http://localhost/smartphonesavetest.asp", 
               vAsync,vUserID,vPassword);
hr=iXMLHttp->send(vPassValue);

iXMLHttp->get_responseText(&bStr);

TCHAR szDefaultNum[] = TEXT("+1 (555) 555-5555");
LONG lResult;
lResult = tapiRequestMakeCall((LPTSTR) szDefaultNum, NULL, NULL, NULL);
return TRUE;

SMS_HANDLE smshHandle;
SMS_ADDRESS smsaSource;
SMS_ADDRESS smsaDestination;
TEXT_PROVIDER_SPECIFIC_DATA tpsd;
SMS_MESSAGE_ID smsmidMessageID;

//尝试打开一个SMS句柄
if(FAILED(SmsOpen(SMS_MSGTYPE_TEXT, SMS_MODE_SEND, &smshHandle, NULL)))
{
    MessageBox(NULL,L"Call to SmsOpen failed.",L"Error",MB_OK | 
               MB_ICONERROR);
    return;
}

//建立源地址
if(!bUseDefaultSMSC)
{
    smsaSource.smsatAddressType = SMSAT_INTERNATIONAL;
    _tcsncpy(smsaSource.ptsAddress, lpszSMSC, SMS_MAX_ADDRESS_LENGTH);
}

//建立目标地址
smsaDestination.smsatAddressType = SMSAT_INTERNATIONAL;
_tcsncpy(smsaDestination.ptsAddress, lpszRecipient, SMS_MAX_ADDRESS_LENGTH);

//建立提供者特定数据
tpsd.dwMessageOptions = bSendConfirmation ? PS_MESSAGE_OPTION_STATUSREPORT 
: PS_MESSAGE_OPTION_NONE;
tpsd.psMessageClass = PS_MESSAGE_CLASS1;
tpsd.psReplaceOption = PSRO_NONE;

//发送消息，显示源或者失败
if(SUCCEEDED(SmsSendMessage(smshHandle, ((bUseDefaultSMSC) ? NULL : 
             &smsaSource), 
             &smsaDestination, NULL, (PBYTE) lpszMessage, 
             _tcslen(lpszMessage) * sizeof(TCHAR), (PBYTE) &tpsd, 
             sizeof(TEXT_PROVIDER_SPECIFIC_DATA), SMSDE_OPTIMAL, 
             SMS_OPTION_DELIVERY_NONE, &smsmidMessageID)))
{
    MessageBox(NULL, L"Message sent", L"Success",MB_OK);
}
else
{
    MessageBox(NULL, L"SmsSendMessage Failed", L"Error",MB_OK | 
               MB_ICONERROR);
}

//清除
VERIFY(SUCCEEDED(SmsClose(smshHandle)));