Search - 注册

Search - 注册 - List

[Other] 注册表操作示例 DL : 1: 注册表操作示例

Date : 2008-12-08 Size : 84.16kb User : ronaldo9
[WinSock-NDIS] VB注册码代码示例 DL : 3: 软件限时使用与注册功能的实现众所周知，一些共享软件往往提供给使用者的是一个功能不受限制的限时使用版，在试用期内使用者可以无限制的使用软件的全部功能（只是可能会出现提示使用者注册的窗口），试用期一过部分（或全部）功能失效，要想继续使用只能向作者索取注册码（或注册文件）完成对软件的合法注册，注册后的软件将解除一切使用限制。如果您也开发出一个有价值的作品，是否也希望为自己的软件增加一个这样的功能呢？这里笔者就提供一个实现软件限时的完整代码。　　软件启动后会首先运行本代码并从注册表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请与上述代码保持一致！）
Date : 2009-05-16 Size : 17.63kb User : dianfeng
[CSharp] c#制作的修改注册表程序 DL : 0: c#制作的修改注册表程序，提供了基本的功能
Date : 2009-12-03 Size : 36.33kb User : 156570402@qq.com
[Sniffer Package capture] 账号注册机 DL : 0: 对一个网站进行狂注册帐号
Date : 2009-03-17 Size : 213.31kb User : sevensky
[Windows Develop] 项目助手：BDE注册工具 DL : 0: 项目助手：BDE注册工具
Date : 2009-04-03 Size : 8.55mb User : dayhill
[Windows Develop] 注册表修改 DL : 0: 注册表修改封装
Date : 2009-05-07 Size : 596byte User : niflag@163.com
[Windows Develop] delphi 注册原码 DL : 0: 有关注册机示例：
Date : 2010-06-17 Size : 505.45kb User : woshiheyuebin8@163.com
[Driver Develop] 注册表监控驱动 DL : 0: 采用驱动调用Cm函数来截获注册表操作，能截获冰剑读写的操作。
Date : 2010-10-04 Size : 123.69kb User : wblf_www
[Program registrar] IAR for ARM 5.3-5.4 注册机 DL : 4: IAR for ARM 5.3-5.4-5.4.1版本的注册机
Date : 2010-10-16 Size : 492.5kb User : calmsteam@qq.com
[JSP/Java] 登陆注册 DL : 0: 登陆及注册用户名存入一张表中
Date : 2010-11-12 Size : 322.58kb User : dufang886@yahoo.cn
[Windows Develop] 禁用注册表 DL : 0: 禁用注册表,vb源码
Date : 2010-12-03 Size : 3.21kb User : WSLPEGGY@SOHU.COM
[Other] 易语言编写的注册机 DL : 1: 主要是给一些想编写注册机的朋友
Date : 2010-12-18 Size : 1.24kb User : 982303938@qq.com
[Documents] 注册表编程技术 DL : 1: 注册表编程技术
Date : 2010-12-28 Size : 447.5kb User : dragon1lotus
[PHP] ECSHOP 支付宝会员免注册登录接口支付宝登录接口支付宝会员接口 DL : 1: ECSHOP支付宝会员免注册登录接口，可以让访问ECSHOP站的用户使用支付宝账号密码就可以登陆网店。这个服务本来是需要花费3600元/年购买付宝的“创业版”套餐才有的功能，现在我们已经申请了该套餐，可以为广大的网店集成该服务，类似网站空间共享。集成之后，有支付宝账号的用户可以直接用支付宝账号密码登录网店，极大的提高网站的用户体验水平，为网店带来海量潜在客户。该服务不涉及资金问题，仅仅是实现登录网店的效果。演示效果：http://www.zhichangxiu.com/ 注：这是演示文件，如有需要请联系我们。
Date : 2011-01-27 Size : 12.49kb User : testsb
[SourceCode] 软件注册源代码（c#) DL : 0: 软件注册源代码（c#)
Date : 2011-03-22 Size : 42.2kb User : errg@163.com
[IME Develop] 通过修改注册表来设置系统默认输入法 DL : 0: 通过修改输入法的注册表排序，来更改系统默认的输入法不用重启电脑就可以立即生效
Date : 2011-03-31 Size : 131.04kb User : wangda183448
[Windows Develop] arcgis server 包含注册源码的查询系统 DL : 1: arcgis server 包含注册源码的查询系统
Date : 2011-04-25 Size : 2.18mb User : ywwwbd
[PHP] 个人网站的登录注册 DL : 0: 登录，注册页面。带简单的留言，删除留言功能，带实验报告
Date : 2011-06-02 Size : 1.26mb User : elevenshen
[Windows Develop] 注册表监视.rar DL : 0: 注册表监视
Date : 2011-09-03 Size : 25.29kb User : jackqiang
[CSharp] 快乐米网，自动注册，识别验证码！！ DL : 0: 快乐米网，自动注册，识别验证码！！
Date : 2011-10-07 Size : 804.38kb User : yuha5210

« 12 3 4 5 6 7 8 9 10 ... 50 »