关于简单的注册码保护（VB）
高二的同学在上个学期学习了VB操作
2 l& z( [' E( ?- K% }* c3 M. N: U电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站在自己成功作出了作品后
( n+ y5 l+ ?! { mwww.520diannao.com是否有种成就感我爱电脑技术社区--打造最好的电脑技术自学交流平台. O: P: A; i1 Q& ]; k* r+ P
此时你是否希望在上面留下自己的印记？
/ b6 X- C, F% g! C$ B我爱电脑技术论坛在外面买回来的众多软件，很少有免费的（破解版除外）
% |: K: J0 Z) T" W9 A' g2 ^, c/ G打造最好的电脑自学交流论坛就算共享软件在试用一定次数后
! R6 H5 g9 @3 p+ O2 f# q9 V我爱电脑技术社区--打造最好的电脑技术自学交流平台还是要你购买注册码我爱电脑技术论坛$ c7 Q r5 \0 F/ m/ v
你是否想让自己所做的软件和那些一样呢？我爱电脑技术社区--打造最好的电脑技术自学交流平台/ ~& I" _, x- ]( _, _4 t. z6 s
那就和我一起来吧！动手打造自己的注册版软件电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站$ M3 L" H! r- l. ~: |. a1 C+ S
" h* V% d" M- l* J$ |$ H我爱电脑技术论坛源文件：
! h: }6 H$ \- E- ~7 B我爱电脑技术论坛Private Sub Form_Load()www.520diannao.com1 J/ \" ~2 Z( ]/ i
Dim A: Dim Bwww.520diannao.com; B) t4 u$ g- T4 {2 b7 x
A = MsgBox("你是否希望现在注册", vbQuestion + vbOKCancel, "提问") '程序运行时弹出对话框电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站+ A, F4 y4 @- n# c
i = 0
" E8 h: z9 k! N0 u9 O我爱电脑技术论坛D: i = i + 1
; _( S3 M4 s0 \1 V/ C/ u我爱电脑技术社区--打造最好的电脑技术自学交流平台If i <= 5 Then
+ t3 Z- i5 Q9 T6 A GoTo B:www.520diannao.com$ a$ X9 L6 Z7 N6 e
Else我爱电脑技术论坛2 a* P) n& _7 b" N% f1 ^
GoTo A:打造最好的电脑自学交流论坛! s- ?# q2 I& \$ b: ]8 T
B: If A = 1 Then 'A = 1是选择“确定”后A的赋值
6 b0 ~9 V" N @( Wwww.520diannao.com我爱电脑技术论坛8 S1 F; B$ V& b2 `$ g% u7 T
B = InputBox("在这里输入序列号：", "请输入你的序列号", "继续试用")
( K$ \& J, |1 ]8 { If B = "123456" Then '“123456”是你自定的字符，可以为任何值，汉字也可以
. } X7 V& y; C. k# j6 Iwww.520diannao.com MsgBox "感谢你的注册" '当前面InputBox中的赋值与B = "123456"相等时则继续运行
" Y) A1 T! h# D" K* r: Y GoTo C: '并跳转到C打造最好的电脑自学交流论坛$ Q1 L! H3 g7 b2 G+ x! ]5 J
Else电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站0 p, k2 F$ {$ o9 I, F
If B = "继续试用" Or B = "" Then '当B的赋值为"继续试用"或为空时到这一步
( y! D+ E u8 w- S我爱电脑技术社区--打造最好的电脑技术自学交流平台 GoTo A:我爱电脑技术社区--打造最好的电脑技术自学交流平台2 v3 f9 P& ?3 r* x& C, P2 m
Else
! l& s/ k8 o! Y! j MsgBox "你输入的序列号有误，请重新输入", , "对不起" '当赋值与前两项都不相同时，由Else跳转到这一步我爱电脑技术论坛5 u; Z% w$ a& E5 z( x
MsgBox "你还有" & (6 - i) & "次机会", , "好好把握"
' v* ` V2 L* u$ l4 }: c6 o; D5 `6 Q我爱电脑技术论坛 GoTo D: '返回到B重新运行
% G& o0 g/ T/ d! G! Fwww.520diannao.com End If
0 g' W4 P+ B6 Y" x3 Y6 D我爱电脑技术论坛 End If
4 l- w! Z/ p: H' Y# x我爱电脑技术社区--打造最好的电脑技术自学交流平台Else
* _9 H p; ~2 z7 e' i3 {我爱电脑技术社区--打造最好的电脑技术自学交流平台 GoTo A: '跳转到A
4 o O2 Z6 c0 h. u我爱电脑技术社区--打造最好的电脑技术自学交流平台End If我爱电脑技术社区--打造最好的电脑技术自学交流平台+ |' l' }, @" T' z3 z* u5 b# V
电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站" T+ g6 \/ [) q6 F
A:6 T! U+ q( z8 `- u
Form1.Caption = "试用版" '对标题的修改
3 v D, n5 ^: c( k& H2 d打造最好的电脑自学交流论坛Form1.Command1.Enabled = False '对于面板中模块的限制，若输入值正确直接跳转至C我爱电脑技术社区--打造最好的电脑技术自学交流平台$ Z. x* s: T( g. C! J
C:
& V* o9 a$ s1 Y! q7 O电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站End If
, W$ T$ u$ H hEnd Sub我爱电脑技术论坛/ d$ k2 ?( b+ z, K @
打造最好的电脑自学交流论坛; L7 m& s" J f- K
0 |5 J4 ~4 `$ f# Z" X6 }9 nwww.520diannao.com以上就是程序的源代码了，在当中加入了次数限制，
0 J9 J+ q, e/ d0 s我爱电脑技术论坛仅限于单词登陆的次数限制，打造最好的电脑自学交流论坛9 w* i: {' [+ V' k2 _) U& n' e( S3 z
外接程序次数限制就不介绍了，主要是说这种验证思想打造最好的电脑自学交流论坛" U& q/ j0 c3 I. s5 ^
此程序不仅仅可以在主面板中插入，还可以在各个控件中（比如说按钮控件）我爱电脑技术论坛% d: s& w: b$ ^9 `; t2 l1 \
在注册码那一块，不仅仅可以输入一定值还可以输入一个函数关系式我爱电脑技术论坛7 o2 k& L6 I- z7 T
这样就可以有多个注册码，免去了一个一个设的烦恼，当然函数式越复杂我爱电脑技术论坛+ R* V7 [& @, }* Z3 ?7 \3 w
破解难度也就越大，至于最好能做到多强，那就得看你有多强了我爱电脑技术论坛& M# Y, O7 d r$ c
例：
: A) u, z/ ^3 L& f. X' _5 z我爱电脑技术论坛 E = InputBox("在这里输入序列号：", "请输入你的序列号", "继续试用")
& B6 Z# A7 Z% V7 \& L我爱电脑技术论坛 IF B/1 = (((E/tan(1))+100*sin(E)-55)^2\1 Then+ ^. n7 i- G4 S; z
好了，现介绍到这里，只做一个思想的交流，程序千变万化电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站# |( {0 X+ ?0 e0 i- E# T
还要靠大家的努力。
8 P4 X+ R' u+ G9 n T* n5 s6 H4 G" F打造最好的电脑自学交流论坛如果众位大虾有什么建议尽管提~~本人也只是个小菜
附件
-
注册码测试.rar
(15.5 KB)
-
2008-4-24 20:50, 下载次数: 0
源文件
