开源

功能说明:该程序是一个基于易语言开发的简易 DNS 服务器工具，主要用于在本地局域网或本机环境中提供域名解析服务。通过对提供的源代码进行分析，可以从程序结构、变量定义、子程序逻辑以及界面交互等方面总结出以下功能细节：

一、程序核心功能

程序的核心目标是监听网络的 UDP 53 端口（DNS 服务标准端口），接收客户端发出的 DNS 查询请求。当收到请求后，程序会解析数据包中的域名信息，并在本地维护的域名列表中进行匹配。如果找到匹配的域名，程序会根据预设的规则构造 DNS 响应数据包，将对应的 IP 地址返回给查询客户端，从而实现域名的本地化解析或重定向。

二、主要子程序分析

1. __启动窗口_创建完毕：

这是程序的初始化入口。当主窗口创建完成后，该子程序首先尝试配置网络数据报对象监听 53 端口。

- 成功情况：如果端口配置成功（未被占用），程序会启动一个名为"xt"的独立线程用于后台监听数据，同时在界面的超级列表框中初始化预设的域名与 IP 地址映射表（包括 www.tacnc.com、www.sina.com、www.baidu.com 等多个常见域名及其对应的内网或特定 IP），并将窗口标题设置为“服务器启动成功”，在编辑框中输出启动日志。

- 失败情况：如果 53 端口被其他程序占用，程序会弹出信息框提示“端口被占用，请关闭其他 DNS 服务器”，并强制结束程序运行，防止冲突。

2. xt 子程序：

这是程序的核心工作线程，负责处理网络通信逻辑。

- 循环监听：通过一个判断循环持续运行，不断调用“数据报。接收”方法等待客户端发送的数据包。

- 数据解析：当接收到数据后，调用“获取查询信息”子程序（代码中未展示具体实现但被调用）解析 DNS 协议数据，提取出查询的域名和记录类型。

- 域名匹配：将解析出的域名与超级列表框中的本地配置进行查找匹配。

- 响应处理：根据查询的记录类型（代码中明确处理了"A"记录和"MX"记录），如果本地列表中存在该域名，则调用“回应 DNS 数据”子程序构造响应包，并通过 socket 发送回请求方。同时在界面编辑框中记录日志，显示哪个域名被查询了何种记录。

三、数据结构与变量

程序使用了多个关键变量来维持状态和数据：

- 网络数据报变量（数据报、递增数据包）：用于处理 UDP Socket 通信。

- 超级列表框 1：作为本地 DNS 记录数据库，存储域名、主 IP、TTL 值、备用 IP 等信息。

- 编辑框 1：用于实时显示服务器运行状态和查询日志。

- 线程变量：用于管理监听线程的生命周期。

四、程序用途推测

根据代码逻辑，该程序通常用于以下场景：

1. 本地开发测试：开发者可以将特定域名指向本地开发服务器的 IP，无需修改系统 hosts 文件。

2. 网络屏蔽或重定向：通过将广告域名或特定网站指向无效 IP 或指定 IP，实现过滤或劫持功能。

3. 局域网 DNS 服务：在没有正式 DNS 服务器的小型局域网内提供基础的域名解析服务。

五、总结

综上所述，这是一个功能明确、结构清晰的易语言网络程序。它利用 Socket 库实现 UDP 通信，通过多线程技术避免界面卡顿，实现了基本的 DNS 协议解析与响应功能。代码中包含了完整的端口检测、数据接收、协议解析、本地匹配及响应发送流程，是一个典型的简易 DNS 服务端实现。

======窗口程序集1

           |  |

           |  |------ __启动窗口_创建完毕

           |  |

           |  |------ xt

           |  |

           |  |------ _数据报1_数据到达

  ======程序集1

           |  |

           |  |------ _启动子程序

           |  |

           |  |------ _临时子程序

           |  |

           |  |------ 获取查询信息

           |  |

           |  |------ 回应DNS数据

           |  |

           |  |

======程序集2

           |  |

           |  |------ 十六进制转十进制