[紧急求助]请高手帮我设置一个机器码的VB程序！有酬谢！

我编了一个小程序，用“小颖安装程序制作专家”进行制作了安装程序包。

       昨天送给上级领导看了，可能要在辖区内推广。因涉及行业内的商业机密，希望我在周一前在程序里面加一个针对每台电脑机器码产生一个注册码的步骤。

      已查看了论坛相关的帖子，感觉自己能力有限怕是无法编出来，特请各位朋友帮我一下。

      设计要求：
      1、启动安装程序或者运行程序，弹出对话框，显示此台电脑的机器码，要求录入注册码才可进入。

      2、用户将自己电脑的机器码发送给管理员，管理员用注册机算出注册码再发给用户方可使用。

      此事对我很重要，望各位弟兄不吝赐教，能帮我制作一下工程和注册机发给我。如能设置使用期限更佳。

     完工后一条软云烟奉上。多谢！
     我的工程地址：http://club.excelhome.net/dispbbs.asp?boardID=2&ID=233662&page=1&px=0

6 个解决方案

#1

应付领导的话,随便找个加壳工具即可

#2

建议你去看雪(http://www.pediy.com)看看

#3

应付领导的好办啊。

比如你可以这样做啊：
不必再安装程序里做，可以在你的运行程序里加上一个注册窗口阿。
当程序第一次运行时，判断是否注册了，若没有则要求注册码。

注册码可以用一个最简单的，比如计算机名：根据计算机名按一定规律产生出一个机器码，用户将该机器码发给管理员，再根据该机器码生成一个注册码，发给用户不就行了。

这样肯定可以骗过去了，想要加强功能，以后可以慢慢改了。

#4

谢谢两位的建议，现在还差一步：
下面的代码运行不通过，问题在哪呢？
     Label2.Caption = GetSetting("我的工程", "我的子键", "Top", [ default])

     If Label2.Caption = "1" Then

     Form2.Show

#5

解决了，应是：
  Label2.Caption = GetSetting("我的工程", "我的子键", "Top")

      If Label2.Caption = "1" Then

      Form1.Show
      End If

#6

汗一个.........

#1