密码显示●

admin

1. 
   
2. # INFO #
   
3. 
   
4. !addincludedir "."
   
5. !addplugindir "."
   
6. 
   
7. Name "Flag Combobox"
   
8. OutFile "Flag Combobox.exe"
   
9. InstallDir "$TEMP\Flag Combobox"
   
10. 
    
11. # COMPRESSOR #
    
12. 
    
13. SetCompressor /SOLID /FINAL lzma
    
14. 
    
15. # RUNTIME #
    
16. 
    
17. RequestExecutionLevel USER
    
18. 
    
19. # HIDE # SHOW #
    
20. 
    
21. ShowInstDetails nevershow
    
22. ShowUninstDetails NeverShow
    
23. 
    
24. # INCLUDES #
    
25. 
    
26. !include "MUI2.nsh"
    
27. !include "WordFunc.nsh"
    
28. !include "FileFunc.nsh"
    
29. !include "nsDialogs.nsh"
    
30. !include "LogicLib.nsh"
    
31. !include "WinCore.nsh"
    
32. !include "WinMessages.nsh"
    
33. 
    
34. # ICON & STYLE #
    
35. 
    
36. BrandingText /TRIMRIGHT " "
    
37. 
    
38. # PAGE #
    
39. 
    
40. Page custom "Welcome.Page" ""
    
41. Page instfiles ""
    
42. 
    
43. # LANGUAGES #
    
44. 
    
45. !insertmacro MUI_LANGUAGE "English"
    
46. !insertmacro MUI_LANGUAGE "French"
    
47. !insertmacro MUI_LANGUAGE "German"
    
48. !insertmacro MUI_LANGUAGE "Romanian"
    
49. !insertmacro MUI_LANGUAGE "simpChinese"
    
50. !insertmacro MUI_LANGUAGE "TradChinese"
    
51. 
    
52. # INIT #
    
53. 
    
54. Function .onInit
    
55. FunctionEnd
    
56. 
    
57. # PAGE #
    
58. 
    
59. Function "Welcome.Page"
    
60. # VARIABLES #
    
61. 
    
62. var /GLOBAL DIALOG
    
63. var /GLOBAL Lbl.Welcome
    
64. var /GLOBAL Lbl.Sub.Welcome
    
65. var /GLOBAL Lbl.Language
    
66. var /GLOBAL LANNAME
    
67. var /GLOBAL DropList
    
68. 
    
69. var /GLOBAL Path_User
    
70. var /GLOBAL Lbl_User
    
71. var /GLOBAL Lbl_Show_User
    
72. var /GLOBAL Path_Pass
    
73. var /GLOBAL Lbl_Pass
    
74. var /GLOBAL Lbl_Show_Pass
    
75. 
    
76. GetDlgItem $0 $HWNDPARENT 1
    
77. ShowWindow $0 ${SW_HIDE}
    
78. GetDlgItem $0 $HWNDPARENT 2
    
79. ShowWindow $0 ${SW_HIDE}
    
80. GetDlgItem $0 $HWNDPARENT 3
    
81. ShowWindow $0 ${SW_HIDE}
    
82. GetDlgItem $0 $HWNDPARENT 1990
    
83. ShowWindow $0 ${SW_HIDE}
    
84. GetDlgItem $0 $HWNDPARENT 1991
    
85. ShowWindow $0 ${SW_HIDE}
    
86. GetDlgItem $0 $HWNDPARENT 1992
    
87. ShowWindow $0 ${SW_HIDE}
    
88. 
    
89. nsDialogs::Create /NOUNLOAD 1044
    
90. Pop $DIALOG
    
91. ${If} $DIALOG == error
    
92. Abort
    
93. ${EndIf}
    
94. 
    
95. # WELCOME #
    
96. 
    
97. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 3% 5% 30% 8% "My Name Setup"
    
98. Pop $Lbl.Welcome
    
99. 
    
100. CreateFont $0 "$(^Font)" 14 300
     
101. SendMessage $Lbl.Welcome ${WM_SETFONT} $0 0
     
102. 
     
103. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 3% 15% 60% 4% "This installer will help you to install $(^Name) ..."
     
104. pop $Lbl.Sub.Welcome
     
105. 
     
106. # Language #
     
107. 
     
108. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 70% 84% 20% 4% "Language:"
     
109. pop $Lbl.Language
     
110. 
     
111. nsDialogs::CreateControl /NOUNLOAD COMBOBOX 0x40000000|0x10000000|0x04000000|0x00010000|0x00200000|0x02000000|0x0040|0x0200|0x0002 0x00000100|0x00000200 70% 90% 25% 5% ""
     
112. Pop $DropList
     
113. StrCpy $1 $DropList
     
114. GetFunctionAddress $3 "GetSelectedLang"
     
115. nsDialogs::OnChange /NOUNLOAD $1 $3
     
116. 
     
117. SendMessage $DropList ${CB_GETCOUNT} 0 0 $0
     
118. 
     
119. IntCmp $0 0 0 0 next
     
120. ${NSD_CB_AddString} $DropList English
     
121. ${NSD_CB_AddString} $DropList French
     
122. ${NSD_CB_AddString} $DropList Germen
     
123. ${NSD_CB_AddString} $DropList Romanian
     
124. ${NSD_CB_AddString} $DropList SimpChinese
     
125. ${NSD_CB_AddString} $DropList TradChinese
     
126. 
     
127. next:
     
128. ; To remember the selection of combobox
     
129. ${Unless} $LANNAME == ""
     
130. SendMessage $DropList ${CB_FINDSTRING} -1 "STR:$LANNAME" $0
     
131. ${If} $0 = -1
     
132. SendMessage $DropList ${CB_SETCURSEL} 0 0
     
133. ${Else}
     
134. SendMessage $DropList ${CB_SETCURSEL} $0 0
     
135. ${EndIf}
     
136. ${Else}
     
137. SendMessage $DropList ${CB_SETCURSEL} 0 0
     
138. ${EndUnless}
     
139. 
     
140. # User
     
141. 
     
142. nsDialogs::CreateControl /NOUNLOAD EDIT 0x40000000|0x10000000|0x04000000|0x00010000|0x00000080 0 20% 28% 25% 4% "" ; Username
     
143. Pop $Path_User
     
144. Strcpy $1 $Path_User
     
145. GetFunctionAddress $3 ".onClick.User"
     
146. nsDialogs::OnChange $1 $3
     
147. 
     
148. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 5%% 29% 12% 4% "Username"
     
149. Pop $Lbl_User
     
150. 
     
151. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 50% 29% 45% 4% ""
     
152. Pop $Lbl_Show_User
     
153. 
     
154. # Password
     
155. 
     
156. nsDialogs::CreateControl /NOUNLOAD EDIT 0x40000000|0x10000000|0x04000000|0x00010000|0x00000080 0 20% 35% 25% 4% "" ; Password
     
157. Pop $Path_Pass
     
158. Strcpy $1 $Path_Pass
     
159. SendMessage $Path_Pass 0x00CC 149 0
     
160. GetFunctionAddress $3 ".onClick.Pass"
     
161. nsDialogs::OnChange $1 $3
     
162. 
     
163. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 5%% 36% 12% 4% "Password"
     
164. Pop $Lbl_Pass
     
165. 
     
166. nsDialogs::CreateControl /NOUNLOAD STATIC 0x40000000|0x10000000|0x04000000|0x00000100 0x00000020 50% 36% 45% 4% ""
     
167. Pop $Lbl_Show_Pass
     
168. 
     
169. nsDialogs::Show
     
170. 
     
171. FunctionEnd
     
172. 
     
173. var /Global USERNAME
     
174. var /Global PASSWORD
     
175. 
     
176. Function ".onClick.User"
     
177. Pop $Path_User
     
178. ${NSD_GetText} $Path_User $0
     
179. StrCpy $USERNAME "$0"
     
180. SendMessage $Lbl_Show_User ${WM_SETTEXT} 0 "STR:$USERNAME"
     
181. FunctionEnd
     
182. 
     
183. Function ".onClick.Pass"
     
184. Pop $Path_Pass
     
185. ${NSD_GetText} $Path_Pass $0
     
186. StrCpy $PASSWORD "$0"
     
187. SendMessage $Lbl_Show_Pass ${WM_SETTEXT} 0 "STR:$PASSWORD"
     
188. FunctionEnd
     
189. 
     
190. # ENGLISH #
     
191. 
     
192. !define LANGSTRING_SUBTITLE_1033 "This installer will help you to install $(^Name) ..."
     
193. !define LANGSTRING_LANGUAGE_1033 "Language:"
     
194. !define LANGSTRING_USERNAME_1033 "Username:"
     
195. !define LANGSTRING_PASSWORD_1033 "Password:"
     
196. 
     
197. # FRENCH #
     
198. 
     
199. !define LANGSTRING_SUBTITLE_1036 "Ce programme d'installation vous aidera à installer $(^Name) ..."
     
200. !define LANGSTRING_LANGUAGE_1036 "Langue:"
     
201. !define LANGSTRING_USERNAME_1036 "Nom d'utilisateur:"
     
202. !define LANGSTRING_PASSWORD_1036 "Mot de passe:"
     
203. 
     
204. # GERMAN #
     
205. 
     
206. !define LANGSTRING_SUBTITLE_1031 "Dieser Installateur hilft Ihnen bei der Installation von $(^Name) ..."
     
207. !define LANGSTRING_LANGUAGE_1031 "Sprache:"
     
208. !define LANGSTRING_USERNAME_1031 "Benutzername:"
     
209. !define LANGSTRING_PASSWORD_1031 "Passwort:"
     
210. 
     
211. # ROMANIAN #
     
212. 
     
213. !define LANGSTRING_SUBTITLE_1048 "Acest instalator te va ajuta să instalezi $(^Name) ..."
     
214. !define LANGSTRING_LANGUAGE_1048 "Limbă:"
     
215. !define LANGSTRING_USERNAME_1048 "Utilizator:"
     
216. !define LANGSTRING_PASSWORD_1048 "Parolă:"
     
217. 
     
218. # SIMPCHINESE #
     
219. 
     
220. !define LANGSTRING_SUBTITLE_2052 "此安装程序将帮助您安装 $(^Name) ..."
     
221. !define LANGSTRING_LANGUAGE_2052 "语言:"
     
222. !define LANGSTRING_USERNAME_2052 "用户名:"
     
223. !define LANGSTRING_PASSWORD_2052 "密码:"
     
224. 
     
225. # TRADCHINESE #
     
226. 
     
227. !define LANGSTRING_SUBTITLE_1028 "此安裝程序將幫助您安裝 $(^Name) ..."
     
228. !define LANGSTRING_LANGUAGE_1028 "語言:"
     
229. !define LANGSTRING_USERNAME_1028 "用戶名:"
     
230. !define LANGSTRING_PASSWORD_1028 "密碼:"
     
231. 
     
232. !macro __NSD_CB_GetSelection CONTROL VAR
     
233. 
     
234. Push $0
     
235. SendMessage ${CONTROL} ${CB_GETCURSEL} 0 0 $0
     
236. System::Alloc ${NSIS_MAX_STRLEN}
     
237. System::Call 'user32::SendMessage(i ${CONTROL}, i ${CB_GETLBTEXT}, i r0, i ss)'
     
238. Pop $0
     
239. System::Call '*$0(&t${NSIS_MAX_STRLEN}.s)'
     
240. System::Free $0
     
241. Exch
     
242. Pop $0
     
243. Pop ${VAR}
     
244. 
     
245. !macroend
     
246. 
     
247. !define NSD_CB_GetSelection `!insertmacro __NSD_CB_GetSelection`
     
248. 
     
249. var /GLOBAL LANGSTRING_SUBTITLE
     
250. var /GLOBAL LANGSTRING_LANGUAGE
     
251. 
     
252. var /GLOBAL LANGSTRING_USERNAME
     
253. var /GLOBAL LANGSTRING_PASSWORD
     
254. 
     
255. Function GetSelectedLang
     
256. !macro SetPageStrings LANGID
     
257. StrCpy $LANGSTRING_SUBTITLE "${LANGSTRING_SUBTITLE_${LANGID}}"
     
258. StrCpy $LANGSTRING_LANGUAGE "${LANGSTRING_LANGUAGE_${LANGID}}"
     
259. StrCpy $LANGSTRING_USERNAME "${LANGSTRING_USERNAME_${LANGID}}"
     
260. StrCpy $LANGSTRING_PASSWORD "${LANGSTRING_PASSWORD_${LANGID}}"
     
261. !macroend
     
262. 
     
263. ${NSD_CB_GetSelection} $DropList $LANNAME
     
264. 
     
265. ${Select} $LANNAME
     
266. ${Case} English
     
267. !insertmacro SetPageStrings 1033
     
268. SendMessage $Lbl.Language ${WM_SETTEXT} 0 "STR:$LANGSTRING_LANGUAGE"
     
269. SendMessage $Lbl.Sub.Welcome ${WM_SETTEXT} 0 "STR:$LANGSTRING_SUBTITLE"
     
270. 
     
271. SendMessage $Lbl_User ${WM_SETTEXT} 0 "STR:$LANGSTRING_USERNAME"
     
272. SendMessage $Lbl_Pass ${WM_SETTEXT} 0 "STR:$LANGSTRING_PASSWORD"
     
273. ${Case} French
     
274. !insertmacro SetPageStrings 1036
     
275. SendMessage $Lbl.Language ${WM_SETTEXT} 0 "STR:$LANGSTRING_LANGUAGE"
     
276. SendMessage $Lbl.Sub.Welcome ${WM_SETTEXT} 0 "STR:$LANGSTRING_SUBTITLE"
     
277. 
     
278. SendMessage $Lbl_User ${WM_SETTEXT} 0 "STR:$LANGSTRING_USERNAME"
     
279. SendMessage $Lbl_Pass ${WM_SETTEXT} 0 "STR:$LANGSTRING_PASSWORD"
     
280. ${Case} Germen
     
281. !insertmacro SetPageStrings 1031
     
282. SendMessage $Lbl.Language ${WM_SETTEXT} 0 "STR:$LANGSTRING_LANGUAGE"
     
283. SendMessage $Lbl.Sub.Welcome ${WM_SETTEXT} 0 "STR:$LANGSTRING_SUBTITLE"
     
284. 
     
285. SendMessage $Lbl_User ${WM_SETTEXT} 0 "STR:$LANGSTRING_USERNAME"
     
286. SendMessage $Lbl_Pass ${WM_SETTEXT} 0 "STR:$LANGSTRING_PASSWORD"
     
287. ${Case} Romanian
     
288. !insertmacro SetPageStrings 1048
     
289. SendMessage $Lbl.Language ${WM_SETTEXT} 0 "STR:$LANGSTRING_LANGUAGE"
     
290. SendMessage $Lbl.Sub.Welcome ${WM_SETTEXT} 0 "STR:$LANGSTRING_SUBTITLE"
     
291. 
     
292. SendMessage $Lbl_User ${WM_SETTEXT} 0 "STR:$LANGSTRING_USERNAME"
     
293. SendMessage $Lbl_Pass ${WM_SETTEXT} 0 "STR:$LANGSTRING_PASSWORD"
     
294. ${Case} SimpChinese
     
295. !insertmacro SetPageStrings 2052
     
296. SendMessage $Lbl.Language ${WM_SETTEXT} 0 "STR:$LANGSTRING_LANGUAGE"
     
297. SendMessage $Lbl.Sub.Welcome ${WM_SETTEXT} 0 "STR:$LANGSTRING_SUBTITLE"
     
298. 
     
299. SendMessage $Lbl_User ${WM_SETTEXT} 0 "STR:$LANGSTRING_USERNAME"
     
300. SendMessage $Lbl_Pass ${WM_SETTEXT} 0 "STR:$LANGSTRING_PASSWORD"
     
301. ${Case} TradChinese
     
302. !insertmacro SetPageStrings 1028
     
303. SendMessage $Lbl.Language ${WM_SETTEXT} 0 "STR:$LANGSTRING_LANGUAGE"
     
304. SendMessage $Lbl.Sub.Welcome ${WM_SETTEXT} 0 "STR:$LANGSTRING_SUBTITLE"
     
305. 
     
306. SendMessage $Lbl_User ${WM_SETTEXT} 0 "STR:$LANGSTRING_USERNAME"
     
307. SendMessage $Lbl_Pass ${WM_SETTEXT} 0 "STR:$LANGSTRING_PASSWORD"
     
308. ${CaseElse}
     
309. !insertmacro SetPageStrings 1033
     
310. ${EndSelect}
     
311. FunctionEnd
     
312. 
     
313. # END #
     
314. 
     
315. Function .onGUIEnd
     
316. FunctionEnd
     
317. 
     
318. # SECTION #
     
319. 
     
320. Section "MAIN" SEC01
     
321. SectionEnd
     

复制代码