易语言通过读取文件获取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)

相关推荐

  • 易语言CNA算法实现快速加密解密文件的代码

    CNA文件加解密数据算法 .版本 2 .支持库 spec .支持库 iext .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 code, 字节集, , , 加密密码 .局部变量 test, 字节集, , , 要加密码的数据字节集 .局部变量 i, 整数型, , , 查看反馈信息 ' 简单例子 test = 到字节集 ("aaaaaaa aaa.*#(中.329}@#¥") code = 到字节集 ("中.有 3a#") CNA数据 (t

  • 易语言读写文件操作分析

    一.实现效果 1.打开文件: 2.保存文件: 3.根据一定的规则切割展示文本内容: 二.源码 .版本 2 .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 程序集_读入的字节集, 字节集 .子程序 _打开文件_被选择 .局部变量 临时_文件路径, 文本型 .局部变量 i, 整数型 .局部变量 临时_文件内容, 文本型 .局部变量 临时_分割每行文本, 文本型, , "0" .局部变量 临时_分割文本, 文本型, , "0" .局部变量 临时_索引,

  • 易语言检测文件被哪个进程占用的代码

    检测文件占用的代码 此功能需要加载贝贝吧模块6.6 .版本 2 .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 _查询按钮_被单击 .局部变量 进程名, 进程信息, , "0" .局部变量 进程id, 整数型, , "0" .局部变量 a, 整数型, , "0" .局部变量 i, 整数型 进程名 = 取系统进程列表 () 显示占用列表框.清空 () .计次循环首 (取数组成员数 (进程名), i) .如果真 (寻找文本 (到小写 (

  • 易语言制作文件夹压缩备份工具的代码

    文件夹压缩备份工具 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 iext .支持库 eCompress .程序集 窗口程序集1 .程序集变量 时间戳, 文本型 .程序集变量 过滤文本, 文本型, , "0" .子程序 _文件路径按钮_被单击 .局部变量 路径, 文本型 路径 = 浏览文件夹 ("选择一个文件夹备份", 假) .判断开始 (路径 = "") 提示框 ("请选择文件夹备份!") .默认

  • 解决易语言调试的时候提示不能写出临时文件

    小编在测试易语言程序的时候,出现过"不能写出临时文件"这个错误,在网上找了很久,总结了解决办法. 易语言的运行权限不够.找到易语言的安装目录,右键"e.exe",点击"属性".就可以了 以上的方法很简单,大家测试以下,感谢大家对我们的支持.

  • 易语言调用API函数监视目录与文件的代码

    DLL命令表 .版本 2 .DLL命令 GetPrivateProfileInt, 整数型, , "GetPrivateProfileIntA" .参数 lpAppName, 文本型 .参数 lpKeyName, 文本型 .参数 nDefault, 整数型 .参数 lpFileName, 文本型 .DLL命令 GetPrivateProfileString, 整数型, , "GetPrivateProfileStringA" .参数 lpAppName, 文本型 .

  • 易语言调用api实现文件拖放获取路径的代码

    拖放文件支持任意版本Windows系统 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 文件拖放类, 文件拖放 .子程序 __启动窗口_创建完毕 .局部变量 拖放处理, 子程序指针 文件拖放类.注册拖放 (_启动窗口.取窗口句柄 (), &拖放处理) proc_FilterMsg () .子程序 拖放处理 .参数 总文件数量, 整数型 .参数 当前是第几个文件, 整数型 .参数 当前的文件名, 文本型 .参数 当前的文件类型, 文本型

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

    常量数据表 .版本 2 .常量 常量_临时目录, "<文本长度: 28>", , c:\users\public\tmp_wifipath 本地WIFI密码配置读取的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 遍历文件 .如果 (文件是否存在 (#常量_临时目录)) 文件_枚举1 (#常量_临时目录, "*.xml", &S_遍历WIFI文件) .否则 信息框

  • Go语言扫描目录并获取相关信息的方法

    本文实例讲述了Go语言扫描目录并获取相关信息的方法.分享给大家供大家参考.具体分析如下: 前言:最近看到Go里面有一个func很容易就可以扫描整个目录,并且可以得到相应的目录和文件信息,所以我将其进行了封装,拿到file info的所有信息 这样就可以方便的做其它用途了. 直接上代码,代码基于Go version 1 复制代码 代码如下: package main import (     "path/filepath"     "os"     "fla

  • 易语言遍历和删除sqlite数据库信息方法

    易语言如何遍历和删除sqlite数据库信息呢 1.打开易语言,我们新建一个"Windows"窗口程序,进入到窗口程序集中 2.在新建的窗口中添加2个编辑框,1个按钮组件.并修改组件的属性. 3.我们双击启动窗口,在__启动窗口_创建完毕程序中,声明如下变量和写入遍历数据库信息的代码: sqlite.打开 (取特定目录 (3) + "25种族.db", ) sql.打开 ("剑圣", sqlite) 置随机数种子 () sql.跳到 (取随机数 (

  • 易语言打开图片文件对话框应用详解

    很多人可能不了解打开图片文件对话框,其实这个组件可以算是写好过滤器的通用对话框,如果大家需要用通用对话框打开图片文件,使用这个组件便省时省力,现在让我教大家学习一下. 1.首先打开易语言,创建一个windows窗口程序. 2.在右侧扩展组件找到打开图片文件对话框,拖动并创建. 3.查看支持库帮助,再创建一个编辑框,一个按钮和一个图片框,布局如下图所示. 1.打开图片文件对话框 双击按钮,写出下图源码,按下F5调试. 2.单击按钮,弹出打开图片文件对话框,选择要打开的图片文件,单击确定. 3.此时

  • 易语言超级列表框表项关键字搜索代码示例

    超级列表框表项关键字搜索示例 .版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 ("请输入需要查找的内容", "查找表项", "易语言7", 临时文本, ) = 真) 是否找到 = 假 .计次循环首 (超级列表框.取表项数 (), a)

  • 纯批处理获取硬件信息的代码

    先声明:我私下会不断的更新代码,只有大幅度更新才会上传到这里(目前核心代码基本完善)! 兼容XP Win7 Win8 win10 本程序特性: 1.运行环境判断,若自身被修改则自动闪退:若PE环境则提示并指引退出:若虚拟机环境则提示信息获取可能不准:若非管理员权限也会截取并提示. 2.关于硬盘.内存容量的计算方面支持 字节 KB MB GB TB PB 3.由于有些电脑多网卡.显卡.声卡,此程序只获取正在使用的相关信息 4.硬盘温度,使用时间,通电次数纯批处理实现!(原创代码,转载请注明出处!)

  • 易语言实现QQ空间留言批量删除的代码

    全局变量表 .版本 2 .全局变量 Uin_全, 文本型 .全局变量 Cookie_全, 文本型 QQ快捷启动的代码 .版本 2 .支持库 HtmlView .支持库 iext .程序集 窗口程序集_快速 .子程序 _超文本浏览框1_跳转完毕 .局部变量 返回文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 二次分割, 文本型, , "0" .局部变量 i, 整数型 .局部变量 s, 整数型 .局部变量 Cookie, 文本型 .局部变量 U

  • PHP Ajax JavaScript Json获取天气信息实现代码

    要在自己的网站上添加一个天气预报功能,是一个很普通的需求,实现起来也不是很难.今天来介绍几个简单的方法. 使用第三方服务 有这样的一种简单的方式,借助http://www.tianqi.com/plugin/网上的天气服务,可以定制我们的显示形状,实现添加天气预报的功能. 下面给出一个简单的小例子: 复制代码 代码如下: <iframe width="420" scrolling="no" height="60" frameborder=&

  • 易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 微信公众号开发之获取位置信息php代码

    本文实例为大家分享了php微信公众号获取位置信息的具体代码,供大家参考,具体内容如下 <?php /** * wechat php test */ //define your token define("TOKEN", "weixin"); $wechatObj = new wechatCallbackapiTest(); //$wechatObj->valid(); $wechatObj->responseMsg(); class wechatC

随机推荐