易语言通过读取文件获取WIFI信息的代码
常量数据表
.版本 2 .常量 常量_临时目录, "<文本长度: 28>", , c:\users\public\tmp_wifipath
本地WIFI密码配置读取的代码
此功能需要加载精易模块5.6
.版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 遍历文件 .如果 (文件是否存在 (#常量_临时目录)) 文件_枚举1 (#常量_临时目录, “*.xml”, &S_遍历WIFI文件) .否则 信息框 (“不支持的操作系统 或 权限不足”, 16, “Error”) .如果结束 .子程序 S_遍历WIFI文件 .参数 目录, 文本型 .参数 文件名, 文本型 .局部变量 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_索引, 整数型 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) .如果真结束 .子程序 _复制Hex_被选择 .局部变量 L_TMP, 文本型 .如果真 (超级列表框1.现行选中项 ≠ -1) L_TMP = 超级列表框1.取标题 (超级列表框1.现行选中项, 1) 状态条1.置文本 (0, “HEX:” + L_TMP) .如果 (置剪辑板文本 (L_TMP)) 状态条1.置文本 (1, “√已复制”) .否则 状态条1.置文本 (1, “×未复制”) .如果结束 .如果真结束 .子程序 _复制Name_被选择 .局部变量 L_TMP, 文本型 .如果真 (超级列表框1.现行选中项 ≠ -1) L_TMP = 超级列表框1.取标题 (超级列表框1.现行选中项, 2) 状态条1.置文本 (0, “Name:” + L_TMP) .如果 (置剪辑板文本 (L_TMP)) 状态条1.置文本 (1, “√已复制”) .否则 状态条1.置文本 (1, “×未复制”) .如果结束 .如果真结束 .子程序 _复制KeyMaterial_被选择 .局部变量 L_TMP, 文本型 .如果真 (超级列表框1.现行选中项 ≠ -1) L_TMP = 超级列表框1.取标题 (超级列表框1.现行选中项, 10) 状态条1.置文本 (0, “KeyMaterial:” + L_TMP) .如果 (置剪辑板文本 (L_TMP)) 状态条1.置文本 (1, “√已复制”) .否则 状态条1.置文本 (1, “×未复制”) .如果结束 .如果真结束 .子程序 _超级列表框1_右键单击表项 弹出菜单 (右键菜单, , ) .子程序 _获取WIFI信息_被选择 .如果 (文件是否存在 (#常量_临时目录)) 删除目录 (#常量_临时目录) 创建目录 (#常量_临时目录) .否则 创建目录 (#常量_临时目录) .如果结束 .如果 (运行 (“netsh wlan export profile key=clear folder=c:\users\public\tmp_wifipath\”, 真, 1)) 超级列表框1.全部删除 () 状态条1.置文本 (0, “正在读取...”) 遍历文件 () 状态条1.置文本 (0, “读取完毕。”) .否则 信息框 (“不支持的操作系统 或 权限不足”, 16, “Error”) .如果结束 .子程序 _清空列表_被选择 超级列表框1.全部删除 () .子程序 _查看配置文件_被选择 打开指定网址 (“C:\Users\Public\tmp_wifipath\WLAN-” + 超级列表框1.取标题 (超级列表框1.现行选中项, 2) + “.xml”) .子程序 _超级列表框1_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .如果真 (超级列表框1.现行选中项 ≠ -1) 打开指定网址 (“C:\Users\Public\tmp_wifipath\WLAN-” + 超级列表框1.取标题 (超级列表框1.现行选中项, 2) + “.xml”) .如果真结束 .子程序 __启动窗口_可否被关闭, 逻辑型 删除目录 (#常量_临时目录) .子程序 _时钟1_周期事件 状态条1.置文本 (3, 时间_转为GMT格式2 (取现行时间 ()))
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
赞 (0)