شماره سریال

[javad_esmaily]

سلام به همه دوستان

می خواستم بدونم چه جوری میشه شماره سریال قطعات سخت افزار سیستم را از طریق VB به دست آورد. البته کد شماره سریال درایوها(هارد و سی دی) قبلاً استفاده کرده ام، و منظورم قطعاتی همچون مادربورد، cpuو ram و.. است. :?:

با تشکر

[javad_esmaily]

کسی نبود :cry: :cry: :cry:

[Andy]

سلام
منم یه وقتی روی این مورد کار کردم حتی برنامه اش رو بدست آوردم ولی متوقف شدم .اونم به این دلیل که دقت اجرای برنامه پیغام میداد که Wmi روی سیستم نصب نیستش، حالا این wmi چیه من که پیدا نکردم .اگه پیدا کردی به ما هم برسون

[S.Azish]

WMI یا Windows Management Instrumentations یکسری از توابع هستن که ماکروسافت اونها رو جهت دسترسی به اطلاعات بسیار نزدیک به سخت افزار تولید کرد. WMI یک مجموعه بسیار زیاد از توابع مختلف هست که میتونید به اطلاعاتی مثل اطلاعات بایوس, مادربورد, CPU , کارتهای شبکه و بسیاری از اطلاعات دیگه دسترسی پیدا کنید. اول باید WMI رو روی دستگاهتون نصب کنید که میشه از آدرس زیر پیدا کرد

http://msdn.microsoft.com/library/default.asp?url=/downloads/list/wmi.asp

اطلاعات و نحوه استفاده
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/about_wmi.asp

[Andy]

سلام
دمت گرم آقای مدیر جدا دمت گرم ایول

[کم حوصله]

اندی جون برنامه ات را اینجا بگذار تا ما هم استفاده ای ببریم از تجربیات و معلوماتت :oops:

[javad_esmaily]

از راهنمایی همتون ممنونم
ولی راه ساده تری وجود نداره؟ آخه من یکمی عجله دارم و این WMI یکمی کار می بره.
:roll:

[linux]

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

این کد را من توی یه سایت روسی پیدا کردم!
بیشتر از این کسی چیزی می‌دونه؟
اصلا برای اینکارها dll هست یا نه/

[javad_esmaily]

جناب linux مشکل من شد. از راهنماییتون ممنونم. با کد اصلاح شده زیر میشه Processor ID بدست آورد. البته بگم این کد برای اجرا به هیچ فایلی علاوه بر فایلهای موجود در ویندوز احتیاج ندارد.


Private Sub Form_Load()
MsgBox "Processor ID:" & wmiProcessorInfo
End Sub

Private Function wmiProcessorInfo() As String
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 & "ProcessorID :" & cpu.processorid & vbCrLf
'cpu.Revision
'cpu.Manufacturer
'cpu.Caption
'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

من دوتا سوال دیگه داشتم که هرکی میدونه لطفاً جواب بده:
1- چه جوری میشه وقتی یک فایل اجرایی را با استفاده از دستور shell اجرا میکنیم برنامه اجرا کننده تا خاتمه برنامه منتظر بمونه؟
2- همونطور که میدونید Task Manager ویندوز xp یک قسمت به نام Processes داره که هر فایل در حال اجرا را نشون میده. حالا سوال من اینه که چه جوری میشه کاری کرد که یک برنامه در این قسمت نشون داده نشه و یا حداقل با اسمی که میخوایم نشون داده بشه؟

[madmax]

در مورد سئوال دوم من یک تجربه جالب دارم شاید بدرده کسی بخوره
اولا Task Manager اسم فایل EXE رو نمایش میده اما واسه اینکه کاربر برنامه شما رو نشناسه و نتونه Close کنه می تونی اسم فایل EXE رو Services.exe بزاری اینجوری هر وقت کسی بخواد اونو ببنده Widndows با Services خودش اشتباه می گیره و نمی بندتش :lol:
امیدوارم بدردت بخوره

[ساران سافت]

واسه اینکه کاربر برنامه شما رو نشناسه و نتونه Close کنه می تونی اسم فایل EXE رو Services.exe بزاری اینجوری هر وقت کسی بخواد اونو ببنده Widndows با Services خودش اشتباه می گیره و نمی بندتش :lol:

عجب! :تشویق:

[Andy]

جالب بود 8)

[Andy]

جالب بود 8)

[ali_hadian]

چه جوری میشه وقتی یک فایل اجرایی را با استفاده از دستور shell اجرا میکنیم برنامه اجرا کننده تا خاتمه برنامه منتظر بمونه؟

از کلاس process اسنفاده کنید
process.Start
Process.waitforexit
process.close

برای اطلاعات بیشتر تو msdn عبارت process class رو تست کنید
موفق باشید

[rezaei manesh]

سلام
این تیکه برنامه فکر کنم باگ داره
SWbemObject-SWbemObjectSet و$Left این ها رو نمی شناسه
من هم نتونستم پیدا کنم اینها چی هستن لطفا کمک کنید؟
:گیج: :flower:

[meh_secure]

ولی WMI راحت تره. قوی ترم هستش. تو بخش vb6 هم یک سری کد برای بدست آوردن سریال و این طور چیزا نوشته شده که بد نیست اونا رو هم ببینید. :wise1: