易语言监控网络连接可以通过多种方式实现，涵盖局域网内连接监控、TCP/UDP流量监控、网络状态检测等功能。以下是综合多个资源的核心实现思路及代码示例：

### 一、基础网络状态检测

**判断网络是否连接**

使用`InternetGetConnectedStateEx`函数判断当前网络状态：

```e

.e 本地连接状态 := InternetGetConnectedStateEx(0)

.e 本地IP := API_GetLocalIP()

.e 远程IP := API_GetRemoteIP()

```

结果通过`LOCALE_INTERNET_CONNECTED`判断是否连接。

**获取本地网络接口名称**

通过`WNetGetUser`函数获取网络适配器名称（如"本地连接"）：

```e

.e 网络名称 := WNetGetUser(NULL, 0, 0)

```

### 二、局域网连接监控

**实时监控局域网设备**

使用`API_GetTcpTable`或`API_GetUdpTableWithOwnerPid`函数获取局域网设备列表，并通过循环检测连接状态：

```e

.e 本地端口 := 80

.e 远程端口 := 80

.e 连接成功 := 0

.e 连接失败 := 0

.e 循环次数 := 10

.e 延时时间 := 1000 // 每秒检测一次

.d 重复执行

.t 连接状态 := API_GetTcpTable(0, 0, 0)

.t 遍历连接表

.d 如果 (连接状态.本地Port = 本地端口) 且 (连接状态.远程Port = 远程端口)

.e 连接成功 := 1

.k 跳出循环

.e 如果 连接失败

.e 连接失败 := 1

.e 等待 延时时间 毫秒

.e 结束循环

.k 如果 连接成功

.e 提示 "连接成功！"

.e 否则

.e 提示 "连接失败！"

```

**局域网内设备发现**

通过发送ICMP Echo请求（如`Ping`命令）检测其他设备是否在线：

```e

.e 目标IP := "192.168.1.2" // 替换为目标IP

.e Ping结果 := API_Ping(targetIP, 1000) // 1秒超时

.e 如果 Ping结果 = 0

.e 设备在线

.e 否则

.e 设备离线

```

### 三、网络流量与异常处理

**监控TCP/UDP连接**

使用`API_GetTcpTable`或`API_GetUdpTableWithOwnerPid`实时监控本地端口连接，断开时触发提醒：

```e

.e 本地端口 := 8080

.e 监控列表 := 新建动态数组

.d 无限循环

.t 连接状态 := API_GetTcpTable(0, 0, 0)

.t 遍历连接表

.d 如果 (连接状态.本地Port = 本地端口)

.e 将远程IP和端口添加到监控列表

.e 检查断开连接

.d 如果 连接状态.状态 = 2 // TCP断开

.e 从监控列表移除对应条目

.e 提示 "连接断开！"

.e 等待 500 毫秒

.e 结束循环

```

**异常处理与提醒**

结合`OnTimer`事件实现定时检测，网络异常时通过消息框或日志记录：

```e

.e 定时器间隔 := 5000 // 每5秒检测一次

.e 上次检测时间 := 系统时间

.d 无限循环

.t 当前时间 := 系统时间

.e 已过时 := 当前时间 - 上次检测时间 > 定时器间隔

.e 如果 已过时

.e 执行网络检测程序

.e 更新 上次检测时间

.e