获得本机硬盘序列号

Question

Dim tempstr1 As String * 256
  Dim tempstr2 As String * 256
  Dim templon1 As Long
  Dim templon2 As Long
  getval As Long
Call GetVolumeInformation("c:\", tempstr1, 256, getval, templon1, templon2, tempstr2, 256)
Text1.Text = getval '提取本机c盘的序列号至文本框一////我的问题，委身摸有的机器的C盘的序列号是一个负数，哪个函数可以取绝对值。

Answer 1

//委身摸有的机器的C盘的序列号是一个负数你可以看看这个
Msgbox &HFFFF
和
Msgbox &HFFFF&