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

就是这个,,MsgBox 弹出 true...而且最终返回 两个都是 重 字,,怀疑是两个参数为相同的地址..我是在java里面调用的..
[解决办法]
搞不清楚此处getcpuid啥意思，你写个VB程序调用它测试也是这样的结果吗？