Location:
Search - zhuce
Search list
Description: 采用APPLET编程，此程序写的是关于做一个注册登陆表
Platform: |
Size: 939 |
Author: 地瓜 |
Hits:
Description: 关于网页的制作,希望这个能给你带来很大的帮助
Platform: |
Size: 17336 |
Author: 谢豆 |
Hits:
Description: [椋炲奖VB婧愮爜]
浣犵尽鎱曞埆浜虹殑杞
Platform: |
Size: 20981 |
Author: 椋炲奖 |
Hits:
Description: 汇编语言（注册码破解）-assembly language (license crack)
Platform: |
Size: 898 |
Author: 贾术恒 |
Hits:
Description: 该模块为用户注册登陆模块,能实现简单的用户注册功能
Platform: |
Size: 63172 |
Author: wei |
Hits:
Description: 这个程序可以进行计算机序列号的加密与解密的学习。
Platform: |
Size: 66774 |
Author: chunbingling |
Hits:
Description: QQ的注册界面,有Csharp来写的.比较业余.!!请多多指教
Platform: |
Size: 266597 |
Author: 孔祥刚 |
Hits:
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: 汇编语言（注册码破解）-assembly language (license crack)
Platform: |
Size: 1024 |
Author: 贾术恒 |
Hits:
Description: 常用软件的注册码大全，从mop上转贴的，快来下载把-commonly used software license Daquan, from the mop posted on the Download put hurry
Platform: |
Size: 73728 |
Author: 元辉 |
Hits:
Description: WebEasyMail 破解版本,内有注册机.把注册机器里面放入程序目录.点击注册机运行起来WebEasyMail,点击注册,把那个机器码COPY 到注册吗里面,点击注册,就弹出了真正的注册码-WebEasyMail crack version, which has Zhuceji. To register the machine inside the Add directory. Click Zhuceji up and running WebEasyMail, click Register to register the binary COPY to you inside, click Register, on the pop-up a real key
Platform: |
Size: 5192704 |
Author: wwwwwww |
Hits:
Description: 采用APPLET编程，此程序写的是关于做一个注册登陆表-Using APPLET programming, this procedure is written to do a register on the landing table
Platform: |
Size: 1024 |
Author: 地瓜 |
Hits:
Description: 关于网页的制作,希望这个能给你带来很大的帮助-On the web page production, hope that this would give you a great deal of help
Platform: |
Size: 17408 |
Author: 谢豆 |
Hits:
Description: 该模块为用户注册登陆模块,能实现简单的用户注册功能-The module for the user registration landing module, to achieve a simple user registration
Platform: |
Size: 62464 |
Author: wei |
Hits:
Description: 这个程序可以进行计算机序列号的加密与解密的学习。-This procedure can be the computer serial number of the encryption and decryption of learning.
Platform: |
Size: 66560 |
Author: chunbingling |
Hits:
Description: QQ的注册界面,有Csharp来写的.比较业余.!!请多多指教-QQ registration interface CSharp have to write. Comparison of the Amateur.!! Please exhibitions
Platform: |
Size: 2898944 |
Author: 孔祥刚 |
Hits:
Description: 该系统可以实现ftp用户在线开通和管理，用户注册后自动在服务器相应路径上建立对应的文件夹，具体配置详见Web.config 在管理面板中，可以导入excel数据，批量生成ftp用户账号 App_Data/syzx.cs为Access数据库文件，把扩展名改为mdb就可以用Access打开并编辑了注意：改系统需要结合Serv-U才能正常使用，具体配置方法详见在线帮助和Web.config 该系统采用面向对象模式开发，操作代码详见App_Code下对应文件默认管理帐号/密码：51aspx/51aspx
-The system can be opened online ftp users and management, user registration automatically on the server path to establish the corresponding folder that corresponds to the specific configuration details, see Web.config in the management panel, you can import excel data volume generated ftp user account App_Data/syzx.cs for the Access database file, the extension can be replaced by mdb on Access open and edit a note: change the system requires a combination of Serv-U can be a normal use, the specific configuration details, see online help and Web.config of the system object-oriented model of development, operation code corresponds to file under the App_Code see the default administrative account/password: 51aspx/51aspx
Platform: |
Size: 65536 |
Author: 王若惜 |
Hits:
Description: 用户能进行简单的注册，并且用户可以根据自己的需要上传照片。-Users to carry out a simple registration, and users can upload photos to their own needs.
Platform: |
Size: 393216 |
Author: 赵文丽 |
Hits:
Description: 会员注册系统，能够注册，管理员能够进行删除。修改-Member registration system capable of registration, the administrator can be removed. Modify
Platform: |
Size: 10240 |
Author: 张航 |
Hits:
Description: unity gongchengbao zhucebao(unity gongchengbaozhuceng ti)
Platform: |
Size: 2048 |
Author: 山山君
|
Hits: