NSIS一键安装网站环境及部署网站

admin

1. ;项目: 智慧校园云平台
   
2. ;时间: 2014年7月16日
   
3. ;作者: Kan Lau
   
4. ; 该脚本使用 HM VNISEdit 脚本编辑器向导产生
   
5. 
   
6. 
   
7. ; 安装程序初始定义常量
   
8. !define PRODUCT_NAME "金太阳智慧校园云平台教育软件"
   
9. !define PRODUCT_EN_NAME "金太阳智慧校园云平台教育软件"
   
10. !define PRODUCT_PROC_NAME "KSWebInstraller.exe"
    
11. !define PRODUCT_VERSION "1.1"
    
12. !define PRODUCT_PUBLISHER "深圳市方直科技股份有限公司"
    
13. !define PRODUCT_WEB_SITE "http://www.kingsunsoft.com"
    
14. !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
    
15. !define PRODUCT_UNINST_ROOT_KEY "HKLM"
    
16. ###############################
    
17. #打包时，需要修改此处版本号！
    
18. ###############################
    
19. #安装界面显示版本号，必须为X.X的格式(否则版本号比较会失败）
    
20. #安装程序信息描述版本号 必须为 X.X.X.X
    
21. !define _PRODUCTVER "1.1.0.0"
    
22. !define _PRODUCTDES "金太阳智慧校园云平台教育软件"
    
23. 
    
24. 
    
25. !define MUI_WELCOMEFINISHPAGE_BITMAP "res\left.bmp" ; 左侧标题位图
    
26. 
    
27. 
    
28. !define MUI_HEADERIMAGE
    
29. !define MUI_HEADERIMAGE_RIGHT ; 将页眉图片显示到右边,默认为左边
    
30. !define MUI_HEADERIMAGE_BITMAP "res\header-r.bmp" ; 设置标题图片,BMP位图格式.大小为 150 x 57
    
31. SetCompressor lzma
    
32. 
    
33. 
    
34. ; ------ MUI 现代界面定义 (1.67 版本以上兼容) ------
    
35. !include "MUI.nsh"
    
36. !include "WinVer.nsh"
    
37. !include "UAC.nsh"
    
38. ; ------ 添加判断操作系统的头函数 ------
    
39. !include "x64.nsh"
    
40. 
    
41. 
    
42. ; ------ 添加字符串处理的头函数 ------
    
43. !include WordFunc.nsh
    
44. !include "LogicLib.nsh"
    
45. 
    
46. 
    
47. ; MUI 预定义常量
    
48. !define MUI_ABORTWARNING
    
49. !define MUI_ICON "res\inst.ico"
    
50. !define MUI_UNICON "res\uninst.ico"
    
51. 
    
52. 
    
53. ; 欢迎页面
    
54. !insertmacro MUI_PAGE_WELCOME
    
55. ; 安装目录选择页面
    
56. !insertmacro MUI_PAGE_DIRECTORY
    
57. ; 许可协议页面
    
58. !insertmacro MUI_PAGE_LICENSE "F:\Work file\2014\智慧校园安装包\Nsis\license.rtf"
    
59. 
    
60. 
    
61. ; 安装过程页面
    
62. !insertmacro MUI_PAGE_INSTFILES
    
63. ; 定义安装界面
    
64. !define MUI_FINISHPAGE_RUN
    
65. ; 安装完成页面
    
66. !define MUI_FINISHPAGE_RUN_FUNCTION "LaunchLink"
    
67. ;!insertmacro MUI_PAGE_INSTFILES
    
68. ;!define MUI_PAGE_CUSTOMFUNCTION_PRE LaunchLink
    
69. !insertmacro MUI_PAGE_FINISH
    
70. 
    
71. 
    
72. ; 安装卸载过程页面
    
73. !insertmacro MUI_UNPAGE_INSTFILES
    
74. 
    
75. 
    
76. ; 安装界面包含的语言设置
    
77. !insertmacro MUI_LANGUAGE "SimpChinese"
    
78. 
    
79. 
    
80. VIProductVersion "${_PRODUCTVER}"
    
81. VIAddVersionKey /LANG=2052 "ProductName" "${_PRODUCTDES}"
    
82. VIAddVersionKey /LANG=2052 "CompanyName" "深圳市方直科技股份有限公司"
    
83. VIAddVersionKey /LANG=2052 "FileDescription" "${_PRODUCTDES}"
    
84. VIAddVersionKey /LANG=2052 "FileVersion" "${_VERSION}"
    
85. VIAddVersionKey /LANG=2052 "LegalCopyright" "Copyright (C) Kingsunsoft. 保留所有权利。"
    
86. ; 安装预释放文件
    
87. !insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
    
88. ; ------ MUI 现代界面定义结束 ------
    
89. 
    
90. 
    
91. Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
    
92. OutFile "KSWebInstraller.exe"
    
93. InstallDir "$PROGRAMFILES\方直金太阳\金太阳智慧校园平台"
    
94. ShowInstDetails show
    
95. ShowUnInstDetails show
    
96. BrandingText "方直金太阳软件"
    
97. 
    
98. 
    
99. Var local_ip          ;运行安装程序的电脑IP
    
100. Var ports_firstports  ;循环判断空闲端口的第一个端口号
     
101. Var ports_value       ;端口值
     
102. Var free_ports        ;空闲端口
     
103. Var version_number    ;版本号
     
104. Var XML_PATH          ;配置文件路径
     
105. Var Index             ;生成网站的网站ID
     
106. Var path              ;安装程序所在的路径，用于设置安装完IIS后，写入注册表，达到重启一次能自动运行安装程序的作用
     
107. Var update_path       ;安装升级服务所在的路径
     
108. Var empty
     
109. ;----------------------------------------------------请求UAC权限---------------------------------
     
110. !macro Init thing
     
111. uac_tryagain:
     
112. !insertmacro UAC_RunElevated
     
113. ${Switch} $0
     
114. ${Case} 0
     
115. ${IfThen} $1 = 1 ${|} Quit ${|} ;we are the outer process, the inner process has done its work, we are done
     
116. ${IfThen} $3 <> 0 ${|} ${Break} ${|} ;we are admin, let the show go on
     
117. ${If} $1 = 3 ;RunAs completed successfully, but with a non-admin user
     
118. ;MessageBox mb_YesNo|mb_IconExclamation|mb_TopMost|mb_SetForeground "This ${thing} requires admin privileges, try again" /SD IDNO IDYES uac_tryagain IDNO 0
     
119. ${EndIf}
     
120. ;fall-through and die
     
121. ${Case} 1223
     
122. ;MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "This ${thing} requires admin privileges, aborting!"
     
123. Quit
     
124. ${Case} 1062
     
125. ;MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "Logon service not running, aborting!"
     
126. ;Quit
     
127. ${Default}
     
128. ;MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "Unable to elevate, error $0"
     
129. ;Quit
     
130. ${EndSwitch}
     
131. 
     
132. 
     
133. SetShellVarContext current
     
134. !macroend
     
135. ;-----------------------------------------------------------------------------------------------
     
136. 
     
137. 
     
138. Function .onInit
     
139. StrCpy $version_number "1.1"
     
140. System::Call 'kernel32::CreateMutexA(i 0, i 0, t "${PRODUCT_NAME} ${PRODUCT_VERSION}") i .r1 ?e' ;判断是否已启动安装程序
     
141. Pop $R0
     
142. StrCmp $R0 0 +3
     
143.    MessageBox MB_OK|MB_ICONEXCLAMATION "安装程序已经在运行。"
     
144.    Abort
     
145.    
     
146. ${If} ${IsWinXP}
     
147. ${OrIf} ${IsWinVista}
     
148. MessageBox MB_OK "暂不支持XP或Vista系统！"
     
149. Quit
     
150. ${EndIf}
     
151. 
     
152. 
     
153. ClearErrors
     
154. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\InetStp" "MajorVersion"
     
155. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\InetStp" "MinorVersion"
     
156. IfErrors 0 NextFunction
     
157.   ${If} ${RunningX64}
     
158.   DetailPrint "暂不支持64位下的IIS安装，请安装完IIS后再运行此安装包"
     
159. Quit
     
160. ${EndIf}
     
161. 
     
162. 
     
163.    NextFunction:
     
164. 
     
165. ;获取安装程序所在路径
     
166.   System::Call 'kernel32::GetCurrentDirectory(i 1024,t .R8)'
     
167.   strCpy $path $R8
     
168.   ReadRegDWORD $0 HKLM "SOFTWARE\WisdomCampus" "KSWebVersion"
     
169.   StrCpy $empty ""
     
170.   StrCmp $0 $empty notFound
     
171.   ${If} $0 < "$version_number"
     
172.   MessageBox MB_OK|MB_ICONEXCLAMATION "检测到当前系统已安装较低版本网站，请先执行Uninstall卸载后再执行此安装"
     
173.   Quit
     
174.   ${Else}
     
175.   MessageBox MB_OK|MB_ICONEXCLAMATION "检测到当前系统已安装相同版本或更高版本的网站"
     
176.   Quit
     
177. ${EndIf}
     
178. notFound:
     
179. FunctionEnd
     
180. 
     
181. 
     
182. Section "MainSection" SEC01
     
183.   SetOutPath "$INSTDIR"
     
184.   SetOverwrite ifnewer
     
185. ;获取安装程序所在路径
     
186. ; File /r "F:\Work file\2014\Nsis\TestWeb\*.*" ;添加网站
     
187. ; File /r "F:\Work file\2014\智慧校园安装包\WebSite\*.*"
     
188. ; File "F:\Work file\2014\Nsis\dotnetfx4.0.30319.exe" ;添加.NET框架
     
189. ; File "F:\Work file\2014\Nsis\dotnetfx35_3.5.30729.1.exe"
     
190. ; File "F:\Work file\2014\Nsis\C++RunDll\vcredist_2010_x64.exe"      ;添加C++运行库
     
191. ; File "F:\Work file\2014\Nsis\C++RunDll\vcredist_2010_x86.exe"      ;添加C++运行库
     
192. ; File "F:\Work file\2014\Nsis\SysData.xml"
     
193.   File /r "F:\Work file\2014\智慧校园安装包\WisdomCampus\*.*"
     
194. 
     
195. 
     
196.   Push $R0
     
197.   IfFileExists C:\Windows\System32\PkgMgr.exe NextStep
     
198.   ClearErrors
     
199.   ${If} ${RunningX64}
     
200.   CopyFiles $INSTDIR\Tools\64bit\PkgMgr.exe C:\Windows\System32                        ;运行IIS安装需要的EXE
     
201.   ${Else}
     
202.   CopyFiles $INSTDIR\Tools\32bit\PkgMgr.exe C:\Windows\System32
     
203.   ${EndIf}
     
204.   
     
205.   NextStep:
     
206. ;检测IIS
     
207.   ClearErrors
     
208.   ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\InetStp" "MajorVersion"
     
209.   ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\InetStp" "MinorVersion"
     
210.   IfErrors 0 ExitFunction
     
211.   ;没有安装iis
     
212.   MessageBox MB_OK  "您当前安装的Microsoft Internet信息服务器版 v$0.$1 版本低于要求版本 v6.0,现在将执行IIS安装，请稍等几分钟。"
     
213. 
     
214. 
     
215. ClearErrors
     
216.   ${If} ${IsWin2003}
     
217.   ${OrIf} ${IsWin2003R2}
     
218.   ${OrIf} ${IsWinXP}
     
219.   ${OrIf} ${IsWin2000}
     
220.   DetailPrint "请在安装程序里执行下一步进行安装"
     
221.   ExecWait "$INSTDIR\Tools\IIS\setup.exe /q"
     
222. ;对IIS框架进行检验是否安装完成，如若没有，回调IIS安装
     
223. ${ElseIf} ${IsWin2008}
     
224. DetailPrint "正在安装IIS，请稍等几分钟"
     
225. nsExec::Exec '"$INSTDIR\Tools\iis7x_setup.bat" /S'
     
226. ${Else}
     
227. ${If} ${RunningX64}
     
228.   DetailPrint "暂不支持64位下的IIS安装，请安装完IIS后再运行此安装包"
     
229. Quit
     
230.    ${Else}
     
231. DetailPrint "正在安装IIS，请稍等几分钟"
     
232.    ExecWait "$INSTDIR\Tools\iis7x_setup.bat" ;WIN7 32下不支持NSEXEC插件
     
233.    ${EndIf}
     
234.   ${EndIf}
     
235.   
     
236.   IntCmp $0 6 ExitFunction NextStep ExitFunction
     
237.   Goto NextStep
     
238. 
     
239. 
     
240. 
     
241.   ExitFunction:
     
242.   
     
243.   ;Call in.CheckProcess
     
244. ;检测C++运行库
     
245.   Push $R0
     
246.   ClearErrors
     
247.   ${If} ${RunningX64}
     
248.   ReadRegDword $R0 HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1D8E6291-B0D5-35EC-8441-6616F567A0F7}" "Version"   ; 检测含有vc的注册表信息是否存在
     
249.   IfErrors 0 VSRedistInstalled
     
250. ; MessageBox MB_OK  "未安装64位C++运行库"
     
251.   Exec "$INSTDIR\Tools\vcredist_2010_x64.exe /q"
     
252.   Delete "$INSTDIR\Tools\vcredist_2010_x64.exe"
     
253.   ${Else}
     
254.   ReadRegDword $R0 HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{196BB40D-1578-3D01-B289-BEFC77A11A1E}" "Version"   ; 检测含有vc的注册表信息是否存在
     
255.   IfErrors 0 VSRedistInstalled
     
256. ; MessageBox MB_OK  "未安装86位C++运行库"
     
257.   Exec "$INSTDIR\Tools\vcredist_2010_x86.exe /q"
     
258.   Delete "$INSTDIR\Tools\vcredist_2010_x86.exe"
     
259. ${EndIf}
     
260. 
     
261. 
     
262. 
     
263. 
     
264.   VSRedistInstalled:
     
265. 
     
266. 
     
267. ;检测是否有.net framework框架
     
268.   Call GetNetFrameworkVersion
     
269. 
     
270. 
     
271.   Pop $R1
     
272.   DetailPrint $R1
     
273. 
     
274. 
     
275. ; ${If} $R1 < '3.5.30729'
     
276. 
     
277. 
     
278. ; SetDetailsPrint textonly
     
279. 
     
280. 
     
281. ; DetailPrint "正在安装 .NET Framework 3.5"
     
282. 
     
283. 
     
284. ; SetDetailsPrint listonly
     
285. 
     
286. 
     
287. ; SetOutPath "$TEMP"
     
288. 
     
289. 
     
290. ; SetOverwrite on
     
291. 
     
292. 
     
293. ; File "dotnetfx35_3.5.30729.1.exe"
     
294. 
     
295. 
     
296. ; ExecWait '$TEMP\dotnetfx35_3.5.30729.1.exe /q /norestart /ChainingPackage' $R1
     
297. ; Delete "$TEMP\dotnetfx35_3.5.30729.1.exe"
     
298. 
     
299. 
     
300.   ${If} $R1 < '4.0.30319'
     
301.     ${If} ${IsWin2003}
     
302.     ${OrIf} ${IsWin2003R2}
     
303.     ${OrIf} ${IsWinXP}
     
304.     ${OrIf} ${IsWin2000}
     
305.       ClearErrors
     
306.       ${If} ${RunningX64}
     
307.       ExecWait "$INSTDIR\Tools\64bit\wic_x64_chs.exe /q"
     
308.       ${Else}
     
309.       ExecWait "$INSTDIR\Tools\32bit\wic_x86_chs.exe /q"
     
310.       ${EndIf}
     
311.     ${EndIf}
     
312.   DetailPrint "正在安装 .NET Framework 4.0,可能需要几分钟，请稍等"
     
313. 
     
314. 
     
315. ;File "dotnetfx4.0.30319.exe"
     
316. 
     
317. 
     
318.   ;ExecWait '$INSTDIR\Tools\dotnetfx4.0.30319.exe  /norestart /ChainingPackage FullX64Bootstrapper' $R1
     
319.   ExecWait '$INSTDIR\Tools\dotnetfx4.0.30319.exe /norestart'
     
320.   ${EndIf}
     
321. ;对.NET框架进行检验是否安装完成，如若没有，回调.NET安装
     
322. Call GetNetFrameworkVersion
     
323.   Pop $R1
     
324.   ${If} $R1 < '4.0.30319'
     
325.   DetailPrint ".NET Framework 4.0是必要安装，不能取消此安装，请执行安装"
     
326.   Goto VSRedistInstalled
     
327.   ${EndIf}
     
328.   
     
329. ;获取本机IP
     
330.   ip::get_ip
     
331.   Pop $0
     
332.   ; test entry
     
333.   ;StrCpy $0 '192.168.0.100;127.0.0.1;152.168.0.101;169.254.0.1;'
     
334.   ;Loop:
     
335.   Push $0
     
336.   Call GetNextIp
     
337.   Call CheckIp
     
338.   Pop $2 ; Type of current IP-address
     
339.   Pop $1 ; Current IP-address
     
340.    Pop $0 ; Remaining addresses
     
341.   StrCmp $2 '1' '' NoLoopBackIp
     
342.   ;  MessageBox MB_OK "LoopBack IP-address: $1"
     
343.     Goto Continue
     
344.   NoLoopBackIp:
     
345.   StrCmp $2 '2' '' NoAPA
     
346.   ;  MessageBox MB_OK "Automatic Private IP-address: $1"
     
347.     Goto Continue
     
348.   NoAPA:
     
349.   StrCmp $2 '3' '' NoLanIp
     
350.    ; MessageBox MB_OK "Network IP-address: $1"
     
351.     StrCpy $local_ip $1
     
352. Goto Continue
     
353.   NoLanIp:
     
354.   ;MessageBox MB_OK "Internet IP-address: $1"
     
355.   Continue:
     
356.   ;StrCmp $0 '' ExitLoop Loop
     
357.   ;ExitLoop:
     
358. ;获取IP结束 $local_ip为本机IP
     
359. 
     
360. 
     
361. ;获取空闲可用端口
     
362.   StrCpy  $ports_firstports 80
     
363. ${If} $ports_value != 1
     
364. StrCpy  $ports_firstports 8000
     
365. ${Endif}
     
366.   ${while} $ports_value != 1
     
367.   Call check_ports
     
368.   ${EndWhile}
     
369. ; MessageBox MB_OK $free_ports
     
370. ;获取空闲端口结束 空闲端口为$free_ports，$free_ports在check_ports函数里赋值
     
371. 
     
372. ;注册MySql服务
     
373. ; nsExec::Exec '"$INSTDIR\WebSite\SetWebConfig.exe" /S'
     
374.   WriteINIStr "$INSTDIR\Tools\mysql5\my.ini" "WinMySQLAdmin" "Server" "$INSTDIR\Tools\mysql5\bin\mysqld-nt.exe"  ;修改MYSQL INI文件
     
375.   WriteINIStr "$INSTDIR\Tools\mysql5\my.ini" "mysqld" "basedir" "$INSTDIR\Tools\mysql5"
     
376.   WriteINIStr "$INSTDIR\Tools\mysql5\my.ini" "mysqld" "datadir" "$INSTDIR\Tools\mysql5\data"
     
377.   DetailPrint "正在安装Mysql并启动服务"
     
378. nsExec::ExecToLog '"$INSTDIR\Tools\mysql5\bin\mysqld-nt.exe" --install mysql --defaults-file="$INSTDIR\Tools\mysql5\my.ini"' ;注册并启动MYSQL服务
     
379.   nsExec::ExecToLog 'net start mysql'
     
380. ; nsExec::Exec "$INSTDIR\Tools\RegMySql.bat" ;20140807
     
381. 
     
382.   
     
383. ;如果先安装了.NET框架后安装IIS，就对.NET进行注册
     
384.   ;nsExec::ExecToLog 'cmd.exe cd C:\Windows\Microsoft.NET\Framework\v4.0.30319" aspnet_regiis.exe -i'
     
385.   nsExec::Exec "$INSTDIR\Tools\RegNet.bat"
     
386.   DetailPrint "注册.NET框架"
     
387. 
     
388. 
     
389.   ClearErrors
     
390. ;生成网站
     
391.   StrCpy $1 "v4.0"
     
392.   StrCpy $2 "Integrated"
     
393.   StrCpy $3 "true"
     
394. ;NsisIIs::CreateAppPool "MyWebSiteAppPool"
     
395.   NsisIIs::CreateAppPool "KSAppPool"
     
396.   Pop $0
     
397. ; MessageBox MB_OK $0
     
398.   StrCpy $1 "KSAppPool"
     
399.   ; StrCpy $1 "DefaultAppPool"
     
400.   ClearErrors
     
401.   ClearErrors
     
402. NsisIIs::CreateWebSite "KSWebSite"  "$INSTDIR\WebSite"  "@$local_ip:$free_ports:"
     
403.   Pop $0
     
404. ; MessageBox MB_OK $0
     
405.   DetailPrint $0
     
406.   ${If} $0 == "Create Website Success."
     
407.   Push $6
     
408.   StrCpy $Index $6
     
409. 
     
410. 
     
411. ; InstallUpdateServer:
     
412.   ExecWait "$INSTDIR\Tools\setup.exe" ;软件升级的服务的安装
     
413. ;  ReadRegDWORD $0 HKLM "SYSTEM\CurrentControlSet\Services\KingsunUpdate" "ImagePath"
     
414. StrCpy $update_path $0
     
415. ;  StrCpy $empty ""
     
416. ;  StrCmp $update_path $empty IsQuit
     
417. ;  Goto Finish
     
418.   
     
419. ;  IsQuit:
     
420. ;  MessageBox MB_YESNO|MB_ICONQUESTION|MB_TOPMOST "软件升级服务必须安装的，安装升级服务请点击“是”，如若安装.NET后无法安装升级服务，请点击“否”后中止安装并重启计算机再运行安装包继续余下安装！!" IDNO +2
     
421. ;  Goto InstallUpdateServer
     
422. ;  Quit
     
423.   WriteRegStr HKLM "SOFTWARE\WisdomCampus" "KSWebVersion" "$version_number"
     
424.   WriteRegStr HKLM "SOFTWARE\WisdomCampus" "KSWebPath" "$INSTDIR"
     
425. 
     
426. 
     
427. 
     
428. 
     
429.   ;写入XML配置文件
     
430.   nsisXML::create
     
431.   nsisXML::load "$INSTDIR\WebSite\SysData.xml"
     
432.   nsisXML::select '/SysData/SysInfo/Version'
     
433.   IntCmp $2 0 notFound
     
434.   nsisXML::getText
     
435.   nsisXML::setText '$version_number'
     
436. 
     
437. 
     
438.   nsisXML::select '/SysData/SysInfo/MySQLPath'
     
439.   IntCmp $2 0 notFound
     
440.   nsisXML::getText
     
441.   nsisXML::setText '$INSTDIR\Tools\mysql5'
     
442. 
     
443. 
     
444.   nsisXML::select '/SysData/SysInfo/WebsitePath'
     
445.   IntCmp $2 0 notFound
     
446.   nsisXML::getText
     
447.   nsisXML::setText '$INSTDIR\WebSite'
     
448. 
     
449. 
     
450.   nsisXML::select '/SysData/SysInfo/ProxyPath'
     
451.   IntCmp $2 0 notFound
     
452.   nsisXML::getText
     
453.   nsisXML::setText "$update_path"
     
454. 
     
455. 
     
456.   nsisXML::select '/SysData/SysInfo/WebsiteName'
     
457.   IntCmp $2 0 notFound
     
458.   nsisXML::getText
     
459.   nsisXML::setText "KSWebSite"
     
460. 
     
461. 
     
462.   nsisXML::select '/SysData/SysInfo/ServerIP'
     
463.   IntCmp $2 0 notFound
     
464.   nsisXML::getText
     
465.   nsisXML::setText '$local_ip'
     
466. 
     
467. 
     
468.   nsisXML::select '/SysData/SysInfo/Website'
     
469.   IntCmp $2 0 notFound
     
470.   nsisXML::getText
     
471.   nsisXML::setText "http://$local_ip:$free_ports/Login.aspx"
     
472. 
     
473. 
     
474.   nsisXML::select '/SysData/SysInfo/WebsiteIndexId'
     
475.   IntCmp $2 0 notFound
     
476.   nsisXML::getText
     
477.   nsisXML::setText '$Index'
     
478. 
     
479. 
     
480.   nsisXML::save "$INSTDIR\WebSite\SysData.xml"
     
481. 
     
482. 
     
483.   ExecWait '$INSTDIR\Tools\AddMime\AddMime.exe'
     
484.   Goto Finish
     
485.   
     
486.   notFound:
     
487.   DetailPrint "没有找到系统配置文件"
     
488.   
     
489.   Finish:
     
490.   MessageBox MB_OK "金太阳智慧校园云平台网站安装成功，请在浏览器输入$local_ip:$free_ports/Login.aspx地址访问或在开始菜单栏里的金太阳智慧校园云平台目录下点击WebSite打开网站"
     
491.   ;安装成功，写入注册表
     
492. 
     
493. 
     
494. 
     
495. 
     
496. 
     
497. 
     
498.   ${ElseIf} $0 == "Error creating website."
     
499.   MessageBox MB_OK "安装中止，网站ID错误，请联系管理员"
     
500.   Abort
     
501.   
     
502.   ${ElseIf} $0 == "Error:ADsGetObject Getting IDispatch:iContainer"
     
503.     MessageBox MB_OK "IIS没有安装完整，网站生成失败，安装中止！"
     
504.   Abort
     
505.   
     
506.   ${Else}
     
507.   MessageBox MB_OK "安装错误并中止，请联系管理员"
     
508.   Abort
     
509.   ${EndIf}
     
510. 
     
511. 
     
512. 
     
513. /* ${Switch} $0
     
514.     ${Case} 'Create Website Success'  ;"网站生成成功"
     
515.     ;安装完成后拷贝一个配置文件
     
516.     CopyFiles $INSTDIR\Tools\IIS\SysData.xml $INSTDIR\Tools\SysData.xml
     
517.     MessageBox MB_OK "网站生成成功"
     
518. ${Break}
     
519. 
     
520. 
     
521.     ${Case} 'Error:ADsGetObject Getting IDispatch:iContainer' ;"安装IIS没有安装完整"
     
522.     MessageBox MB_OK "IIS没有安装完整，网站生成失败，安装中止！"
     
523.     Abort
     
524.     ${Break}
     
525. ${EndSwitch}
     
526. */
     
527. 
     
528. 
     
529. 
     
530. 
     
531. 
     
532. 
     
533. SectionEnd
     
534. 
     
535. 
     
536. Section -AdditionalIcons
     
537.   ;WriteIniStr "$SMPROGRAMS\方直智慧云平台.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"
     
538.   SetShellVarContext all
     
539.   CreateDirectory "$SMPROGRAMS\金太阳智慧校园云平台"
     
540.   ;CreateShortCut "$SMPROGRAMS\My application\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url"
     
541.   CreateShortCut "$SMPROGRAMS\金太阳智慧校园云平台\Website.lnk" "http://$local_ip:$free_ports/Login.aspx"
     
542.   CreateShortCut "$SMPROGRAMS\金太阳智慧校园云平台\Uninstall.lnk" "$INSTDIR\uninst.exe"
     
543. SectionEnd
     
544. 
     
545. 
     
546. Section -Post
     
547.   WriteUninstaller "$INSTDIR\uninst.exe"
     
548.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
     
549.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
     
550.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
     
551.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
     
552.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
     
553. SectionEnd
     
554. 
     
555. 
     
556. Function GetNetFrameworkVersion
     
557. 
     
558. 
     
559. ;获取.Net Framework版本支持
     
560. 
     
561. 
     
562. Push $1
     
563. 
     
564. 
     
565. Push $0
     
566. 
     
567. 
     
568. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" "Install"
     
569. 
     
570. 
     
571. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" "Version"
     
572. 
     
573. 
     
574. StrCmp $0 1 KnowNetFrameworkVersion +1
     
575. 
     
576. 
     
577. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5" "Install"
     
578. 
     
579. 
     
580. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5" "Version"
     
581. 
     
582. 
     
583. StrCmp $0 1 KnowNetFrameworkVersion +1
     
584. 
     
585. 
     
586. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup" "InstallSuccess"
     
587. 
     
588. 
     
589. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup" "Version"
     
590. 
     
591. 
     
592. StrCmp $0 1 KnowNetFrameworkVersion +1
     
593. 
     
594. 
     
595. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727" "Install"
     
596. 
     
597. 
     
598. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727" "Version"
     
599. 
     
600. 
     
601. StrCmp $1 "" +1 +2
     
602. 
     
603. 
     
604. StrCpy $1 "2.0.50727.832"
     
605. 
     
606. 
     
607. StrCmp $0 1 KnowNetFrameworkVersion +1
     
608. 
     
609. 
     
610. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322" "Install"
     
611. 
     
612. 
     
613. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322" "Version"
     
614. 
     
615. 
     
616. StrCmp $1 "" +1 +2
     
617. 
     
618. 
     
619. StrCpy $1 "1.1.4322.573"
     
620. 
     
621. 
     
622. StrCmp $0 1 KnowNetFrameworkVersion +1
     
623. 
     
624. 
     
625. ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\.NETFramework\policy\v1.0" "Install"
     
626. 
     
627. 
     
628. ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\.NETFramework\policy\v1.0" "Version"
     
629. 
     
630. 
     
631. StrCmp $1 "" +1 +2
     
632. 
     
633. 
     
634. StrCpy $1 "1.0.3705.0"
     
635. 
     
636. 
     
637. StrCmp $0 1 KnowNetFrameworkVersion +1
     
638. 
     
639. 
     
640. StrCpy $1 "not .NetFramework"
     
641. 
     
642. 
     
643. KnowNetFrameworkVersion:
     
644. 
     
645. 
     
646. Pop $0
     
647. 
     
648. 
     
649. Exch $1
     
650. 
     
651. 
     
652. FunctionEnd
     
653. 
     
654. ; Function GetNextIp
     
655. ; input: head of stack
     
656. ; format: 'ip1;ip2;ip3;ip4;'
     
657. ; output: 'ip1' head of stack
     
658. ;         'ip2;ip3;ip4;' second entry of stack
     
659. 
     
660. 
     
661. Function GetNextIp
     
662.   Exch $0
     
663.   Push $1
     
664.   Push $2
     
665.   Strcpy $2 0             ; Counter
     
666.   Loop:
     
667.     IntOp $2 $2 + 1
     
668.     StrCpy $1 $0 1 $2
     
669.     StrCmp $1 '' ExitLoop
     
670.     StrCmp $1 ';' '' Loop
     
671.     StrCpy $1 $0 $2       ; IP-address
     
672.     IntOp $2 $2 + 1
     
673.     StrCpy $0 $0 '' $2    ; Remaining string
     
674.   ExitLoop:
     
675.   Pop $2
     
676.   Push $0
     
677.   Exch 2
     
678.   Pop $0
     
679.   Exch $1
     
680. FunctionEnd
     
681. 
     
682. 
     
683. ; Function CheckIP
     
684. ; input: IP-address on stack
     
685. ; output: additional entry on stack
     
686. ;         1 - LoopBack IP (localhost, indicates no connection to a LAN or to the internet).
     
687. ;         2 - Automatic Private IP Address (no DHCP server).
     
688. ;         3 - Network IP.
     
689. ;         4 - Internet IP.
     
690. ; Eg:
     
691. ; Push '192.168.0.100'
     
692. ; Call CheckIP
     
693. ; Pop $0 ; Contains '3'
     
694. ; Pop $1 ; Contains '192.168.0.100'
     
695. 
     
696. 
     
697. Function CheckIP
     
698.   Exch $0
     
699.   Push $1
     
700. 
     
701. 
     
702.   ; Check 127.x.x.x
     
703.   Push '127.0.0.0'
     
704.   Push $0
     
705.   Call VersionCheck
     
706.   Pop $1
     
707.   StrCmp $1 2 '' Range1     ; IP cannot be in range of LoopBack addresses
     
708.   Push '127.255.255.255'
     
709.   Push $0
     
710.   Call VersionCheck
     
711.   Pop $1
     
712.   StrCmp $1 1 LoopBack      ; We found a LoopBack IP
     
713. 
     
714. 
     
715.   ; Check 10.x.x.x
     
716.   Range1:
     
717.   Push '10.0.0.0'
     
718.   Push $0
     
719.   Call VersionCheck
     
720.   Pop $1
     
721.   StrCmp $1 2 '' Range2     ; IP cannot be in range 1
     
722.   Push '10.255.255.255'
     
723.   Push $0
     
724.   Call VersionCheck
     
725.   Pop $1
     
726.   StrCmp $1 1 LanIp         ; We found a LanIp
     
727. 
     
728. 
     
729.   ; Check 172.16.x.x to 172.31.x.x
     
730.   Range2:
     
731.   Push '172.16.0.0'
     
732.   Push $0
     
733.   Call VersionCheck
     
734.   Pop $1
     
735.   StrCmp $1 2 '' Range3     ; IP cannot be in range 2
     
736.   Push '172.31.255.255'
     
737.   Push $0
     
738.   Call VersionCheck
     
739.   Pop $1
     
740.   StrCmp $1 1 LanIp         ; We found a LanIp
     
741. 
     
742. 
     
743.   ; Check 192.168.x.x
     
744.   Range3:
     
745.   Push '192.168.0.0'
     
746.   Push $0
     
747.   Call VersionCheck
     
748.   Pop $1
     
749.   StrCmp $1 2 '' Range4     ; IP cannot be in range 3
     
750.   Push '192.168.255.255'
     
751.   Push $0
     
752.   Call VersionCheck
     
753.   Pop $1
     
754.   StrCmp $1 1 LanIp         ; We found a LanIp
     
755. 
     
756. 
     
757.   ; Check 169.254.x.x
     
758.   Range4:
     
759.   Push '169.254.0.0'
     
760.   Push $0
     
761.   Call VersionCheck
     
762.   Pop $1
     
763.   StrCmp $1 2 '' InternetIp ; It should be an internet IP
     
764.   Push '169.254.255.255'
     
765.   Push $0
     
766.   Call VersionCheck
     
767.   Pop $1
     
768.   StrCmp $1 1 APA           ; We found an Automatic Private IP Address
     
769. 
     
770. 
     
771.   Goto InternetIp           ; Remaining addresses are internet IPs
     
772. 
     
773. 
     
774.   LoopBack:
     
775.   StrCpy $1 1
     
776.   Goto Exit
     
777. 
     
778. 
     
779.   APA:
     
780.   StrCpy $1 2
     
781.   Goto Exit
     
782. 
     
783. 
     
784.   LanIp:
     
785.   StrCpy $1 3
     
786.   Goto Exit
     
787. 
     
788. 
     
789.   InternetIp:
     
790.   StrCpy $1 4
     
791. 
     
792. 
     
793.   Exit:
     
794.   Exch $1
     
795.   Exch 1
     
796.   Exch $0
     
797.   Exch 1
     
798. FunctionEnd
     
799. 
     
800. 
     
801. ; Function VersionCheck
     
802. ; input: 'v1', 'v2' on stack
     
803. ; output 1 - if number 1 is newer
     
804. ;        2 - if number 2 is newer
     
805. ;        0 - if it is the same verion
     
806. ; Eg:
     
807. ; Push '3.5.1.4'
     
808. ; Push '3.5'
     
809. ; Call VersionCheck
     
810. ; Pop $0 ; now contains 1
     
811. 
     
812. 
     
813. Function VersionCheck
     
814.   Exch $0 ;second versionnumber
     
815.   Exch
     
816.   Exch $1 ;first versionnumber
     
817.   Push $R0 ;counter for $0
     
818.   Push $R1 ;counter for $1
     
819.   Push $3 ;temp char
     
820.   Push $4 ;temp string for $0
     
821.   Push $5 ;temp string for $1
     
822.   StrCpy $R0 "-1"
     
823.   StrCpy $R1 "-1"
     
824.   Start:
     
825.   StrCpy $4 ""
     
826.   DotLoop0:
     
827.   IntOp $R0 $R0 + 1
     
828.   StrCpy $3 $0 1 $R0
     
829.   StrCmp $3 "" DotFound0
     
830.   StrCmp $3 "." DotFound0
     
831.   StrCpy $4 $4$3
     
832.   Goto DotLoop0
     
833.   DotFound0:
     
834.   StrCpy $5 ""
     
835.   DotLoop1:
     
836.   IntOp $R1 $R1 + 1
     
837.   StrCpy $3 $1 1 $R1
     
838.   StrCmp $3 "" DotFound1
     
839.   StrCmp $3 "." DotFound1
     
840.   StrCpy $5 $5$3
     
841.   Goto DotLoop1
     
842.   DotFound1:
     
843.   Strcmp $4 "" 0 Not4
     
844.     StrCmp $5 "" Equal
     
845.     Goto Ver2Less
     
846.   Not4:
     
847.   StrCmp $5 "" Ver2More
     
848.   IntCmp $4 $5 Start Ver2Less Ver2More
     
849.   Equal:
     
850.   StrCpy $0 "0"
     
851.   Goto Finish
     
852.   Ver2Less:
     
853.   StrCpy $0 "1"
     
854.   Goto Finish
     
855.   Ver2More:
     
856.   StrCpy $0 "2"
     
857.   Finish:
     
858.   Pop $5
     
859.   Pop $4
     
860.   Pop $3
     
861.   Pop $R1
     
862.   Pop $R0
     
863.   Pop $1
     
864.   Exch $0
     
865. FunctionEnd
     
866. 
     
867. 
     
868. Function check_ports
     
869. StrCpy $1 $ports_firstports
     
870. ;validate_port:
     
871.   TCP::CheckPort $1
     
872.   Pop $0
     
873. ;DetailPrint $0
     
874. ${Switch} $0
     
875.     ${Case} 'free'  ;"端口空闲."
     
876.     StrCpy $ports_value 1
     
877. ${Break}
     
878. 
     
879. 
     
880.     ${Case} 'socket_error' ;"非法 TCP 端口号. 端口号必须在 1 至 65535 之间."
     
881.     StrCpy $ports_value 0
     
882.     IntOp $ports_firstports $ports_firstports + 1
     
883.     ${Break}
     
884. 
     
885. 
     
886.     ${Case} 'inuse' ; "端口正在被程序使用."
     
887.     StrCpy $ports_value 2
     
888.     IntOp $ports_firstports $ports_firstports + 1
     
889.     ${Break}
     
890. 
     
891. 
     
892.     ${Case} 'bind_error' ;"端口绑定"
     
893.     StrCpy $ports_value 3
     
894.     IntOp $ports_firstports $ports_firstports + 1
     
895.     ${Break}
     
896. 
     
897. 
     
898. ${EndSwitch}
     
899.     StrCpy $free_ports $1
     
900. 
     
901. 
     
902. FunctionEnd
     
903. 
     
904. 
     
905. ;Function in.CheckProcess
     
906. ;DetectProc:
     
907. ;;FindProcDLL::FindProc ${PRODUCT_PROC_NAME}
     
908. 
     
909. 
     
910.    ;; StrCmp $R0 1 +3 +9
     
911. 
     
912. 
     
913. ;FindProcDLL::FindProc ${PRODUCT_PROC_NAME}
     
914. 
     
915. 
     
916.     ;StrCmp $R0 1 +1 +7
     
917.    ; MessageBox MB_OKCANCEL|MB_ICONSTOP "安装程序检测到 ${PRODUCT_NAME} 正在运行。$\r$\n$\r$\n点击 “确定” 强制关闭${PRODUCT_NAME}，继续安装。$\r$\n点击 “取消” 退出安装程序。" IDCANCEL Exit
     
918.     ;Retry:
     
919. ; DetailPrint "正在退出$(^Name)，请稍候..."
     
920. 
     
921. 
     
922. ;KillProcDLL::KillProc ${PRODUCT_PROC_NAME}
     
923.     ; sleep 444
     
924.    ;  goto DetectProc
     
925.    ;  Exit:
     
926.    ;  ;Abort
     
927.    ;  Quit
     
928. ;FunctionEnd
     
929. 
     
930. 
     
931. 
     
932. 
     
933. Function LaunchLink
     
934. ExecShell "open" "http://$local_ip:$free_ports/Login.aspx"
     
935. ; IEFunctions::OpenBrowser /NOUNLOAD
     
936. ; IEFunctions::SurfTo /NOUNLOAD "http://192.168.3.92:8003/default.aspx"
     
937. FunctionEnd
     
938. /******************************
     
939. *  以下是安装程序的卸载部分  *
     
940. ******************************/
     
941. 
     
942. 
     
943. Section Uninstall
     
944.   ;ExecWait "$PROGRAMFILES\WisdomCampus\Tools\DelMySql.bat"
     
945.   isfound:
     
946.   nsExec::Exec 'NET STOP "KingsunUpdate"'
     
947.   MessageBox MB_OK "请选择删除KingsunSoftUpdateSetup，然后点击完成"
     
948.   ExecWait "$INSTDIR\Tools\setup.exe" ;软件升级的服务的的删除
     
949.   ReadRegDWORD $0 HKLM "SYSTEM\CurrentControlSet\Services\KingsunUpdate" "ImagePath"
     
950.   StrCpy $empty ""
     
951.   StrCmp $0 $empty nofound
     
952.   goto isfound
     
953.   
     
954.   nofound:
     
955. ;  nsExec::ExecToLog 'net stop mysql' ;停止并删除MYSQL服务
     
956. ;  nsExec::ExecToLog '"$INSTDIR\Tools\mysql5\bin\mysqld-nt.exe" --remove mysql --defaults-file="$INSTDIR\Tools\mysql5\my.ini"'
     
957.   nsExec::Exec "$INSTDIR\Tools\DelMySql.bat"
     
958. ; UninstallUpdateServer:
     
959. ;  ExecWait "$INSTDIR\Tools\setup.exe" ;软件升级的服务的的删除
     
960. ;  ReadRegDWORD $0 HKLM "SYSTEM\ControlSet001\Services\Services" "ImagePath"
     
961. ;  StrCpy $empty ""
     
962. ;  StrCmp $0 $empty UninstallUpdateServer
     
963.   
     
964.   DeleteRegKey /ifempty HKLM "Software\WisdomCampus"
     
965.   Delete "$INSTDIR\${PRODUCT_NAME}.url"
     
966.   strCpy $XML_PATH '$INSTDIR\WebSite\SysData.xml'
     
967.   nsisXML::create ;根据Index删除网站，Index值为$3
     
968.   nsisXML::load "$XML_PATH"
     
969.   nsisXML::select '/SysData/SysInfo/WebsiteIndexId'
     
970.   IntCmp $2 0 notFound
     
971.   nsisXML::getText
     
972.   Push $3
     
973.   StrCmp $3 "" notFound
     
974.   NsisIIs::DeleteWebSite "$3"
     
975. 
     
976. 
     
977. notFound:
     
978. RMDir /r "$INSTDIR\Tools\*.*"
     
979.   RMDir /r "$INSTDIR\WebSite\*.*"
     
980. 
     
981. 
     
982. SetShellVarContext all
     
983.   Delete "$SMPROGRAMS\金太阳智慧校园云平台\Uninstall.lnk"
     
984.   Delete "$SMPROGRAMS\金太阳智慧校园云平台\Website.lnk"
     
985.   RMDir /r "$SMPROGRAMS\金太阳智慧校园云平台"
     
986.   Delete "$INSTDIR\uninst.exe"
     
987.   
     
988. 
     
989. 
     
990.   NsisIIs::DeleteAppPool "KSAppPool"    ;删除程序池
     
991.   DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
     
992.   SetAutoClose true
     
993. SectionEnd
     
994. 
     
995. 
     
996. #-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#
     
997. 
     
998. 
     
999. Function un.onInit
     
1000.   FindProcDLL::FindProc "${PRODUCT_PROC_NAME}.exe"
      
1001.    Pop $R0
      
1002.    IntCmp $R0 1 0 no_run
      
1003.    MessageBox MB_ICONSTOP "安装程序检测到 ${PRODUCT_PROC_NAME} 正在运行，请退出程序后重试"
      
1004.    Quit
      
1005.    no_run:
      
1006.   MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "您确实要完全移除 $(^Name) ，及其所有的组件？" IDYES +2
      
1007.   Abort
      
1008. FunctionEnd
      
1009. 
      
1010. 
      
1011. Function un.onUninstSuccess
      
1012.   HideWindow
      
1013.   MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地从您的计算机移除。"
      
1014. FunctionEnd
      

复制代码