用VB制作注册软件的方法

最新推荐文章于 2024-08-19 14:03:39 发布

BB项目

最新推荐文章于 2024-08-19 14:03:39 发布

阅读量1.1k

点赞数

本文链接：https://blog.csdn.net/u013806647/article/details/34095233

版权

这篇内容介绍了如何使用Visual Basic(VB)编程实现软件注册功能。通过获取计算机C盘序列号并加密存储，程序在运行时会检测C盘序列号并与加密文件中的值对比，若不匹配则提示用户注册。

摘要由CSDN通过智能技术生成

我自己制作的一个注册软件,希望能给大家带来帮助
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
''此模块的作用是检测用程序所在机器C盘序列号并存入一个加密后的文本文件yibao.ini中，
''在每次运行时检测C盘序列号并与加密文本文件中的相应值进行比较如果不符提示用户进行注册

Public Reg_C As String
Public Reg_Key As Long
Public Jia_Mi_File As String
Public Jia_Mi_Char As String
Public Fso As New F