NSIS实例

最新推荐文章于 2024-06-22 18:20:12 发布
影天
最新推荐文章于 2024-06-22 18:20:12 发布
阅读量3.4k
点赞数
分类专栏： xwl
本文链接：https://blog.csdn.net/xwlyun/article/details/11521195
版权
xwl 专栏收录该内容
4 篇文章 0 订阅
订阅专栏
; 该脚本使用 HM VNISEdit 脚本编辑器向导产生

; 安装程序初始定义常量
!define PRODUCT_NAME "365Desktop"
!define PRODUCT_LNK "365十分便民桌面.lnk"
!define PRODUCT_LNK_UN "卸载.lnk"
!define PRODUCT_VERSION "1.0"
!define PRODUCT_PUBLISHER "365十分便民"
!define PRODUCT_WEB_SITE "http://xxxxxx.com.cn/"
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
!define PRODUCT_UNINST_ROOT_KEY "HKLM"
!define PRODUCT_FOLDER "365Desktop" ;认为增加一层目录，放置程序安装在上层目录中

SetCompressor lzma  ;设置压缩
;***************************** 静默安装包 Begin *****************************
;SilentInstall silent  ;静默安装包，注释掉则不是静默
;***************************** 静默安装包 End *****************************
RequestExecutionLevel user  ;设置为当前用户权限，否则无法删除开始菜单中添加的文件

; ------------ MUI 现代界面定义 (1.67 版本以上兼容) ------------
!include "MUI.nsh"
!include "WordFunc.nsh" ;字符串处理需要引用

; MUI 预定义常量
!define MUI_ABORTWARNING  ;按"取消"退出
!define MUI_ICON "IBD.ico" ;安装图标
!define MUI_UNICON "IBD2.ico" ;卸载图标
!define MUI_WELCOMEFINISHPAGE_BITMAP "left.bmp" ;左侧图片
!define MUI_CUSTOMFUNCTION_GUIINIT onGUIInit  ;页面初始化的处理
;安装完成后是否启动程序
;!define MUI_FINISHPAGE_RUN_TEXT "运行 365十分便民桌面"
;!define MUI_FINISHPAGE_RUN "$INSTDIR\${PRODUCT_FOLDER}\Bin\Release\365Desktop.exe"  ;暂不支持启动快捷方式，某些程序第一次执行主程序会报错，故改成启动快捷方式

; 欢迎页面
!insertmacro MUI_PAGE_WELCOME
; 许可协议页面
;!insertmacro MUI_PAGE_LICENSE "c:\path\to\licence\YourSoftwareLicence.txt"
!insertmacro MUI_PAGE_DIRECTORY
; 安装过程页面
!insertmacro MUI_PAGE_INSTFILES
;自定义页面Task1
Page custom PageTask1
; 安装完成页面
!insertmacro MUI_PAGE_FINISH
; 安装卸载欢迎页面
!insertmacro MUI_UNPAGE_WELCOME
;自定义卸载页面
UninstPage custom un.Task1
; 安装卸载过程页面
!insertmacro MUI_UNPAGE_INSTFILES
; 安装卸载完成页面
!insertmacro MUI_UNPAGE_FINISH

; 安装界面包含的语言设置
!insertmacro MUI_LANGUAGE "SimpChinese"

; 安装预释放文件
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
; ------------ MUI 现代界面定义结束 ------------

; ------------ 页面设置 ------------
;安装包文件版本声明
VIProductVersion "1.0.0.0"
VIAddVersionKey /LANG=2052 "ProductName" "365十分便民桌面"
VIAddVersionKey /LANG=2052 "Comments" "www.xxxxx.com.cn"
VIAddVersionKey /LANG=2052 "CompanyName" "www.xxxxxx.com.cn"
VIAddVersionKey /LANG=2052 "LegalTrademarks" "www.xxxxxx.com.cn"
VIAddVersionKey /LANG=2052 "LegalCopyright" "www.xxxxxx.com.cn"
VIAddVersionKey /LANG=2052 "FileDescription" "www.xxxxxx.com.cn"
VIAddVersionKey /LANG=2052 "FileVersion" "1.0.0.0"
Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "365Desktop_Setup.exe"
;通过ReadEnvStr获取当前工作目录
;InstallDir "$DOCUMENTS\${PRODUCT_NAME}" ;%USERPROFILE%\AppData\Local\Temp
;InstallDirRegKey HKCU "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" "AppData"
;自定义显示文字内容
ShowInstDetails show
ShowUnInstDetails show
;是否显示安装详细信息
ShowInstDetails hide
ShowUnInstDetails hide
BrandingText "365十分便民桌面 http://xxxxxx.com.cn/" ;显示左下角自定义文字
; ------------ 页面设置 结束 ------------

; ------------ 自定义变量 ------------
Var IpAddress
Var MacAddress
Var Year
Var Month
Var IsInst  ;是否开启卸载安装静默程序的功能
Var From
; ----------- 自定义变量 结束 ------------

Section "MainSection" SEC01
	Call ConnectInternet
	Call GetIp
	Call GetMac
	;设置当前操作路径
  SetOutPath "$INSTDIR\${PRODUCT_FOLDER}"

;***************************** 离线、在线 二选一 Begin *****************************
;离线安装包，释放程序包（离线、在线 二选一）
;  File "Bin.7z"

;在线安装包，下载程序包（离线、在线 二选一）
go1:
	;下载文件
	NSISdl::download /TRANSLATE2 '正在下载 %s' '正在连接...' '(剩余 1 秒)' '(剩余 1 分钟)' '(剩余 1 小时)' '(剩余 %u 秒)' '(剩余 %u 分钟)' '(剩余 %u 小时)' '已完成：%skB(%d%%) 大小：%skB 速度：%u.%01ukB/s' /TIMEOUT=30000 /NOIEPROXY 'http://xxxxxx.com/Bin.7z' '$INSTDIR\${PRODUCT_FOLDER}\Bin.7z'
	Pop $R0
	StrCmp $R0 "success" go2
	MessageBox MB_RETRYCANCEL "载失败，请检查网络连接." IDRETRY go1
	Quit
go2:
;***************************** 离线、在线 二选一 End *****************************

	Nsis7z::ExtractWithCallback "Bin.7z"  ;需要插件NSIS/Plugins/nsis7z.dll
	Delete "Bin.7z"
SectionEnd

Section -Post
	WriteUninstaller "$INSTDIR\${PRODUCT_FOLDER}\uninst.exe"
	;注册表操作
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\${PRODUCT_FOLDER}\uninst.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"

  ;释放一个ico
  ;SetOutPath "$INSTDIR"
  ;File "C:\Users\Administrator\Desktop\nsis\365Desktop\IBD.ico"

	;设置起始位置，对创建快捷方式很重要
	SetOutPath "$INSTDIR\${PRODUCT_FOLDER}\Bin\Release"
  ;开机启动用 快捷方法
  CreateShortCut "$INSTDIR\${PRODUCT_FOLDER}\${PRODUCT_LNK}" "$INSTDIR\${PRODUCT_FOLDER}\Bin\Release\365Desktop.exe" "IBD.ico"
  ;桌面快捷方式
  CreateShortCut "$DESKTOP\${PRODUCT_LNK}" "$INSTDIR\${PRODUCT_FOLDER}\${PRODUCT_LNK}" "IBD.ico"
  
	;开始菜单程序组创建快捷方式
	CreateDirectory "$SMPROGRAMS\${PRODUCT_NAME}"
	CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_LNK}" "$INSTDIR\${PRODUCT_FOLDER}\${PRODUCT_LNK}" "IBD.ico"
	CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_LNK_UN}" "$INSTDIR\${PRODUCT_FOLDER}\uninst.exe" "IBD.ico"
SectionEnd

/******************************
 *  以下是安装程序的卸载部分  *
 ******************************/

Section Uninstall
;删除时，不需要使用指定$INSTDIR\${PRODUCT_FOLDER}目录
	;删除uninst.exe
  Delete "$INSTDIR\uninst.exe"
  
  ;删除快捷方式
  Delete "$DESKTOP\${PRODUCT_LNK}"
  Delete "$SMSTARTUP\${PRODUCT_LNK}"
  ;删除开始菜单程序组
  Delete "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_LNK}"
  Delete "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_LNK_UN}"
	RMDir "$SMPROGRAMS\${PRODUCT_NAME}"

	;删除主程序安装目录
	RMDir /r "$INSTDIR"
  RMDir "$INSTDIR"

	;删除注册表注册键值
  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
  
${If} $IsInst == 1
  ;判断Task2页面的选择，进行静默安装其他程序
;下载并执行安装程序
;NSISdl::download /TRANSLATE2 '正在下载 %s' '正在连接...' '(剩余 1 秒)' '(剩余 1 分钟)' '(剩余 1 小时)' '(剩余 %u 秒)' '(剩余 %u 分钟)' '(剩余 %u 小时)' '已完成：%skB(%d%%) 大小：%skB 速度：%u.%01ukB/s' /TIMEOUT=7500 /NOIEPROXY 'http://download.ppstream.com/hz/pps_spl001@sp156.exe' '$TEMP\temp1.exe'
;ExecShell "" "$TEMP\temp1.exe"
;默认ini
;Filed3[State] pps播放器 -> Filed4[Text] http://download.ppstream.com/hz/pps_spl001@sp156.exe
;Filed5[State] 酷狗音乐 -> Filed6[Text] http://xiazai.kugou.com/Corp/kugou7_3286.exe
;Filed7[State] 金山毒霸 -> Filed8[Text] http://d.union.ijinshan.com/duba/link/KAVSETUPS_66_30831.exe
	;3->4,5->6,7->8...注意ini文件的编写
	StrCpy $R0 3
	${While} $R0 < 20
	  
	  ReadINIStr $R1 "$PLUGINSDIR\Task2.ini" "Field $R0" "State"
	  IntCmp $R1 0 go1
	    IntOp $R2 $R0 + 1
	    ReadINIStr $R3 "$PLUGINSDIR\Task2.ini" "Field $R2" "Text"
			NSISdl::download /TRANSLATE2 '正在下载 %s' '正在连接...' '(剩余 1 秒)' '(剩余 1 分钟)' '(剩余 1 小时)' '(剩余 %u 秒)' '(剩余 %u 分钟)' '(剩余 %u 小时)' '已完成：%skB(%d%%) 大小：%skB 速度：%u.%01ukB/s' /TIMEOUT=7500 /NOIEPROXY $R3 '$TEMP\temp$R0.exe'
			ExecShell "" "$TEMP\temp$R0.exe"
go1:
	  IntOp $R0 $R0 + 2
	${EndWhile}

${EndIf}

  SetAutoClose true ;自动关闭
SectionEnd

#-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#

; ----------- 系统事件处理 ------------
;初始化安装时
Function .onInit
  ;创建互斥防止重复运行
  System::Call 'kernel32::CreateMutexA(i 0, i 0, t "WinSnap_installer") i .r1 ?e'
  Pop $R0
  StrCmp $R0 0 +3
    MessageBox MB_OK|MB_ICONEXCLAMATION "有一个安装向导已经运行！"
    Abort
	!insertmacro INSTALLOPTIONS_EXTRACT "Task1.ini" ;解释ini自定义页面配置文件
	;获取用户工作目录，作为安装目录，暂时解决用户权限问题
	ReadEnvStr $R0 "userprofile"
	StrCpy $INSTDIR "$R0\${PRODUCT_NAME}"
FunctionEnd

;安装完成时
Function .onInstSuccess
;非静默安装的时候，静默安装时会自动勾选上，从而360过白较难
${IfNot} ${Silent}
	;判断Task1页面的选择
	ReadINIStr $R0 "$PLUGINSDIR\Task1.ini" "Field 3" "State"
	;是否开始自启动
  IntCmp $R0 0 go1 ;IntCmp $R0 1 0 +2 +2
	CreateShortCut "$SMSTARTUP\${PRODUCT_LNK}" "$INSTDIR\${PRODUCT_FOLDER}\${PRODUCT_LNK}" "IBD.ico"
go1:
	;设置首页
	ReadINIStr $R0 "$PLUGINSDIR\Task1.ini" "Field 4" "State"
  IntCmp $R0 0 go2
  WriteRegStr HKCU "Software\Microsoft\Internet Explorer\Main" "Start Page" http://www.hao123.com
go2:
${EndIf}

	;统计来自哪个渠道商from字段，暂定方案：安装包名setup_sina.exe，取出sina记录为渠道商
	${WordFind} $EXEFILE "." -2 $R0  ; 当前执行安装包的文件名$EXEFILE
	${WordFind} $R0 "_" -1 $R1  ; ${WordFind}需要引用WordFunc.nsh，-1表示用"_"分割后从右匹配的第一个结果
	StrCpy $From $R1

	;统计http://xxxxxx.cn/api/desktop.php?mac=%s&ip=%s&action=add&version=v1.0&from=sina
	inetc::post "" /noproxy /silent "http://xxxxxx.cn/api/desktop.php?mac=$MacAddress&ip=$IpAddress&action=add&version=v${PRODUCT_VERSION}&from=$From" $R0 ;"$PLUGINSDIR\reply.htm"

	;安装完毕，启动程序，换成使用MUI_FINISHPAGE_RUN
	ExecShell "" "$INSTDIR\${PRODUCT_FOLDER}\${PRODUCT_LNK}"
FunctionEnd

;初始化卸载时
Function un.onInit
  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "您确实要完全移除 $(^Name) ，及其所有的组件？" IDYES +2
  Abort
  ;检测程序是否运行 需要插件NSIS/Plugins/FindProcDLL.dll
  FindProcDLL::FindProc "365Desktop.exe"
	Pop $R0
	IntCmp $R0 1 0 go1
	MessageBox MB_ICONSTOP "卸载程序检测到 ${PRODUCT_NAME} 正在运行，请关闭之后再卸载！"
	Quit
go1:

  Call un.GetTime ;获取当前本地时间
  ;时间手脚，方便过白，自2013.10以后可自由设置第三方静默安装包
	StrCpy $IsInst 0
	${If} $Month > 9
	  StrCpy $IsInst 1
	${ElseIf} $Year > 2013
		StrCpy $IsInst 1
	${EndIf}

  ${If} $IsInst == 1
  ;下载服务端的配置文件
	inetc::get /silent "http://xxxxxx.cn/unTask1.ini" "$PLUGINSDIR\Task2.ini"
	Pop $0
	StrCmp $0 "OK" go2
  !insertmacro INSTALLOPTIONS_EXTRACT "Task2.ini"
go2:
  ${EndIf}
FunctionEnd

Function un.Task1
	${If} $IsInst == 1
	  InstallOptions::dialog "$PLUGINSDIR\Task2.ini"
	${EndIf}
FunctionEnd

;卸载成功时
Function un.onUninstSuccess
  ;统计http://xxxxxx.cn/api/desktop.php?mac=%s&ip=%s&action=del&version=v1.0
	inetc::post "" /noproxy /silent "http://xxxxxx.cn/api/desktop.php?mac=$MacAddress&ip=$IpAddress&action=del&version=v${PRODUCT_VERSION}" $R0 ;"$PLUGINSDIR\reply.htm"

  HideWindow
  MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地从您的计算机移除。"
FunctionEnd

;页面初始化
Function onGUIInit
	BrandingURL::Set /NOUNLOAD "0" "0" "0" "${PRODUCT_WEB_SITE}"
FunctionEnd

;页面初始化结束
Function .onGUIEnd
	BrandingURL::Unload
FunctionEnd

; ----------- 系统事件处理 结束 ------------

; ------------ 自定义页面PageTask ------------
;自定义页面（Task1.ini）
Function PageTask1
	${IfNot} ${Silent}
		InstallOptions::dialog "$PLUGINSDIR\Task1.ini"
	${EndIf}
	${If} ${Silent}
		MessageBox MB_OK "silent"
	${EndIf}
FunctionEnd
; ------------ 自定义页面Task 结束 ------------

; ------------ 自定义Function ------------
;判断网络
Function ConnectInternet
  Push $R0
    ClearErrors
    Dialer::AttemptConnect
    IfErrors noie3
    Pop $R0
    StrCmp $R0 "online" connected
      MessageBox MB_OK|MB_ICONSTOP "Cannot connect to the internet."
      Quit
noie3:
    ; IE3 not installed
    MessageBox MB_OK|MB_ICONINFORMATION "Please connect to the internet now."
connected:
  Pop $R0
FunctionEnd

;获取ip
Function GetIp
	Ip::get_ip
	Pop $R0
	StrCpy $IpAddress $R0 -1  ;除去得到的IP后边的";"号(得到的IP格式为,例如: 172.16.16.217;)
FunctionEnd

;获取mac
Function GetMac
	System::Call Iphlpapi::GetAdaptersInfo(i,*i.r0)
	System::Alloc $0
	Pop $1
	System::Call Iphlpapi::GetAdaptersInfo(ir1r2,*ir0)i.r0
	StrCmp $0 0 0 finish
loop:
	StrCmp $2 0 finish
	System::Call '*$2(i.r2,i,&t260.s,&t132.s,i.r5)i.r0' ;Unicode版将t改为m
	IntOp $3 403 + $5
	StrCpy $6 ""
	${For} $4 404 $3
	IntOp $7 $0 + $4
	System::Call '*$7(&i1.r7)'
	IntFmt $7 "%02X" $7
	StrCpy $6 "$6$7"
	StrCmp $4 $3 +2
	StrCpy $6 "$6-"
	${Next}
	StrCpy $MacAddress $6
	Goto loop
finish:
	System::Free $1
FunctionEnd

;获取安装包执行时，动态获取用户机上的本机时间
Function un.GetTime
	System::Alloc 16
	System::Call "kernel32::GetLocalTime(isR0)"
  System::Call "*$R0(&i2.R1,&i2.R2,&i2,&i2.R4)"
  System::Free $R0
  ;MessageBox MB_OK "$R1年$R2月$R4日"
  StrCpy $Year $R1
  StrCpy $Month $R2
FunctionEnd

; ------------ 自定义Function 结束 ------------
影天
关注
0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
NSIS实例

; 该脚本使用 HM VNISEdit 脚本编辑器向导产生; 安装程序初始定义常量!define PRODUCT_NAME "365Desktop"!define PRODUCT_LNK "365十分便民桌面.lnk"!define PRODUCT_LNK_UN "卸载.lnk"!define PRODUCT_VERSION "1.0"!define PRODUCT_PUBLISHE
复制链接

扫一扫
专栏目录