(04-17-2012، 03:34 PM)__omid__ نوشته: [ -> ] (04-17-2012، 03:07 PM)analyze نوشته: [ -> ]System.Management.ManagementObjectSearcher mg = new System.Management.ManagementObjectSearcher("select * from win32_diskdrive"); // add refrence from : C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Management.dll
foreach (ManagementObject mgobj in mg.Get())
{
tmp1 = mgobj.GetPropertyValue("SerialNumber").ToString();
}
سریال هارد
با درود
من که از این کد چیزی سر در نیاوردم 
با احترام
سورس بالا که دادم جوابتون میده
دوست عزیزمون به زبان سی شارپ سورس گذاشتن
با درود
سورس بالا 1 مشکلی داره.
بیشتر سیستمها میزنه :
[Not present]
مشکل چیه؟
با احترام
برا من که مشکلی داره
از نمونه سورسی که دادم ساختی پروژتو همینجا پیوست کن
با درود
بله کد شما میباشد . سورس رو سیستم من کار میکنه بدون مشکل. ولی رو سیستم بعضی ها کار نمیکنه. و ارور بالا رو میده.
با احترام
با درود
لطفا کمک کنید. کد دیگه ندارید؟
با احترام
درود
نه فعلا سورس دیگه نیست
رو سیست ممن بدون ایراد بوده
run ادمین کن ببین باز مشکل داری
با درود
ادمین هم کردم نشد.
میشه این کد 1 نگاه کنین مشکلش بگین!
کلفا تو پروزه قرار بدید و بدین. (
با احترام
کد پی‌اچ‌پی:
Public Function MBSerialNumber()
Dim objs As Object
Dim obj As Object
Dim wmi As Object
Dim procid
Set wmi = GetObject("WinMgmts:")
Set objs = wmi.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function
Function DiskDrive() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_DiskDrive")
procid = procid + obj.SerialNumber
Next
DiskDrive = procid
End Function
(04-20-2012، 02:25 PM)__omid__ نوشته: [ -> ]با درود
ادمین هم کردم نشد.
میشه این کد 1 نگاه کنین مشکلش بگین!
کلفا تو پروزه قرار بدید و بدین. (
با احترام
کد پی‌اچ‌پی:
Public Function MBSerialNumber()
Dim objs As Object
Dim obj As Object
Dim wmi As Object
Dim procid
Set wmi = GetObject("WinMgmts:")
Set objs = wmi.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function
Function DiskDrive() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_DiskDrive")
procid = procid + obj.SerialNumber
Next
DiskDrive = procid
End Function
درود
سورس مشکلی نداره پیشنهاد میکنم چند تا کتاب وی بی بخونید :
اینم سورس جواب داده
کد:
Public Function MBSerialNumber()
Dim objs As Object
Dim obj As Object
Dim wmi As Object
Dim procid
Set wmi = GetObject("WinMgmts:")
Set objs = wmi.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End FunctionFunction DiskDrive() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_DiskDrive")
procid = procid + obj.SerialNumber
Next
DiskDrive = procid
End FunctionPrivate Sub Form_Load()
MsgBox DiskDrive
End Sub
با درود
مشکلی که دارم.
شما کلشو تو 1 فایل زیپ قرار میدید بدید اینو. + شده.
با احترام
عکسها
![[عکس: p1.JPG]](http://www.best-progs.com/p1.JPG)
and
![[عکس: p2.JPG]](http://www.best-progs.com/p2.JPG)
بنظر من ویندوزتو عوض کن یه بار دیگه وی بی بنصب
چون تو برنامه های دیگه هم مشکل داشتی ایزاد از شماست
با درود
در سیستم دوم خودم تست زدم و مشکل داشت.
ویزوال بیسیک 6 پیشنهاد بدبد دانلود کنم. (لینک )
با احترام