帮我写一个vb 程序，加一个高分VB注册Subzhuce()定义一个注册流程。这个注册名自动生成器的vb code应该怎么写？I2% 注册原理备忘录:每次启动程序时，注册机都会批量生成相同的函数，不需要程序 file内部配置，这个程序的好处是不需要修改源代码重新编译就可以生成新的，
1、用VB做注册机高分求代码!private子命令1 _ click()...加密注册流程...Command1.EnabledFalseOpen.\注册码。txtforoutputas # 1seek # 1，1write # 1，text 1 . text close # 1 endsubvrivatesubform _ load()dimmystrastringifdir(。\注册码。txt)然后打开。\注册码。txtForInputAs #输入#1，
2、追加高分VB注册Subzhuce()定义了一个注册过程，下面的注册框dima0，diksvolume，d0，fframe1.visible true 可以在getVolumeInformatic:\ A0，12，diksvolume，d0，10 get machine code JiqimarkAbs(Val(diksvolume))这是驱动器C的序列号，加Abs防止负数出现Text7。TextJiqimark 防止某些磁盘号出现负数Zhucemarkint(SQR(jiqimark)* 10 ^ 4) 计算注册码EndSubPrivateSubForm_Activate()窗体活动进程Text1 .设置。
D0
