易語言通過讀取文件獲取WIFI信息的代碼

更新時間：2018年11月28日 11:56:50 作者：易語言源碼貝貝吧

今天小編就為大家分享一篇關于易語言通過讀取文件獲取WIFI信息的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

常量數(shù)據(jù)表

.版本 2
.常量 常量_臨時目錄, "<文本長度: 28>", , c:\users\public\tmp_wifipath

本地WIFI密碼配置讀取的代碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫 iext
.支持庫 eAPI
.程序集 窗口程序集_啟動窗口
.子程序 遍歷文件
.如果 (文件是否存在 (#常量_臨時目錄))
  文件_枚舉1 (#常量_臨時目錄, “*.xml”, &S_遍歷WIFI文件)
.否則
  信息框 (“不支持的操作系統(tǒng) 或 權限不足”, 16, “Error”)
.如果結(jié)束
.子程序 S_遍歷WIFI文件
.參數(shù) 目錄, 文本型
.參數(shù) 文件名, 文本型
.局部變量 L_FileName, 文本型
.局部變量 L_TMP, 文本型
.局部變量 L_Name, 文本型
.局部變量 L_HEX, 文本型
.局部變量 L_ConnectionType, 文本型
.局部變量 L_ConnectionMode, 文本型
.局部變量 L_Authentication, 文本型
.局部變量 L_Encryption, 文本型
.局部變量 L_UseOneX, 文本型
.局部變量 L_KeyType, 文本型
.局部變量 L_Protected, 文本型
.局部變量 L_KeyMaterial, 文本型
.局部變量 L_EnableRandomization, 文本型
.局部變量 L_索引, 整數(shù)型
L_FileName ＝ 目錄 ＋ 文件名
L_TMP ＝ 到文本 (讀入文件 (L_FileName))
L_Name ＝ 文本_取出中間文本 (L_TMP, “<name>”, “</name>”)
L_HEX ＝ 文本_取出中間文本 (L_TMP, “<hex>”, “</hex>”)
L_ConnectionType ＝ 文本_取出中間文本 (L_TMP, “<connectionType>”, “</connectionType>”)
L_ConnectionMode ＝ 文本_取出中間文本 (L_TMP, “<connectionMode>”, “</connectionMode>”)
L_Authentication ＝ 文本_取出中間文本 (L_TMP, “<authentication>”, “</authentication>”)
L_Encryption ＝ 文本_取出中間文本 (L_TMP, “<encryption>”, “</encryption>”)
L_UseOneX ＝ 文本_取出中間文本 (L_TMP, “<useOneX>”, “</useOneX>”)
L_KeyType ＝ 文本_取出中間文本 (L_TMP, “<keyType>”, “</keyType>”)
L_Protected ＝ 文本_取出中間文本 (L_TMP, “<protected>”, “</protected>”)
L_KeyMaterial ＝ 文本_取出中間文本 (L_TMP, “<keyMaterial>”, “</keyMaterial>”)
L_EnableRandomization ＝ 文本_取出中間文本 (L_TMP, “<enableRandomization>”, “</enableRandomization>”)
.如果真 (L_Name ≠ “”)
  L_索引 ＝ 超級列表框1.插入表項 (, , , , , )
  超級列表框1.置標題 (L_索引, 0, 到文本 (L_索引))
  超級列表框1.置標題 (L_索引, 1, L_HEX)
  超級列表框1.置標題 (L_索引, 2, L_Name)
  超級列表框1.置標題 (L_索引, 3, L_ConnectionType)
  超級列表框1.置標題 (L_索引, 4, L_ConnectionMode)
  超級列表框1.置標題 (L_索引, 5, L_Authentication)
  超級列表框1.置標題 (L_索引, 6, L_Encryption)
  超級列表框1.置標題 (L_索引, 7, L_UseOneX)
  超級列表框1.置標題 (L_索引, 8, L_KeyType)
  超級列表框1.置標題 (L_索引, 9, L_Protected)
  超級列表框1.置標題 (L_索引, 10, L_KeyMaterial)
  超級列表框1.置標題 (L_索引, 11, L_EnableRandomization)
.如果真結(jié)束
.子程序 _復制Hex_被選擇
.局部變量 L_TMP, 文本型
.如果真 (超級列表框1.現(xiàn)行選中項 ≠ -1)
  L_TMP ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 1)
  狀態(tài)條1.置文本 (0, “HEX：” ＋ L_TMP)
  .如果 (置剪輯板文本 (L_TMP))
    狀態(tài)條1.置文本 (1, “√已復制”)
  .否則
    狀態(tài)條1.置文本 (1, “×未復制”)
  .如果結(jié)束
.如果真結(jié)束
.子程序 _復制Name_被選擇
.局部變量 L_TMP, 文本型
.如果真 (超級列表框1.現(xiàn)行選中項 ≠ -1)
  L_TMP ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2)
  狀態(tài)條1.置文本 (0, “Name：” ＋ L_TMP)
  .如果 (置剪輯板文本 (L_TMP))
    狀態(tài)條1.置文本 (1, “√已復制”)
  .否則
    狀態(tài)條1.置文本 (1, “×未復制”)
  .如果結(jié)束
.如果真結(jié)束
.子程序 _復制KeyMaterial_被選擇
.局部變量 L_TMP, 文本型
.如果真 (超級列表框1.現(xiàn)行選中項 ≠ -1)
  L_TMP ＝ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 10)
  狀態(tài)條1.置文本 (0, “KeyMaterial：” ＋ L_TMP)
  .如果 (置剪輯板文本 (L_TMP))
    狀態(tài)條1.置文本 (1, “√已復制”)
  .否則
    狀態(tài)條1.置文本 (1, “×未復制”)
  .如果結(jié)束
.如果真結(jié)束
.子程序 _超級列表框1_右鍵單擊表項
彈出菜單 (右鍵菜單, , )
.子程序 _獲取WIFI信息_被選擇
.如果 (文件是否存在 (#常量_臨時目錄))
  刪除目錄 (#常量_臨時目錄)
  創(chuàng)建目錄 (#常量_臨時目錄)
.否則
  創(chuàng)建目錄 (#常量_臨時目錄)
.如果結(jié)束
.如果 (運行 (“netsh wlan export profile key=clear folder=c:\users\public\tmp_wifipath\”, 真, 1))
  超級列表框1.全部刪除 ()
  狀態(tài)條1.置文本 (0, “正在讀取...”)
  遍歷文件 ()
  狀態(tài)條1.置文本 (0, “讀取完畢?！?
.否則
  信息框 (“不支持的操作系統(tǒng) 或 權限不足”, 16, “Error”)
.如果結(jié)束
.子程序 _清空列表_被選擇
超級列表框1.全部刪除 ()
.子程序 _查看配置文件_被選擇
打開指定網(wǎng)址 (“C:\Users\Public\tmp_wifipath\WLAN-” ＋ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2) ＋ “.xml”)
.子程序 _超級列表框1_被雙擊, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (超級列表框1.現(xiàn)行選中項 ≠ -1)
  打開指定網(wǎng)址 (“C:\Users\Public\tmp_wifipath\WLAN-” ＋ 超級列表框1.取標題 (超級列表框1.現(xiàn)行選中項, 2) ＋ “.xml”)
.如果真結(jié)束
.子程序 __啟動窗口_可否被關閉, 邏輯型
刪除目錄 (#常量_臨時目錄)
.子程序 _時鐘1_周期事件
狀態(tài)條1.置文本 (3, 時間_轉(zhuǎn)為GMT格式2 (取現(xiàn)行時間 ()))

運行結(jié)果：