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 g  d) A9 q1 v
'使用方法：pereg1.GetMacHdID
'更改属性页里的“混合密钥”，硬件机器码、序列号、注册码将全部改变
  '----------------------------------------------------------------------*
If Not pereg1.PeRegOK Then
'关键代码2：检测软件序列号、注册码是否正确
'使用方法：pereg1.PeRegOK3 P1 J* h; {- e  G5 ]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) Then  O" z/ x  w1 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盘（开发中），有代码少、加密强度大以及使用非常方便的特点，欢迎大家使用.

VB外挂软件注册功能.zip (139.95 KB, 下载次数: 462)

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

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

这个东西不错啊啊

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] VB外挂软件注册功能[功能比较完善]