• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 11 رای - 2.27 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد بدست اوردن سریال مادربورد و سریال هارد دیسک و گرافیک
حالت موضوعی
#11
(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();
}
سریال هارد
با درود
من که از این کد چیزی سر در نیاوردم Big Grin
با احترام
سورس بالا که دادم جوابتون میده
دوست عزیزمون به زبان سی شارپ سورس گذاشتن
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#12
با درود
سورس بالا 1 مشکلی داره.
بیشتر سیستمها میزنه :
[Not present]
مشکل چیه؟
با احترام
 
پاسخ
#13
برا من که مشکلی داره
از نمونه سورسی که دادم ساختی پروژتو همینجا پیوست کن
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#14
با درود
بله کد شما میباشد . سورس رو سیستم من کار میکنه بدون مشکل. ولی رو سیستم بعضی ها کار نمیکنه. و ارور بالا رو میده.
با احترام

با درود
لطفا کمک کنید. کد دیگه ندارید؟
با احترام
 
پاسخ
#15
درود
نه فعلا سورس دیگه نیست
رو سیست ممن بدون ایراد بوده
run ادمین کن ببین باز مشکل داری
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#16
با درود
ادمین هم کردم نشد.
میشه این کد 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
objprocid
  Set wmi 
GetObject("winmgmts:")
  For 
Each obj In wmi.InstancesOf("Win32_DiskDrive")
   
procid procid obj.SerialNumber
  Next
  DiskDrive 
procid
End 
Function 
 
پاسخ
#17
(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
objprocid
  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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#18
با درود
مشکلی که دارم.
شما کلشو تو 1 فایل زیپ قرار میدید بدید اینو. + شده.
با احترام
عکسها
[عکس: p1.JPG]
and
[عکس: p2.JPG]
 
پاسخ
#19
بنظر من ویندوزتو عوض کن یه بار دیگه وی بی بنصب

چون تو برنامه های دیگه هم مشکل داشتی ایزاد از شماست
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#20
با درود
در سیستم دوم خودم تست زدم و مشکل داشت.
ویزوال بیسیک 6 پیشنهاد بدبد دانلود کنم. (لینک )
با احترام
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  سورس کد ذخیره میخوام روشنا 5 10,423 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 5,970 06-07-2014، 09:19 PM
آخرین ارسال: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 10,597 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 3,520 05-20-2014، 12:17 AM
آخرین ارسال: aleas
  مشکل در سورس ثبت نام tiktak990 3 6,826 05-13-2014، 10:43 AM
آخرین ارسال: tiktak990
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 7,421 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  سورس کد دانلود فایل Amin_Mansouri 1 8,443 04-21-2014، 03:04 PM
آخرین ارسال: saelozahra

پرش به انجمن:


Browsing: 4 مهمان