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
總結
- 上一篇： ASP.NET MVC5+EF6+Eas
- 下一篇： 二叉搜索