过期后禁止打印代码

sunny_8848 · 发表于 2014-8-19 16:00:00

想写这样一个过程，能否做到打开dwg文件或开始打印文件前检测系统日期，如果过期后则不能打印并自动删除或退出？
Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
End Sub

lennie · 发表于 2014-9-1 19:01:00

用VBA 来限制软件继续使用非常不合适，因为vba有加密后门。就是说设了密码，人家还是有办法看到源码。

vbcad · 发表于 2014-9-1 19:28:00

用Date函数可以获得当前日期

wangshuping42 · 发表于 2014-9-1 19:56:00

甭想了，vba丁点安全性都没有

zzyong00 · 发表于 2014-9-1 23:31:00

直接用vb写，有能耐破解去

sunny_8848 · 发表于 2014-9-15 20:40:00

多谢大家回复。本人不会cad编程，也没有想弄的很高深，哄下不懂电脑的就可以。不知谁可以帮写几句代码？比如用Date函数可以获得当前日期，超过就自动退出不能打印