Wifi管理
1.界面布局
2.添加WIFI管理组件
3.为界面组件添加代码
变量 NetworkId 为 整数型 事件 主窗口.创建完毕() 变量 连接状态 为 整数型 如果 WIFI管理1.是否已开启() = 真 则 NetworkId = WIFI管理1.取当前networkid() 连接状态 = WIFI管理1.取连接状态(NetworkId) 判断 连接状态 分支 1 标签1.标题="已连接:" & WIFI管理1.取当前SSID() 分支 2 标签1.标题="正在连接" 分支 3 标签1.标题="已断开" 分支 4 标签1.标题="正在断开" 分支 5 标签1.标题="已挂起" 分支 6 标签1.标题="未知状态" 结束 判断 否则 标签1.标题="WIFI已关闭" 结束 如果 结束 事件 变量 启动时间 为 长整数型 事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型) 如果 键代码 = 返回键 则 如果 取启动时间() - 启动时间 >2000 则 弹出提示("再按一次退出程序") 启动时间 = 取启动时间() 否则 结束程序() 结束 如果 结束 如果 结束 事件 事件 按钮1.被单击() 如果 WIFI管理1.是否已开启() = 假 则 WIFI管理1.置WIFI状态(真) 弹出提示("Wifi正在打开") 结束 如果 WIFI管理1.开始扫描() 结束 事件 事件 WIFI管理1.扫描完毕() 变量 扫描结果 为 文本型() 变量 分割结果 为 文本型() 变量 计次 为 整数型 弹出提示("扫描完毕") 列表框1.清空项目() 扫描结果 = 分割文本(WIFI管理1.获取扫描结果(),"/") 变量循环首 计次 = 0 至 取数组下标(扫描结果,1)-1 分割结果 = 分割文本(扫描结果(计次),"*") 如果 寻找文本(分割结果(2),"WPA",0) > -1 则 列表框1.添加项目(分割结果(0) & "-加密") '显示SSID和加密信息 否则 列表框1.添加项目(分割结果(0) & "-开放") '显示SSID和加密信息 结束 如果 变量循环尾 列表框1.添加项目("其它-加密") 结束 事件 事件 按钮2.被单击() 如果 WIFI管理1.是否已开启() = 真 则 WIFI管理1.置WIFI状态(假) 弹出提示("Wifi关闭成功") 结束 如果 结束 事件 事件 列表框1.表项被单击(项目索引 为 整数型) 变量 表项 为 文本型 变量 表项分割 为 文本型() 变量 密码 为 文本型 变量 是否输入 为 逻辑型 表项 = 列表框1.取项目内容(项目索引) 表项分割 = 分割文本(表项,"-") 如果 表项分割(1) = "加密" 则 密码 = 输入框("WIFI密码","",是否输入) 如果 是否输入 = 假 则 退出 结束 如果 NetworkId = WIFI管理1.添加网络(表项分割(0),密码,3) 否则 NetworkId = WIFI管理1.添加网络(表项分割(0),"",1) 结束 如果 WIFI管理1.置指定WIFI状态(NetworkId,真) 结束 事件 事件 WIFI管理1.网络状态改变(状态 为 整数型) 如果 WIFI管理1.是否已开启() = 真 则 判断 状态 分支 1 标签1.标题="已连接:" & WIFI管理1.取当前SSID() 分支 2 标签1.标题="正在连接" 分支 3 标签1.标题="已断开" 分支 4 标签1.标题="正在断开" 分支 5 标签1.标题="已挂起" 分支 6 标签1.标题="未知状态" 结束 判断 否则 标签1.标题="WIFI已关闭" 结束 如果 结束 事件 事件 按钮3.被单击() 变量 连接信息 为 文本型 '如果 WIFI管理1.取连接状态(NetworkId) = 1 则 连接信息 = WIFI管理1.取内网IP() 标签2.标题 = "内网IP:" & 连接信息 '结束 如果 结束 事件 事件 按钮4.被单击() '如果 WIFI管理1.取连接状态(NetworkId) = 1 则 WIFI管理1.删除网络(NetworkId) WIFI管理1.置指定WIFI状态(NetworkId,假) 弹出提示("Wifi断开连接") '结束 如果 结束 事件