تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
إستخراج أو الحصول على رقم الهارد الخاصة بالشركة المصنعة
#21
وعليك السلام ورحمة الله وبركاته , أهلا أخي عبدالعزيز , شكراً جزيلاً لك , هذا كودك بعد تعديله ليتم وضع رقم الهارد دسك في التكست :

PHP كود :
Private Sub Form_Load()

Dim StrComputer As String

Text1
.Text ""

StrComputer "."

Set objWMIService GetObject("winmgmts:\\" StrComputer "\root\CIMV2")
Set colItems objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)

For 
Each objItem In colItems
    
If Not IsNull(objItem.SerialNumberThen
       
If InStr(1LCase$(objItem.Tag), "physicaldrive0") <> And Trim$(Text1.Text) = "" Then
          Text1
.Text Trim$(objItem.SerialNumber)
          Exit 
Sub
       End 
If
    
End If
Next

End Sub 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#22
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#23
مشكوووور أخي
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#24
اخي الكريم [b]عبد العزيز البسكري[/b]

قم بتشغيل الفيجوال بيسك 6  كمسؤول   ثم شغل المشروع

او 

اذا كان تطبيق  exe   ايضا قم بتشغيله مسؤول



والله الموفق
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إستخراج السيريال الخاص بالمصنع لجهاز الفلاش ميموري Ahmed_Mansoor 6 3,956 30-12-22, 01:33 AM
آخر رد: walid baradiy
  [مثال] الاداة SkinCrafte الخاصة بالفجوال بيسك 6 the viper 16 9,675 01-10-16, 01:46 PM
آخر رد: MicroDoha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم