×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载随时随地聆听大师开讲/课堂酷素材!视频教程打包下手绘教程
咔咔摄影抠图教程路径专辑photoshop cs3视频教程 
查看: 553345|回复: 37

用VB制作注册软件的方法

[复制链接]

该用户从未签到

发表于 2006-3-22 11:07:10 | 显示全部楼层 |阅读模式
我自己制作的一个注册软件,希望能给大家带来帮助
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 FileSystemObject
Public Ctf As TextStream



Public Function Jia_Mi_Txt()
Reg_C = Abs(GetSerialNumber("c:\"))
If Dir(App.Path & "\yibao.ini") = "" Then
''建立一个文本文件
Open App.Path & "\yibao.ini" For Output As #1
Print #1, "00000000"
Close #1
End If

Jia_Mi_File = App.Path & "\yibao.ini"
Set Fso = CreateObject("Scripting.FileSystemObject")

Set Ctf = Fso.OpenTextFile(Jia_Mi_File, 1) ''建立 TextStream 对象 CTF

Jia_Mi_Char = ""
Do While Ctf.AtEndOfStream <> True

Jia_Mi_Char = Jia_Mi_Char & Chr(58 Xor Asc(Ctf.Read(1)))
Loop

Ctf.Close
Set Ctf = Nothing

If Jia_Mi_Char <> Int(Reg_C * 18 / 22 * 16 / 19) Then
''显示注册对话框
Dialog.Show 1
End If

End Function


''Text2.Text = Len(Reg_C)


Function GetSerialNumber(sroot As String) As Long
Dim lserialnum As Long
Dim r As Long
Dim strlabel As String, strtype As String
strlabel = String$(255, Chr$(0))
strtype = String$(255, Chr$(0))
r = GetVolumeInformation(sroot, strlabel, Len(strlabel), lserialnum, 0, 0, strtype, Len(strtype))
GetSerialNumber = lserialnum
''在 strLabel 中为磁盘卷标
''在 strType 中为文件系统类型
End Function

''此部分为程序加密处理模块,负责将C盘的卷标读并转换成数字
''对这串数字与58进行异或处理,得到一个加密的字符串写入yibao.ini中
''在每次运行时与文档中的加密后字符串进行反解密比较,不成功提示用户进行注册

该用户从未签到

发表于 2006-12-15 02:05:49 | 显示全部楼层
楼主:你有关于API函数的资料吗??

该用户从未签到

发表于 2007-1-13 14:03:10 | 显示全部楼层
先收藏作为借鉴,谢谢楼主。(^#@^

该用户从未签到

发表于 2007-2-1 16:32:02 | 显示全部楼层
谢谢楼主

该用户从未签到

发表于 2007-8-3 16:13:40 | 显示全部楼层
辛苦了(^#@^
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2007-8-26 09:47:20 | 显示全部楼层
偶前段时间有自学一些VB
  还看你的程序..2个字..看不懂.
汗.
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2007-8-28 21:02:27 | 显示全部楼层
俄,仍在学习中,有几句话看不懂~~
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2007-9-4 21:04:48 | 显示全部楼层
这个学期刚开这门课程,还不懂什么跟什么呢.
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2010-11-6 07:29:27 | 显示全部楼层
我什么都想学
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2010-11-27 23:00:43 | 显示全部楼层
MARK,谢谢
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2012-12-10 13:42:55 | 显示全部楼层
谢谢分享
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2014-6-8 10:28:48 | 显示全部楼层

谢谢分享
谢谢分享
谢谢分享
谢谢分享
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2014-9-20 22:19:08 | 显示全部楼层
风物长宜放眼量
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2014-10-4 00:04:40 | 显示全部楼层
楼主加油,我代表教程网支持你。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2014-10-7 20:48:11 | 显示全部楼层
楼主加油,我代表教程网支持你。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [免费注册]

本版积分规则