تابع Api جهت سریال نامبر hard

[jome ramezani]

برای گرفتن سریال نامبر cpu یا هارد مرا راهنمایی کنید

[zarrin_306]

Private Sub Form_Load()
MsgBox wmiProcessorInfo
MsgBox wmihardinfo
End Sub

Private Function wmiProcessorInfo() As String


Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject

Dim strR As String
Dim s1 As String
Dim l1 As Integer
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")

For Each cpu In cpuSet
strR = strR & cpu.Name & cpu.MaxClockSpeed & vbCrLf

'cpu.DeviceID
'cpu.Availability
'cpu.AddressWidth
'cpu.CpuStatus
'cpu.CurrentClockSpeed
'cpu.MaxClockSpeed
'cpu.L2CacheSize
'cpu.L2CacheSpeed
'cpu.VoltageCaps
'cpu.Name

Next
s1 = Trim$(strR)
l1 = Len(Trim$(strR))
wmiProcessorInfo = Left$(s1, l1 - 2)
End Function

درمورد سریال هارد هم یک چیزی داشتم ولی پیداش نکردم اگر دیدمش برات میفرستم 100%

[zarrin_306]

بیا مهندس اینم در مورد هارد

[GOLDEN USER]

سلام

ببخشید نمیدونم شما هم با این برنامه سریال هارد به مشکل برخوردید یا نه و اون اینه که در همه کامپیوترها جواب نمیده مگر اینکه خود VB.NET هم اونجا نصب باشه

[zarrin_306]

شما اگر میخواهید از برنامه ها استفاده کنید حتماَ باید از دات نت فریم فرک را حتما نصب کنید
در آن صورت فایل اجرایی شما بدون نصب هم اجرا خواهد شد
خودم هم امتحان کردم و شده

[miassus10]

در چند نوشته قبل طرز بدست آوردن سریال نامبر hard توضیح داده شده بود، ولی این کارو روی چندتا کامپیوتر انجام دادم ولی فقط روی کامپیوتر خودم شماره سریال Hard رو نشون داد، کسی از دوستان میتونه یک تابع api جهت نشون دادن شماره سریال hard معرفی کنه؟