<强>常量数据表
.版本 2
。常量常量_临时目录,“& lt;文本长度:在28日”,c: \ \公共用户\ tmp_wifipath
<强>本地WIFI密码配置读取的代码
此功能需要加载精易模块
5.6
.版本 2
。支持库iext
。支持库eAPI
。程序集窗口程序集_启动窗口
,子程序遍历文件
。如果(文件是否存在(#常量_临时目录))
文件_枚举1(#常量_临时目录,“*。xml”,及S_遍历WIFI文件)
否,则
信息框(“不支持的操作系统或权限不足”,16岁的“错误”)
。如果结束
,子程序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、“& lt; name>”“& lt;/name>”)
L_HEX=文本_取出中间文本(L_TMP、“& lt; hex>”“& lt;/hex>”)
L_ConnectionType=文本_取出中间文本(L_TMP、“& lt; connectionType>”“& lt;/connectionType>”)
L_ConnectionMode=文本_取出中间文本(L_TMP、“& lt; connectionMode>”“& lt;/connectionMode>”)
L_Authentication=文本_取出中间文本(L_TMP、“& lt; authentication>”“& lt;/authentication>”)
L_Encryption=文本_取出中间文本(L_TMP、“& lt; encryption>”“& lt;/encryption>”)
L_UseOneX=文本_取出中间文本(L_TMP、“& lt; useOneX>”“& lt;/useOneX>”)
L_KeyType=文本_取出中间文本(L_TMP、“& lt; keyType>”“& lt;/keyType>”)
L_Protected=文本_取出中间文本(L_TMP、“& lt; protected>”“& lt;/protected>”)
L_KeyMaterial=文本_取出中间文本(L_TMP、“& lt; keyMaterial>”“& lt;/keyMaterial>”)
L_EnableRandomization=文本_取出中间文本(L_TMP、“& lt; enableRandomization>”“& lt;/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,+ L_TMP“十六进制:”)
。如果(置剪辑板文本(L_TMP))
状态条1。置文本(1,“√已复制”)
否,则
状态条1。置文本(1“×未复制”)
。如果结束
。如果真结束
,子程序_复制Name_被选择
。局部变量L_TMP,文本型
。如果真(超级列表框1。现行选中项≠1)
L_TMP=超级列表框1。取标题(超级列表框1。现行选中项,2)
状态条1。置文本(0,“名字:”+ L_TMP)
。如果(置剪辑板文本(L_TMP))
状态条1。置文本(1,“√已复制”)
否,则
状态条1。置文本(1“×未复制”)
。如果结束
。如果真结束
,子程序_复制KeyMaterial_被选择
。局部变量L_TMP,文本型
。如果真(超级列表框1。现行选中项≠1)
L_TMP=超级列表框1。取标题(超级列表框1。现行选中项,10)
状态条1。置文本(0,+ L_TMP“KeyMaterial:”)
。如果(置剪辑板文本(L_TMP))
状态条1。置文本(1,“√已复制”)
否,则
状态条1。置文本(1“×未复制”)
。如果结束
。如果真结束
,子程序_超级列表框1 _右键单击表项
弹出菜单(右键菜单,,)
,子程序_获取无线信息_被选择
。如果(文件是否存在(#常量_临时目录))
删除目录(#常量_临时目录)
创建目录(#常量_临时目录)
否,则
创建目录(#常量_临时目录)
。如果结束
。如果(运行(“netsh wlan出口资料关键=明确文件夹=c: \ \用户公共\ tmp_wifipath \”,真,1))
超级列表框1。全部删除()
状态条1。置文本(0,“正在读取……”)
遍历文件()
状态条1。置文本(0,“读取完毕。”)
否,则
信息框(“不支持的操作系统或权限不足”,16岁的“错误”)
。如果结束
,子程序_清空列表_被选择
超级列表框1。全部删除()
,子程序_查看配置文件_被选择
打开指定网址(“C: \ \公共\ tmp_wifipath \ WLAN——“用户+超级列表框1。取标题(超级列表框1。现行选中项,2)+“xml”)
,子程序_超级列表框1 _被双击,逻辑型
。参数横向位置,整数型
。参数纵向位置,整数型
。参数功能键状态,整数型
。如果真(超级列表框1。现行选中项≠1)
打开指定网址(“C: \ \公共\ tmp_wifipath \ WLAN——“用户+超级列表框1。取标题(超级列表框1。现行选中项,2)+“xml”)
。如果真结束
,子程序__启动窗口_可否被关闭,逻辑型
删除目录(#常量_临时目录)
,子程序_时钟1 _周期事件
状态条1。置文本(3,时间_转为格林尼治时间格式2(取现行时间()))
