PDA

View Full Version : مقاله: گرفتن راحت شماره سریال CPU در ویژوال بیسک



saman_itc
جمعه 09 اسفند 1387, 01:51 صبح
http://www.slingfile.com/file/23376-3802669ba3.html

morteza_261
شنبه 10 اسفند 1387, 15:15 عصر
سلام
فایل با برنامه وی بی 6 بود...اینم کد گرفتن شماره با دات نت(البته با کسب اجازه از سامان عزیز)


Imports System.managment




Public Shared Function GetCPUId() As String
Dim cpuInfo As String = String.Empty
'//create an instance of the Managemnet class with the
'//Win32_Processor class
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")
'//create a ManagementObjectCollection to loop through
Dim objCol As Management.ManagementObjectCollection = mgmt.GetInstances()
'//start our loop for all processors found
For Each obj As Management.ManagementObject In objCol
If cpuInfo = String.Empty Then
'// only return cpuInfo from first CPU
cpuInfo = obj.Properties("ProcessorId").Value.ToString()
End If
Next
Return cpuInfo
End Function






Dim searchC As New Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim InfoC As Object
For Each infoC In searchC.Get()
TxtCpuNum.Text = (InfoC("ProcessorId"))
Next


ایام به کام

mina.net
یک شنبه 11 اسفند 1387, 03:09 صبح
دوستان سلام
جناب سامان برنامت خوب بود . ولی تو Vb.net چطور باید این کارو کرد.
در ضمن جناب morteza_261 من نتونستم از برنامه ات استفاده کنم لطف کنی یک توضیح کوتاهی بدی ممنون می شم.

morteza_261
یک شنبه 11 اسفند 1387, 12:40 عصر
دوستان سلام
جناب سامان برنامت خوب بود . ولی تو Vb.net چطور باید این کارو کرد.
در ضمن جناب morteza_261 من نتونستم از برنامه ات استفاده کنم لطف کنی یک توضیح کوتاهی بدی ممنون می شم.
سلام
چیز سختی نیست

شما اولین خط کد رو به ابتدای برنامه اضافه میکنی.

سری دوم کدها مربوط به Function هست که تو برنامه قرار میدی

و در آخر سری آخر کدها را برای یک رویداد(فرم لود،کلیک بر روی باتن و...) مینویسی

البته یک تکست باکس با نام TxtCpuNum روی طراحی فرم بزارید که نتیجه رو نشون بده.

roya_hh
یک شنبه 11 اسفند 1387, 14:22 عصر
خیلی کامل و جالب بود

helpsos
چهارشنبه 17 فروردین 1390, 17:16 عصر
http://www.slingfile.com/file/23376-3802669ba3.html
salam
lotf mikoni age in barname ra be surate file zip bezari
ajale daram
pleese