初探WinInet网络api

//必须的头文件,而且要链接wininet.lib
#include <WinInet.h>
#define UM_SOCKET (WM_USER + 1)

void CNetTimeDlg::OnBnClickedOk()
{
	// TODO:  在此添加控件通知处理程序代码
	// CDialogEx::OnOK();
	// 使用winsocket,获取国际标准时间并设置系统时间
	WSADATA WSAData = { 0 };
	int iError = 0;
	iError = WSAStartup(MAKEWORD(2, 2), &WSAData);//我这里成功了,但是加载的是2.0版本,WSAData.szDescription可以查看
	if (iError != 0)
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "WSAStartup", MB_OK);
		return;
	}
	SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
	if (sock == INVALID_SOCKET)
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "socket", MB_OK);
		WSACleanup();
		return;
	}
	iError = WSAAsyncSelect(sock, m_hWnd, UM_SOCKET, FD_READ | FD_CONNECT);
	if (iError != 0)
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "WSAAsyncSelect", MB_OK);
		WSACleanup();
		return;
	}
	sockaddr_in sa = { 0 };
	sa.sin_family = AF_INET;
	sa.sin_port = htons(37);
	sa.sin_addr.S_un.S_addr = inet_addr("132.163.4.101");
	connect(sock, (SOCKADDR*)&sa, sizeof(sa));
	if (WSAEWOULDBLOCK != (iError = WSAGetLastError()))
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "WSAGetLastError", MB_OK);
		closesocket(sock);
		WSACleanup();
		return;
	}
}

LRESULT CNetTimeDlg::OnSocket(WPARAM wParam, LPARAM lParam)
{
	WORD wEvent = WSAGETSELECTEVENT(lParam);
	WORD wError = WSAGETSELECTERROR(lParam);
	SOCKET sock = wParam;
	SYSTEMTIME stNew = {1900,1,0,1,0,0,0,};
	FILETIME ftNew;//The FILETIME structure is a 64-bit value representing the number of 100-nanosecond intervals since January 1, 1601 (UTC). 
	unsigned long ultime = 0;
	int isize = 0;

	switch (wEvent)
	{
	case FD_CONNECT:
		//MSG_PEEK标记不删除缓冲区数据,所以下次recv仍可以读取这次读到的数据,这里是防止非阻塞下读不到完整的4字节数据
		isize = recv(sock, (char*)&ultime, 4, MSG_PEEK);
		break;
	case FD_READ:
		isize = recv(sock, (char*)&ultime, 4, 0);
		ultime = ntohl(ultime);
		SystemTimeToFileTime(&stNew, &ftNew);
		*(LONGLONG*)(&ftNew) += (LONGLONG)pow(10.0,9) / 100 * ultime;
		FileTimeToSystemTime(&ftNew, &stNew);
		SetSystemTime(&stNew);
		break;
	}
	return 0;
}

void CNetTimeDlg::OnBnClickedFtp()
{
	// TODO:  在此添加控件通知处理程序代码
	// 使用WinInet访问ftp服务器并下载文件
	char szError[64] = { 0 };
	char szDir[MAX_PATH] = { 0 };
	DWORD len = MAX_PATH;
	HINTERNET hInternet = InternetOpen(NULL, INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
	if (hInternet == NULL)
	{
		sprintf(szError, "InternetOpen error : %d", GetLastError());
		MessageBoxA(m_hWnd, szError, "error", MB_OK);
		return;
	}
	HINTERNET hFtpSession = InternetConnectA(hInternet, "192.168.3.95", INTERNET_DEFAULT_FTP_PORT, "admin", "admin", INTERNET_SERVICE_FTP, 0, 0);
	if (hFtpSession == NULL)
	{
		sprintf(szError, "InternetConnectA error : %d", GetLastError());
		MessageBoxA(m_hWnd, szError, "error", MB_OK);
		InternetCloseHandle(hInternet);
		return;
	}
	if (!FtpSetCurrentDirectoryA(hFtpSession, "/test"))
	{
		sprintf(szError, "FtpSetCurrentDirectoryA error : %d", GetLastError());
		MessageBoxA(m_hWnd, szError, "error", MB_OK);
		InternetCloseHandle(hFtpSession);
		InternetCloseHandle(hInternet);
		return;
	}
	WIN32_FIND_DATAA finddata;
	HINTERNET hFind = FtpFindFirstFileA(hFtpSession, "*.txt", &finddata, 0, 0);
	if (hFind == NULL)
	{
		MessageBoxA(m_hWnd, "no find file", "error", MB_OK);
		InternetCloseHandle(hFtpSession);
		InternetCloseHandle(hInternet);
		return;
	}
	do
	{
		FtpGetFileA(hFtpSession, finddata.cFileName, finddata.cFileName, TRUE, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, 0);
	} while (InternetFindNextFileA(hFind, &finddata));
	InternetCloseHandle(hFind);
	InternetCloseHandle(hFtpSession);
	InternetCloseHandle(hInternet);
}

github

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏大内老A

WCF后续之旅(17):通过tcpTracer进行消息的路由

对于希望对WCF的消息交换有一个深层次了解的读者来说,tcpTracer绝对是一个不可多得好工具。我们将tcpTracer置于服务和服务代理之间,tcpTrac...

1898
来自专栏bboysoul

使用永恒之蓝(MS17-010)漏洞入侵windows7

前几天,被勒索病毒(Wannacry)刷屏了,这个病毒是大家知道了备份文件的重要性,当然,我是不怕什么病毒的,因为我是一天备份一次文件,而且微云一份,坚果云,移...

684
来自专栏Laoqi's Linux运维专列

Kubernetes 1.8.6 集群部署–Etcd集群(三)

因为虚拟机有限,我的DELL工作站年龄也不小了,暂时就开三个节点(三个虚机均为2H , 2G),集群也都部署在这三台机器,当然线上的资源充足的话肯定是要和mas...

3477
来自专栏Hadoop实操

如何在Kerberos与非Kerberos的CDH集群BDR不可用时复制数据

本文档描述了在Kerberos与非Kerberos的CDH集群之间BDR不可用的情况下实现数据互导。文档主要讲述

45811
来自专栏Hongten

php开发_php环境搭建

学php开发,首先是要把环境给搭建起来,然后再写出自己的第一个"helloworld"小程序。

542
来自专栏雨过天晴

原 荐 MAC 读写NTFS硬盘

1303
来自专栏杨建荣的学习笔记

使用shell批量监控磁盘坏块(二) (r7笔记第80天)

之前分享了第一篇 使用shell批量监控磁盘坏块(一),今天来简单说说这个需求的实现内容 。 首先主要思路是通过中控的机器来发送监控的细节,然后返回结果。 ?...

3304
来自专栏Java成神之路

hbase_异常_01_Hbase: Failed to become active master

参考:Hbase: Failed to become active master 的解释:

653
来自专栏喵了个咪的博客空间

[喵咪大数据]Hbase搭建和基本使用

[喵咪大数据]Hbase搭建和基本使用 ? 说完了Hive我们接着来看另外一个建立在Hadoop基础上的存储引擎HBase,HBase以内存作为缓存数据落地到H...

3899
来自专栏Hadoop实操

如何使用Sqoop2

通sqoop1一样,sqoop2同样也是在Hadoop和关系型数据库之间互传数据的工具,只不过sqoop2引入sqoop server,集中化管理connect...

6977

扫描关注云+社区