最新消息:

NSIS实例(一)

nsis 永恒心锁 1794浏览 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 结束 ------------
永恒心锁,版权所有丨如未注明,均为转载丨本网站采用BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » NSIS实例(一)

您必须 登录 才能发表评论!