Access确实非常好，只是盗版问题令人头痛[求助]

pauljung

Access确实非常好，只是盗版问题令人头痛：

通过检查用户计算机中的CPU。每个CPU都有几组号码，而且是唯一的。如果用户第一次安装软件，则可以马上计算出注册序号给用户。同时，因为我们在程序中写好计算方式，当计算出所给的注册序号与CPU号码不相同时就表示用户已经更换新的CPU或者新计算机了，这是用户必须在申请新的注册序号。这样一来，就可以防止用户将程序拷贝给其他人了。

或者设计一段代码，在每次启动程序时检查CPU号码，如果发现CPU号码改变，就出现一个错误信息，并终止启动程序。

或者还有更好的办法？

但是对于我这样的初学者，实在是太难了。尤其是写代码。

那位大侠能把这个意思用代码写出来？

eio

如此一来引申的问题是，不安装本机（反安装了），到别的机安装也需要征求开发人员的意见啊。又或者本机使用了，又报称已欢CPU又如何？您做的不是大程序的话，先想想一个服务的问题，还有想问：您用的OFFICE和WINDOWS是盗版的吗，如果要别人尊重你版权的话，请先尊重别人的版权啊………………

marco2

使用 Windows WMI 组件来识别 CPU ID

正    文：

Getcpuid.dll 获取的id只有8位, 而使用 Microsoft WMI Scripting Library 可以识别到16 位，下面简短的代码返回的是16位16进制的字符串。

' 首先必须引用 Microsoft WMI Scripting Library


Option Compare Database

Sub wmiProcessorID()

　 Dim cpuSet As SWbemObjectSet
　 Dim cpu　As SWbemObject
　
　 Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
　　　　　　　　　　　　　 InstancesOf("Win32_Processor")
　 For Each cpu In cpuSet
　　　MsgBox cpu.ProcessorId
　 Next
End Sub

WTM1

请于微软OFFICE XP 设计小组联系！

pauljung

macro2兄，

非常感谢。准备试一试。另外，在此也感谢eio姐姐和天明兄。

小弟保罗给各位拜上

pauljung

天明兄，

微软OFFICE XP 设计小组在那里？怎样才能和他们联系上？