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

a000000

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

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

a000000

自己顶，等高手出现

pcbar

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

a000000

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

a000000

等待中.....................

a000000

等待中..........................

kn007

留个名，等待解决

pcbar

#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

吼吼，知道源码咯

lynfr8

$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) > 30  Then
        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

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

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

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

autothem

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

牛人会说这样的话吗

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

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

hhasee

学习了，真的很不错！

a000000

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

lynfr8

牛人会说这样的话吗

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

这个人要么不是牛人，要么就不知道au3
autothem 发表于 2009-6-5 16:15

估计我们中了楼主的“激将法”了
呵呵