易语言取内网计算机时间源码

系统结构:获取时间,Ansi转Unicode,网络_取内网时间,NetRemoteTOD,CopyMemory,NetApiBufferFree,Len_tod,MultiByteToWideChar_A2W,设置时钟_,销毁时钟_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 获取时间
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======程序集1
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |------ 网络_取内网时间
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NetRemoteTOD
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   NetApiBufferFree
           |  |
           |  |---[dll]------   Len_tod
           |  |
           |  |---[dll]------   MultiByteToWideChar_A2W
           |  |
           |  |---[dll]------   设置时钟_
           |  |
           |  |---[dll]------   销毁时钟_

调用的DLL命令:

.DLL命令 NetRemoteTOD, 整数型, "NETAPI32.DLL", "NetRemoteTOD"
    .参数 UncServerName, 字节集
    .参数 BufferPtr, 整数型, 传址

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory"
    .参数 pDest, TIME_OF_DAY_INFO
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 NetApiBufferFree, 整数型, "NETAPI32.DLL", "NetApiBufferFree"
    .参数 Buffer, 整数型

.DLL命令 Len_tod, 整数型, "kernel32", "GlobalSize", , 返回全局内存块大小
    .参数 hMem, TIME_OF_DAY_INFO

.DLL命令 MultiByteToWideChar_A2W, 整数型, , "MultiByteToWideChar", , A2W  将Ansi转成Unicode
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 设置时钟_, 整数型, "user32.dll", "SetTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent
    .参数 时钟周期, 整数型, , uElapse
    .参数 回调函数地址, 整数型, , lpTimerFunc

.DLL命令 销毁时钟_, 整数型, "user32.dll", "KillTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent