常量数据表
|
1
2
|
.版本 2
.常量 常量_临时目录, "<文本长度: 28>", , c:\users\public\tmp_wifipath
|
本地WIFI密码配置读取的代码
此功能需要加载精易模块5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
.版本 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 (取现行时间 ()))
|
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接