求助！关于au3软件试用天数问题-已解决问题区-AUTOIT CN

a000000 发表于 2009-6-5 10:34:32

求助！关于au3软件试用天数问题

本帖最后由 a000000 于 2009-6-5 18:26 编辑

麻烦个位帮个忙，写个注册机制，谢谢！：（刚才跟一位牛人聊天，他说这个可以用Delphi轻松实现，说au3不行）

程序第一次启动把日期写入注册表，以后每次启动都检测注册表，30天后自动运行程序2000.exe

a000000 发表于 2009-6-5 10:46:04

自己顶，等高手出现

pcbar 发表于 2009-6-5 11:02:40

如果用户找到这个注册表键值，把它改掉呢？

a000000 发表于 2009-6-5 11:03:50

回楼上，改掉没关系，只要能实现就行

a000000 发表于 2009-6-5 11:16:03

:face (27):等待中.....................

a000000 发表于 2009-6-5 11:40:54

:face (22):等待中..........................

kn007 发表于 2009-6-5 13:00:31

留个名，等待解决

pcbar 发表于 2009-6-5 14:28:15

#include "date.au3"
$reg='HKEY_LOCAL_MACHINE\SOFTWARE\Test'
$time=RegRead($reg,"date")
if $time="" Then
RegWrite($reg,"date","reg_sz",_NowCalcDate())
Exit
Else
$t=_DateDiff("D",$time,_NowCalcDate())
if $t>30 Then
MsgBox(16,"Pcbar提示","软件过期！！！")
Exit
Else
MsgBox(64,"Pcbar提示","软件还有"&30-$t&"天过期！")
EndIf
EndIf
MsgBox(0,"Pcbar提示","这里是主程序！")

kn007 发表于 2009-6-5 14:40:44

吼吼，知道源码咯

lynfr8 发表于 2009-6-5 15:22:37

再写个直观显浅一点的例子，再次证实用Delphi轻松实现au3也行！

本帖最后由 lynfr8 于 2009-6-5 15:24 编辑

$Y = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "Y")
$M = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "M")
$D = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "D")
If @error Then
MsgBox('','','欢迎使用本软件！你是第一次使用！')
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "Y", "REG_SZ", @YEAR)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "M", "REG_SZ", @MON)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "D", "REG_SZ", @MDAY)
MsgBox('','','你第一次使用本软件时间是'&@YEAR&@MON&@MDAY&'，请及时注册，谢谢支持！')
Run('C:\Program Files\Internet Explorer\IEXPLORE.EXE')
ElseIf $Y< @YEAR Then
   MsgBox('','','软件试用已过期，请注册后继续使用！')
   Exit
ElseIf(@MON*30+@MDAY) - ($M*30+$D) > 30Then
   MsgBox('','','软件试用已过期，请注册后继续使用！')
   Run("Notepad.exe", "", @SW_MAXIMIZE)
   Exit
Else
   $rest = (@MON*30+@MDAY) - ($M*30+$D)
   MsgBox('','','已经试用'&$rest&'天，请尽快注册！')
EndIf
   Run('C:\Program Files\Internet Explorer\IEXPLORE.EXE')

lynfr8 发表于 2009-6-5 15:30:56

本帖最后由 lynfr8 于 2009-6-5 18:36 编辑

不过这种注册机制要破解简直不费吹灰之力
不建议用
真的要用最好结合_StringEncrypt 加密注册表的注入字符
这样相对比较难解一点
至于有时候加密无效看看这个就行了

传送门：
http://www.autoitx.com/forum.php?mod=viewthread&tid=712

高级一点的就借鉴下这个注册机源码【貌似也是pcbar作品】
http://www.autoitx.com/viewthr ... omuid=1003#pid32513
不过好像生成注册码有点问题，自行斟酌下载研究吧

autothem 发表于 2009-6-5 16:15:09

刚才跟一位牛人聊天，他说这个可以用Delphi轻松实现，说au3不行
程序第一次启动把日期写入注册表，以后每次启动都检测注册表，30天后自动运行程序2000.exe
a000000 发表于 2009-6-5 10:34 http://www.autoitx.com/images/common/back.gif

牛人会说这样的话吗

能够读写注册表的语言都可以做到这点

这个人要么不是牛人，要么就不知道au3

hhasee 发表于 2009-6-5 16:54:13

学习了，真的很不错！:face (29):

a000000 发表于 2009-6-5 18:27:25

谢谢高手帮忙，最终使问题解决

lynfr8 发表于 2009-6-5 18:38:04

牛人会说这样的话吗

能够读写注册表的语言都可以做到这点

这个人要么不是牛人，要么就不知道au3
autothem 发表于 2009-6-5 16:15 http://www.autoitx.com/images/common/back.gif

估计我们中了楼主的“激将法”了
呵呵
:face (10):

页: [1] 2

AUTOIT CN's Archiver

求助！关于au3软件试用天数问题

再写个直观显浅一点的例子，再次证实用Delphi轻松实现au3也行！