常量數據表
|
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 (取現行時間 ())) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
