Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2010, 20:22   #11
Dimarik
Форумчанин
 
Аватар для Dimarik
 
Регистрация: 18.04.2009
Сообщений: 688
По умолчанию

вот кое-что нарыл. кто-нибудь поясните в комментах что как работает
Код:
#include <windows.h>
#include <wininet.h>
#include <stdio.h>

#pragma comment (lib, "wininet")

const TCHAR cAgent[]		= TEXT("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US)");
//const TCHAR cURL[]			= TEXT("http://www.example.com/");
//const TCHAR cURL[]			= TEXT("https://login.yahoo.com/");
const TCHAR cURL[]			= TEXT("https://www.google.com/accounts/ServiceLoginAuth");

const TCHAR cFileName[]		= TEXT("c:\\testfile.htm");

char buf[4096];

int main()
{
	HINTERNET hInternet;
	hInternet = InternetOpen(
					cAgent, 
					INTERNET_OPEN_TYPE_PRECONFIG,
					NULL,
					NULL,
					0);
	if(hInternet){
		HINTERNET hUrl;
		hUrl = InternetOpenUrl(
						hInternet, 
						cURL, 
						NULL, 
						0, 
							INTERNET_FLAG_RELOAD 
							| INTERNET_FLAG_IGNORE_CERT_CN_INVALID 
							| INTERNET_FLAG_IGNORE_CERT_DATE_INVALID,
						NULL);
		if(hUrl){
			HANDLE hFile = CreateFile(
								cFileName, 
								GENERIC_WRITE, 
								0,
								NULL,
								CREATE_ALWAYS,
								FILE_ATTRIBUTE_NORMAL,
								NULL);
			if(hFile){
				DWORD dwRead;
				DWORD dwWritten;
				
				printf("File '%s' created successuflly\n", cFileName);
				do{
					if(InternetReadFile(hUrl, buf, sizeof(buf), &dwRead)){
						if(dwRead > 0){
							if(WriteFile(hFile, buf, dwRead, &dwWritten, NULL)){
								printf("%d bytes written\n", dwWritten);
							}
							else {
								puts("Error writing file.");
								break;
							}
						}
					}
					else {
						puts("Error loading webpage");
						break;
					}
				} while (dwRead > 0);
				
				CloseHandle(hFile);
				printf("File '%s' written successfully\n", cFileName);
			}
			else printf("Can't create file '%s'\n", cFileName);
			InternetCloseHandle(hUrl);
		}
		else puts("Can't access URL.");
		InternetCloseHandle(hInternet);
	}
	else puts("Can't create internet connection");
	
	getchar();
	return 0;
}
Dimarik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправить по e-mail папку с файлами Titan123 Работа с сетью в Delphi 4 22.12.2008 19:42
Как програмно отправить письмо на E-mail ? SG13 Работа с сетью в Delphi 2 13.06.2008 12:50
Подскажите как отправить E-mail из программы... Артем Чижук Общие вопросы Delphi 1 07.06.2008 08:47