vb软件怎么绑定电脑

可以获取指定电脑相关信息，例如CPU信息，硬盘，MAC地址等然后生成唯一标识码；

可以在硬盘指定位置（如我的文档），或者注册表写入软件信息，以此来标记；

或者把相关信息上传到软件的服务器，使用的时候再请求数据；

也可以通过IP来识别目标电脑。

以上方法都可以使用，由自己具体的需求来决定。

楼主这个程序不完整，另对J压根没有交待，这里应该是个双循环。另外，如果数组里值要有0的话，这个程序会运行long long time，所以随机数我选取了1—17，VB6环境下测试成功

Private Sub Form_click()

Dim i As Integer, j As Integer,x as integer, f As Boolean,

Dim a(16) As Integer

Randomize‘初始化随机数种子

For i = 0 To 16

x = Int(Rnd * 17) + 1 '首先让X这个临时变量随机得到1~17中的一个数值

f = False '判断前初始判断标志f为false

For j = 0 To i－1'这个for循环让x与数组中已经存在的数值进行逐一比对

If x = a(j) Then ‘如果x的值已经在数组中存在，那么就跳出for循环，并置f的值为true

f = True

Exit For

End If

Next j

这个比较容易做到，就是把你的机器中任意写一个文件，然后你程序中检查这个文件是否存在，如果不存在，就直接退出，因为这个文件是你自己创建的，别人不可能知道，也就不会想到拷这个文件，因此就不能运行。

如创建一个"C:\windows\system32\rr.dll"'名字任意给定，在form_load中输入if dir "C:\windows\system32\rr.dll"="" then end就行了，特简单，还有效。

---