VB外挂软件注册功能[功能比较完善]

戰ぐ小夜 发表于 2012-2-5 20:36

本帖最后由戰ぐ小夜于 2012-2-5 20:39 编辑

Private Sub Command1_Click()'试用
Form1.Hide
Form2.Show
End Sub: `+ B0 V9 M6 I5 n% G8 `7 C& n
Private Sub Form_Load()
'----------------------------------------------------------------------*
Text2.Text = pereg1.GetMacHdID$ N- A' r4 f. U, F, L) b
'关键代码1：检测硬件“机器码”( c( A0 p- f1 gd) A9 q1 v
'使用方法：pereg1.GetMacHdID
'更改属性页里的“混合密钥”，硬件机器码、序列号、注册码将全部改变
'----------------------------------------------------------------------*
If Not pereg1.PeRegOK Then
'关键代码2：检测软件序列号、注册码是否正确
'使用方法：pereg1.PeRegOK3 P1 J* h; {- eG5 ]8 Z
   '----------------------------------------------------------------------*
Form2.Label1.Caption = "向您提示：软件没有注册！"# {; f8 E& Y% ^7 Q% ]
Else- N1 R# Z' H9 @) t6 e
   Form2.Label1.Caption = "感谢您的注册！". V/ y3 T6 F& U7 @- V* C# N
   Form1.Hide
Form2.Show
End If
End Sub2 a, ~' m$ g7 i- Z$ P# f% Q
Private Sub Command2_Click()'开始验证
0 O, ]. |7 a5 Y3 {; y '----------------------------------------------------------------------*
If pereg1.SaveCode(Text5.Text, Text3.Text, Text4.Text) ThenO" z/ xw1 I6 I
   '关键代码3：检测输入序列号、激活码
'使用方法：pereg1.SaveCode(用户名,序列号,注册码)8 U. r; T# ~) n5 u
'用户名可任意输入字符串，与硬件代码无关
'----------------------------------------------------------------------*
Form1.Hide
Form2.Label1.Caption = "感谢您的注册！"
Form2.Show
End If
End Sub& k" P) i' k$ L+ n
! R* l" e& q7 r: ?4 h$ T) y
VB版的完全免费的软件保护控件（ocx），可以轻松让你的软件具有注册功能，可以关联硬盘、CPU，U盘（开发中），有代码少、加密强度大以及使用非常方便的特点，欢迎大家使用.

别愁没吾爱币。回复就有了撒

QQ1124657060 发表于 2014-6-7 19:30

借鉴，

android 发表于 2012-2-5 20:44

谢谢分享!

a332682140 发表于 2012-2-5 20:59

这个是什么东西呀怎么看不懂呢？

baisheng001 发表于 2012-2-5 21:09

看不明白撒

frogsoft 发表于 2012-2-5 21:24

很不错的源码，下载收藏了。

woshpzh 发表于 2012-2-5 21:36

下载收藏了。

yiyang 发表于 2012-2-5 22:58

是啊看不明白下来看看在说

chainbaby 发表于 2012-2-5 23:25

暂时还用不到，不过是个好东西

1102075609 发表于 2012-2-6 10:22

不会用VB但收藏下！

枪炮师刘飞洋 发表于 2012-2-6 11:00

这个东西不错啊啊

页: [1] 2 3 4 5 6 7 8 9 10

吾爱破解 - 52pojie.cn's Archiver

VB外挂软件注册功能[功能比较完善]