DLL命令表
|
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
|
.版本 2.DLL命令 API_SendMessage, 整數型, "user32", "SendMessageA" .參數 窗口句柄, 整數型 .參數 消息值, 整數型 .參數 參數一, 整數型 .參數 參數二, 整數型.DLL命令 API_SendMessageTimeout, 整數型, "user32", "SendMessageTimeoutA", , , .參數 hWnd, 整數型, , 要接收消息的一個窗口的句柄 .參數 Msg, 整數型, , 消息的標識符 .參數 wParam, 整數型, , 由消息決定 .參數 lParam, 整數型, , 由消息決定 .參數 fuFlags, 整數型, , 下述常數的一個或多個;SMTO_ABORTIFHUNG：如目標進程掛起，則函數立即返回;SMTO_BLOCK：除非函數返回，否則調用線程不能處理消息;SMTO_NORMAL：允許調用線程處理消息，同時保持函數繼續執行 .參數 uTimeout, 整數型, , 超時值，采用毫秒為單位 .參數 lpdwResult, 整數型, 傳址, 用于裝載函數結果的一個變量;.DLL命令 注冊表_RegDeleteKeyA, 整數型, "advapi32.dll", "RegDeleteKeyA", 公開, _注冊表_刪除項刪除現有項下方一個指定的子項 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , 一個已打開項的句柄，或者標準項名之一 .參數 lpSubKey, 文本型, , 要刪除項的名字。這個項的所有子項也會刪除;.DLL命令 注冊表_RegCloseKey, 整數型, , "RegCloseKey", 公開, _注冊表_關閉項 advapi32.dll關閉系統注冊表中的一個項（或鍵） 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , 要關閉的項;.DLL命令 注冊表_RegCreateKeyA, 整數型, , "RegCreateKeyA", 公開, _注冊表_創建項 advapi32.dll在指定的項下創建一個新項。如指定的項已經存在，那么函數會打開現有的項 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , 要打開項的句柄，或者一個標準項名 .參數 lpSubKey, 文本型, , 欲創建的新子項。可同時創建多個項，只需用反斜杠將它們分隔開即可。例如level1\level2\newkey .參數 phkResult, 整數型, 傳址, 指定一個變量，用于裝載新子項的句柄;.DLL命令 注冊表_RegOpenKeyA, 整數型, "advapi32.dll", "RegOpenKeyA", 公開, _注冊表_打開項 打開一個現有的注冊表項 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , 一個已打開項的句柄，或指定一個標準項名 .參數 lpSubKey, 文本型, , 要打開的項名 .參數 phkResult, 整數型, 傳址, 指定一個變量，用于裝載（保存）打開注冊表項的一個句柄;.DLL命令 注冊表_RegEnumKeyA, 整數型, "advapi32.dll", "RegEnumKeyA", 公開, _注冊表_枚舉子項 .參數 hKey, 整數型 .參數 dwIndex, 整數型 .參數 lpName, 文本型, 傳址 .參數 cbName, 整數型.DLL命令 注冊表_RegQueryValueExA, 整數型, "advapi32.dll", "RegQueryValueExA", 公開, _注冊表_取值獲取一個項的設置值 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , 一個已打開項的句柄，或者指定一個標準項名 .參數 lpValueName, 文本型, , 要獲取值的名字 .參數 lpReserved, 整數型, , 未用，設為零 .參數 lpType, 整數型, 傳址, 用于裝載取回數據類型的一個變量 .參數 lpData, 字節集, 傳址, 用于裝載指定值的一個緩沖區 .參數 lpcbData, 整數型, 傳址, 用于裝載lpData緩沖區長度的一個變量。一旦返回，它會設為實際裝載到緩沖區的字節數;.DLL命令 注冊表_RegDeleteValueA, 整數型, "advapi32.dll", "RegDeleteValueA", , _注冊表_刪除值刪除指定項下方的一個值 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , 一個已打開項的句柄，或標準項名之一 .參數 lpValueName, 文本型, , 要刪除的值名。可設為vbNull或一個空串，表示刪除那個項的默認值;.DLL命令 注冊表_RegFlushKey, 整數型, "advapi32.dll", "RegFlushKey", , _注冊表_實際寫入將對項和它的子項作出的改動實際寫入磁盤 Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼 .參數 hKey, 整數型, , Long，欲刷新的一個項的句柄，或指定一個標準項名 |
常量數據表
|
1
2
3
4
5
6
7
|
.版本 2.常量 HWND_BROADCAST, "65535".常量 WM_SETTINGCHANGE, "26".常量 SMTO_NORMAL, "0".常量 圖標126, "<文本長度: 5>", , ,-126 紅.常量 圖標127, "<文本長度: 5>", , ,-127 藍.常量 圖標134, "<文本長度: 5>", , ,-134 紅 |
注冊表刪除代碼
|
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
|
.版本 2.程序集 注冊表.子程序 _打開項, 整數型.參數 項名稱, 文本型.參數 是否創建, 邏輯型, 可空, 默認為假:打開 真:如果項不存在則創建項.局部變量 局_根句柄, 整數型.局部變量 局_項句柄, 整數型.局部變量 局_項文本, 文本型.局部變量 局_位置, 整數型.局部變量 b, 整數型局_位置 ＝ 尋找文本 (項名稱, “\”, , 假)局_項文本 ＝ 取文本左邊 (項名稱, 局_位置 － 1).判斷開始 (局_項文本 ＝ “HKEY_CLASSES_ROOT”) 局_根句柄 ＝ 2147483648.判斷 (局_項文本 ＝ “HKEY_CURRENT_USER”) 局_根句柄 ＝ 2147483649.判斷 (局_項文本 ＝ “HKEY_LOCAL_MACHINE”) 局_根句柄 ＝ 2147483650.判斷 (局_項文本 ＝ “HKEY_USERS”) 局_根句柄 ＝ 2147483651.判斷 (文本比較 (局_項文本, “HKEY_CURRENT_CONFIG”, 假) ＝ 0) 局_根句柄 ＝ 2147483653.默認 返回 (0).判斷結束.如果 (是否創建) b ＝ 注冊表_RegCreateKeyA (局_根句柄, 取文本右邊 (項名稱, 取文本長度 (項名稱) － 局_位置), 局_項句柄).否則 b ＝ 注冊表_RegOpenKeyA (局_根句柄, 取文本右邊 (項名稱, 取文本長度 (項名稱) － 局_位置), 局_項句柄).如果結束.如果真 (b ＝ 0) 返回 (局_項句柄).如果真結束返回 (0).子程序 注冊表_枚舉子項, 整數型, 公開, 枚舉指定項名稱下的子項(成功返回子項目數,失敗返回-1).參數 項名稱, 文本型.參數 子項, 文本型, 可空 數組, 獲取的子項數組.局部變量 局_a, 整數型.局部變量 局_計次, 整數型.局部變量 局_項名, 文本型清除數組 (子項)局_a ＝ _打開項 (項名稱).如果真 (局_a ＝ 0) 返回 (-1).如果真結束局_項名 ＝ 取空白文本 (256).判斷循環首 (注冊表_RegEnumKeyA (局_a, 局_計次, 局_項名, 256) ＝ 0) 加入成員 (子項, 局_項名) 局_計次 ＝ 局_計次 ＋ 1 處理事件 ().判斷循環尾 ()注冊表_RegCloseKey (局_a)返回 (取數組成員數 (子項)).子程序 注冊表_刪除項, 邏輯型, 公開, 刪除指定項名稱以及它的所有子項與鍵值.參數 項名稱, 文本型, , 欲刪除的項名稱,尾部不要加"\".局部變量 a, 整數型.局部變量 b, 整數型.局部變量 c, 整數型.局部變量 子項, 文本型, , "0".局部變量 局_計次, 整數型.如果真 (取文本右邊 (項名稱, 1) ＝ “\”) 返回 (假).如果真結束c ＝ 倒找文本 (項名稱, “\”, , 假)a ＝ _打開項 (取文本左邊 (項名稱, c)).如果真 (a ＝ 0) 返回 (假).如果真結束.計次循環首 (注冊表_枚舉子項 (項名稱, 子項), 局_計次) 注冊表_刪除項 (項名稱 ＋ “\” ＋ 子項 [局_計次]).計次循環尾 ()b ＝ 注冊表_RegDeleteKeyA (a, 取文本右邊 (項名稱, 取文本長度 (項名稱) － c))注冊表_RegCloseKey (a)返回 (b ＝ 0).子程序 注冊表_是否存在, 邏輯型, 公開, 判斷指定注冊項名稱(鍵名)是否存在(存在返回真,否則返回假).參數 項名稱, 文本型, , 欲判斷的項名稱.參數 鍵名, 文本型, 可空, 欲判斷的鍵名.如果為空則只判斷項名稱是否存在.局部變量 a, 整數型.局部變量 b, 整數型.局部變量 值, 字節集a ＝ _打開項 (項名稱).如果真 (是否為空 (鍵名)) 注冊表_RegCloseKey (a) 返回 (a ≠ 0).如果真結束值 ＝ 取空白字節集 (256)b ＝ 注冊表_RegQueryValueExA (a, 鍵名, 0, 0, 值, 256)注冊表_RegCloseKey (a)返回 (b ＝ 0).子程序 注冊表_刪除鍵名, 邏輯型, 公開, 刪除指定項下的某個鍵名.參數 項名稱, 文本型, , 欲刪除鍵名所在的項名稱.參數 鍵名, 文本型, , 欲刪除的鍵名.局部變量 a, 整數型.局部變量 b, 整數型a ＝ _打開項 (項名稱).如果真 (a ＝ 0) 返回 (假).如果真結束b ＝ 注冊表_RegDeleteValueA (a, 鍵名)注冊表_RegCloseKey (a).子程序 注冊表_刷新項, 邏輯型, 公開, 將對項和它的子項作出的改動實際寫入磁盤.參數 項名稱, 文本型.局部變量 a, 整數型.局部變量 b, 整數型.局部變量 值, 字節集a ＝ _打開項 (項名稱).如果真 (a ＝ 0) 返回 (假).如果真結束b ＝ 注冊表_RegFlushKey (a)注冊表_RegCloseKey (a)返回 (b ＝ 0) |
易文件關聯修復代碼
|
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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
|
.版本 2.支持庫 eAPI.程序集 窗口程序集_啟動窗口.程序集變量 局部_路徑, 文本型.子程序 __啟動窗口_創建完畢圖片框2.圖片 ＝ #ICON_e1圖片框3.圖片 ＝ #ICON_e2圖片框4.圖片 ＝ #ICON_EC圖片框5.圖片 ＝ #ICON_EDB圖片框6.圖片 ＝ #ICON_FNE圖片框7.圖片 ＝ #ICON_LIB判斷注冊表 ().子程序 判斷注冊表, , , 根據注冊表項鍵值判斷是否關聯.如果真 (注冊項是否存在 (#根類, “E.Document\shell\open\command\”) ＝ 真) 局部_路徑 ＝ 取文本注冊項 (#根類, “E.Document\shell\open\command\”, ) 局部_路徑 ＝ 取文本左邊 (局部_路徑, 取文本長度 (局部_路徑) － 5) 編輯框_易語言主程序.內容 ＝ 局部_路徑 ' ＋ “e.exe” 通用對話框.初始目錄 ＝ 局部_路徑 .如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.e”)) .如果 (取文本注冊項 (#根類, “.e\”, ) ＝ “E.Document”) .如果 (尋找文本 (取文本注冊項 (#根類, “E.Document\shell\open\command\”, ), 編輯框_易語言主程序.內容, , 假) ≠ -1) 選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真 選擇框_易語言源碼_文件雙擊打開.禁止 ＝ 真 .否則 選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真 .如果結束 .如果 (尋找文本 (取文本注冊項 (#根類, “E.Document\DefaultIcon\”, ), 編輯框_易語言主程序.內容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E.Document\DefaultIcon\”, )) ＝ 真) 選擇框_易語言源碼_圖標顯示.選中 ＝ 真 選擇框_易語言源碼_圖標顯示.禁止 ＝ 真 .否則 選擇框_易語言源碼_圖標顯示.選中 ＝ 真 .如果結束 .如果 (注冊項是否存在 (#根類, “.e\ShellNew\NullFile”) ＝ 真) 選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真 選擇框_易語言源碼_右鍵新建易程序.禁止 ＝ 真 .否則 選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真 .如果結束 .否則 選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真 選擇框_易語言源碼_圖標顯示.選中 ＝ 真 選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真 .如果結束 .如果 (取文本注冊項 (#根類, “.e8\”, ) ＝ “E8.Document”) .如果 (尋找文本 (取文本注冊項 (#根類, “E8.Document\DefaultIcon\”, ), 編輯框_易語言主程序.內容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E8.Document\DefaultIcon\”, )) ＝ 真) 選擇框_易語言配置信息_圖標顯示.選中 ＝ 真 選擇框_易語言配置信息_圖標顯示.禁止 ＝ 真 .否則 選擇框_易語言配置信息_圖標顯示.選中 ＝ 真 .如果結束 .如果 (尋找文本 (取文本注冊項 (#根類, “E8.Document\Shell\Command\”, ), 編輯框_易語言主程序.內容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E8.Document\Shell\Command\”, )) ＝ 真) 選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真 選擇框_易語言配置信息_文件雙擊打開.禁止 ＝ 真 .否則 選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真 .如果結束 .如果 (注冊項是否存在 (#根類, “.e8\ShellNew\NullFile”) ＝ 真) 選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真 選擇框_易語言配置信息_右鍵新建易程序配置信息.禁止 ＝ 真 .否則 選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真 .如果結束 .如果 (尋找文本 (取文本注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, ), 編輯框_易語言主程序.內容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, )) ＝ 真) 選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真 選擇框_易語言配置信息_右鍵用易語言打開.禁止 ＝ 真 .否則 選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真 .如果結束 .如果 (文件是否存在 (取文本注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, “notepad.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號)) ＝ 真) 選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真 選擇框_易語言配置信息_右鍵用記事本打開.禁止 ＝ 真 .否則 選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真 .如果結束 .否則 選擇框_易語言配置信息_圖標顯示.選中 ＝ 真 選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真 選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真 選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真 選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真 .如果結束 .如果 (取文本注冊項 (#根類, “.ec\”, ) ＝ “ec_auto_file”) .如果 (尋找文本 (取文本注冊項 (#根類, “ec_auto_file\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “ec_auto_file\DefaultIcon\”, )) ＝ 真) 選擇框_易語言模塊_圖標顯示.選中 ＝ 真 選擇框_易語言模塊_圖標顯示.禁止 ＝ 真 .否則 選擇框_易語言模塊_圖標顯示.選中 ＝ 真 .如果結束 .否則 選擇框_易語言模塊_圖標顯示.選中 ＝ 真 .如果結束 .如果 (取文本注冊項 (#根類, “.edb\”, ) ＝ “EDB.Document”) .如果 (尋找文本 (取文本注冊項 (#根類, “EDB.Document\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “EDB.Document\DefaultIcon\”, )) ＝ 真) 選擇框_易數據庫文件_圖標顯示.選中 ＝ 真 選擇框_易數據庫文件_圖標顯示.禁止 ＝ 真 .否則 選擇框_易數據庫文件_圖標顯示.選中 ＝ 真 .如果結束 .如果 (尋找文本 (取文本注冊項 (#根類, “EDB.Document\Shell\Command\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “EDB.Document\Shell\Command\”, )) ＝ 真) 選擇框_易數據庫文件_文件雙擊打開.選中 ＝ 真 選擇框_易數據庫文件_文件雙擊打開.禁止 ＝ 真 .否則 選擇框_易數據庫文件_文件雙擊打開.選中 ＝ 真 .如果結束 .否則 選擇框_易數據庫文件_圖標顯示.選中 ＝ 真 選擇框_易數據庫文件_文件雙擊打開.選中 ＝ 真 .如果結束 .如果 (取文本注冊項 (#根類, “.fne\”, ) ＝ “FNE.Document”) .如果 (尋找文本 (取文本注冊項 (#根類, “FNE.Document\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\DefaultIcon\”, )) ＝ 真) 選擇框_易支持庫文件_圖標顯示.選中 ＝ 真 選擇框_易支持庫文件_圖標顯示.禁止 ＝ 真 .否則 選擇框_易支持庫文件_圖標顯示.選中 ＝ 真 .如果結束 .如果 (尋找文本 (取文本注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, )) ＝ 真) 選擇框_易支持庫文件_右鍵復制到易語言目錄.選中 ＝ 真 選擇框_易支持庫文件_右鍵復制到易語言目錄.禁止 ＝ 真 .否則 選擇框_易支持庫文件_右鍵復制到易語言目錄.選中 ＝ 假 .如果結束 .否則 選擇框_易支持庫文件_圖標顯示.選中 ＝ 真 .如果結束 .如果 (取文本注冊項 (#根類, “.lib\”, ) ＝ “LIB.Document”) .如果 (尋找文本 (取文本注冊項 (#根類, “LIB.Document\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\DefaultIcon\”, )) ＝ 真) 選擇框_易靜態庫文件_圖標顯示.選中 ＝ 真 選擇框_易靜態庫文件_圖標顯示.禁止 ＝ 真 .否則 選擇框_易靜態庫文件_圖標顯示.選中 ＝ 真 .如果結束 .如果 (尋找文本 (取文本注冊項 (#根類, “LIB.Document\Shell\復制到易語言目錄\Command\”, ), 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, )) ＝ 真) 選擇框_易靜態庫文件_右鍵復制到易語言目錄.選中 ＝ 真 選擇框_易靜態庫文件_右鍵復制到易語言目錄.禁止 ＝ 真 .否則 選擇框_易靜態庫文件_右鍵復制到易語言目錄.選中 ＝ 假 .如果結束 .否則 選擇框_易靜態庫文件_圖標顯示.選中 ＝ 真 .如果結束 .如果真結束.如果真結束.子程序 _按鈕_一鍵修復_被單擊.如果 (修復易語言源碼E () ＝ 真 且 修復易程序配置信息E8 () ＝ 真 且 修復易語言模塊EC () ＝ 真 且 修復易數據庫EDB () ＝ 真 且 修復易支持庫FNE () ＝ 真 且 修復易靜態庫LIB () ＝ 真) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.e”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\E.Document”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.e8”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\E8.Document”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.ec”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\ec_auto_file”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.edb”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\EDB.Document”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.fne”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\FNE.Document”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.lib”) 注冊表_刷新項 (“HKEY_CLASSES_ROOT\LIB.Document”) 刷新注冊表 () 刷新注冊表2 () 信息框 (“文件關聯 修復成功”, 64, “提示”, _啟動窗口.取窗口句柄 ()).否則 信息框 (“修復失敗，請以管理員身份運行”, 64, , _啟動窗口.取窗口句柄 ()).如果結束.子程序 e文件關聯, , , 測試寫注冊項 (#根類, “.e\”, “”)寫注冊項 (#根類, “.e\ShellNew\”, “”)寫注冊項 (#根類, “.e\ShellNew\NullFile”, “”) ' 右鍵新建寫注冊項 (#根類, “E.Document\”, “易語言程序”) ' 文件描述 ' 此值影響右鍵新建名稱和文寫注冊項 (#根類, “E.Document\DefaultIcon\”, 編輯框_易語言主程序.內容 ＋ “ ,-127”) ' 圖標關聯寫注冊項 (#根類, “E.Document\shell\”, “”)寫注冊項 (#根類, “E.Document\shell\open\”, “”)寫注冊項 (#根類, “E.Document\shell\open\command\”, 編輯框_易語言主程序.內容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ' 打開命令.子程序 _按鈕_刪除所有_被單擊.如果真 (信息框 (“此操作將從系統清除所有關聯信息” ＋ #換行符 ＋ “包括：*.e 、*.e8 、*.ec 、*.edb 、*.fne 、*.lib。” ＋ #換行符 ＋ #換行符 ＋ “點擊[確認]則繼續操作，點擊[取消]則退出。”, 1 ＋ 32 ＋ 256, “是否繼續操作？”, _啟動窗口.取窗口句柄 ()) ＝ #確認鈕) .如果 (刪除易語言源碼E () ＝ 真 且 刪除易程序配置信息E8 () ＝ 真 且 刪除易語言模塊EC () ＝ 真 且 刪除易數據庫EDB () ＝ 真 且 刪除易支持庫FNE () ＝ 真 且 刪除易靜態庫LIB () ＝ 真) 刷新注冊表 () 信息框 (“文件關聯 修復成功”, 64, “提示”, _啟動窗口.取窗口句柄 ()) .否則 信息框 (“修復失敗，請以管理員身份運行”, 64, , _啟動窗口.取窗口句柄 ()) .如果結束.如果真結束.子程序 修復易語言源碼E, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。.局部變量 返回E, 邏輯型, , , 記錄返回值返回E ＝ 真.如果真 (選擇框_易語言源碼_圖標顯示.選中 ＝ 真 且 選擇框_易語言源碼_圖標顯示.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e\”, “E.Document”) ＝ 真 且 寫注冊項 (#根類, “E.Document\”, “易語言程序”) ＝ 真 且 寫注冊項 (#根類, “E.Document\DefaultIcon\”, 編輯框_易語言主程序.內容 ＋ #圖標127) ＝ 真) 返回E ＝ 真 .否則 返回E ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真 且 選擇框_易語言源碼_文件雙擊打開.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e\”, “E.Document”) ＝ 真 且 寫注冊項 (#根類, “E.Document\”, “易語言程序”) ＝ 真 且 寫注冊項 (#根類, “E.Document\shell\open\command\”, 編輯框_易語言主程序.內容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 返回E ＝ 真 .否則 返回E ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真 且 選擇框_易語言源碼_右鍵新建易程序.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e\”, “E.Document”) ＝ 真 且 寫注冊項 (#根類, “E.Document\”, “易語言程序”) ＝ 真 且 寫注冊項 (#根類, “.e\ShellNew\NullFile”, “”) ＝ 真) 返回E ＝ 真 .否則 返回E ＝ 假 .如果結束.如果真結束返回 (返回E).子程序 刪除易語言源碼E, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。.局部變量 刪除返回E, 邏輯型刪除返回E ＝ 真.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.e”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.e”) ＝ 真) 刪除返回E ＝ 真 .否則 刪除返回E ＝ 假 .如果結束.如果真結束.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\E.Document”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\E.Document”) ＝ 真) 刪除返回E ＝ 真 .否則 刪除返回E ＝ 假 .如果結束.如果真結束返回 (刪除返回E).子程序 修復易語言模塊EC, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。.局部變量 _路徑, 文本型.局部變量 返回EC, 邏輯型, , , 記錄返回值返回EC ＝ 真.如果真 (選擇框_易語言模塊_圖標顯示.選中 ＝ 真 且 選擇框_易語言模塊_圖標顯示.禁止 ＝ 假) _路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5) .如果 (寫注冊項 (#根類, “.ec\”, “ec_auto_file”) ＝ 真 且 寫注冊項 (#根類, “ec_auto_file\”, “易語言模塊”) ＝ 真 且 寫注冊項 (#根類, “ec_auto_file\DefaultIcon\”, _路徑 ＋ “help\ec.ico”) ＝ 真) 寫到文件 (局部_路徑 ＋ “help\ec.ico”, #ICON_EC) 返回EC ＝ 真 .否則 返回EC ＝ 假 .如果結束.如果真結束返回 (返回EC).子程序 刪除易語言模塊EC, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。.局部變量 刪除返回EC, 邏輯型刪除返回EC ＝ 真.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.ec”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.ec”) ＝ 真) 刪除返回EC ＝ 真 .否則 刪除返回EC ＝ 假 .如果結束.如果真結束.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\ec_auto_file”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\ec_auto_file”) ＝ 真) 刪除返回EC ＝ 真 .否則 刪除返回EC ＝ 假 .如果結束.如果真結束返回 (刪除返回EC).子程序 修復易程序配置信息E8, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。.局部變量 返回E8, 邏輯型, , , 記錄返回值返回E8 ＝ 真.如果真 (選擇框_易語言配置信息_圖標顯示.選中 ＝ 真 且 選擇框_易語言配置信息_圖標顯示.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\DefaultIcon\”, 編輯框_易語言主程序.內容 ＋ #圖標134) ＝ 真) 返回E8 ＝ 真 .否則 返回E8 ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真 且 選擇框_易語言配置信息_文件雙擊打開.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\Shell\Open\Command\”, 編輯框_易語言主程序.內容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 返回E8 ＝ 真 .否則 返回E8 ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真 且 選擇框_易語言配置信息_右鍵新建易程序配置信息.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “.e\ShellNew\NullFile”, “”) ＝ 真) 返回E8 ＝ 真 .否則 返回E8 ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真 且 選擇框_易語言配置信息_右鍵用記事本打開.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, “notepad.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 返回E8 ＝ 真 .否則 返回E8 ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真 且 選擇框_易語言配置信息_右鍵用易語言打開.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\Shell\用易語言打開\Command\”, 編輯框_易語言主程序.內容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 返回E8 ＝ 真 .否則 返回E8 ＝ 假 .如果結束.如果真結束返回 (返回E8).子程序 刪除易程序配置信息E8, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。.局部變量 刪除返回E8, 邏輯型刪除返回E8 ＝ 真.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.e8”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.e8”) ＝ 真) 刪除返回E8 ＝ 真 .否則 刪除返回E8 ＝ 假 .如果結束.如果真結束.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\E8.Document”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\E8.Document”) ＝ 真) 刪除返回E8 ＝ 真 .否則 刪除返回E8 ＝ 假 .如果結束.如果真結束返回 (刪除返回E8).子程序 修復易數據庫EDB, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。.局部變量 EDB_路徑, 文本型.局部變量 返回EDB, 邏輯型, , , 記錄返回值EDB_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5)返回EDB ＝ 真.如果真 (選擇框_易數據庫文件_圖標顯示.選中 ＝ 真 且 選擇框_易數據庫文件_圖標顯示.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.edb\”, “EDB.Document”) ＝ 真 且 寫注冊項 (#根類, “EDB.Document\”, “易數據庫文件”) 且 寫注冊項 (#根類, “LIB.Document\DefaultIcon”, EDB_路徑 ＋ “help\edb.ico”) ＝ 真) 寫到文件 (EDB_路徑 ＋ “help\edb.ico”, #ICON_EDB) 返回EDB ＝ 真 .否則 返回EDB ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易數據庫文件_文件雙擊打開.選中 ＝ 真 且 選擇框_易數據庫文件_文件雙擊打開.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.edb\”, “EDB.Document”) ＝ 真 且 寫注冊項 (#根類, “EDB.Document\”, “易數據庫文件”) 且 寫注冊項 (#根類, “EDB.Document\Shell\Open\Command”, EDB_路徑 ＋ “tools\EDBView.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 寫到文件 (局部_路徑 ＋ “tools\EDBView.exe”, #EDBView) 返回EDB ＝ 真 .否則 返回EDB ＝ 假 .如果結束.如果真結束返回 (返回EDB).子程序 刪除易數據庫EDB, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。.局部變量 刪除返回EDB, 邏輯型刪除返回EDB ＝ 真.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.edb”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.edb”) ＝ 真) 刪除返回EDB ＝ 真 .否則 刪除返回EDB ＝ 假 .如果結束.如果真結束.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\EDB.Document”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\EDB.Document”) ＝ 真) 刪除返回EDB ＝ 真 .否則 刪除返回EDB ＝ 假 .如果結束.如果真結束返回 (刪除返回EDB).子程序 修復易支持庫FNE, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。.局部變量 FNE_路徑, 文本型.局部變量 返回FNE, 邏輯型, , , 記錄返回值FNE_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5)返回FNE ＝ 真.如果真 (選擇框_易支持庫文件_圖標顯示.選中 ＝ 真 且 選擇框_易支持庫文件_圖標顯示.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.fne\”, “FNE.Document”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\”, “易支持庫文件”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\DefaultIcon\”, FNE_路徑 ＋ “help\fne.ico”) ＝ 真) 寫到文件 (局部_路徑 ＋ “help\fne.ico”, #ICON_FNE) 返回FNE ＝ 真 .否則 返回FNE ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易支持庫文件_右鍵復制到易語言目錄.選中 ＝ 真 且 選擇框_易支持庫文件_右鍵復制到易語言目錄.禁止 ＝ 假) FNE_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5) .如果 (寫注冊項 (#根類, “.fne\”, “FNE.Document”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\”, “易支持庫文件”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, FNE_路徑 ＋ “tools\CopytoE.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 寫到文件 (局部_路徑 ＋ “tools\CopytoE.exe”, #CopytoE) 返回FNE ＝ 真 .否則 返回FNE ＝ 假 .如果結束.如果真結束返回 (返回FNE).子程序 刪除易支持庫FNE, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。.局部變量 刪除返回FNE, 邏輯型刪除返回FNE ＝ 真.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.fne”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.fne”) ＝ 真) 刪除返回FNE ＝ 真 .否則 刪除返回FNE ＝ 假 .如果結束.如果真結束.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\FNE.Document”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\FNE.Document”) ＝ 真) 刪除返回FNE ＝ 真 .否則 刪除返回FNE ＝ 假 .如果結束.如果真結束返回 (刪除返回FNE).子程序 修復易靜態庫LIB, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。.局部變量 LIB_路徑, 文本型.局部變量 返回LIB, 邏輯型, , , 記錄返回值LIB_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內容, 取文本長度 (編輯框_易語言主程序.內容) － 5)返回LIB ＝ 真.如果真 (選擇框_易靜態庫文件_圖標顯示.選中 ＝ 真 且 選擇框_易靜態庫文件_圖標顯示.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.lib\”, “LIB.Document”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\”, “易靜態庫文件”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\DefaultIcon\”, LIB_路徑 ＋ “help\lib.ico”) ＝ 真) 寫到文件 (LIB_路徑 ＋ “help\lib.ico”, #ICON_LIB) 返回LIB ＝ 真 .否則 返回LIB ＝ 假 .如果結束.如果真結束.如果真 (選擇框_易靜態庫文件_右鍵復制到易語言目錄.選中 ＝ 真 且 選擇框_易靜態庫文件_右鍵復制到易語言目錄.禁止 ＝ 假) .如果 (寫注冊項 (#根類, “.lib\”, “LIB.Document”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\”, “易靜態庫文件”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\Shell\復制到易語言目錄\Command\”, LIB_路徑 ＋ “tools\CopytoE.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真) 寫到文件 (LIB_路徑 ＋ “tools\CopytoE.exe”, #CopytoE) 返回LIB ＝ 真 .否則 返回LIB ＝ 假 .如果結束.如果真結束返回 (返回LIB).子程序 刪除易靜態庫LIB, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。.局部變量 刪除返回LIB, 邏輯型刪除返回LIB ＝ 真.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.lib”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.lib”) ＝ 真) 刪除返回LIB ＝ 真 .否則 刪除返回LIB ＝ 假 .如果結束.如果真結束.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\LIB.Document”)) .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\LIB.Document”) ＝ 真) 刪除返回LIB ＝ 真 .否則 刪除返回LIB ＝ 假 .如果結束.如果真結束返回 (刪除返回LIB).子程序 刷新注冊表API_SendMessage (#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, 0).子程序 刷新注冊表2.局部變量 dwResult, 整數型API_SendMessageTimeout (#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, 0, #SMTO_NORMAL, 1000, dwResult).子程序 _透明標簽1_鼠標左鍵被按下, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型打開指定網址 (“//www.jfrwli.cn/”).子程序 _按鈕_瀏覽_被單擊通用對話框.類型 ＝ 0通用對話框.標題 ＝ “選擇易語言主程序”通用對話框.過濾器 ＝ “易語言主程序(e.exe)|e.exe”.如果真 (通用對話框.打開 ()) 編輯框_易語言主程序.內容 ＝ 通用對話框.文件名.如果真結束.子程序 __啟動窗口_尺寸被改變_啟動窗口.寬度 ＝ 455_啟動窗口.高度 ＝ 480.子程序 __啟動窗口_將被銷毀_啟動窗口.銷毀 () |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
