求教：如何取得内存条的序列号！！！！

Question

请各位大侠帮忙，如何取得内存条的序列号！
谢谢！

Answer 1

http://topic.csdn.net/t/20050608/14/4068123.htmlhttp://expert.csdn.net/Expert/topic/1983/1983558.xml?temp=1.321048E-02http://expert.csdn.net/Expert/topic/2182/2182038.xml?temp=.9911157

Answer 2

Public Declare Function GetComputerName Lib "Kernel32" Alias _
        "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long获取方法:
Dim drive_no As Long, drive_flag As Long
Dim drive_chr As String, drive_disk As String
Dim serial_no As Long, kkk As Long
Dim stemp3 As String, dflag As Boolean
Dim strlabel As String, strtype As String, strc As Long
'RegisterServiceProcess GetCurrentProcessId, 1 ' 从系统中取消当前进程
strlabel = String(255, Chr(0))
strtype = String(255, Chr(0))
stemp3 = "172498135" '这是作者C盘的序列号（十进制）,读者可根据自己情况更改。
dflag = False
' For drive_no = 0 To 25
drive_disk = Chr(drive_no + 67)
drive_chr = drive_disk & ":\"
' drive_flag = GetDriveType(drive_chr)
' If drive_flag = 3 Then
kkk = GetVolumeInformation("C:\", strlabel, Len(strlabel), serial_no, 0, 0, strtype, Len(strtype))Md5CupT = Trim(STR(serial_no))