局域网使用工具NSIS脚本

admin

1. !addplugindir "ResPlugins"
   
2. 
   
3. #!define NSIS_VERSION_NEW ;;makensis.exe 2.21以后版本请去掉注释。
   
4. 
   
5. !include "LanInfoManager.nsh"
   
6. 
   
7. !define MUI_ICON "${RES_ICON}"
   
8. 
   
9. !define MUI_UI "${RES_UI}"
   
10. 
    
11. Name ${STR_NAME}
    
12. 
    
13. Caption "${STR_CAPTION}"
    
14. 
    
15. OutFile ${STR_OUTFILE}
    
16. 
    
17. CRCCheck off
    
18. 
    
19. !insertmacro MUI_LANGUAGE "${STR_MUI_LANG}"
    
20. 
    
21. VIProductVersion "${STR_VERSION}"
    
22. 
    
23. VIAddVersionKey /LANG=${LANG_ID} "ProductName" "${STR_PRODCTNAME}"
    
24. 
    
25. VIAddVersionKey /LANG=${LANG_ID} "Comments" "${STR_COMMENTS}"
    
26. 
    
27. VIAddVersionKey /LANG=${LANG_ID} "CompanyName" "${STR_COMPANYNAME}"
    
28. 
    
29. VIAddVersionKey /LANG=${LANG_ID} "LegalCopyright" "${STR_COPYRIGHT}"
    
30. 
    
31. VIAddVersionKey /LANG=${LANG_ID} "FileDescription" "${STR_FILEDESCRIPTION}"
    
32. 
    
33. VIAddVersionKey /LANG=${LANG_ID} "FileVersion" "${STR_FILEVERSION}"
    
34. 
    
35. VIAddVersionKey /LANG=${LANG_ID} "InternalName" "${STR_INTNAME}"
    
36. 
    
37. VIAddVersionKey /LANG=${LANG_ID} "OriginalFilename" "${STR_OUTFILE}"
    
38. 
    
39. Page custom ShowCustom LeaveCustom
    
40. 
    
41. Page instfiles ;;可有可无...
    
42. 
    
43. !macro AddHostNum ARG_Delta
    
44. 
    
45. IntOp $COUNTER_HOSTNUM $COUNTER_HOSTNUM + ${ARG_Delta}
    
46. 
    
47. !macroend
    
48. 
    
49. !macro EnableGlobalBtn ARG_Var.hwnd ARG_Flag
    
50. 
    
51. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_CHANGE_IP}" "HWND"
    
52. 
    
53. ShowWindow ${ARG_Var.hwnd} ${ARG_Flag}
    
54. 
    
55. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_CHANGE_MAC}" "HWND"
    
56. 
    
57. ShowWindow ${ARG_Var.hwnd} ${ARG_Flag}
    
58. 
    
59. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_MINIMIZE}" "HWND"
    
60. 
    
61. ShowWindow ${ARG_Var.hwnd} ${ARG_Flag}
    
62. 
    
63. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_RF_CONNECTION}" "HWND"
    
64. 
    
65. ShowWindow ${ARG_Var.hwnd} ${ARG_Flag}
    
66. 
    
67. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${LAB_HELP}" "HWND"
    
68. 
    
69. ShowWindow ${ARG_Var.hwnd} 0
    
70. 
    
71. ${if} ${ARG_Flag} == 0
    
72. 
    
73. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
    
74. 
    
75. SendMessage ${ARG_Var.hwnd} ${WM_SETTEXT} 0 "STR:${STR_NOTEPAD}" ;;更改标签字符
    
76. 
    
77. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
    
78. 
    
79. ShowWindow ${ARG_Var.hwnd} 1
    
80. 
    
81. ${else}
    
82. 
    
83. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
    
84. 
    
85. SendMessage ${ARG_Var.hwnd} ${WM_SETTEXT} 0 "STR:全局操作" ;;更改标签字符
    
86. 
    
87. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
    
88. 
    
89. ShowWindow ${ARG_Var.hwnd} 1
    
90. 
    
91. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
    
92. 
    
93. ShowWindow ${ARG_Var.hwnd} 0
    
94. 
    
95. ${endif}
    
96. 
    
97. !macroend
    
98. 
    
99. !macro EnableTXTEdit ARG_Var.hwnd ARG_Flag
    
100. 
     
101. EnableWindow $HWND_TXT_HOST ${ARG_Flag}
     
102. 
     
103. EnableWindow $HWND_TXT_MAC ${ARG_Flag}
     
104. 
     
105. EnableWindow $HWND_TXT_IP ${ARG_Flag}
     
106. 
     
107. EnableWindow $HWND_TXT_MASK ${ARG_Flag}
     
108. 
     
109. EnableWindow $HWND_TXT_NETGATE ${ARG_Flag}
     
110. 
     
111. EnableWindow $HWND_TXT_DNS ${ARG_Flag}
     
112. 
     
113. ${if} ${ARG_Flag} == 0
     
114. 
     
115. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${LAB_SCALE}" "HWND"
     
116. 
     
117. ShowWindow ${ARG_Var.hwnd} 0
     
118. 
     
119. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${LAB_AUTHOR}" "HWND"
     
120. 
     
121. ShowWindow ${ARG_Var.hwnd} 0
     
122. 
     
123. SetCtlColors ${ARG_Var.hwnd} 0x333333 transparent
     
124. 
     
125. SendMessage ${ARG_Var.hwnd} ${WM_SETTEXT} 0 "STR:${STR_AUTHOR}"
     
126. 
     
127. ShowWindow ${ARG_Var.hwnd} 1
     
128. 
     
129. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_NEW_HOST}" "HWND"
     
130. 
     
131. EnableWindow ${ARG_Var.hwnd} 1
     
132. 
     
133. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_EDIT_HOST}" "HWND"
     
134. 
     
135. EnableWindow ${ARG_Var.hwnd} 1
     
136. 
     
137. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_ADD}" "HWND"
     
138. 
     
139. ShowWindow ${ARG_Var.hwnd} 0
     
140. 
     
141. EnableWindow ${ARG_Var.hwnd} 0
     
142. 
     
143. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_UPDATE}" "HWND"
     
144. 
     
145. ShowWindow ${ARG_Var.hwnd} 0
     
146. 
     
147. EnableWindow ${ARG_Var.hwnd} 0
     
148. 
     
149. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_DELETE}" "HWND"
     
150. 
     
151. ShowWindow ${ARG_Var.hwnd} 0
     
152. 
     
153. EnableWindow ${ARG_Var.hwnd} 0
     
154. 
     
155. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND" ;;可用下拉主机列表
     
156. 
     
157. EnableWindow ${ARG_Var.hwnd} 1
     
158. 
     
159. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" "HWND"
     
160. 
     
161. WriteINIStr "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" "Text" "备份主机列表(&S)"
     
162. 
     
163. SendMessage ${ARG_Var.hwnd} ${WM_SETTEXT} 0 "STR:备份主机列表(&S)"
     
164. 
     
165. ${else}
     
166. 
     
167. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${LAB_SCALE}" "HWND"
     
168. 
     
169. ShowWindow ${ARG_Var.hwnd} 1
     
170. 
     
171. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${LAB_AUTHOR}" "HWND"
     
172. 
     
173. ShowWindow ${ARG_Var.hwnd} 0
     
174. 
     
175. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_NEW_HOST}" "HWND"
     
176. 
     
177. EnableWindow ${ARG_Var.hwnd} 0
     
178. 
     
179. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${BTN_EDIT_HOST}" "HWND"
     
180. 
     
181. EnableWindow ${ARG_Var.hwnd} 0
     
182. 
     
183. ReadINIStr ${ARG_Var.hwnd} "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND" ;;禁用下拉主机列表
     
184. 
     
185. EnableWindow ${ARG_Var.hwnd} 0
     
186. 
     
187. ${endif}
     
188. 
     
189. !macroend
     
190. 
     
191. !macro ShowReg2Txt ARG_Var.1 ARG_Var.2 ARG_Var.3
     
192. 
     
193. ${if} $COUNTER_HOSTNUM >= 1 ;有主机信息
     
194. 
     
195. ReadINIStr ${ARG_Var.1} "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
     
196. 
     
197. SendMessage $HWND_TXT_HOST ${WM_SETTEXT} 0 "STR:${ARG_Var.1}"
     
198. 
     
199. ReadRegStr ${ARG_Var.2} HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "MAC"
     
200. 
     
201. ${if} ${ARG_Var.2} == ""
     
202. 
     
203. ${orif} ${ARG_Var.2} == ${STR_UNSETTED}
     
204. 
     
205. StrCpy ${ARG_Var.2} "${STR_UNSETTED}"
     
206. 
     
207. ${else}
     
208. 
     
209. StrLen ${ARG_Var.3} "${ARG_Var.2}"
     
210. 
     
211. ${if} ${ARG_Var.3} != 12
     
212. 
     
213. StrCpy ${ARG_Var.2} "${STR_ERRORFORMAT}"
     
214. 
     
215. ${endif}
     
216. 
     
217. ${endif}
     
218. 
     
219. SendMessage $HWND_TXT_MAC ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
220. 
     
221. ReadRegStr ${ARG_Var.2} HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "IP"
     
222. 
     
223. ${if} ${ARG_Var.2} == ""
     
224. 
     
225. StrCpy ${ARG_Var.2} "${STR_UNSETTED}"
     
226. 
     
227. ${endif}
     
228. 
     
229. SendMessage $HWND_TXT_IP ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
230. 
     
231. ReadRegStr ${ARG_Var.2} HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "MASK"
     
232. 
     
233. ${if} ${ARG_Var.2} == ""
     
234. 
     
235. StrCpy ${ARG_Var.2} "${STR_UNSETTED}"
     
236. 
     
237. ${endif}
     
238. 
     
239. SendMessage $HWND_TXT_MASK ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
240. 
     
241. ReadRegStr ${ARG_Var.2} HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "NETGATE"
     
242. 
     
243. ${if} ${ARG_Var.2} == ""
     
244. 
     
245. StrCpy ${ARG_Var.2} "${STR_UNSETTED}"
     
246. 
     
247. ${endif}
     
248. 
     
249. SendMessage $HWND_TXT_NETGATE ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
250. 
     
251. ReadRegStr ${ARG_Var.2} HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "DNS"
     
252. 
     
253. ${if} ${ARG_Var.2} == ""
     
254. 
     
255. StrCpy ${ARG_Var.2} "${STR_UNSETTED}"
     
256. 
     
257. ${endif}
     
258. 
     
259. SendMessage $HWND_TXT_DNS ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
260. 
     
261. ${else} ;无主机信息
     
262. 
     
263. ReadRegStr ${ARG_Var.2} HKLM "${REG_WINLOGON}" "AltDefaultDomainName"
     
264. 
     
265. SendMessage $HWND_TXT_HOST ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
266. 
     
267. ReadINIStr ${ARG_Var.1} ${MUI_INIFILE} "Field ${DL_NETCARD}" State
     
268. 
     
269. ReadINIStr ${ARG_Var.2} ${MUI_INIFILE} "${ARG_Var.1}" "MAC"
     
270. 
     
271. SendMessage $HWND_TXT_MAC ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
272. 
     
273. ReadINIStr ${ARG_Var.2} ${MUI_INIFILE} "${ARG_Var.1}" "IP"
     
274. 
     
275. SendMessage $HWND_TXT_IP ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
276. 
     
277. ReadINIStr ${ARG_Var.2} ${MUI_INIFILE} "${ARG_Var.1}" "MASK"
     
278. 
     
279. SendMessage $HWND_TXT_MASK ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
280. 
     
281. ReadINIStr ${ARG_Var.2} ${MUI_INIFILE} "${ARG_Var.1}" "NETGATE"
     
282. 
     
283. SendMessage $HWND_TXT_NETGATE ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
284. 
     
285. ReadINIStr ${ARG_Var.2} ${MUI_INIFILE} "${ARG_Var.1}" "DNS"
     
286. 
     
287. SendMessage $HWND_TXT_DNS ${WM_SETTEXT} 0 "STR:${ARG_Var.2}"
     
288. 
     
289. ${endif}
     
290. 
     
291. ${if} $COUNTER_HOSTNUM < 1 ;无主机列表信息
     
292. 
     
293. SendMessage $HWND_GB_SELHOST ${WM_SETTEXT} 0 "STR:选择主机 ( 无主机信息 )"
     
294. 
     
295. ${else} ;;显示主机个数
     
296. 
     
297. SendMessage $HWND_GB_SELHOST ${WM_SETTEXT} 0 "STR:选择主机 ( 当前共 $COUNTER_HOSTNUM 个主机信息 )"
     
298. 
     
299. ${endif}
     
300. 
     
301. !macroend
     
302. 
     
303. !macro SaveTxt2Reg ARG_Var.1 ARG_Var.2 ARG_Var.3
     
304. 
     
305. WriteRegStr HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "" "Setted"
     
306. 
     
307. WriteINIStr ${MUI_INIFILE} "Field ${TXT_HOST}" State ${ARG_Var.1}
     
308. 
     
309. ReadINIStr ${ARG_Var.2} "${MUI_INIFILE}" "Field ${TXT_MAC}" "State"
     
310. 
     
311. StrCpy ${ARG_Var.3} "${ARG_Var.2}"
     
312. 
     
313. ${if} ${ARG_Var.2} == ""
     
314. 
     
315. ${orif} ${ARG_Var.2} == "${STR_UNSETTED}"
     
316. 
     
317. StrCpy ${ARG_Var.2} ""
     
318. 
     
319. StrCpy ${ARG_Var.3} "${STR_UNSETTED}"
     
320. 
     
321. ${else}
     
322. 
     
323. StrLen ${ARG_Var.3} "${ARG_Var.2}"
     
324. 
     
325. ${if} ${ARG_Var.3} != 12
     
326. 
     
327. StrCpy ${ARG_Var.3} "${STR_ERRORFORMAT}"
     
328. 
     
329. ${else}
     
330. 
     
331. StrCpy ${ARG_Var.3} ${ARG_Var.2}
     
332. 
     
333. ${endif}
     
334. 
     
335. ${endif}
     
336. 
     
337. SendMessage $HWND_TXT_MAC ${WM_SETTEXT} 0 "STR:${ARG_Var.3}"
     
338. 
     
339. WriteRegStr HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "MAC" "${ARG_Var.2}"
     
340. 
     
341. ReadINIStr ${ARG_Var.2} "${MUI_INIFILE}" "Field ${TXT_IP}" "State"
     
342. 
     
343. StrCpy ${ARG_Var.3} "${ARG_Var.2}"
     
344. 
     
345. ${if} ${ARG_Var.2} == ""
     
346. 
     
347. ${orif} ${ARG_Var.2} == "${STR_UNSETTED}"
     
348. 
     
349. StrCpy ${ARG_Var.3} ${STR_UNSETTED}
     
350. 
     
351. StrCpy ${ARG_Var.2} ""
     
352. 
     
353. ${endif}
     
354. 
     
355. SendMessage $HWND_TXT_IP ${WM_SETTEXT} 0 "STR:${ARG_Var.3}"
     
356. 
     
357. WriteRegStr HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "IP" ${ARG_Var.2}
     
358. 
     
359. ReadINIStr ${ARG_Var.2} "${MUI_INIFILE}" "Field ${TXT_MASK}" "State"
     
360. 
     
361. StrCpy ${ARG_Var.3} "${ARG_Var.2}"
     
362. 
     
363. ${if} ${ARG_Var.2} == ""
     
364. 
     
365. ${orif} ${ARG_Var.2} == "${STR_UNSETTED}"
     
366. 
     
367. StrCpy ${ARG_Var.3} ${STR_UNSETTED}
     
368. 
     
369. StrCpy ${ARG_Var.2} ""
     
370. 
     
371. ${endif}
     
372. 
     
373. SendMessage $HWND_TXT_MASK ${WM_SETTEXT} 0 "STR:${ARG_Var.3}"
     
374. 
     
375. WriteRegStr HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "MASK" ${ARG_Var.2}
     
376. 
     
377. ReadINIStr ${ARG_Var.2} "${MUI_INIFILE}" "Field ${TXT_NETGATE}" "State"
     
378. 
     
379. StrCpy ${ARG_Var.3} "${ARG_Var.2}"
     
380. 
     
381. ${if} ${ARG_Var.2} == ""
     
382. 
     
383. ${orif} ${ARG_Var.2} == "${STR_UNSETTED}"
     
384. 
     
385. StrCpy ${ARG_Var.3} ${STR_UNSETTED}
     
386. 
     
387. StrCpy ${ARG_Var.2} ""
     
388. 
     
389. ${endif}
     
390. 
     
391. SendMessage $HWND_TXT_NETGATE ${WM_SETTEXT} 0 "STR:${ARG_Var.3}"
     
392. 
     
393. WriteRegStr HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "NETGATE" ${ARG_Var.2}
     
394. 
     
395. ReadINIStr ${ARG_Var.2} "${MUI_INIFILE}" "Field ${TXT_DNS}" "State"
     
396. 
     
397. StrCpy ${ARG_Var.3} "${ARG_Var.2}"
     
398. 
     
399. ${if} ${ARG_Var.2} == ""
     
400. 
     
401. ${orif} ${ARG_Var.2} == "${STR_UNSETTED}"
     
402. 
     
403. StrCpy ${ARG_Var.3} ${STR_UNSETTED}
     
404. 
     
405. StrCpy ${ARG_Var.2} ""
     
406. 
     
407. ${endif}
     
408. 
     
409. SendMessage $HWND_TXT_DNS ${WM_SETTEXT} 0 "STR:${ARG_Var.3}"
     
410. 
     
411. WriteRegStr HKLM "${REG_ME_HOSTLIST}${ARG_Var.1}" "DNS" ${ARG_Var.2}
     
412. 
     
413. !macroend
     
414. 
     
415. !macro SetOneInfoTXT ARG_Var.temp ARG_Syb.hwnd ARG_Str.Mgs
     
416. 
     
417. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${${ARG_Syb.hwnd}}" "State"
     
418. 
     
419. ${if} ${ARG_Var.temp} == "${STR_UNSETTED}"
     
420. 
     
421. ${orif} ${ARG_Var.temp} == ""
     
422. 
     
423. System::Call 'user32::MessageBeep(i) i (0x00000000)'
     
424. 
     
425. MessageBox::show MB_ICONHAND|MB_TOPMOST "信息不全" "$SYSDIRShell32.dll,200"
     
426. 
     
427. "无法更改 TCP/IP 配置,请你完整填写 [${ARG_Str.Mgs}] 信息。 "
     
428. 
     
429. "好的 (&O)"
     
430. 
     
431. Pop $R0
     
432. 
     
433. EnableWindow $HWND_${ARG_Syb.hwnd} 1
     
434. 
     
435. SendMessage $HWND_${ARG_Syb.hwnd} ${WM_SETTEXT} 0 "STR:"
     
436. 
     
437. System::Call "user32::SetFocus(i $HWND_${ARG_Syb.hwnd})i"
     
438. 
     
439. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${LAB_AUTHOR}" "HWND"
     
440. 
     
441. ShowWindow ${ARG_Var.temp} 0
     
442. 
     
443. SetCtlColors ${ARG_Var.temp} 0xD95200 transparent
     
444. 
     
445. SendMessage ${ARG_Var.temp} ${WM_SETTEXT} 0 "STR:填写${ARG_Str.Mgs}"
     
446. 
     
447. ShowWindow ${ARG_Var.temp} 1
     
448. 
     
449. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${BTN_UPDATE}" "HWND"
     
450. 
     
451. ;; 显示[更新主机]
     
452. 
     
453. EnableWindow ${ARG_Var.temp} 1
     
454. 
     
455. ShowWindow ${ARG_Var.temp} 1
     
456. 
     
457. Abort
     
458. 
     
459. ${endif}
     
460. 
     
461. !macroend
     
462. 
     
463. !macro CovertTxt4Edit ARG_Var.temp
     
464. 
     
465. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${TXT_MAC}" "State"
     
466. 
     
467. ${if} ${ARG_Var.temp} == "${STR_UNSETTED}"
     
468. 
     
469. SendMessage $HWND_TXT_MAC ${WM_SETTEXT} 0 "STR:"
     
470. 
     
471. ${orif} ${ARG_Var.temp} == "${STR_ERRORFORMAT}"
     
472. 
     
473. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
     
474. 
     
475. ReadRegStr ${ARG_Var.temp} HKLM "${REG_ME_HOSTLIST}${ARG_Var.temp}" "MAC"
     
476. 
     
477. SendMessage $HWND_TXT_MAC ${WM_SETTEXT} 0 "STR:${ARG_Var.temp}"
     
478. 
     
479. SendMessage $HWND_TXT_MAC ${EM_SETSEL} 255 0
     
480. 
     
481. System::Call "user32::SetFocus(i $HWND_TXT_MAC)i" ;;设置焦点
     
482. 
     
483. ${endif}
     
484. 
     
485. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${TXT_IP}" "State"
     
486. 
     
487. ${if} ${ARG_Var.temp} == "${STR_UNSETTED}"
     
488. 
     
489. SendMessage $HWND_TXT_IP ${WM_SETTEXT} 0 "STR:"
     
490. 
     
491. ${endif}
     
492. 
     
493. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${TXT_MASK}" "State"
     
494. 
     
495. ${if} ${ARG_Var.temp} == "${STR_UNSETTED}"
     
496. 
     
497. SendMessage $HWND_TXT_MASK ${WM_SETTEXT} 0 "STR:"
     
498. 
     
499. ${endif}
     
500. 
     
501. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${TXT_NETGATE}" "State"
     
502. 
     
503. ${if} ${ARG_Var.temp} == "${STR_UNSETTED}"
     
504. 
     
505. SendMessage $HWND_TXT_NETGATE ${WM_SETTEXT} 0 "STR:"
     
506. 
     
507. ${endif}
     
508. 
     
509. ReadINIStr ${ARG_Var.temp} "${MUI_INIFILE}" "Field ${TXT_DNS}" "State"
     
510. 
     
511. ${if} ${ARG_Var.temp} == "${STR_UNSETTED}"
     
512. 
     
513. SendMessage $HWND_TXT_DNS ${WM_SETTEXT} 0 "STR:"
     
514. 
     
515. ${endif}
     
516. 
     
517. !macroend
     
518. 
     
519. !macro ShowNotePad ARG_Var.1 ARG_Var.2
     
520. 
     
521. ReadINIStr ${ARG_Var.1} "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
     
522. 
     
523. ReadINIStr ${ARG_Var.2} "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "State"
     
524. 
     
525. ${if} ${ARG_Var.2} == ""
     
526. 
     
527. SendMessage ${ARG_Var.1} ${WM_SETTEXT} 0 "STR:${STR_NOTEPAD_HELP}"
     
528. 
     
529. SendMessage ${ARG_Var.1} ${EM_SETSEL} 255 0
     
530. 
     
531. ${endif}
     
532. 
     
533. ShowWindow ${ARG_Var.1} 1
     
534. 
     
535. System::Call "user32::SetFocus(i ${ARG_Var.1})i" ;;设置焦点
     
536. 
     
537. ReadINIStr ${ARG_Var.1} "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
     
538. 
     
539. SendMessage ${ARG_Var.1} ${WM_SETTEXT} 0 "STR:${STR_NOTEPAD}" ;;更改标签字符
     
540. 
     
541. !macroend
     
542. 
     
543. ###############
     
544. 
     
545. # 入口初始化函数...
     
546. 
     
547. ###############
     
548. 
     
549. Function .onInit
     
550. 
     
551. ;; 窗体互斥处理...
     
552. 
     
553. SYSTEM::Call "kernel32::CreateMutexA(i 0, i 0, t '${STR_CAPTION}') i .r0 ?e"
     
554. 
     
555. Pop $0
     
556. 
     
557. ${if} $0 != 0
     
558. 
     
559. StrLen $0 "${STR_CAPTION}"
     
560. 
     
561. IntOp $0 $0 + 1
     
562. 
     
563. loop:
     
564. 
     
565. FindWindow $1 '#32770' '' 0 $1
     
566. 
     
567. ${if} $1 != 0
     
568. 
     
569. SYSTEM::Call "user32::GetWindowText(i r1, t .r2, i r0) i."
     
570. 
     
571. StrCmp $2 "${STR_CAPTION}" 0 loop
     
572. 
     
573. SYSTEM::Call "user32::SetForegroundWindow(i r1) i."
     
574. 
     
575. ${endif}
     
576. 
     
577. ShowWindow $1 2
     
578. 
     
579. ShowWindow $1 1
     
580. 
     
581. Abort
     
582. 
     
583. ${endif}
     
584. 
     
585. ;;---------------------
     
586. 
     
587. InitPluginsDir
     
588. 
     
589. ClearErrors
     
590. 
     
591. ReadRegStr $R0 HKLM "SOFTWAREMicrosoftWindows NTCurrentVersion" CurrentVersion
     
592. 
     
593. IfErrors 0 Pass
     
594. 
     
595. System::Call 'user32::MessageBeep(i) i (0x00000110)'
     
596. 
     
597. Messagebox::show MB_ICONHAND|MB_TOPMOST "LanInfoMan" "0,103"
     
598. 
     
599. "您的 Windows 版本过低,本工具只运行于 Win2000以上的 Windows 平台中。 "
     
600. 
     
601. "确定 (&O)"
     
602. 
     
603. Pop $R0
     
604. 
     
605. Quit
     
606. 
     
607. Pass:
     
608. 
     
609. ${Var} COUNTER_HOSTNUM
     
610. 
     
611. StrCpy $COUNTER_HOSTNUM 0 ;;初始化主机计数器
     
612. 
     
613. File /oname=${MUI_INIFILE} "${RES_INIFILE}"
     
614. 
     
615. File /oname=${MUI_ICOFILE} "${RES_ICOFILE}"
     
616. 
     
617. WriteINIStr "${MUI_INIFILE}" "Field ${LAB_AUTHOR}" "Text" "${STR_AUTHOR}"
     
618. 
     
619. WriteINIStr "${MUI_INIFILE}" "Field ${ICON_HOST}" "Text" "${MUI_ICOFILE}"
     
620. 
     
621. ;;------------------------------------
     
622. 
     
623. ReadRegStr $R0 HKCR "Hlbackupini.file" ""
     
624. 
     
625. ${if} $R0 != "主机列表备份文件"
     
626. 
     
627. WriteRegStr HKCR ".hlbf" "" "Hlbackupini.file"
     
628. 
     
629. WriteRegStr HKCR "Hlbackupini.file" "" "主机列表备份文件"
     
630. 
     
631. WriteRegStr HKCR "Hlbackupini.fileDefaultIcon" "" "$SYSDIRShell32.dll,-178"
     
632. 
     
633. WriteRegStr HKCR "Hlbackupini.fileshellopen" "" ""
     
634. 
     
635. WriteRegStr HKCR "Hlbackupini.fileshellopencommand" ""
     
636. 
     
637. "$"$PROGRAMFILESWindows NTAccessorieswordpad.exe$" $"%1$""
     
638. 
     
639. System::Call 'Shell32::SHChangeNotify(i 0x8000000, i 0, i 0, i 0)'
     
640. 
     
641. ${endif}
     
642. 
     
643. ;;------------------------------------
     
644. 
     
645. Call GetNetCardsInfo
     
646. 
     
647. Call InitNetCardInfo
     
648. 
     
649. ReadINIStr $0 ${MUI_INIFILE} "Settings" NetCardNum
     
650. 
     
651. ${if} $0 <= 0
     
652. 
     
653. System::Call 'user32::MessageBeep(i) i (0x00000110)'
     
654. 
     
655. Messagebox::show MB_ICONHAND|MB_TOPMOST "LanInfoMan" "0,103"
     
656. 
     
657. "没有检测到本机的活动网卡信息,请检查网卡是否正确安装。 "
     
658. 
     
659. " 我晕 (&F) "
     
660. 
     
661. Quit
     
662. 
     
663. ${endif}
     
664. 
     
665. ReadRegStr $0 HKLM "${REG_ME}Settings" "NetCardSelected"
     
666. 
     
667. ClearErrors
     
668. 
     
669. ReadINIStr $1 ${MUI_INIFILE} "$0" "IP"
     
670. 
     
671. IfErrors +2
     
672. 
     
673. WriteINIStr "${MUI_INIFILE}" "Field ${DL_NETCARD}" "State" "$0"
     
674. 
     
675. Call InitHostList
     
676. 
     
677. Call InitLastHostInfo
     
678. 
     
679. WriteINIStr "${MUI_INIFILE}" "Field ${LAB_HELP}" "Text" "${STR_START_HELP}"
     
680. 
     
681. FunctionEnd
     
682. 
     
683. Function ShowCustom
     
684. 
     
685. InstallOptions::initDialog /NOUNLOAD "${MUI_INIFILE}"
     
686. 
     
687. Pop $0 ;IO页面窗体句柄
     
688. 
     
689. ${Var} HWND_TXT_HOST
     
690. 
     
691. ${Var} HWND_TXT_MAC
     
692. 
     
693. ${Var} HWND_TXT_IP
     
694. 
     
695. ${Var} HWND_TXT_MASK
     
696. 
     
697. ${Var} HWND_TXT_NETGATE
     
698. 
     
699. ${Var} HWND_TXT_DNS
     
700. 
     
701. ${Var} HWND_GB_SELHOST
     
702. 
     
703. ReadINIStr $HWND_TXT_HOST "${MUI_INIFILE}" "Field ${TXT_HOST}" "HWND"
     
704. 
     
705. ReadINIStr $HWND_TXT_MAC "${MUI_INIFILE}" "Field ${TXT_MAC}" "HWND"
     
706. 
     
707. ReadINIStr $HWND_TXT_IP "${MUI_INIFILE}" "Field ${TXT_IP}" "HWND"
     
708. 
     
709. ReadINIStr $HWND_TXT_MASK "${MUI_INIFILE}" "Field ${TXT_MASK}" "HWND"
     
710. 
     
711. ReadINIStr $HWND_TXT_NETGATE "${MUI_INIFILE}" "Field ${TXT_NETGATE}" "HWND"
     
712. 
     
713. ReadINIStr $HWND_TXT_DNS "${MUI_INIFILE}" "Field ${TXT_DNS}" "HWND"
     
714. 
     
715. ReadINIStr $HWND_GB_SELHOST "${MUI_INIFILE}" "Field ${GB_SELHOST}" "HWND"
     
716. 
     
717. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
     
718. 
     
719. SetCtlColors $2 0x808080 0xFEFEFE
     
720. 
     
721. !insertmacro EnableTXTEdit $2 0
     
722. 
     
723. ${if} $COUNTER_HOSTNUM > 0
     
724. 
     
725. !insertmacro EnableGlobalBtn $2 1
     
726. 
     
727. ${else}
     
728. 
     
729. !insertmacro EnableGlobalBtn $2 0
     
730. 
     
731. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
     
732. 
     
733. ShowWindow $2 0
     
734. 
     
735. ReadINIStr $2 "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
     
736. 
     
737. SendMessage $2 ${WM_SETTEXT} 0 "STR:帮助信息"
     
738. 
     
739. ReadINIStr $2 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
     
740. 
     
741. EnableWindow $2 0
     
742. 
     
743. ReadINIStr $2 "${MUI_INIFILE}" "Field ${LAB_HELP}" "HWND"
     
744. 
     
745. ShowWindow $2 1
     
746. 
     
747. SetCtlColors $2 0x6C6C6C transparent
     
748. 
     
749. ;CreateFont $1 "Arial" "8" "700"
     
750. 
     
751. ;SendMessage $2 ${WM_SETFONT} $1 0
     
752. 
     
753. ${endif}
     
754. 
     
755. !insertmacro EditCtrStyle $HWND_TXT_MAC ${UPPERCASE}
     
756. 
     
757. CreateFont $0 "宋体" "9"
     
758. 
     
759. SendMessage $HWND_TXT_MAC ${WM_SETFONT} $0 0
     
760. 
     
761. InstallOptions::show
     
762. 
     
763. Pop $0
     
764. 
     
765. FunctionEnd
     
766. 
     
767. Function LeaveCustom
     
768. 
     
769. ReadINIStr $0 "${MUI_INIFILE}" "Settings" "State"
     
770. 
     
771. ${Switch} $0
     
772. 
     
773. ##############################################################
     
774. 
     
775. ${Case} ${DL_NETCARD}
     
776. 
     
777. ;MessageBox MB_OK "DL_NETCARD" # 按下 [选择网卡] 下拉列表
     
778. 
     
779. ##############################################################
     
780. 
     
781. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_NETCARD}" "State"
     
782. 
     
783. WriteRegStr HKLM "${REG_ME}Settings" "NetCardSelected" $1
     
784. 
     
785. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
     
786. 
     
787. ${if} $COUNTER_HOSTNUM > 0
     
788. 
     
789. !insertmacro EnableGlobalBtn $2 1
     
790. 
     
791. ${else}
     
792. 
     
793. !insertmacro EnableGlobalBtn $2 0
     
794. 
     
795. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
     
796. 
     
797. ShowWindow $2 0
     
798. 
     
799. ReadINIStr $2 "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
     
800. 
     
801. SendMessage $2 ${WM_SETTEXT} 0 "STR:帮助信息"
     
802. 
     
803. ReadINIStr $2 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
     
804. 
     
805. EnableWindow $2 0
     
806. 
     
807. ReadINIStr $2 "${MUI_INIFILE}" "Field ${LAB_HELP}" "HWND"
     
808. 
     
809. ShowWindow $2 1
     
810. 
     
811. SetCtlColors $2 0x6C6C6C transparent
     
812. 
     
813. ;CreateFont $1 "Arial" "8" "700"
     
814. 
     
815. ;SendMessage $2 ${WM_SETFONT} $1 0
     
816. 
     
817. ${endif}
     
818. 
     
819. !insertmacro ShowReg2Txt $1 $2 $3
     
820. 
     
821. ${Break}
     
822. 
     
823. ##############################################################
     
824. 
     
825. ${Case} ${DL_HOST}
     
826. 
     
827. ;MessageBox MB_OK "DL_HOST" # 按下 [主机标识] 下拉列表
     
828. 
     
829. ##############################################################
     
830. 
     
831. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
     
832. 
     
833. WriteRegStr HKLM "${REG_ME_HOSTLIST}" "LastHost" "$1"
     
834. 
     
835. !insertmacro EnableGlobalBtn $2 1
     
836. 
     
837. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
     
838. 
     
839. !insertmacro ShowReg2Txt $1 $2 $3
     
840. 
     
841. ${Break}
     
842. 
     
843. ##############################################################
     
844. 
     
845. ${Case} ${BTN_EDIT_HOST}
     
846. 
     
847. ;MessageBox MB_OK "BTN_EDIT_HOST" # 按下 [编辑] 按钮
     
848. 
     
849. ##############################################################
     
850. 
     
851. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" "HWND"
     
852. 
     
853. WriteINIStr "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" "Text" "放弃编辑主机(&C)"
     
854. 
     
855. SendMessage $2 ${WM_SETTEXT} 0 "STR:放弃编辑主机(&C)"
     
856. 
     
857. !insertmacro ShowNotePad $2 $1
     
858. 
     
859. !insertmacro EnableGlobalBtn $2 0 ;;隐藏全局操作按钮区-->显示临时编辑帮助区
     
860. 
     
861. !insertmacro EnableTXTEdit $2 1 ;;可用编辑文本框
     
862. 
     
863. !insertmacro CovertTxt4Edit $2 ;---检测转化文本字符显示
     
864. 
     
865. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_ADD}" "HWND"
     
866. 
     
867. ;;隐藏[添加到主机列表]
     
868. 
     
869. ShowWindow $2 0
     
870. 
     
871. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_UPDATE}" "HWND"
     
872. 
     
873. ;; 可用[更新主机]
     
874. 
     
875. EnableWindow $2 1
     
876. 
     
877. ShowWindow $2 1
     
878. 
     
879. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_DELETE}" "HWND"
     
880. 
     
881. ;; 可用[删除主机]
     
882. 
     
883. ShowWindow $2 1
     
884. 
     
885. ${if} $COUNTER_HOSTNUM > 0 ;有主机信息
     
886. 
     
887. EnableWindow $2 1
     
888. 
     
889. ${else}
     
890. 
     
891. EnableWindow $2 0
     
892. 
     
893. ${endif}
     
894. 
     
895. Abort
     
896. 
     
897. ${Break} ;; &#128578;
     
898. 
     
899. ##############################################################
     
900. 
     
901. ${Case} ${BTN_NEW_HOST}
     
902. 
     
903. ;MessageBox MB_OK "BTN_NEW_HOST" # 按下 [新建] 按钮
     
904. 
     
905. ##############################################################
     
906. 
     
907. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" "HWND"
     
908. 
     
909. WriteINIStr "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" "Text" "放弃新建主机(&C)"
     
910. 
     
911. SendMessage $2 ${WM_SETTEXT} 0 "STR:放弃新建主机(&C)"
     
912. 
     
913. SendMessage $HWND_TXT_HOST ${WM_SETTEXT} 0 "STR:"
     
914. 
     
915. SendMessage $HWND_TXT_MAC ${WM_SETTEXT} 0 "STR:"
     
916. 
     
917. SendMessage $HWND_TXT_IP ${WM_SETTEXT} 0 "STR:"
     
918. 
     
919. ReadINIStr $4 ${MUI_INIFILE} "Field ${DL_NETCARD}" State
     
920. 
     
921. ReadINIStr $3 ${MUI_INIFILE} "$4" "IP"
     
922. 
     
923. StrCpy $1 "${STR_NOTEPAD_HELP}$r$n可能有用的参考信息:$t IP 地址:$3$r$n"
     
924. 
     
925. StrCpy $3 $3 -3
     
926. 
     
927. SendMessage $HWND_TXT_IP ${WM_SETTEXT} 0 "STR:$3"
     
928. 
     
929. ReadINIStr $3 ${MUI_INIFILE} "$4" "MASK"
     
930. 
     
931. SendMessage $HWND_TXT_MASK ${WM_SETTEXT} 0 "STR:$3"
     
932. 
     
933. StrCpy $1 "$1子网掩码:$3"
     
934. 
     
935. ReadINIStr $3 ${MUI_INIFILE} "$4" "NETGATE"
     
936. 
     
937. SendMessage $HWND_TXT_NETGATE ${WM_SETTEXT} 0 "STR:$3"
     
938. 
     
939. StrCpy $1 "$1 默认网关:$3"
     
940. 
     
941. ReadINIStr $3 ${MUI_INIFILE} "$4" "DNS"
     
942. 
     
943. SendMessage $HWND_TXT_DNS ${WM_SETTEXT} 0 "STR:$3"
     
944. 
     
945. StrCpy $1 "$1 首选DNS :$3"
     
946. 
     
947. ;MessageBox MB_OK "$1"
     
948. 
     
949. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "State"
     
950. 
     
951. ${if} $2 == "${STR_NOTEPAD_HELP}"
     
952. 
     
953. ${orif} $2 == ""
     
954. 
     
955. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
     
956. 
     
957. ;SendMessage $2 ${WM_SETTEXT} 0 "STR:${STR_NOTEPAD_HELP}$r$n$r$n$1$r$n"
     
958. 
     
959. SendMessage $2 ${WM_SETTEXT} 0 "STR:$1"
     
960. 
     
961. ;SendMessage $2 ${EM_SETSEL} 255 0
     
962. 
     
963. ${endif}
     
964. 
     
965. ShowWindow $2 1
     
966. 
     
967. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_UPDATE}" "HWND"
     
968. 
     
969. ;; 隐藏[更新主机]
     
970. 
     
971. ShowWindow $2 0
     
972. 
     
973. EnableWindow $2 0
     
974. 
     
975. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_DELETE}" "HWND"
     
976. 
     
977. ;; 隐藏[删除主机]
     
978. 
     
979. ShowWindow $2 0
     
980. 
     
981. EnableWindow $2 0
     
982. 
     
983. ReadINIStr $2 "${MUI_INIFILE}" "Field ${BTN_ADD}" "HWND"
     
984. 
     
985. ;; 显示[添加到主机列表]
     
986. 
     
987. ShowWindow $2 1
     
988. 
     
989. EnableWindow $2 1
     
990. 
     
991. !insertmacro EnableTXTEdit $2 1 ;;可用编辑文本框
     
992. 
     
993. !insertmacro EnableGlobalBtn $2 0 ;;隐藏全局操作按钮区-->显示临时编辑帮助区
     
994. 
     
995. System::Call "user32::SetFocus(i $HWND_TXT_HOST)i" ;;设置焦点
     
996. 
     
997. Abort ;${Break}
     
998. 
     
999. ${Break}
     
1000. 
      
1001. ##############################################################
      
1002. 
      
1003. ${Case} ${BTN_IMPORT_HOSTLIST}
      
1004. 
      
1005. ;MessageBox MB_OK "BTN_IMPORT_HOSTLIST" # 按下 [导入备份列表] 按钮
      
1006. 
      
1007. ##############################################################
      
1008. 
      
1009. ${Do}
      
1010. 
      
1011. ;FindWindow $4 '#32770' '${STR_CAPTION}'
      
1012. 
      
1013. ;ShowWindow $4 0
      
1014. 
      
1015. Dialogs::Open "${STR_OPEN_FILE_EXT}" 1 "${STR_OPEN_CAPTION}" $EXEDIR ${VAR_OPENSAVE_ID}
      
1016. 
      
1017. ${if} ${VAR_OPENSAVE} == 0
      
1018. 
      
1019. ${ExitDo}
      
1020. 
      
1021. ${else}
      
1022. 
      
1023. System::Call 'kernel32::_lopen(t "${VAR_OPENSAVE}", i 0) i .r1'
      
1024. 
      
1025. System::Call 'kernel32::GetFileSize(i $1, i) i .r2'
      
1026. 
      
1027. IntOp $2 $2 / 1024
      
1028. 
      
1029. System::Call 'kernel32::_lclose(i $1) i'
      
1030. 
      
1031. ${if} $2 < 512
      
1032. 
      
1033. ReadINIStr $1 ${VAR_OPENSAVE} "Main" "Type"
      
1034. 
      
1035. ${if} $1 == "HostList Backup File"
      
1036. 
      
1037. System::Call 'user32::MessageBeep(i) i (0x00000000)'
      
1038. 
      
1039. Messagebox::show MB_DEFBUTTON2|MB_TOPMOST "导入确认"
      
1040. 
      
1041. "$SYSDIRShell32.dll,146"
      
1042. 
      
1043. "你确定要从备份文件 $"${VAR_OPENSAVE}$" 中导入主机列表吗? "
      
1044. 
      
1045. "确定 (&Y)" "不要 (&N)"
      
1046. 
      
1047. Pop $R0
      
1048. 
      
1049. ${if} $R0 != "1"
      
1050. 
      
1051. Abort
      
1052. 
      
1053. ${endif}
      
1054. 
      
1055. Call ImprotHostlist2Reg
      
1056. 
      
1057. ;ShowWindow $4 1
      
1058. 
      
1059. Pop $2 ;;返回导入主机数
      
1060. 
      
1061. ${if} $2 > 0 ;;导入了新主机
      
1062. 
      
1063. !insertmacro EnableGlobalBtn $2 1
      
1064. 
      
1065. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
      
1066. 
      
1067. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1068. 
      
1069. EnableWindow $1 1
      
1070. 
      
1071. SendMessage $1 ${CB_SHOWDROPDOWN} 1 1
      
1072. 
      
1073. ${endif}
      
1074. 
      
1075. ;;开始转化导入
      
1076. 
      
1077. ${ExitDo}
      
1078. 
      
1079. ${endif}
      
1080. 
      
1081. ${endif}
      
1082. 
      
1083. System::Call 'user32::MessageBeep(i) i (0x00000101)'
      
1084. 
      
1085. Messagebox::show MB_ICONHAND|MB_TOPMOST "添加到主机列表" "$SYSDIRShell32.dll,200"
      
1086. 
      
1087. "${MSG_OPEN_ERROR} "
      
1088. 
      
1089. "确定 (&O)"
      
1090. 
      
1091. Pop $R0
      
1092. 
      
1093. ${endif}
      
1094. 
      
1095. ${Loop}
      
1096. 
      
1097. !insertmacro ShowReg2Txt $1 $2 $3
      
1098. 
      
1099. ${Break}
      
1100. 
      
1101. ##############################################################
      
1102. 
      
1103. ${Case} ${BTN_EXPORT_HOSTLIST}
      
1104. 
      
1105. ;MessageBox MB_OK "BTN_EXPORT_HOSTLIST" # 按下 [备份主机列表] 按钮
      
1106. 
      
1107. ##############################################################
      
1108. 
      
1109. ReadINIStr $4 "${MUI_INIFILE}" "Field ${BTN_EXPORT_HOSTLIST}" Text
      
1110. 
      
1111. StrCpy $4 "$4" 4
      
1112. 
      
1113. ${if} $4 == "放弃"
      
1114. 
      
1115. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
      
1116. 
      
1117. ${if} $COUNTER_HOSTNUM < 1
      
1118. 
      
1119. ReadINIStr $2 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1120. 
      
1121. EnableWindow $2 0
      
1122. 
      
1123. ReadINIStr $2 "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
      
1124. 
      
1125. SendMessage $2 ${WM_SETTEXT} 0 "STR:帮助信息"
      
1126. 
      
1127. ReadINIStr $2 "${MUI_INIFILE}" "Field ${LAB_HELP}" "HWND"
      
1128. 
      
1129. ShowWindow $2 1
      
1130. 
      
1131. SetCtlColors $2 0x004040 transparent
      
1132. 
      
1133. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
      
1134. 
      
1135. ShowWindow $2 0
      
1136. 
      
1137. ${else}
      
1138. 
      
1139. !insertmacro EnableGlobalBtn $2 1
      
1140. 
      
1141. ${endif}
      
1142. 
      
1143. ${else}
      
1144. 
      
1145. ${if} $COUNTER_HOSTNUM < 1
      
1146. 
      
1147. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1148. 
      
1149. MessageBox::show MB_ICONHAND|MB_TOPMOST "备份主机列表" "$SYSDIRshell32.dll,234"
      
1150. 
      
1151. "当前没有任何主机信息,无需备份。 "
      
1152. 
      
1153. "确定 (&O)"
      
1154. 
      
1155. Pop $R0
      
1156. 
      
1157. Abort
      
1158. 
      
1159. ${endif}
      
1160. 
      
1161. FindWindow $4 '#32770' '${STR_CAPTION}'
      
1162. 
      
1163. Dialogs::Save "${STR_SAVE_FILE_EXT}" 1 "${STR_SAVE_CAPTION}" $EXEDIR ${VAR_OPENSAVE_ID}
      
1164. 
      
1165. ${if} ${VAR_OPENSAVE} == 0
      
1166. 
      
1167. Abort
      
1168. 
      
1169. ${else}
      
1170. 
      
1171. StrCpy $1 "${VAR_OPENSAVE}" "" -5
      
1172. 
      
1173. StrCpy $2 $1 "" -4
      
1174. 
      
1175. ${if} $2 == ".reg"
      
1176. 
      
1177. ExecWait `"$WINDIRRegedit.exe" /s /e "${VAR_OPENSAVE}" "${REG_ME_HOSTLIST_FULL}"`
      
1178. 
      
1179. ShowWindow $4 0
      
1180. 
      
1181. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1182. 
      
1183. MessageBox::show MB_ICONHAND|MB_TOPMOST "备份为REG格式" "$SYSDIRshell32.dll,178"
      
1184. 
      
1185. "已成功将当前列表中共 $COUNTER_HOSTNUM 个主机信息备份到指定的注册表文件中。 "
      
1186. 
      
1187. "确定 (&O)"
      
1188. 
      
1189. Pop $R0
      
1190. 
      
1191. ShowWindow $4 1
      
1192. 
      
1193. Abort
      
1194. 
      
1195. ${else}
      
1196. 
      
1197. ${if} $1 != ".hlbf"
      
1198. 
      
1199. StrCpy ${VAR_OPENSAVE} "${VAR_OPENSAVE}.hlbf"
      
1200. 
      
1201. ${endif}
      
1202. 
      
1203. ShowWindow $4 0
      
1204. 
      
1205. Call SaveHostlist2INI
      
1206. 
      
1207. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1208. 
      
1209. MessageBox::show MB_ICONHAND|MB_TOPMOST "备份完成" "$SYSDIRshell32.dll,178"
      
1210. 
      
1211. "已成功将当前列表中共 $COUNTER_HOSTNUM 个主机信息保存到指定的文件中。 "
      
1212. 
      
1213. "确定 (&O)"
      
1214. 
      
1215. Pop $R0
      
1216. 
      
1217. ShowWindow $4 1
      
1218. 
      
1219. ${endif}
      
1220. 
      
1221. ${endif}
      
1222. 
      
1223. ${endif}
      
1224. 
      
1225. ;ShowWindow $1 1
      
1226. 
      
1227. !insertmacro ShowReg2Txt $1 $2 $3
      
1228. 
      
1229. ${Break}
      
1230. 
      
1231. ##############################################################
      
1232. 
      
1233. ${Case} ${BTN_DELETE}
      
1234. 
      
1235. ;MessageBox MB_OK "BTN_DELETE" # 按下 [删除主机] 按钮
      
1236. 
      
1237. ##############################################################
      
1238. 
      
1239. ReadINIStr $3 "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
      
1240. 
      
1241. System::Call 'user32::MessageBeep(i) i (0x00000000)'
      
1242. 
      
1243. MessageBox::show MB_ICONHAND|MB_TOPMOST "删除确认" "$SYSDIRShell32.dll,33"
      
1244. 
      
1245. "你确定删除主机标识 $3 对应的主机信息吗? "
      
1246. 
      
1247. "确定 (&O)" "取消 (&C)"
      
1248. 
      
1249. Pop $R0
      
1250. 
      
1251. ${if} $R0 != 1
      
1252. 
      
1253. Abort
      
1254. 
      
1255. ${endif}
      
1256. 
      
1257. DeleteRegKey HKLM "${REG_ME_HOSTLIST}$3"
      
1258. 
      
1259. DeleteRegValue HKLM "${REG_ME_HOSTLIST}" "LastHost"
      
1260. 
      
1261. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
      
1262. 
      
1263. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1264. 
      
1265. SendMessage $1 ${CB_GETCURSEL} "" "" $2
      
1266. 
      
1267. SendMessage $1 ${CB_DELETESTRING} "$2" ""
      
1268. 
      
1269. !insertmacro AddHostNum -1
      
1270. 
      
1271. ${if} $COUNTER_HOSTNUM < 1
      
1272. 
      
1273. ;!insertmacro EnableGlobalBtn $2 1
      
1274. 
      
1275. ReadINIStr $2 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1276. 
      
1277. EnableWindow $2 0
      
1278. 
      
1279. ReadINIStr $2 "${MUI_INIFILE}" "Field ${GB_GLOBAL}" "HWND"
      
1280. 
      
1281. SendMessage $2 ${WM_SETTEXT} 0 "STR:帮助信息"
      
1282. 
      
1283. ReadINIStr $2 "${MUI_INIFILE}" "Field ${LAB_HELP}" "HWND"
      
1284. 
      
1285. SetCtlColors $2 0x004040 transparent
      
1286. 
      
1287. ShowWindow $2 1
      
1288. 
      
1289. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_NOTEPAD}" "HWND"
      
1290. 
      
1291. ShowWindow $2 0
      
1292. 
      
1293. ${else}
      
1294. 
      
1295. !insertmacro EnableGlobalBtn $2 1
      
1296. 
      
1297. ${endif}
      
1298. 
      
1299. Call ResetSelectHost
      
1300. 
      
1301. !insertmacro ShowReg2Txt $1 $2 $3
      
1302. 
      
1303. ${Break}
      
1304. 
      
1305. ##############################################################
      
1306. 
      
1307. ${Case} ${BTN_UPDATE}
      
1308. 
      
1309. ;MessageBox MB_OK "BTN_UPDATE" # 按下 [保存更新] 按钮
      
1310. 
      
1311. ##############################################################
      
1312. 
      
1313. ReadINIStr $3 "${MUI_INIFILE}" "Field ${TXT_HOST}" "State"
      
1314. 
      
1315. ${if} $3 == ""
      
1316. 
      
1317. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1318. 
      
1319. MessageBox::show MB_ICONHAND|MB_TOPMOST "保存更新" "$SYSDIRshell32.dll,220"
      
1320. 
      
1321. "请填写主机标识。 "
      
1322. 
      
1323. "确定(&O)"
      
1324. 
      
1325. Pop $R0
      
1326. 
      
1327. System::Call "user32::SetFocus(i $HWND_TXT_HOST)i"
      
1328. 
      
1329. Abort
      
1330. 
      
1331. ${else}
      
1332. 
      
1333. ${if} $COUNTER_HOSTNUM < 1
      
1334. 
      
1335. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1336. 
      
1337. SendMessage $1 ${CB_GETCURSEL} "" "" $2
      
1338. 
      
1339. SendMessage $1 ${CB_DELETESTRING} "$2" "" ;;删除旧主机标识
      
1340. 
      
1341. !insertmacro AddHostNum 1
      
1342. 
      
1343. DeleteINIStr "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
      
1344. 
      
1345. ${endif}
      
1346. 
      
1347. ReadINIStr $4 "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
      
1348. 
      
1349. ${if} "$3" == "$4"
      
1350. 
      
1351. DeleteRegKey HKLM "${REG_ME_HOSTLIST}$4"
      
1352. 
      
1353. ${else} ;;标识改动
      
1354. 
      
1355. ReadRegStr $1 HKLM "${REG_ME_HOSTLIST}$3" ""
      
1356. 
      
1357. ${if} $1 == "Setted" ;;已有标识
      
1358. 
      
1359. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1360. 
      
1361. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "保存更新"
      
1362. 
      
1363. "$SYSDIRshell32.dll,220"
      
1364. 
      
1365. "主机标识 $"$3$" 已被占用,保存更新将会覆盖原主机信息,是否继续? "
      
1366. 
      
1367. "是 (&Y)" "否 (&N)"
      
1368. 
      
1369. Pop $R0
      
1370. 
      
1371. ${if} $R0 != 1 ;;放弃覆盖
      
1372. 
      
1373. SendMessage $HWND_TXT_HOST ${EM_SETSEL} 255 0
      
1374. 
      
1375. System::Call "user32::SetFocus(i $HWND_TXT_HOST)i"
      
1376. 
      
1377. Abort
      
1378. 
      
1379. ${endif}
      
1380. 
      
1381. ;;要覆盖
      
1382. 
      
1383. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1384. 
      
1385. SendMessage $1 ${CB_SELECTSTRING} 0 "STR:$3"
      
1386. 
      
1387. ${else} ;;新的标识
      
1388. 
      
1389. DeleteRegKey HKLM "${REG_ME_HOSTLIST}$4" ;;删除旧主机
      
1390. 
      
1391. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1392. 
      
1393. SendMessage $1 ${CB_GETCURSEL} "" "" $2
      
1394. 
      
1395. SendMessage $1 ${CB_DELETESTRING} "$2" "" ;;删除旧主机标识
      
1396. 
      
1397. SendMessage $1 ${CB_ADDSTRING} 0 "STR:$3" ;;添加新标识
      
1398. 
      
1399. SendMessage $1 ${CB_SELECTSTRING} 0 "STR:$3"
      
1400. 
      
1401. ${endif}
      
1402. 
      
1403. ${endif}
      
1404. 
      
1405. !insertmacro EnableGlobalBtn $2 1
      
1406. 
      
1407. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
      
1408. 
      
1409. !insertmacro SaveTxt2Reg $3 $2 $1 ;;保存并处理文本显示
      
1410. 
      
1411. ${endif}
      
1412. 
      
1413. Abort ; ${Break}
      
1414. 
      
1415. ##############################################################
      
1416. 
      
1417. ${Case} ${BTN_ADD}
      
1418. 
      
1419. ;MessageBox MB_OK "BTN_ADD" # 按下 [添加到主机列表] 按钮
      
1420. 
      
1421. ##############################################################
      
1422. 
      
1423. ReadINIStr $3 "${MUI_INIFILE}" "Field ${TXT_HOST}" "State"
      
1424. 
      
1425. ${if} $3 == "" ;没填写主机标识
      
1426. 
      
1427. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1428. 
      
1429. Messagebox::show MB_ICONHAND|MB_TOPMOST "添加到主机列表" "$SYSDIRShell32.dll,176"
      
1430. 
      
1431. "请先为当前主机填写一个主机标识,以方便以后在主机标识下拉菜单中选择。 "
      
1432. 
      
1433. "确定(&O)"
      
1434. 
      
1435. Pop $R0
      
1436. 
      
1437. System::Call "user32::SetFocus(i $HWND_TXT_HOST)i"
      
1438. 
      
1439. Abort
      
1440. 
      
1441. ${else} ;;开始添加到操作
      
1442. 
      
1443. ReadRegStr $1 HKLM "${REG_ME_HOSTLIST}$3" ""
      
1444. 
      
1445. ${if} $1 == "Setted"
      
1446. 
      
1447. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1448. 
      
1449. SendMessage $1 ${CB_SELECTSTRING} 0 "STR:$3"
      
1450. 
      
1451. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1452. 
      
1453. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "添加到主机列表"
      
1454. 
      
1455. "$SYSDIRshell32.dll,176"
      
1456. 
      
1457. "主机标识 $"$3$" 已被占用,是否将其覆盖? "
      
1458. 
      
1459. "是 (&Y)" "否 (&N)"
      
1460. 
      
1461. Pop $R0
      
1462. 
      
1463. ${if} $R0 != 1 ;;放弃覆盖
      
1464. 
      
1465. SendMessage $HWND_TXT_HOST ${EM_SETSEL} 255 0
      
1466. 
      
1467. System::Call "user32::SetFocus(i $HWND_TXT_HOST)i"
      
1468. 
      
1469. Abort
      
1470. 
      
1471. ${endif}
      
1472. 
      
1473. ;;覆盖
      
1474. 
      
1475. ${else}
      
1476. 
      
1477. ${if} $COUNTER_HOSTNUM < 1
      
1478. 
      
1479. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1480. 
      
1481. SendMessage $1 ${CB_GETCURSEL} "" "" $2
      
1482. 
      
1483. SendMessage $1 ${CB_DELETESTRING} "$2" "" ;;删除旧主机标识
      
1484. 
      
1485. ${endif}
      
1486. 
      
1487. !insertmacro AddHostNum 1 ;;全局计数器+1
      
1488. 
      
1489. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
1490. 
      
1491. SendMessage $1 ${CB_ADDSTRING} 0 "STR:$3"
      
1492. 
      
1493. SendMessage $1 ${CB_SELECTSTRING} -1 "STR:$3"
      
1494. 
      
1495. ${endif}
      
1496. 
      
1497. ;;同步到窗体信息INI文件
      
1498. 
      
1499. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" State "$3"
      
1500. 
      
1501. !insertmacro EnableGlobalBtn $2 1
      
1502. 
      
1503. !insertmacro EnableTXTEdit $2 0 ;;禁用编辑文本框
      
1504. 
      
1505. !insertmacro SaveTxt2Reg $3 $2 $1 ;;保存并处理文本显示
      
1506. 
      
1507. ${endif}
      
1508. 
      
1509. !insertmacro ShowReg2Txt $1 $2 $3
      
1510. 
      
1511. ${Break}
      
1512. 
      
1513. ##############################################################
      
1514. 
      
1515. ${Case} ${BTN_CHANGE_MAC}
      
1516. 
      
1517. ;MessageBox MB_OK "BTN_CHANGE_MAC" # 按下 [修改MAC] 按钮
      
1518. 
      
1519. ##############################################################
      
1520. 
      
1521. Call GetNetCardsInfo
      
1522. 
      
1523. ReadINIStr $2 "${MUI_INIFILE}" "Field ${TXT_MAC}" "State"
      
1524. 
      
1525. StrCpy $4 "更改为 $"$2$""
      
1526. 
      
1527. ${if} $2 == "${STR_UNSETTED}"
      
1528. 
      
1529. ${orif} $2 == "${STR_ERRORFORMAT}"
      
1530. 
      
1531. StrCpy $2 ""
      
1532. 
      
1533. StrCpy $4 "还原为 $"网卡缺省值$""
      
1534. 
      
1535. ${endif}
      
1536. 
      
1537. ReadINIStr $1 "${MUI_INIFILE}" "Field ${DL_NETCARD}" "State"
      
1538. 
      
1539. ReadINIStr $1 "${MUI_INIFILE}" "$1" "RegKeyIndex"
      
1540. 
      
1541. ReadRegStr $3 HKLM "${REG_NETWORK_ADAPTERS}$1" "NetworkAddress"
      
1542. 
      
1543. Check:
      
1544. 
      
1545. ${if} $3 == $2
      
1546. 
      
1547. System::Call 'user32::MessageBeep(i) i (0x00000002)'
      
1548. 
      
1549. MessageBox::show MB_ICONHAND|MB_TOPMOST "提示" "0,103"
      
1550. 
      
1551. "当前 MAC 信息 已经是你要修改的值,无需重复修改。$r$n$r$n提示:
      
1552. 
      
1553. 你可以 [开启/禁用网络连接] 以刷新 MAC 信息。 $r$n"
      
1554. 
      
1555. "哦 (&O)"
      
1556. 
      
1557. Pop $R0
      
1558. 
      
1559. Abort
      
1560. 
      
1561. ${orif} $3 == ""
      
1562. 
      
1563. ReadRegStr $3 HKLM "${REG_NETWORK_ADAPTERS}$1" "NetCfgInstanceId"
      
1564. 
      
1565. ClearErrors
      
1566. 
      
1567. ReadINIStr $3 ${MUI_INIFILE} "$3" "USING MAC"
      
1568. 
      
1569. IfErrors +2
      
1570. 
      
1571. Goto Check ;;再检测一次
      
1572. 
      
1573. StrCpy $3 "网卡缺省值"
      
1574. 
      
1575. ${endif}
      
1576. 
      
1577. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1578. 
      
1579. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "修改 MAC 确认"
      
1580. 
      
1581. "$SYSDIRshell32.dll,24"
      
1582. 
      
1583. "你确定要将当前 MAC 信息 $"$3$" $4 吗?"
      
1584. 
      
1585. "确定 (&O)" "不要 (&C)"
      
1586. 
      
1587. Pop $R0
      
1588. 
      
1589. ${if} $R0 != 1 ;;不修改
      
1590. 
      
1591. Abort
      
1592. 
      
1593. ${endif}
      
1594. 
      
1595. ${if} $2 == ""
      
1596. 
      
1597. DeleteRegValue HKLM "${REG_NETWORK_ADAPTERS}$1" "NetworkAddress"
      
1598. 
      
1599. ${else}
      
1600. 
      
1601. WriteRegStr HKLM "${REG_NETWORK_ADAPTERS}$1" "NetworkAddress" "$2"
      
1602. 
      
1603. ${endif}
      
1604. 
      
1605. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1606. 
      
1607. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "MAC 修改成功"
      
1608. 
      
1609. "$SYSDIRshell32.dll,137"
      
1610. 
      
1611. "MAC 信息已经成功更改,是否要立刻 [开启/禁用网络连接] 以生效更新? "
      
1612. 
      
1613. "是 (&Y)" "否 (&N)"
      
1614. 
      
1615. Pop $R0
      
1616. 
      
1617. ${if} $R0 == 1
      
1618. 
      
1619. FindWindow $4 '#32770' '${STR_CAPTION}'
      
1620. 
      
1621. ShowWindow $4 2
      
1622. 
      
1623. StrCpy $R0 "ExecTwice"
      
1624. 
      
1625. Call RefreshConnection
      
1626. 
      
1627. StrCpy $R0 ""
      
1628. 
      
1629. ShowWindow $4 1
      
1630. 
      
1631. ${endif}
      
1632. 
      
1633. Abort
      
1634. 
      
1635. ;${Break}
      
1636. 
      
1637. ##############################################################
      
1638. 
      
1639. ${Case} ${BTN_CHANGE_IP}
      
1640. 
      
1641. ;MessageBox MB_OK "BTN_CHANGE_MAC" # 按下 [修改IP] 按钮
      
1642. 
      
1643. ##############################################################
      
1644. 
      
1645. ReadINIStr $2 ${MUI_INIFILE} "Field ${DL_NETCARD}" State
      
1646. 
      
1647. ReadINIStr $2 ${MUI_INIFILE} "$2" "InstanceId"
      
1648. 
      
1649. ReadRegStr $3 HKLM "${REG_NETWORK_CONNECTIONS}$2Connection" "Name"
      
1650. 
      
1651. ReadINIStr $2 "${MUI_INIFILE}" "Field ${DL_HOST}" "State"
      
1652. 
      
1653. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1654. 
      
1655. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "TCP/IP信息修改确认" "0,103"
      
1656. 
      
1657. "确定要将主机 “$2” 的 TCP/IP 信息修改到 “$3” 属性设置吗? "
      
1658. 
      
1659. "是 (&Y)" "否 (&N)"
      
1660. 
      
1661. Pop $R0
      
1662. 
      
1663. ${if} $R0 != 1
      
1664. 
      
1665. Abort
      
1666. 
      
1667. ${endif}
      
1668. 
      
1669. StrCpy $1 "netsh interface ip set address $"$3$" static"
      
1670. 
      
1671. !insertmacro SetOneInfoTXT $2 "TXT_IP" " IP 地址"
      
1672. 
      
1673. StrCpy $1 "$1 $2"
      
1674. 
      
1675. !insertmacro SetOneInfoTXT $2 "TXT_MASK" "子网掩码"
      
1676. 
      
1677. StrCpy $1 "$1 $2"
      
1678. 
      
1679. !insertmacro SetOneInfoTXT $2 "TXT_NETGATE" "默认网关"
      
1680. 
      
1681. StrCpy $1 "$1 $2 1"
      
1682. 
      
1683. !insertmacro SetOneInfoTXT $2 "TXT_DNS" "首选DNS"
      
1684. 
      
1685. StrCpy $2 "netsh interface ip set dns $"$3$" static $2 primary"
      
1686. 
      
1687. ;;最小化窗口,防止用户等待乱点
      
1688. 
      
1689. FindWindow $4 '#32770' '${STR_CAPTION}'
      
1690. 
      
1691. ShowWindow $4 2
      
1692. 
      
1693. Sleep 100
      
1694. 
      
1695. Banner::show /NOUNLOAD "正在更改当前网络连接的 TCP/IP 信息,请稍等……"
      
1696. 
      
1697. nsExec::ExecToStack /TIMEOUT=30000 "$1"
      
1698. 
      
1699. Pop $3
      
1700. 
      
1701. StrCmp $3 "timeout" 0 +3
      
1702. 
      
1703. StrCpy $3 "执行超时,请重试! "
      
1704. 
      
1705. Goto Fail
      
1706. 
      
1707. Pop $3
      
1708. 
      
1709. StrCpy $3 $3 -4
      
1710. 
      
1711. ${if} $3 == "Ok."
      
1712. 
      
1713. ${orif} $3 == "确定。"
      
1714. 
      
1715. nsExec::ExecToStack /TIMEOUT=20000 "$2"
      
1716. 
      
1717. Pop $3
      
1718. 
      
1719. StrCmp $3 "timeout" 0 +3
      
1720. 
      
1721. StrCpy $3 "执行超时,请重试! "
      
1722. 
      
1723. Goto DNS_Fail
      
1724. 
      
1725. Pop $3
      
1726. 
      
1727. StrCpy $3 $3 -4
      
1728. 
      
1729. ${if} $3 == "Ok."
      
1730. 
      
1731. ${orif} $3 == "确定。"
      
1732. 
      
1733. Banner::getWindow /NOUNLOAD
      
1734. 
      
1735. Pop $R0
      
1736. 
      
1737. ShowWindow $R0 0
      
1738. 
      
1739. ReadINIStr $2 ${MUI_INIFILE} "Field ${DL_NETCARD}" State
      
1740. 
      
1741. Push $2
      
1742. 
      
1743. Call GetTcpIpInfo
      
1744. 
      
1745. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1746. 
      
1747. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "修改 IP 成功" "$SYSDIRshell32.dll,14"
      
1748. 
      
1749. "所选主机的 TCP/IP 信息 已被成功应用到指定的网络连接。 "
      
1750. 
      
1751. "谢谢 (&T)"
      
1752. 
      
1753. Pop $R0
      
1754. 
      
1755. ShowWindow $4 1
      
1756. 
      
1757. Banner::destroy
      
1758. 
      
1759. Abort
      
1760. 
      
1761. ${else}
      
1762. 
      
1763. DNS_Fail:
      
1764. 
      
1765. Banner::getWindow /NOUNLOAD
      
1766. 
      
1767. Pop $R0
      
1768. 
      
1769. ShowWindow $R0 0
      
1770. 
      
1771. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1772. 
      
1773. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "更改失败" "$SYSDIRshell32.dll,18"
      
1774. 
      
1775. "DNS 更改失败:$3 "
      
1776. 
      
1777. "确定 (&O)"
      
1778. 
      
1779. Pop $R0
      
1780. 
      
1781. ShowWindow $4 1
      
1782. 
      
1783. Banner::destroy
      
1784. 
      
1785. Abort
      
1786. 
      
1787. ${endif}
      
1788. 
      
1789. ${endif}
      
1790. 
      
1791. Fail:
      
1792. 
      
1793. Banner::getWindow /NOUNLOAD
      
1794. 
      
1795. Pop $R0
      
1796. 
      
1797. ShowWindow $R0 0
      
1798. 
      
1799. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
1800. 
      
1801. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "更改失败" "$SYSDIRshell32.dll,18"
      
1802. 
      
1803. "更改失败:$3 "
      
1804. 
      
1805. "确定 (&O)"
      
1806. 
      
1807. Pop $R0
      
1808. 
      
1809. ShowWindow $4 1
      
1810. 
      
1811. Banner::destroy
      
1812. 
      
1813. Abort
      
1814. 
      
1815. ;${Break}
      
1816. 
      
1817. ##############################################################
      
1818. 
      
1819. ${Case} ${BTN_MINIMIZE}
      
1820. 
      
1821. ;MessageBox MB_OK "BTN_MINIMIZE" # 按下 [最小化] 按钮
      
1822. 
      
1823. ##############################################################
      
1824. 
      
1825. FindWindow $4 '#32770' '${STR_CAPTION}'
      
1826. 
      
1827. ShowWindow $4 2
      
1828. 
      
1829. ${Break}
      
1830. 
      
1831. ##############################################################
      
1832. 
      
1833. ${Case} ${BTN_RF_CONNECTION}
      
1834. 
      
1835. ;MessageBox MB_OK "BTN_RF_CONNECTION" # 按下 [开启禁用网络] 按钮
      
1836. 
      
1837. ##############################################################
      
1838. 
      
1839. Call RefreshConnection
      
1840. 
      
1841. Abort
      
1842. 
      
1843. ;${Break}
      
1844. 
      
1845. ${EndSwitch}
      
1846. 
      
1847. Abort ;;
      
1848. 
      
1849. ;;页面消息回调函数结束
      
1850. 
      
1851. FunctionEnd ;LeaveCustom
      
1852. 
      
1853. ##############################################################################
      
1854. 
      
1855. ##############################################################
      
1856. 
      
1857. # 功能 -- 获取当前 TCP/IP 信息
      
1858. 
      
1859. ;!macro GetRegMultiStr --(预先)子宏
      
1860. 
      
1861. ;Function SubCallBack --(预先)子函数
      
1862. 
      
1863. ;Function GetTcpIpInfo --主功能
      
1864. 
      
1865. ##############################################################
      
1866. 
      
1867. !macro GetRegMultiStr Arg_reg.value Arg_ini.value
      
1868. 
      
1869. StrCpy $3 "${Arg_ini.value}"
      
1870. 
      
1871. GetFunctionAddress $2 SubCallBack
      
1872. 
      
1873. ${ReadRegMultiStr} ${HKLM} "${REG_NETWORK_TCPIP}$1" "${Arg_reg.value}" $2
      
1874. 
      
1875. ClearErrors
      
1876. 
      
1877. !macroend
      
1878. 
      
1879. Function SubCallBack
      
1880. 
      
1881. Exch $2
      
1882. 
      
1883. ${if} $2 == ""
      
1884. 
      
1885. GetErrorLevel $2
      
1886. 
      
1887. ;MessageBox MB_OK "Error Level: $2"
      
1888. 
      
1889. ${else}
      
1890. 
      
1891. ;MessageBox MB_OK "$3: $2"
      
1892. 
      
1893. WriteINIStr ${MUI_INIFILE} "$0" "$3" "$2"
      
1894. 
      
1895. ${endif}
      
1896. 
      
1897. Pop $2
      
1898. 
      
1899. FunctionEnd ;SubCallBack
      
1900. 
      
1901. Function GetTcpIpInfo
      
1902. 
      
1903. Exch $0
      
1904. 
      
1905. Push $1
      
1906. 
      
1907. Push $2
      
1908. 
      
1909. Push $3
      
1910. 
      
1911. ReadINIStr $1 ${MUI_INIFILE} "$0" "InstanceId"
      
1912. 
      
1913. !insertmacro GetRegMultiStr "IPAddress" "IP"
      
1914. 
      
1915. !insertmacro GetRegMultiStr "SubnetMask" "MASK"
      
1916. 
      
1917. !insertmacro GetRegMultiStr "DefaultGateway" "NETGATE"
      
1918. 
      
1919. ReadRegStr $2 HKLM "${REG_NETWORK_TCPIP}$1" "NameServer"
      
1920. 
      
1921. StrCpy $1 0
      
1922. 
      
1923. ${Do}
      
1924. 
      
1925. StrCpy $3 $2 1 $1
      
1926. 
      
1927. ${IfThen} $3 == ',' ${|} ${ExitDo} ${|}
      
1928. 
      
1929. IntOp $1 $1 + 1
      
1930. 
      
1931. ${LoopUntil} $3 == ""
      
1932. 
      
1933. StrCpy $2 $2 $1
      
1934. 
      
1935. WriteINIStr ${MUI_INIFILE} "$0" "DNS" "$2"
      
1936. 
      
1937. Pop $3
      
1938. 
      
1939. Pop $2
      
1940. 
      
1941. Pop $1
      
1942. 
      
1943. Pop $0
      
1944. 
      
1945. FunctionEnd ;GetTcpIpInfo
      
1946. 
      
1947. ##############################################################
      
1948. 
      
1949. # 功能 -- 初始化数据
      
1950. 
      
1951. # Function InitNetCardInfo
      
1952. 
      
1953. # Function InitHostList
      
1954. 
      
1955. # Function InitLastHostInfo
      
1956. 
      
1957. ##############################################################
      
1958. 
      
1959. !define STR_SEPARATOR ``
      
1960. 
      
1961. Function GetNetCardsInfo
      
1962. 
      
1963. Push $0
      
1964. 
      
1965. Push $1
      
1966. 
      
1967. Push $2
      
1968. 
      
1969. Push $3
      
1970. 
      
1971. Push $4
      
1972. 
      
1973. Push $5
      
1974. 
      
1975. Push $6
      
1976. 
      
1977. Push $7
      
1978. 
      
1979. System::Alloc 4096
      
1980. 
      
1981. Pop $3
      
1982. 
      
1983. System::Call 'iphlpapi::GetAdaptersInfo(i r3r2, *l 4096 r1) i.r0'
      
1984. 
      
1985. StrCmp $0 0 0 finish
      
1986. 
      
1987. loop:
      
1988. 
      
1989. StrCmp $2 0 finish
      
1990. 
      
1991. System::Call '*$2(i.r2,i,&t260.r4, &t132 0, i 0, l.r5)'
      
1992. 
      
1993. System::Int64Op $5 % 0x100000000
      
1994. 
      
1995. Pop $6
      
1996. 
      
1997. IntFmt $6 "%08X" $6
      
1998. 
      
1999. System::Int64Op $5 - $6
      
2000. 
      
2001. Pop $7
      
2002. 
      
2003. System::Int64Op $7 / 0x100000000
      
2004. 
      
2005. Pop $7
      
2006. 
      
2007. IntFmt $7 "%04X" $7
      
2008. 
      
2009. StrCpy $7 "$7$6"
      
2010. 
      
2011. StrCpy $1 $7 2 10
      
2012. 
      
2013. StrCpy $0 $1
      
2014. 
      
2015. StrCpy $1 $7 2 8
      
2016. 
      
2017. StrCpy $0 '$0${STR_SEPARATOR}$1'
      
2018. 
      
2019. StrCpy $1 $7 2 6
      
2020. 
      
2021. StrCpy $0 '$0${STR_SEPARATOR}$1'
      
2022. 
      
2023. StrCpy $1 $7 2 4
      
2024. 
      
2025. StrCpy $0 '$0${STR_SEPARATOR}$1'
      
2026. 
      
2027. StrCpy $1 $7 2 2
      
2028. 
      
2029. StrCpy $0 '$0${STR_SEPARATOR}$1'
      
2030. 
      
2031. StrCpy $1 $7 2 0
      
2032. 
      
2033. StrCpy $0 '$0${STR_SEPARATOR}$1'
      
2034. 
      
2035. WriteINIStr ${MUI_INIFILE} "$4" "USING MAC" "$0"
      
2036. 
      
2037. Goto loop
      
2038. 
      
2039. finish:
      
2040. 
      
2041. System::Free $3
      
2042. 
      
2043. System::Free 0
      
2044. 
      
2045. Pop $7
      
2046. 
      
2047. Pop $6
      
2048. 
      
2049. Pop $5
      
2050. 
      
2051. Pop $4
      
2052. 
      
2053. Pop $3
      
2054. 
      
2055. Pop $2
      
2056. 
      
2057. Pop $1
      
2058. 
      
2059. Pop $0
      
2060. 
      
2061. FunctionEnd ;;GetNetCardsInfo
      
2062. 
      
2063. Function InitNetCardInfo
      
2064. 
      
2065. Push $0
      
2066. 
      
2067. Push $1
      
2068. 
      
2069. Push $2
      
2070. 
      
2071. Push $3
      
2072. 
      
2073. StrCpy $0 0
      
2074. 
      
2075. WriteINIStr ${MUI_INIFILE} "Settings" NetCardNum 0
      
2076. 
      
2077. WriteINIStr ${MUI_INIFILE} "Field ${DL_NETCARD}" ListItems ""
      
2078. 
      
2079. ${Do}
      
2080. 
      
2081. EnumRegKey $1 HKLM "${REG_NETWORK_ADAPTERS}" $0
      
2082. 
      
2083. ${IfThen} $1 == "" ${|} ${ExitDo} ${|}
      
2084. 
      
2085. ReadRegStr $2 HKLM "${REG_NETWORK_ADAPTERS}$1NdiInterfaces" "LowerRange"
      
2086. 
      
2087. ${if} $2 == "ethernet"
      
2088. 
      
2089. ReadRegStr $2 HKLM "${REG_NETWORK_ADAPTERS}$1" "DriverDesc"
      
2090. 
      
2091. WriteINIStr ${MUI_INIFILE} "Field ${DL_NETCARD}" State "$2"
      
2092. 
      
2093. WriteINIStr ${MUI_INIFILE} "$2" "RegKeyIndex" "$1"
      
2094. 
      
2095. ReadRegStr $3 HKLM "${REG_NETWORK_ADAPTERS}$1" "NetworkAddress"
      
2096. 
      
2097. ${if} $3 == ""
      
2098. 
      
2099. StrCpy $3 "${STR_UNSETTED}"
      
2100. 
      
2101. ${endif}
      
2102. 
      
2103. WriteINIStr ${MUI_INIFILE} "$2" "Mac" "$3"
      
2104. 
      
2105. ReadRegStr $3 HKLM "${REG_NETWORK_ADAPTERS}$1" "NetCfgInstanceId"
      
2106. 
      
2107. WriteINIStr ${MUI_INIFILE} "$2" "InstanceId" "$3"
      
2108. 
      
2109. ReadINIStr $3 ${MUI_INIFILE} "$3" "USING MAC"
      
2110. 
      
2111. ${if} $3 != ""
      
2112. 
      
2113. WriteINIStr ${MUI_INIFILE} "$2" "MAC" "$3"
      
2114. 
      
2115. ${endif}
      
2116. 
      
2117. Push $2
      
2118. 
      
2119. Call GetTcpIpInfo
      
2120. 
      
2121. ReadINIStr $3 ${MUI_INIFILE} "Field ${DL_NETCARD}" ListItems
      
2122. 
      
2123. ${if} $3 != ""
      
2124. 
      
2125. StrCpy $2 "$2|$3"
      
2126. 
      
2127. ${endif}
      
2128. 
      
2129. WriteINIStr ${MUI_INIFILE} "Field ${DL_NETCARD}" ListItems "$2"
      
2130. 
      
2131. ReadINIStr $3 ${MUI_INIFILE} "Settings" NetCardNum
      
2132. 
      
2133. IntOp $3 $3 + 1
      
2134. 
      
2135. WriteINIStr ${MUI_INIFILE} "Settings" NetCardNum $3
      
2136. 
      
2137. ${endif}
      
2138. 
      
2139. IntOp $0 $0 + 1
      
2140. 
      
2141. ${Loop}
      
2142. 
      
2143. Pop $3
      
2144. 
      
2145. Pop $2
      
2146. 
      
2147. Pop $1
      
2148. 
      
2149. Pop $0
      
2150. 
      
2151. FunctionEnd ;;InitNetCardInfo
      
2152. 
      
2153. Function InitHostList
      
2154. 
      
2155. Push $0
      
2156. 
      
2157. Push $1
      
2158. 
      
2159. Push $2
      
2160. 
      
2161. StrCpy $0 0
      
2162. 
      
2163. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" ListItems "" ;;初始化主机列表
      
2164. 
      
2165. ${Do}
      
2166. 
      
2167. EnumRegKey $1 HKLM "${REG_ME_HOSTLIST}" $0
      
2168. 
      
2169. ${IfThen} $1 == "" ${|} ${ExitDo} ${|}
      
2170. 
      
2171. ;MessageBox MB_OK "$1"
      
2172. 
      
2173. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" ""
      
2174. 
      
2175. ${if} $2 == "Setted" ;;检验是否合法
      
2176. 
      
2177. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" State "$1"
      
2178. 
      
2179. ReadINIStr $2 ${MUI_INIFILE} "Field ${DL_HOST}" ListItems
      
2180. 
      
2181. ${if} $2 != ""
      
2182. 
      
2183. StrCpy $1 "$1|$2" ;合并/主机标识项目
      
2184. 
      
2185. ${endif}
      
2186. 
      
2187. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" ListItems "$1"
      
2188. 
      
2189. !insertmacro AddHostNum 1
      
2190. 
      
2191. ${endif}
      
2192. 
      
2193. IntOp $0 $0 + 1
      
2194. 
      
2195. ${Loop}
      
2196. 
      
2197. Pop $2
      
2198. 
      
2199. Pop $1
      
2200. 
      
2201. Pop $0
      
2202. 
      
2203. FunctionEnd ;;InitHostList
      
2204. 
      
2205. Function ResetSelectHost
      
2206. 
      
2207. Push $0
      
2208. 
      
2209. Push $1
      
2210. 
      
2211. Push $2
      
2212. 
      
2213. ReadINIStr $2 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
2214. 
      
2215. ${if} $COUNTER_HOSTNUM < 1 ;无主机信息
      
2216. 
      
2217. EnableWindow $2 0
      
2218. 
      
2219. SendMessage $1 ${CB_ADDSTRING} 0 "STR:${STR_DEFAULT_HOST}"
      
2220. 
      
2221. SendMessage $1 ${CB_SELECTSTRING} 0 "STR:${STR_DEFAULT_HOST}"
      
2222. 
      
2223. ${else} ;有主机信息
      
2224. 
      
2225. EnableWindow $2 1
      
2226. 
      
2227. StrCpy $0 0
      
2228. 
      
2229. ${Do}
      
2230. 
      
2231. EnumRegKey $1 HKLM "${REG_ME_HOSTLIST}" $0
      
2232. 
      
2233. ${IfThen} $1 == "" ${|} ${ExitDo} ${|}
      
2234. 
      
2235. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" ""
      
2236. 
      
2237. ${if} $2 == "Setted" ;;检验是否合法
      
2238. 
      
2239. ReadINIStr $2 ${MUI_INIFILE} "Field ${DL_HOST}" HWND
      
2240. 
      
2241. SendMessage $2 ${CB_SELECTSTRING} 0 "STR:$1"
      
2242. 
      
2243. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" State "$1"
      
2244. 
      
2245. ${ExitDo}
      
2246. 
      
2247. ${endif}
      
2248. 
      
2249. IntOp $0 $0 + 1
      
2250. 
      
2251. ${Loop}
      
2252. 
      
2253. ${endif}
      
2254. 
      
2255. Pop $2
      
2256. 
      
2257. Pop $1
      
2258. 
      
2259. Pop $0
      
2260. 
      
2261. FunctionEnd ;;ResetSelectHost
      
2262. 
      
2263. Function InitLastHostInfo ;;获取首选主机信息
      
2264. 
      
2265. Push $0
      
2266. 
      
2267. Push $1
      
2268. 
      
2269. Push $2
      
2270. 
      
2271. ;;初始化主机下拉列表控件首选项
      
2272. 
      
2273. ${if} $COUNTER_HOSTNUM > 0 ;有主机信息
      
2274. 
      
2275. WriteINIStr ${MUI_INIFILE} "Field ${GB_SELHOST}" Text "选择主机 ( 当前共 $COUNTER_HOSTNUM 个主机信息 )"
      
2276. 
      
2277. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" Flags "Notify" ;初始可用主机下拉列表控件
      
2278. 
      
2279. ReadRegStr $0 HKLM "${REG_ME_HOSTLIST}" "LastHost"
      
2280. 
      
2281. ReadRegStr $1 HKLM "${REG_ME_HOSTLIST}$0" ""
      
2282. 
      
2283. ${if} $1 == "Setted"
      
2284. 
      
2285. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" State "$0"
      
2286. 
      
2287. ${endif}
      
2288. 
      
2289. ReadINIStr $0 ${MUI_INIFILE} "Field ${DL_HOST}" State
      
2290. 
      
2291. WriteINIStr ${MUI_INIFILE} "Field ${TXT_HOST}" State $0
      
2292. 
      
2293. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$0" "MAC"
      
2294. 
      
2295. ${if} $2 == ""
      
2296. 
      
2297. ${orif} $2 == "${STR_UNSETTED}"
      
2298. 
      
2299. StrCpy $2 "${STR_UNSETTED}"
      
2300. 
      
2301. ${else}
      
2302. 
      
2303. StrLen $3 "$2"
      
2304. 
      
2305. ${if} $3 != 12
      
2306. 
      
2307. StrCpy $2 "${STR_ERRORFORMAT}"
      
2308. 
      
2309. ${endif}
      
2310. 
      
2311. ${endif}
      
2312. 
      
2313. WriteINIStr ${MUI_INIFILE} "Field ${TXT_MAC}" State $2
      
2314. 
      
2315. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$0" "IP"
      
2316. 
      
2317. ${if} $2 == ""
      
2318. 
      
2319. StrCpy $2 "${STR_UNSETTED}"
      
2320. 
      
2321. ${endif}
      
2322. 
      
2323. WriteINIStr ${MUI_INIFILE} "Field ${TXT_IP}" State $2
      
2324. 
      
2325. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$0" "MASK"
      
2326. 
      
2327. ${if} $2 == ""
      
2328. 
      
2329. StrCpy $2 "${STR_UNSETTED}"
      
2330. 
      
2331. ${endif}
      
2332. 
      
2333. WriteINIStr ${MUI_INIFILE} "Field ${TXT_MASK}" State $2
      
2334. 
      
2335. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$0" "NETGATE"
      
2336. 
      
2337. ${if} $2 == ""
      
2338. 
      
2339. StrCpy $2 "${STR_UNSETTED}"
      
2340. 
      
2341. ${endif}
      
2342. 
      
2343. WriteINIStr ${MUI_INIFILE} "Field ${TXT_NETGATE}" State $2
      
2344. 
      
2345. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$0" "DNS"
      
2346. 
      
2347. ${if} $2 == ""
      
2348. 
      
2349. StrCpy $2 "${STR_UNSETTED}"
      
2350. 
      
2351. ${endif}
      
2352. 
      
2353. WriteINIStr ${MUI_INIFILE} "Field ${TXT_DNS}" State $2
      
2354. 
      
2355. ${else} ;无主机信息
      
2356. 
      
2357. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" State "${STR_DEFAULT_HOST}"
      
2358. 
      
2359. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" ListItems "${STR_DEFAULT_HOST}"
      
2360. 
      
2361. ReadRegStr $2 HKLM "${REG_WINLOGON}" "AltDefaultDomainName"
      
2362. 
      
2363. WriteINIStr ${MUI_INIFILE} "Field ${TXT_HOST}" State $2
      
2364. 
      
2365. ReadINIStr $1 ${MUI_INIFILE} "Field ${DL_NETCARD}" State
      
2366. 
      
2367. ReadINIStr $2 ${MUI_INIFILE} "$1" "MAC"
      
2368. 
      
2369. WriteINIStr ${MUI_INIFILE} "Field ${TXT_MAC}" State $2
      
2370. 
      
2371. ReadINIStr $2 ${MUI_INIFILE} "$1" "IP"
      
2372. 
      
2373. WriteINIStr ${MUI_INIFILE} "Field ${TXT_IP}" State $2
      
2374. 
      
2375. ReadINIStr $2 ${MUI_INIFILE} "$1" "MASK"
      
2376. 
      
2377. WriteINIStr ${MUI_INIFILE} "Field ${TXT_MASK}" State $2
      
2378. 
      
2379. ReadINIStr $2 ${MUI_INIFILE} "$1" "NETGATE"
      
2380. 
      
2381. WriteINIStr ${MUI_INIFILE} "Field ${TXT_NETGATE}" State $2
      
2382. 
      
2383. ReadINIStr $2 ${MUI_INIFILE} "$1" "DNS"
      
2384. 
      
2385. WriteINIStr ${MUI_INIFILE} "Field ${TXT_DNS}" State $2
      
2386. 
      
2387. ${endif}
      
2388. 
      
2389. Pop $2
      
2390. 
      
2391. Pop $1
      
2392. 
      
2393. Pop $0
      
2394. 
      
2395. FunctionEnd ;;InitLastHostInfo
      
2396. 
      
2397. ##############################################################
      
2398. 
      
2399. # 功能 -- 刷新(开启/禁用) 网络连接
      
2400. 
      
2401. # Function RefreshConnection
      
2402. 
      
2403. ##############################################################
      
2404. 
      
2405. Function RefreshConnection
      
2406. 
      
2407. Push $0
      
2408. 
      
2409. Push $1
      
2410. 
      
2411. Push $2
      
2412. 
      
2413. Push $3
      
2414. 
      
2415. Push $4
      
2416. 
      
2417. System::Call "advapi32::GetUserName(t .r0, *i ${NSIS_MAX_STRLEN} r1) i.r2"
      
2418. 
      
2419. ;MessageBox MB_OK "UserName: $0 | CharsNm: $1"
      
2420. 
      
2421. StrCpy $2 $0 2
      
2422. 
      
2423. Loop:
      
2424. 
      
2425. IfFileExists "$TEMP$2$1.tmp" 0 Pass
      
2426. 
      
2427. IntOp $1 $1 + 100
      
2428. 
      
2429. Goto Loop
      
2430. 
      
2431. Pass:
      
2432. 
      
2433. StrCpy $1 "$TEMP$2$1.tmp"
      
2434. 
      
2435. ReadINIStr $2 ${MUI_INIFILE} "Field ${DL_NETCARD}" State
      
2436. 
      
2437. ReadINIStr $2 ${MUI_INIFILE} "$2" "InstanceId"
      
2438. 
      
2439. ReadRegStr $2 HKLM "${REG_NETWORK_CONNECTIONS}$2Connection" "Name"
      
2440. 
      
2441. ReadRegStr $3 HKCR "${REG_NETWORK_FOLDERNAME}" ""
      
2442. 
      
2443. !insertmacro CreateVBScript "$1" "$2" "$3"
      
2444. 
      
2445. Sleep 50 ;;稍等I/O结束
      
2446. 
      
2447. ;FindWindow $4 '#32770' '${STR_CAPTION}'
      
2448. 
      
2449. ;ShowWindow $4 2
      
2450. 
      
2451. ;MessageBox MB_OK "VB脚本已经生成完毕,点击确定打开,查看:$1"
      
2452. 
      
2453. ;ExecWait `"$SYSDIRnotepad.exe" "$1"`
      
2454. 
      
2455. ;Quit
      
2456. 
      
2457. ;ShowWindow $4 1
      
2458. 
      
2459. ExecWait `"$SYSDIRWScript.exe" /B /E:vbs "$1"`
      
2460. 
      
2461. ${If} $R0 == "ExecTwice"
      
2462. 
      
2463. Sleep 5000 ;;平缓5秒
      
2464. 
      
2465. ExecWait `"$SYSDIRWScript.exe" /B /E:vbs "$1"`
      
2466. 
      
2467. ${endif}
      
2468. 
      
2469. Delete "$1"
      
2470. 
      
2471. Call GetNetCardsInfo
      
2472. 
      
2473. Pop $4
      
2474. 
      
2475. Pop $3
      
2476. 
      
2477. Pop $2
      
2478. 
      
2479. Pop $1
      
2480. 
      
2481. Pop $0
      
2482. 
      
2483. FunctionEnd ;;RefreshConnection
      
2484. 
      
2485. ##############################################################
      
2486. 
      
2487. # 功能 -- 导出主机列表备份 / 导入主机列表备份
      
2488. 
      
2489. #
      
2490. 
      
2491. # Function SaveHostlist2INI
      
2492. 
      
2493. # Function ImprotHostlist2REG
      
2494. 
      
2495. ##############################################################
      
2496. 
      
2497. Function SaveHostlist2INI
      
2498. 
      
2499. Push $0
      
2500. 
      
2501. Push $1
      
2502. 
      
2503. Push $2
      
2504. 
      
2505. Push $3
      
2506. 
      
2507. FileOpen $2 "${VAR_OPENSAVE}" w
      
2508. 
      
2509. FileSeek $2 0 END
      
2510. 
      
2511. FileWrite $2 "${STR_SAVE_FILE_NOTE}"
      
2512. 
      
2513. FileClose $2
      
2514. 
      
2515. StrCpy $0 0
      
2516. 
      
2517. WriteINIStr ${VAR_OPENSAVE} "Main" HostNum 0
      
2518. 
      
2519. WriteINIStr ${VAR_OPENSAVE} "Main" Type "HostList Backup File"
      
2520. 
      
2521. WriteINIStr ${MUI_INIFILE} "Field ${DL_HOST}" ListItems ""
      
2522. 
      
2523. ${Do}
      
2524. 
      
2525. EnumRegKey $1 HKLM "${REG_ME_HOSTLIST}" $0
      
2526. 
      
2527. ${IfThen} $1 == "" ${|} ${ExitDo} ${|}
      
2528. 
      
2529. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" ""
      
2530. 
      
2531. ${if} $2 == "Setted"
      
2532. 
      
2533. ;${orif} $2 == "Hidden"
      
2534. 
      
2535. ReadINIStr $3 ${VAR_OPENSAVE} "Main" HostNum
      
2536. 
      
2537. IntOp $3 $3 + 1
      
2538. 
      
2539. WriteINIStr ${VAR_OPENSAVE} "Main" HostNum $3
      
2540. 
      
2541. FileOpen $2 "${VAR_OPENSAVE}" a
      
2542. 
      
2543. FileSeek $2 0 END
      
2544. 
      
2545. FileWrite $2 "$r$n"
      
2546. 
      
2547. FileClose $2
      
2548. 
      
2549. WriteINIStr ${VAR_OPENSAVE} "Host $3" FLAG "Setted"
      
2550. 
      
2551. WriteINIStr ${VAR_OPENSAVE} "Host $3" NAME "$1"
      
2552. 
      
2553. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" "MAC"
      
2554. 
      
2555. ${if} $2 == "${STR_ERRORFORMAT}"
      
2556. 
      
2557. ${orif} $2 == "${STR_UNSETTED}"
      
2558. 
      
2559. StrCpy $2 ""
      
2560. 
      
2561. ${endif}
      
2562. 
      
2563. WriteINIStr ${VAR_OPENSAVE} "Host $3" MAC "$2"
      
2564. 
      
2565. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" "IP"
      
2566. 
      
2567. ${if} $2 == "${STR_UNSETTED}"
      
2568. 
      
2569. StrCpy $2 ""
      
2570. 
      
2571. ${endif}
      
2572. 
      
2573. WriteINIStr ${VAR_OPENSAVE} "Host $3" IP "$2"
      
2574. 
      
2575. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" "MASK"
      
2576. 
      
2577. ${if} $2 == "${STR_UNSETTED}"
      
2578. 
      
2579. StrCpy $2 ""
      
2580. 
      
2581. ${endif}
      
2582. 
      
2583. WriteINIStr ${VAR_OPENSAVE} "Host $3" MASK "$2"
      
2584. 
      
2585. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" "NETGATE"
      
2586. 
      
2587. ${if} $2 == "${STR_UNSETTED}"
      
2588. 
      
2589. StrCpy $2 ""
      
2590. 
      
2591. ${endif}
      
2592. 
      
2593. WriteINIStr ${VAR_OPENSAVE} "Host $3" NETGATE "$2"
      
2594. 
      
2595. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}$1" "DNS"
      
2596. 
      
2597. ${if} $2 == "${STR_UNSETTED}"
      
2598. 
      
2599. StrCpy $2 ""
      
2600. 
      
2601. ${endif}
      
2602. 
      
2603. WriteINIStr ${VAR_OPENSAVE} "Host $3" DNS "$2"
      
2604. 
      
2605. ${endif}
      
2606. 
      
2607. IntOp $0 $0 + 1
      
2608. 
      
2609. ${Loop}
      
2610. 
      
2611. ReadRegStr $2 HKLM "${REG_ME_HOSTLIST}" "LastHost"
      
2612. 
      
2613. WriteINIStr ${VAR_OPENSAVE} "Main" "RectHost" "$2"
      
2614. 
      
2615. WriteINIStr ${VAR_OPENSAVE} "Main" "Type" "HostList Backup File"
      
2616. 
      
2617. Pop $3
      
2618. 
      
2619. Pop $2
      
2620. 
      
2621. Pop $1
      
2622. 
      
2623. Pop $0
      
2624. 
      
2625. FunctionEnd ;;SaveHostlist2INI
      
2626. 
      
2627. Function ImprotHostlist2REG
      
2628. 
      
2629. Push $0
      
2630. 
      
2631. Push $1
      
2632. 
      
2633. Push $2
      
2634. 
      
2635. Push $3
      
2636. 
      
2637. Push $4
      
2638. 
      
2639. StrCpy $R4 -1 ;;临时选择标记容器
      
2640. 
      
2641. StrCpy $0 0 ;成功导入计数器
      
2642. 
      
2643. ReadINIStr $4 ${VAR_OPENSAVE} "Main" HostNum
      
2644. 
      
2645. ${if} $4 <= 0
      
2646. 
      
2647. MessageBox MB_OK|MB_ICONEXCLAMATION|MB_TOPMOST "主机列表备份文件中没有任何主机信息,无法导入! "
      
2648. 
      
2649. ${else}
      
2650. 
      
2651. ${if} $COUNTER_HOSTNUM < 1
      
2652. 
      
2653. ReadINIStr $3 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
2654. 
      
2655. SendMessage $3 ${CB_DELETESTRING} 0 "" ;;删除旧主机标识
      
2656. 
      
2657. ${endif}
      
2658. 
      
2659. ;MessageBox MB_YESNO "继续?" IDYES +2
      
2660. 
      
2661. ;Quit
      
2662. 
      
2663. ${for} $1 1 $4
      
2664. 
      
2665. ReadINIStr $2 ${VAR_OPENSAVE} "Host $1" FLAG
      
2666. 
      
2667. ${if} $2 != "Setted" ;;检测项目设置
      
2668. 
      
2669. ${Continue}
      
2670. 
      
2671. ${endif}
      
2672. 
      
2673. ReadINIStr $2 ${VAR_OPENSAVE} "Host $1" NAME
      
2674. 
      
2675. ReadRegStr $3 HKLM "${REG_ME_HOSTLIST}$2" ""
      
2676. 
      
2677. ${if} $3 == "Setted"
      
2678. 
      
2679. ;${orif} $3 == "Hidden"
      
2680. 
      
2681. ${if} $R4 == "NOTOALL"
      
2682. 
      
2683. ${Continue}
      
2684. 
      
2685. ${orif} $R4 == "YESTOALL"
      
2686. 
      
2687. Goto OverW
      
2688. 
      
2689. ${endif}
      
2690. 
      
2691. System::Call 'user32::MessageBeep(i) i (0x00000001)'
      
2692. 
      
2693. MessageBox::show MB_ICONHAND|MB_DEFBUTTON2|MB_TOPMOST "导入主机列表" "$SYSDIRshell32.dll,23"
      
2694. 
      
2695. "主机标识 $2 已经存在,是否将原主机信息覆盖? "
      
2696. 
      
2697. " 是 " "全是" "否" "全否"
      
2698. 
      
2699. Pop $R0
      
2700. 
      
2701. ${if} $R0 == 2
      
2702. 
      
2703. StrCpy $R4 "YESTOALL"
      
2704. 
      
2705. Goto OverW
      
2706. 
      
2707. ${elseif} $R0 == 4
      
2708. 
      
2709. StrCpy $R4 "NOTOALL"
      
2710. 
      
2711. ${elseif} $R0 == 1
      
2712. 
      
2713. Goto OverW
      
2714. 
      
2715. ${endif}
      
2716. 
      
2717. ${Continue}
      
2718. 
      
2719. OverW:
      
2720. 
      
2721. ${else}
      
2722. 
      
2723. ReadINIStr $3 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
2724. 
      
2725. SendMessage $3 ${CB_ADDSTRING} 0 "STR:$2" ;;添加新标识
      
2726. 
      
2727. !insertmacro AddHostNum 1
      
2728. 
      
2729. ${endif}
      
2730. 
      
2731. ReadINIStr $3 ${VAR_OPENSAVE} "Host $1" FLAG
      
2732. 
      
2733. WriteRegStr HKLM "${REG_ME_HOSTLIST}$2" "" $3
      
2734. 
      
2735. ReadINIStr $3 ${VAR_OPENSAVE} "Host $1" MAC
      
2736. 
      
2737. WriteRegStr HKLM "${REG_ME_HOSTLIST}$2" "MAC" $3
      
2738. 
      
2739. ReadINIStr $3 ${VAR_OPENSAVE} "Host $1" IP
      
2740. 
      
2741. WriteRegStr HKLM "${REG_ME_HOSTLIST}$2" "IP" $3
      
2742. 
      
2743. ReadINIStr $3 ${VAR_OPENSAVE} "Host $1" MASK
      
2744. 
      
2745. WriteRegStr HKLM "${REG_ME_HOSTLIST}$2" "MASK" $3
      
2746. 
      
2747. ReadINIStr $3 ${VAR_OPENSAVE} "Host $1" NETGATE
      
2748. 
      
2749. WriteRegStr HKLM "${REG_ME_HOSTLIST}$2" "NETGATE" $3
      
2750. 
      
2751. ReadINIStr $3 ${VAR_OPENSAVE} "Host $1" DNS
      
2752. 
      
2753. WriteRegStr HKLM "${REG_ME_HOSTLIST}$2" "DNS" $3
      
2754. 
      
2755. IntOp $0 $0 + 1
      
2756. 
      
2757. ${Next}
      
2758. 
      
2759. ReadINIStr $4 ${VAR_OPENSAVE} "Main" RectHost
      
2760. 
      
2761. ReadRegStr $3 HKLM "${REG_ME_HOSTLIST}$4" ""
      
2762. 
      
2763. ${if} $3 != "Setted"
      
2764. 
      
2765. StrCpy $4 $2
      
2766. 
      
2767. ${endif}
      
2768. 
      
2769. WriteRegStr HKLM "${REG_ME_HOSTLIST}" "LastHost" "$4"
      
2770. 
      
2771. ReadINIStr $3 "${MUI_INIFILE}" "Field ${DL_HOST}" "HWND"
      
2772. 
      
2773. SendMessage $3 ${CB_SELECTSTRING} 0 "STR:$4"
      
2774. 
      
2775. WriteINIStr "${MUI_INIFILE}" "Field ${DL_HOST}" State "$4"
      
2776. 
      
2777. !insertmacro ShowReg2Txt $1 $2 $3
      
2778. 
      
2779. ${if} $0 > 0
      
2780. 
      
2781. MessageBox MB_OK|MB_ICONINFORMATION|MB_TOPMOST "导入完成: 从备份文件中成功导入 $0 个主机项目。 "
      
2782. 
      
2783. ${else}
      
2784. 
      
2785. MessageBox MB_OK|MB_ICONINFORMATION|MB_TOPMOST "没有导入任何主机。 "
      
2786. 
      
2787. ${endif}
      
2788. 
      
2789. ${endif}
      
2790. 
      
2791. Pop $4
      
2792. 
      
2793. Pop $3
      
2794. 
      
2795. Pop $2
      
2796. 
      
2797. Pop $1
      
2798. 
      
2799. Exch $0
      
2800. 
      
2801. FunctionEnd ;;ImprotHostlist2REG
      
2802. 
      
2803. Section -Nop
      
2804. 
      
2805. Quit ;;形式,用不到...
      
2806. 
      
2807. SectionEnd

复制代码