最新消息:

AU3程序加个使用期限

autoit 永恒心锁 1444浏览 0评论
dim $deathdate="2010-01-29",$now=@YEAR&"-"&@MON& "-" & @MDAY
$result = StringCompare($deathdate,$now,1)
If $result<>0 Then
 MsgBox(16,"您的试用期已过!","请购买正版软件!谨防盗版使用!",3)
 Exit
 EndIf 
 ;软件主体
 MsgBox(16,"试用期!","请购买正版软件!",3)

上面讲到的是对于软件使用限制
不过这个是通过AutoIt自身所带的时间宏取的本地时间
这样做出的程序,哪怕是加了时间限制也没用,只要用户修改下本地时间就行了
在里面楼主提到了取网络验证,因此我在自己程序上面加了段代码测试了下
现在发在这里和大家分享下。希望对大家能够有用。

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <IE.au3>
TraySetState (2 ) 
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$Form1 =GUICreate("程序时间限制测试", 180, 50)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 1, 150, 50)
dim $deathdate="2010-01-29",$now=@YEAR&"-"&@MON& "-" & @MDAY

$result = StringCompare($deathdate,$now,1)

GUISetState() ;Show GUI
_IENavigate ($oIE, "http://www.timedate.cn/worldclock/ti.asp")
$sText = _IEBodyReadText ($oIE)
Sleep(1000)
dim $deathdate="2022年01月29日",$now=$sText
$result = StringCompare($deathdate,$now,1)
If $result<0 Then
MsgBox(16,"软件试用期已过!","请到www.wm0739.cn下载最新版本!",3)
Exit
EndIf 
;软件主体
MsgBox(64,"温馨提示!","程序启动成功",3)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
免责声明:根据《计算机软件保护条例》第十七条规定“为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。”您需知晓本站所有内容资源均来源于网络,仅供用户交流学习与研究使用,版权归属原版权方所有,版权争议与本站无关,用户本人下载后不能用作商业或非法用途,需在24个小时之内从您的电脑中彻底删除上述内容,否则后果均由用户承担责任;如果您访问和下载此文件,表示您同意只将此文件用于参考、学习而非其他用途,否则一切后果请您自行承担,如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。丨本站为个人博客非盈利性站点,所有软件信息均来自网络,所有资源仅供学习参考研究目的,并不贩卖软件,不存在任何商业目的及用途。丨本文采用知识共享 署名4.0国际许可协议 [BY-NC-SA] 进行授权BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » AU3程序加个使用期限

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