首页
社区
课程
招聘
[原创]环球卫星网络电视 V9.1 简单算法分析 + VB注册机
发表于: 2005-6-23 22:46 15845

[原创]环球卫星网络电视 V9.1 简单算法分析 + VB注册机

2005-6-23 22:46
15845
收藏
免费 7
支持
分享
最新回复 (17)
雪    币: 217
活跃值: (91)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
2
要求加精
2005-6-24 07:38
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
赞成2楼意见,KuNgBiM兄的破文如此规范,看雪论坛的精华帖,或可据此制定其中一项标准了,就叫做破文格式化标准,呵呵。
    KuNgBiM兄的文章,不单看着舒服,也确实既有学习价值,参考价值,又有实用价值。还有一点,你的文章出炉速度够快,我才没来几天,已然看到你的两篇大做,如果不是你手底下有个破解班子,那你可太勤奋了,看来你志向不小,呵呵
    可笑我,文章还未看,先来一通溢美之词,呵呵,但愿不是言过其实
2005-6-24 08:38
0
雪    币: 328
活跃值: (925)
能力值: ( LV9,RANK:1010 )
在线值:
发帖
回帖
粉丝
4
支持!!!
2005-6-24 11:37
0
雪    币: 207
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
支持下!
2005-6-24 13:19
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
6
最初由 炸弹宝宝 发布
赞成2楼意见,KuNgBiM兄的破文如此规范,看雪论坛的精华帖,或可据此制定其中一项标准了,就叫做破文格式化标准,呵呵。
KuNgBiM兄的文章,不单看着舒服,也确实既有学习价值,参考价值,又有实用价值。还有一点,你的文章出炉速度够快,我才没来几天,已然看到你的两篇大做,如果不是你手底下有个破解班子,那你可太勤奋了,看来你志向不小,呵呵
可笑我,文章还未看,先来一通溢美之词,呵呵,但愿不是言过其实


破解班子??? 这个我到没有,就是有时间罢了,最近学校考完试了,就等放假咯
2005-6-24 16:10
0
雪    币: 312
活跃值: (860)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
很不错,鼓励一下。
2005-6-24 18:30
0
雪    币: 207
活跃值: (40)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
8
比较爱看算法分析~~~~
2005-6-24 22:02
0
雪    币: 100
活跃值: (15)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
支持一下~@~!
2005-6-25 01:39
0
雪    币: 201
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
grx
10
最初由 KuNgBiM 发布
=======================
【VB6算法注册机源码】

Private Sub Text1_Change()
Dim jqm, z, a, b, m As String
x = Text1.Text
If x = "" Then '未输入的机器码则不计算
Else
If Len(x) = 8 Then '输入的机器码等于8位后才开始计算
a = "C0F1E"
z = Mid(x, 1, 6)
m = Format("&h" + z)
b = Format("&h" + a)
zcm = Val(m) + Val(b)
Text2.Text = zcm
End If
End If
End Sub

=======================


拜托了,VB6可不是这样写的。给人一个坏透了的VB6印象。
2005-6-26 00:00
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
11
最初由 grx 发布


拜托了,VB6可不是这样写的。给人一个坏透了的VB6印象。


代码精简了的,新手不易看懂,对于象你这样的鸟人,你爱杂写杂写。。。
2005-6-26 18:11
0
雪    币: 436
活跃值: (47)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
慢慢学习了,谢谢楼主。
2005-6-26 21:44
0
雪    币: 261
活跃值: (162)
能力值: ( LV13,RANK:320 )
在线值:
发帖
回帖
粉丝
13
我也不喜欢别人指点有关代码风格的问题。
2005-6-27 12:04
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
注释非常详细到位,我等菜鸟之福啊!!!
2005-6-27 12:57
0
雪    币: 383
活跃值: (41)
能力值: ( LV12,RANK:530 )
在线值:
发帖
回帖
粉丝
15
我也认为代码不能写在Text1_Change()这个里面,具体我也没实践,感觉不能这样,你每往text里面输入字符,都产生change事件的,
但是这个If Len(x) = 8 Then 不知道起不起作用哈
我去实践一下咯
2005-6-30 23:59
0
雪    币: 3178
活跃值: (2820)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
通俗易懂呀
2005-7-1 07:38
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
17
最初由 小娃崽 发布
我也认为代码不能写在Text1_Change()这个里面,具体我也没实践,感觉不能这样,你每往text里面输入字符,都产生change事件的,
但是这个If Len(x) = 8 Then 不知道起不起作用哈
我去实践一下咯


to 小娃崽:

1.“Text1_Change()”我这样写是为了减免麻烦的Command_Chick()事件,达到一输入机器码就产生注册码的目的。

2.“If Len(x) = 8 Then ”是避免用户在输入机器码时,由于位数不合法产生的不正确注册码,这个事件是:当输入的机器码达到8位以后,才引发程序计算事件。
2005-7-1 22:29
0
雪    币: 383
活跃值: (41)
能力值: ( LV12,RANK:530 )
在线值:
发帖
回帖
粉丝
18
我已经看到变化了,就是text1里的字符变换了,text2的也跟着变换,我自己美化了一下,效果还不错.
不过那些汇编代码我可是看不懂的,以后应该可以吧
2005-7-2 13:56
0
游客
登录 | 注册 方可回帖
返回
//