NSIS限制程序运行次数和使用日期
#七八年前写着玩的小东西，实际用途不大，但对刚接触nsis的新手来说应该还有一些帮助，包括创建控件，获取系统时间等，与诸位共勉！
!system '>blank set/p=MSCF<nul'
!packhdr temp.dat 'cmd /c Copy /b temp.dat /b +blank&&del blank'
SetCompressor bzip2
#编写：水晶石
#限制程序运行次数和使用日期
!include "nsdialogs.nsh"
XPStyle on
BrandingText "水晶石 ${__DATE__}"
OutFile "NSIStest.exe"
Name "test"
Page Custom page.custom
Function page.custom
nsDialogs::Create 1018
Pop $0
nsDialogs::CreateControl EDIT \
"${__NSD_Text_STYLE}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN}" \
"${__NSD_Text_EXSTYLE}" \
0 10% 100% 80% \
"有效运行次数：3 $\r$\n$\r$\n首次运行后第二天报错禁止使用。$\r$\n$\r$\n第$1次运行"
Pop $0
nsDialogs::Show
FunctionEnd
Section "test"
SectionEnd
Function .onInit
System::Alloc 16
System::Call "kernel32::GetLocalTime(isR0)"
System::Call "*$R0(&i2.R1,&i2.R2,&i2.R3,&i2.R4)"
System::Free $R0
StrCpy $3 $R1 $R2 $R4
ReadRegStr $2 SHCTX "Software\Microsoft\test" "time"
${if} $2 = ''
StrCpy $2 $3
WriteRegStr SHCTX "Software\Microsoft\test" "time" "$2"
${endif}
IntOp $4 $2 + 1
${if} $4 <= $3
System::Call "user32::MessageBox(i $HWNDPARENT, t 'Installer integrity check has failed.\
Common causes include $\r\
incomplete download and damaged media.Contactthe $\r\
installer is author to obtain a new copy.$\r$\r\
More information at: $\r\
https://blog.csdn.net/shuijing_0'\
,t 'NSIS Error', i0x10)"
Quit
${endif}
ReadRegStr $1 SHCTX "Software\Microsoft\test" 'Number'
IntOp $1 $1 + 1
WriteRegStr SHCTX "Software\Microsoft\test" "Number" "$1"
${if} $1 > 3
System::Call "user32::MessageBox(i $HWNDPARENT, t 'Installer integrity check has failed.\
Common causes include $\r\
incomplete download and damaged media.Contactthe $\r\
installer is author to obtain a new copy.$\r$\r\
More information at: $\r\
https://blog.csdn.net/shuijing_0'\
,t 'NSIS Error', i0x10)"
Quit
${endif}
FunctionEnd
最新文章
- 【MVC 4】8.SportsSore：管理
- POJ2186 Popular Cows（强连通分量）
- linux内核分析之进程地址空间管理
- Android图片压缩
- js 按元素向数组中最佳删除元素
- 脚本控制向Android模拟拨打电话，发送短信，定位设置功能
- jquery第一期：运行第一个jquery
- Pydev--unresolved import:解决办法
- MongoDB学习第七篇 --- sql和mongodb对比
- PHP 5.6 微信上传临时素材的坑
- Java 学习笔记 (一) If 语句
- 如何用TortoiseSVN对文件进行操作
- JavaScript 中repalce的使用
- centos6.7环境下kvm虚拟机之virt-install和virsh及virt-manager工具的使用
- L248 词汇题 2006
- 架构：Introducing Expert Systems and Distributed Architecure
- ajax传递参数给springmvc总结[转]
- 使用SAE（VAE）检测信用卡欺诈——感觉误报率还是比较高啊 70%+误报 蛋疼
- 2015ACM-ICPC长春E题(hdu5531)题解
- c++11多线程学习笔记之一 thread基础使用