Location:
Search - 工程代码
Search list
Description: 软件限时使用与注册功能的实现
众所周知，一些共享软件往往提供给使用者的是一个功能不受限制的限时使用版，在试用期内使用者可以无限制的使用软件的全部功能（只是可能会出现提示使用者注册的窗口），试用期一过部分（或全部）功能失效，要想继续使用只能向作者索取注册码（或注册文件）完成对软件的合法注册，注册后的软件将解除一切使用限制。如果您也开发出一个有价值的作品，是否也希望为自己的软件增加一个这样的功能呢？这里笔者就提供一个实现软件限时的完整代码。
软件启动后会首先运行本代码并从注册表HKEY_LOCAL_MACHINE\Software\MyProgram子键下的三个键值MyProgram1-3中读取键值数据。其中MyProgram2的值是软件首次运行日期，MyProgram3的值是软件当前运行时的日期，MyProgram1的值是软件的使用标志：如果软件在试用期内则其值为字符串sign1；如果软件试用期满则其值为字符串sign2，如果软件已经注册则其值为字符串sign3。全局变量ZHUCE依据读取的MyProgram1键值而赋值：ZHUCE=-1说明试用期满，ZHUCE=-2说明软件已注册，ZHUCE=其它值为剩余天数，您的主程序代码要依据此全局变量ZHUCE的值设计相应的交互响应。
为方便您将代码嵌入现存的程序代码中，本示例将全部代码写入一个模块.bas中（模块名随意，也可添加到已有模块中）。注意，代码中的Private Sub Main()过程为整个程序的启动入口，您需要在“工程属性”对话框中将“启动对象”设置为“Sub Main()”。
'通用模块
Global ZHUCE As Integer
'说明：全局变量ZHUCE=-1试用期满，ZHUCE=-2已注册，ZHUCE=其它值为剩余天数
Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Sub Main()'程序总入口
Dim a As Long, rc(3) As Long, hKey As Long, KeyValType As Long, KeyValSize(3) As Long
Dim c As String, h As String, tmpVal(3) As String
Dim datetime As Integer
datetime = 30'试用期天数
ZHUCE = -1
On Error GoTo cuowu
'以下从注册表HKEY_LOCAL_MACHINE\Software\MyProgram的三个值中取出相关数据字串tmpVal(3)
a = RegOpenKeyEx(&H80000002, "Software\MyProgram", 0, 131135, hKey) ' 打开注册表关键字
For a = 1 To 3: tmpVal(a) = String$(1024, 0): KeyValSize(a) = 1024: Next
rc(1) = RegQueryValueEx(hKey, "MyProgram3", 0, KeyValType, tmpVal(1), KeyValSize(1))
rc(2) = RegQueryValueEx(hKey, "MyProgram2", 0, KeyValType, tmpVal(2), KeyValSize(2))
rc(3) = RegQueryValueEx(hKey, "MyProgram1", 0, KeyValType, tmpVal(3), KeyValSize(3))
For a = 1 To 3
If (Asc(Mid(tmpVal(a), KeyValSize(a), 1)) = 0) Then
tmpVal(a) = Left(tmpVal(a), KeyValSize(a) - 1)
Else
tmpVal(a) = Left(tmpVal(a), KeyValSize(a))
End If
Next
a = RegCloseKey(hKey) '关闭注册表
'使用期限判断
If tmpVal(3) = "sign3" Then ZHUCE = -2: Exit Sub '查找到已注册标志sign3
If Len(tmpVal(1)) = 1023 And Len(tmpVal(2)) = 1023 And Len(tmpVal(3)) = 1023 Then
'首次使用,将当前日期分别写入tmpVal(1)和tmpVal(2)中，在tmpVal(3)中写入准许运行标志sign1
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram3", Date$, "REG_SZ"
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram2", Date$, "REG_SZ"
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram1", "sign1", "REG_SZ"
ZHUCE = datetime
MsgBox "试用期剩余" & Trim(datetime) & "天"
Else
If tmpVal(3) = "sign2" Then '查找到永久中止标志sign2中止使用
ZHUCE = -1
Exit Sub
MsgBox "试用期已满，请您注册！"
End If
If Date datetime Then '使用期超过datetime天中止使用
'写入tmpVal(3)中止使用字串sign2
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram1", "sign2", "REG_SZ"
ZHUCE = -1
MsgBox "试用期已满，请您注册！"
Else
'写入当前日期于tmpVal(2)中
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram2", Date$, "REG_SZ"
ZHUCE = datetime - (DateValue(Date) - DateValue(tmpVal(1)))
MsgBox "试用期剩余" & Trim(datetime) & "天"
End If
End If
End If
cuowu:
End Sub
从安全保密角度出发，当您应用上述代码时紫色部分应该根据您个人的保密设想进行必要的修改（当然您也可以不修改而直接应用）：①示例中的代码把软件的注册与运行信息保存在HKEY_LOCAL_MACHINE\Software\MyProgram子键下的MyProgram1-3三个键值内，请根据您个人的保密原则修改为您所需要的子键名，以隐蔽为原则！②MyProgram1键值中的数据（字符串sign1或sign2或sign3分别对应着试用/期满/注册）应根据您个人的保密设想修改成需要的字符串，也以隐蔽为原则！
主程序中当用户输入正确的注册码（注册码当然是您随意愿而设）后，请执行语句：
CreateObject("WScript.Shell").regWrite "HKEY_LOCAL_MACHINE\Software\MyProgram\MyProgram1", "sign2", "REG_SZ"
完成软件注册。（该行代码中的Software\MyProgram\MyProgram1和sign2请与上述代码保持一致！）
Platform: |
Size: 18051 |
Author: dianfeng |
Hits:
Description: C++函数绑定方式实例代码，写法比较正式工整。
Platform: |
Size: 89265 |
Author: gmlare |
Hits:
Description: 教你于 VC6 下编译 Lua 源码,附 20 个测试的 Lua 范例及 VC6 完整的工程代码.
Platform: |
Size: 197067 |
Author: xyz543 |
Hits:
Description: 教你于 STM32 下编译 Lua 源码,附 Keil 编译通过的工程代码.
Platform: |
Size: 140917 |
Author: xyz543 |
Hits:
Description: 《0 bug:C/C++商用工程之道》共分12个章节，主要针对C/C++语言在商用工程开发中的程序实战进行论述，从商用解决方案的角度来理解C和C++语言的程序设计技巧。具体内容包括商用工程开发思路、C/C++无错化程序设计、设计自己的工程库、Log日志管理系统等。该书可供各大专院校作为教材使用，也可供从事相关工作的人员作为参考用书使用。《0 bug:C/C++商用工程之道》主要针对C/C++语言在商用工程开发中的程序实战进行论述，从需求出发，从商用解决方案的角度来理解C和C++语言的程序设计技巧。商用程序员在实际工作中最为关注的无错化、并行、时间片、内存池、线程池、任务池、工程库和跨平台等相关问题，在《0 bug:C/C++商用工程之道》中都有宝贵的经验总结和理念梳理。《0 bug:C/C++商用工程之道》不是教科书，更多的是在开发技巧、测试调试、工程代码库等方面给出实例与总结。《0 bug:C/C++商用工程之道》也可以说是教科书，作者试图通过实战技巧的训练，帮助读者升华出一种全新的程序设计理念。《0 bug:C/C++商用工程之道》可以帮助你摆脱“Training”式编程开发思维与方法，培养“商用”和“产品”标准的工程开发技能。
《0 bug:C/C++商用工程之道》适合作为C和C++的程序员进行“商用化开发”和“工程化开发”的参考。
Platform: |
Size: 2262990 |
Author: an@imsoft.cn |
Hits:
Description: 工程代码实现了SMT32单片机读写SD卡的功能，有利于学习者加快了解SD卡的操作
Platform: |
Size: 323856 |
Author: 403106404@qq.com |
Hits:
Description: 阐述了软件工程的开发过程-Expounded the development process of software engineering
Platform: |
Size: 4251648 |
Author: 吴超 |
Hits:
Description: Java学习丛书\科学与工程数值算法（Java版）一书的代码-Java \ science and engineering numerical algorithms (Java version), a book of code
Platform: |
Size: 142336 |
Author: 何福保 |
Hits:
Description: 智能卡研发技术与工程实践 --------------------文件内容说明------------------------- Calg_SHA1.h : SHA1算法头文件 Calg_SHA1.CPP : SHA1算法代码文件 MD5.h : MD5算法头文件 MD5.CPP : MD5算法代码文件 Calg_DES.H : DES算法头文件 Calg_DES.CPP : DES算法代码文件-smart card technology research and engineering practice-------------------- Note contents of the documents----- Calg_SHA1.h : SHA1 algorithm headers Calg_SHA1.CPP : SHA1 algorithm code document MD5.h : MD5 algorithm headers MD5.CPP : MD5 algorithm code Calg_DES.H document : DES algorithm headers Calg _DES.CPP : DES algorithm code documents
Platform: |
Size: 8192 |
Author: 张强 |
Hits:
Description: 一个不同于人月软件工程书籍的 “一本关于软件开发的有效技术书籍” 中文名字是《代码大全》 （中文pdf版本）-a different person software engineering books, "a software development on the effective technical books," the Chinese name of "code Encyclopaedia" (Chinese version pdf)
Platform: |
Size: 5619712 |
Author: 黄波 |
Hits:
Description: USB2.0编程的代码，希望能给大家帮助-code of usb 2.0 develop, hope to help.
Platform: |
Size: 1799168 |
Author: 杨运成 |
Hits:
Description: VC++数字图像模式识别技术及工程实践 一书中的程序源代码。-VC digital image pattern recognition technology and engineering practice a book of the source code.
Platform: |
Size: 28002304 |
Author: 任民 |
Hits:
Description: 一个测试机器人足球系统的源码，来自武汉工程大学，n届世界杯的冠军，大家可以看下，这个市他们的教学用演示代码。-a test Robot Soccer System source code, from the Wuhan University of Engineering, n World Cup champion, we can glance, the city of their teaching demonstration code.
Platform: |
Size: 2048 |
Author: 王瑞 |
Hits:
Description: 本书深入浅出地介绍了统一建模语言（UML）和Rational Rose软件，通过航空公司与购物推车例子介绍如何用UML和Rose进行项目需求分析、结构规划和生成框架代码，以及如何从现有系统逆向转出工程代码，生成Rose模型，并分章介绍了C++、Java、Visual Basic与CORBA/IDL和XML代码的代码生成与逆向转出工程代码。通过本书学习，项目开发人员可以用这个全新工具紧扣用户需求，方便地开发出符合用户需求的系统或根据用户需求对现有系统进行改造。
-the book easy to introduce a unified modeling language (UML) software and Rational Rose, airlines and shopping carts example of how to use UML and Rose project needs analysis, planning and structural framework for code generation, and how the existing system works to reverse code generation Rose model, and introduced a sub-chapter C, Java, Visual Basic and CORBA/IDL and XML code generation and code reverse engineering transfer code. Through the book learning, project developers can use this new tool interlocking customer demand. Easily develop meet the demands of users of the system or the user needs to transform the existing system.
Platform: |
Size: 16801792 |
Author: mars |
Hits:
Description: TCM解码，VHDL代码，是我在工作中做的工程代码，时序稳定，里面有syn以及软判决的算法，经典-TCM decoder, VHDL code, yes, I do work in the project code, timing stability, There are syn and soft-decision algorithm, classic!
Platform: |
Size: 19456 |
Author: 刘超 |
Hits:
Description: 《UML与Rational Rose 2002从入门到精通》，该书深入浅出地介绍了统——建模语言(UML)和Rational Rose软件，通过航空公司与购物推车例子介绍如何用UML和Rose进行项目需求分析、结构规划和生成框架代码，以及如何从现有系统逆向转出工程代码，生成Rose模型。-"UML with Rational Rose 2002 from the entry level to proficient," The book on the fundamentals of Marketing-- Modeling Language (UML) and Rational Rose software, by airlines and shopping carts examples on how to use UML and Rose project needs analysis, Planning and code generation framework, and how the existing system works to reverse code generation Rose model.
Platform: |
Size: 4507648 |
Author: 丽鹃 |
Hits:
Description: NEC-0525 0526 0527的工程代码,所有的驱动程序.-NEC-0525 0526 0527 project code, and all of the drivers.
Platform: |
Size: 79872 |
Author: psq |
Hits:
Description: android扫银行卡识别卡号最新Eclipse工程代码(android scan bank card identification card number of the latest Eclipse project code)
Platform: |
Size: 10852352 |
Author: 孤独的老张
|
Hits:
Description: v6 1x 3.125G rapidio协议工程代码(xilinx v6 rapidio data transmission protocol Practical project application engineering code)
Platform: |
Size: 9089024 |
Author: 南华真人 |
Hits:
« 12
3
4
5
6
7
8
9
10
...
50
»