vb的两个byref参数赋任意一个值均未相同的值.
Function GetHeadXh(ByVal tmpXxdm As String, ByRef tmpHeadXh As String, ByRef tmpJxmc As String) As Boolean
Dim iLength As Long
Dim lpRegisterCodeCpu As String
Dim lpRegisterCodeHid As String
Dim lpRegisterCodeWid As String
Dim AllId As String
'Dim r As clsLicense
Dim i As Integer
Dim CpuLen As Long
Dim HidLen As Long
Dim WidLen As Long
GetHeadXh = False
tmpHeadXh = ""
On Error GoTo errorHandle
'tmpHeadXh = "wsrwerwer345435hhhhh"
tmpHeadXh = getcpuid()
MsgBox tmpHeadXh = tmpJxmc
tmpJxmc = "重"
GetHeadXh = True
Exit Function
errorHandle:
MsgBox "获取ID信息时失败！或许你还没得到授权！请联系电话：15102856571解决~！~"
Exit Function
End Function
