Location:
Search - function vb
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: VB API函数大全-VB API function Guinness
Platform: |
Size: 996352 |
Author: 宋建国 |
Hits:
Description: 本程序封装了一个加解密模块. 使用时直接调用其中的函数即可.- This procedure has sealed a Canadian decipher module When use
directly transfers function then
Platform: |
Size: 27648 |
Author: Panbingjin |
Hits:
Description: VB编程控件，使你的程序提供打印和打印预览功能-vb programming control ,provide function of print and preview
Platform: |
Size: 63488 |
Author: 李智刚 |
Hits:
Description: 实现短消息的电脑发送功能!-achieve short message sending function of the computer!
Platform: |
Size: 21504 |
Author: 朱德友 |
Hits:
Description: VB指令函数集 -VB Function Set Directive Directive Function Set
Platform: |
Size: 33792 |
Author: 超人 |
Hits:
Description: 手机短信PDU编码解码函数，采用VB.NET编写。-SMS PDU codec function, VB.NET prepared.
Platform: |
Size: 52224 |
Author: 慕容逸 |
Hits:
Description: vb的api函数，很全-vb api function is all
Platform: |
Size: 998400 |
Author: lemonlr |
Hits:
Description: 包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜欢它啦-contain a large number of commonly used functions VB probably around 100 scores for each function have more detailed explanation hope you like it
Platform: |
Size: 57344 |
Author: 风 |
Hits:
Description: 用VB编写收发电子邮件程序。在VB中，应用程序可以通过调用微软公司的MAPI实现收发电子邮件的功能-VB prepared e-mail procedures. In VB, applications can call Microsoft's MAPI realization of the e-mail function
Platform: |
Size: 2048 |
Author: 张 |
Hits:
Description: 音像制品管理系统共分为四个功能模块，分别为歌碟管理功能模块、影碟管理功能模块、出租管理功能模块、数据维护功能模块。该系统将对歌碟、影碟的购入、出售、查询、库存盘点、出租进行管理。我由衷地希望所设计的音像制品管理系统能给音像制品行业的管理带来更大的方便，带来更高的效率，获得可观的经济效益，从而为中国音像制品行业的发展，尽微薄之力-audio-video products management system consists of four modules, namely song disc management modules, DVD management module, rental management modules, data maintenance function modules. The system will be song disc, the DVD purchase, sale, inquiry, inventory checks, lease management. I sincerely hope that the design of audio-video products management system will give audio-video products management industry to provide greater convenience, bringing greater efficiency, substantial economic benefits for the Chinese audio and video products industry, a modest way
Platform: |
Size: 447488 |
Author: 孙旭 |
Hits:
Description: 1)屏幕保护程序运行时，鼠标光标被自动隐藏，在程序结束时，光标显示。2)当单击、移动鼠标或按下键盘时，屏幕保护结束，回到正常操作状态。为了实现这些特性，在编写VB应用程序时，可以采用如下方法： 1、改变窗体属性通常VB应用程序的窗体都采用有边框的窗体外观，但作为屏幕保护程序，应设置窗体为无边框，且为最大化。 2、隐藏及显示鼠标光标在Visual Basic应用程序中隐藏及显示鼠标光标需要运用Windows的API函数，该函数名为ShowCursor。当用参数值True调用时显示鼠标光标，当用参数值False调用时，鼠标光标自动隐藏。 3、检测鼠标移动VB中有一个检测鼠标移动的对象事件MouseMove事件。MouseMove事件通常在应用程序启动时就会触发，有时在鼠标并未移动的情况下，MouseMove事件仍有可能被触发。因此如果在程序中直接用MouseMove事件检测鼠标是否发生了移动，并不能正确反映鼠标的移动状况。应该在MouseMove事件中编写代码加以控制。 -1) screen saver running, the mouse cursor automatically hidden, at the end of the procedure, the cursor display. 2) When the click, move the mouse or press the keyboard, the screen ends and return to normal operating status. To achieve these characteristics, in the preparation of VB applications, can be used as follows : a change forms usually attribute the VB application forms have adopted a frame of the window appearance, but as screen protection procedures should be provided to non-Window frame, and as a maximum. 2, hide and display the mouse cursor in Visual Basic Application Program hide and display the mouse cursor need to use Windows API function which is called ShowCursor. When using parameters True called to show the mouse cursor, using parameter values False call, the mouse curso
Platform: |
Size: 2048 |
Author: 田欣 |
Hits:
Description: 使用asp.net(Vb)编写的简单的留言本,功能相对简单,可供初学者学习之用!-use of Asp. Net (Vb) prepared by the simple message, function relatively simple, for beginners to learn use!
Platform: |
Size: 53248 |
Author: 陈中会 |
Hits:
Description: vb编写的综合程序，包括计算器，画板（很象windows自带的），通讯录，拼图游戏（很有意思，还带音乐）。功能齐全，界面非常美观，没有bug。-program writed by VB,include calculator,palette(look as if mspaint in windows),address list,spelling-picture game(very interest,alse with music),function all ready,alse with a slinky interface,NO bug
Platform: |
Size: 212992 |
Author: ctp |
Hits:
Description: 当访问Internet某个站点时，系统首先将远程文件读入到本机Temporary Internet Files文件夹。现在告诉大家一个小技巧可以用VB语言和一个API函数实现判断网页文件是否在IE缓存中。-when visiting certain Internet sites, the system will first read remote files to the machine Temporary Internet Files folder. Now tell us a little techniques can be used VB language and an API function to judge whether the documents for the Web in IE cache.
Platform: |
Size: 1024 |
Author: 佳闲 |
Hits:
Description: 这是一款VB程序调试及反编译的工具，功能上还不是很好但希望能有点用-This ia a debug/undebug program with VB language, the function is not perfect .I hoppe it is useful.
Platform: |
Size: 5315584 |
Author: 焦明 |
Hits:
Description: VB函数编程说明指南，介绍VB的函数库，一些操作说明，适合初级学者，可以作指导教材-VB programming guide that function, introduced VB functions, some manuals, suitable for junior scholars, guidance materials can be made
Platform: |
Size: 586752 |
Author: 李飞 |
Hits:
Description: VB函数大全,详细并且全面地介绍了Vb中所使用的各种函数。-function VB Series, a detailed and comprehensive briefing on the Vb used by the various functions.
Platform: |
Size: 507904 |
Author: 王中华 |
Hits:
Description: GDI+函数原型-GDI+ Function prototype
Platform: |
Size: 12288 |
Author: 随风の追梦 |
Hits:
Description: 使用VB打开百度地图的功能。
VB环境下调用地图操作。-Baidu using VB to open the map function. VB environment, called the map operation.
Platform: |
Size: 4096 |
Author: zhangjiong |
Hits:
« 12
3
4
5
6
7
8
9
10
...
50
»