易语言NTP协议源码

系统结构:子程序1,数值转换,取时间标识,套接字_域名转地址,套接字_调试输出,创建,销毁,投递任务,启动线程_,创建进入许可证_,删除进入许可证_,WSAStartup,WSASocket,Connect,Send,CloseHandle,CreateThread,InitializeCriticalSection,DeleteCriticalSection,PostQueuedCompletionStatus,GetTickCount,TerminateThread,GetExitCodeThread,WaitForSingleObject,GetQueuedCompletionStatus,CreateIoCompletionPort,GetHostByName,Htons,RtlMoveMemoryBit,RtlMoveMemoryAny,RtlMoveMemoryGetInt,Inet_Addr,VirtualFree,TranslateMessage,DispatchMessage,GetMessage,Recv,VirtualAlloc,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 数值转换
           |  |
           |  |------ 取时间标识
           |  |
           |  |------ 套接字_域名转地址
           |  |
           |  |------ 套接字_调试输出
           |  |
           |  |
======类模块_线程池
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 销毁
           |  |
           |  |------ 投递任务
           |  |
           |  |
======程序集_多线程
           |  |
           |  |------ 启动线程_
           |  |
           |  |------ 创建进入许可证_
           |  |
           |  |------ 删除进入许可证_
           |  |
           |  |------ _取未使用数组成员
           |  |
           |  |------ _创建线程池
           |  |
           |  |------ _销毁线程池
           |  |
           |  |------ _投递任务
           |  |
           |  |------ _线程
           |  |
           |  |------ _Call
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSASocket
           |  |
           |  |---[dll]------   Connect
           |  |
           |  |---[dll]------   Send
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   PostQueuedCompletionStatus
           |  |
           |  |---[dll]------   GetTickCount
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   GetQueuedCompletionStatus
           |  |
           |  |---[dll]------   CreateIoCompletionPort
           |  |
           |  |---[dll]------   GetHostByName
           |  |
           |  |---[dll]------   Htons
           |  |
           |  |---[dll]------   RtlMoveMemoryBit
           |  |
           |  |---[dll]------   RtlMoveMemoryAny
           |  |
           |  |---[dll]------   RtlMoveMemoryGetInt
           |  |
           |  |---[dll]------   Inet_Addr
           |  |
           |  |---[dll]------   VirtualFree
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   Recv
           |  |
           |  |---[dll]------   VirtualAlloc

  

调用的DLL命令:

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup"
    .参数 必需版本, 整数型, , wVersionRequired
    .参数 网络通讯数据结构, WSADataType, , lpWSAData

.DLL命令 WSASocket, 整数型, "Ws2_32.dll", "WSASocketA"
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型
    .参数 lpProtocolInfo, 整数型
    .参数 g, 整数型
    .参数 dwFlags, 整数型

.DLL命令 Connect, 整数型, "ws2_32.dll", "connect"
    .参数 网络通讯标识符, 整数型
    .参数 名称结构, sockaddr
    .参数 名称结构长度, 整数型

.DLL命令 Send, 整数型, "ws2_32.dll", "send"
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 字节集, , buf
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 hObject, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 CreateThread, 整数型, "Kernel32.dll", "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型

.DLL命令 InitializeCriticalSection, , "Kernel32.dll", "InitializeCriticalSection"
    .参数 lpCriticalSection, 字节集, 传址

.DLL命令 DeleteCriticalSection, , "Kernel32.dll", "DeleteCriticalSection"
    .参数 lpCriticalSection, 字节集, 传址

.DLL命令 PostQueuedCompletionStatus, 逻辑型, "Kernel32.dll", "PostQueuedCompletionStatus"
    .参数 CompletionPort, 整数型
    .参数 dwNumberOfBytesTransferred, 整数型
    .参数 dwCompletionKey, 整数型
    .参数 lpOverlapped, 整数型

.DLL命令 GetTickCount, 整数型, "kernel32", "GetTickCount"

.DLL命令 TerminateThread, 整数型, "Kernel32.dll", "TerminateThread"
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 GetExitCodeThread, 整数型, "Kernel32.dll", "GetExitCodeThread"
    .参数 hThread, 整数型
    .参数 lpExitCode, 整数型

.DLL命令 WaitForSingleObject, 整数型, "Kernel32.dll", "WaitForSingleObject"
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 GetQueuedCompletionStatus, 逻辑型, "Kernel32.dll", "GetQueuedCompletionStatus"
    .参数 CompletionPort, 整数型
    .参数 lpNumberOfBytes, 整数型, 传址
    .参数 lpCompletionKey, 整数型, 传址
    .参数 lpOverlapped, 整数型, 传址
    .参数 dwMilliseconds, 整数型

.DLL命令 CreateIoCompletionPort, 整数型, "Kernel32.dll", "CreateIoCompletionPort"
    .参数 FileHandle, 整数型
    .参数 ExistingCompletionPort, 整数型
    .参数 CompletionKey, 整数型
    .参数 NumberOfConcurrentThreads, 整数型

.DLL命令 GetHostByName, 整数型, "ws2_32.dll", "gethostbyname"
    .参数 名称, 文本型, , name

.DLL命令 Htons, 短整数型, "ws2_32.dll", "htons"
    .参数 十六位主机命令, 短整数型, , hostshort

.DLL命令 RtlMoveMemoryBit, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 目标数据地址, 字节型, 传址 数组
    .参数 原数据, 整数型
    .参数 尺寸, 整数型

.DLL命令 RtlMoveMemoryAny, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, HOSTENT, 传址, lpvDest
    .参数 源数据, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 RtlMoveMemoryGetInt, 整数型, "kernel32.dll", "RtlMoveMemory", 公开
    .参数 目标数据, 整数型, 传址
    .参数 原数据, 整数型
    .参数 尺寸, 整数型

.DLL命令 Inet_Addr, 整数型, "ws2_32.dll", "inet_addr"
    .参数 文本, 文本型, , cp

.DLL命令 VirtualFree, 整数型, "kernel32.dll", "VirtualFree", 公开, 释放虚拟页
    .参数 分配文本地址, 整数型, , lpAddress
    .参数 分配大小, 整数型, , dwSize
    .参数 释放类型, 整数型, , dwFreeType

.DLL命令 TranslateMessage, 整数型, "user32.dll", "TranslateMessage", 公开
    .参数 消息结构, 字节集, , lpMsg

.DLL命令 DispatchMessage, , "user32.dll", "DispatchMessageA", 公开
    .参数 消息结构, 字节集, , lpMsg

.DLL命令 GetMessage, 整数型, "user32.dll", "GetMessageA", 公开, GetMessage
    .参数 消息值, 字节集, , lpMsg
    .参数 窗口句柄, 整数型, , hwnd
    .参数 过滤消息最小值, 整数型, , wMsgFilterMin
    .参数 过滤消息最大值, 整数型, , wMsgFilterMax

.DLL命令 Recv, 整数型, "ws2_32.dll", "recv"
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 整数型, , buf
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 VirtualAlloc, 整数型, "kernel32.dll", "VirtualAlloc", , 保留虚拟页
    .参数 分配文本地址, 整数型, , lpAddress
    .参数 分配大小, 整数型, , dwSize
    .参数 分配类型, 整数型, , flAllocationType
    .参数 内存保护标志, 整数型, , flProtect