VB6.0超级模块函数.GetCpuIdEx获取电脑CPUI序列号

Function GetCpuIdEx() As String
    Dim TemMacId As String, TemMacId2 As String
    TemMacId2 = GetMAC
    TemMacId = geshi(TemMacId2)
    Dim temko As String
    Dim retstr As String
    Dim lentem As Long
    temko = GetCpuId
    lentem = Len(temko)
     retstr = GetCpuId
        Dim retstr1 As String
    temko = TemMacId
    lentem = Len(temko)
    For i = 1 To lentem
       retstr1 = retstr1 & Asc(Mid(temko, i, 1)) + i + 1 - 1 + 1 - 1 + 1 + 1 + 1
    Next i
       If TemMacId2 = "" Then End
       GetCpuIdEx = retstr & "170" & retstr1
End Function

调用方法：

Dim cpu as String 

cpu=GetCpuIdEx()

此函数主要用于做VB软件绑定之用，比如写数据库软件、游戏辅助等都会用到。不过一般情况下我们都会用超级模块的另一个函数来获取网卡序列号作为绑定的参数。

VB交流站www.zai996.com q1016058890