易语言dns中继服务器源码

系统结构:读取中转数据,取端口,数据包处理,处理请求,查询数据接收,生成dns数据,分析域名,分析ip,分析数据包头,调转字节序_短整,分析数据包,取NAME,调转字节序_整数,字节集到IP地址,生成查询数据包,调转字节集,创建线程,变量_文本型,地址_文本型,许可证_创建,许可证_删除,许可区_进入,许可区_退出,CreateThread_,CloseHandle,取文本变量地址,取文本指针_,InitializeCriticalSection,DeleteCriticalSection,EnterCriticalSection,LeaveCriticalSection,SetHandleCount_文本_,取字节集指针_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 读取中转数据
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _选择框2_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 取端口
           |  |
           |  |------ 数据包处理
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 处理请求
           |  |
           |  |------ 查询数据接收
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 生成dns数据
           |  |
           |  |------ 分析域名
           |  |
           |  |------ 分析ip
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_可否被关闭
           |  |
           |  |
======程序集1
           |  |
           |  |------ 分析数据包头
           |  |
           |  |------ 调转字节序_短整
           |  |
           |  |------ 分析数据包
           |  |
           |  |------ 取NAME
           |  |
           |  |------ 调转字节序_整数
           |  |
           |  |------ 字节集到IP地址
           |  |
           |  |------ 生成查询数据包
           |  |
           |  |------ 调转字节集
           |  |
           |  |------ 创建线程
           |  |
           |  |------ 变量_文本型
           |  |
           |  |------ 地址_文本型
           |  |
           |  |------ 许可证_创建
           |  |
           |  |------ 许可证_删除
           |  |
           |  |------ 许可区_进入
           |  |
           |  |------ 许可区_退出
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateThread_
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   _销毁线程
           |  |
           |  |---[dll]------   取文本变量地址
           |  |
           |  |---[dll]------   取文本指针_
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   EnterCriticalSection
           |  |
           |  |---[dll]------   LeaveCriticalSection
           |  |
           |  |---[dll]------   SetHandleCount_文本_
           |  |
           |  |---[dll]------   取字节集指针_

调用的DLL命令:

.DLL命令 CreateThread_, 整数型, "kernel32", "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 _销毁线程, , , "TerminateThread"
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 取文本变量地址, 整数型, "Kernel32.dll", "SetHandleCount"
    .参数 文本, 文本型

.DLL命令 取文本指针_, 整数型, "kernel32.dll", "lstrcpynA", , 成功返回保存变量指针,失败返回0
    .参数 保存变量, 文本型, 传址, 保存的变量
    .参数 待拷变量, 文本型, 传址, 拷与的变量或数据
    .参数 拷贝长度, 整数型, , 拷贝长度可用0

.DLL命令 InitializeCriticalSection, , "kernel32", , , 创建许可证
    .参数 lpCriticalSection, 多线程许可证类型, 传址

.DLL命令 DeleteCriticalSection, , "kernel32", , , 删除许可证
    .参数 lpCriticalSection, 多线程许可证类型, 传址

.DLL命令 EnterCriticalSection, , "kernel32", , , 进入许可区
    .参数 lpCriticalSection, 多线程许可证类型, 传址

.DLL命令 LeaveCriticalSection, , "kernel32", , , 退出许可区
    .参数 lpCriticalSection, 多线程许可证类型, 传址

.DLL命令 SetHandleCount_文本_, 整数型, "Kernel32.dll", "SetHandleCount"
    .参数 文本, 文本型

.DLL命令 取字节集指针_, 整数型, "kernel32.dll", "lstrcpynA", , 成功返回保存变量指针,失败返回0
    .参数 保存变量, 字节集, 传址, 保存的变量
    .参数 待拷变量, 字节集, 传址, 拷与的变量或数据
    .参数 拷贝长度, 整数型, , 拷贝长度可用0