能力值:
( LV4,RANK:50 )
2 楼
要求加精
能力值:
( LV2,RANK:10 )
3 楼
赞成2楼意见,KuNgBiM兄的破文如此规范,看雪论坛的精华帖,或可据此制定其中一项标准了,就叫做破文格式化标准,呵呵。
KuNgBiM兄的文章,不单看着舒服,也确实既有学习价值,参考价值,又有实用价值。还有一点,你的文章出炉速度够快,我才没来几天,已然看到你的两篇大做,如果不是你手底下有个破解班子,那你可太勤奋了,看来你志向不小,呵呵
可笑我,文章还未看,先来一通溢美之词,呵呵,但愿不是言过其实
能力值:
( LV9,RANK:1010 )
4 楼
支持!!!
能力值:
( LV2,RANK:10 )
5 楼
支持下!
能力值:
( LV12,RANK:2670 )
6 楼
最初由 炸弹宝宝 发布 赞成2楼意见,KuNgBiM兄的破文如此规范,看雪论坛的精华帖,或可据此制定其中一项标准了,就叫做破文格式化标准,呵呵。 KuNgBiM兄的文章,不单看着舒服,也确实既有学习价值,参考价值,又有实用价值。还有一点,你的文章出炉速度够快,我才没来几天,已然看到你的两篇大做,如果不是你手底下有个破解班子 ,那你可太勤奋了,看来你志向不小,呵呵 可笑我,文章还未看,先来一通溢美之词,呵呵,但愿不是言过其实
破解班子???
这个我到没有,就是有时间罢了,最近学校考完试了,就等放假咯
能力值:
( LV2,RANK:10 )
7 楼
很不错,鼓励一下。
能力值:
( LV3,RANK:20 )
8 楼
比较爱看算法分析~~~~
能力值:
( LV2,RANK:10 )
9 楼
支持一下~@~!
能力值:
( LV2,RANK:10 )
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印象。
能力值:
( LV12,RANK:2670 )
11 楼
最初由 grx 发布 拜托了,VB6可不是这样写的。给人一个坏透了的VB6印象。
代码精简了的,新手不易看懂 ,对于象你这样的鸟人,你爱杂写杂写。。。
能力值:
( LV2,RANK:10 )
12 楼
慢慢学习了,谢谢楼主。
能力值:
( LV13,RANK:320 )
13 楼
我也不喜欢别人指点有关代码风格的问题。
能力值:
( LV2,RANK:10 )
14 楼
注释非常详细到位,我等菜鸟之福啊!!!
能力值:
( LV12,RANK:530 )
15 楼
我也认为代码不能写在Text1_Change()这个里面,具体我也没实践,感觉不能这样,你每往text里面输入字符,都产生change事件的,
但是这个If Len(x) = 8 Then 不知道起不起作用哈
我去实践一下咯
能力值:
( LV2,RANK:10 )
16 楼
通俗易懂呀
能力值:
( 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位以后,才引发程序计算事件。
能力值:
( LV12,RANK:530 )
18 楼