网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

易语言通过读取文件获取WIFI信息的代码

常量数据表

创新互联建站是一家网站设计公司,集创意、互联网应用、软件技术为一体的创意网站建设服务商,主营产品:响应式网站设计成都品牌网站建设全网营销推广。我们专注企业品牌在网站中的整体树立,网络互动的体验,以及在手机等移动端的优质呈现。成都网站制作、网站建设、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏析悦目的作品,网站的价值服务。

.版本 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, “”, “”)
L_HEX = 文本_取出中间文本 (L_TMP, “”, “”)
L_ConnectionType = 文本_取出中间文本 (L_TMP, “”, “”)
L_ConnectionMode = 文本_取出中间文本 (L_TMP, “”, “”)
L_Authentication = 文本_取出中间文本 (L_TMP, “”, “”)
L_Encryption = 文本_取出中间文本 (L_TMP, “”, “”)
L_UseOneX = 文本_取出中间文本 (L_TMP, “”, “”)
L_KeyType = 文本_取出中间文本 (L_TMP, “”, “”)
L_Protected = 文本_取出中间文本 (L_TMP, “”, “”)
L_KeyMaterial = 文本_取出中间文本 (L_TMP, “”, “”)
L_EnableRandomization = 文本_取出中间文本 (L_TMP, “”, “”)
.如果真 (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 (取现行时间 ()))

运行结果:

易语言通过读取文件获取WIFI信息的代码

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对创新互联的支持。如果你想了解更多相关内容请查看下面相关链接


本文标题:易语言通过读取文件获取WIFI信息的代码
网页链接:http://bjjierui.cn/article/gdhejc.html

其他资讯