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

最后

以上就是矮小钢笔为你收集整理的VB6.0超级模块函数.GetCpuIdEx获取电脑CPUI序列号的全部内容，希望文章能够帮你解决VB6.0超级模块函数.GetCpuIdEx获取电脑CPUI序列号所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。