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

[fandh]

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

[hijack]

http://topic.csdn.net/t/20050608/14/4068123.html

http://expert.csdn.net/Expert/topic/1983/1983558.xml?temp=1.321048E-02

http://expert.csdn.net/Expert/topic/2182/2182038.xml?temp=.9911157

[zjn12]

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))

[DentistryDoctor]

内存条的序列号？写在哪了？

[pp7765]

内存条的序列号一般写在内存条上一个比较精美的不干胶贴上（水货除外）。

取该号的方法：1）打开机箱；2）拔下内存条；3）找到有序列号的贴（有时诸多经销商也会贴上自己的序列号，注意要找到原厂的）；4）用笔记下之。
注：如果LZ视力较好且身体柔韧性较好，可省略步骤2，直接把头伸进机箱用小手电辅助光源找之。

这会儿比较无聊，帮丫顶顶，呵呵。

[angel525]

哈哈
学习~~~

[forover]

Mark~~

[fandh]

没有解决，给分算了