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断开连接")
    '结束 如果
结束 事件

 

转载于:https://www.cnblogs.com/L-liwen/p/5065794.html