[精华]一个好的注册程序（分享）

tsxqclx · 发表于 2009-6-13 12:44

分区没有D:盘，就会导致设备不可用，程序停止。建议修改这一段代码

Serial1 = Abs(Format(CreateObject("Scripting.FileSystemObject").GetDrive("c:").SerialNumber))
Serial1 = Abs(Format(CreateObject("Scripting.FileSystemObject").GetDrive("D:").SerialNumber))

建议只用C盘的SerialNumber
C:\Documents and Settings\Administrator\桌面\333.bmp

[ 本帖最后由 tsxqclx 于 2009-6-15 08:00 编辑 ]

zbapllo · 发表于 2010-10-26 23:59

谢谢分享。。。。

jjhome · 发表于 2010-10-27 15:40

好东西。谢谢分享

zzhgsls · 发表于 2011-11-16 22:58

不知道有实用没有，如何算出注册码，
看我注册的。

liucqa · 发表于 2011-11-16 23:26

几个模块可以留着参考

wpy1 · 发表于 2011-12-26 11:28

这个人家把机器码给我们了如何制作注册码出来给人家？

wh1272 · 发表于 2011-12-30 11:25

的确有创意啊好贴

吴民光 · 发表于 2011-12-30 13:12

谢谢分享，有点意思

sunny_8848 · 发表于 2012-3-20 15:22

谢谢分享，感觉很有用

wh1272 · 发表于 2012-3-24 15:27

不错！值得学习！

		自动登录	找回密码
密码			免费注册

[分享] [精华]一个好的注册程序（分享）

分区没有D:盘