السلام عليكم ور حمة الله وبركاته ....
بعد اذن جميع العمالقة
و الذين قالوا لا يمكن للأكسس من جلب رقم الهارد ديسك .. اقلو لهم هذا الكود يجلب رقم الهارد ...
و شوفوا انتوا ايش قتدروا تعملوا معاه
اقتباسDim value, ThisObj
Dim Root_WMI As Object
Set obj = GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")
For Each ThisObj In obj
value = ThisObj.SerialNumber
Exit For
Next
MsgBox (value)
انا واثق منكم ايها المبدعون ... و لكن الاستخدام في مرضات الله تعالى ( صح )
تم تعديل هذه المشاركة بواسطة mirage4pc في 1 ديسمبر 2010 في 17:49
السلام عليكم................
أشكرك ايها الفاضل..........
سؤال سريع..................
هل الرقم الحقيقي ام رقم البارتشن الذي يتغير عند الفورمات وهنا مربط الفرس والذي حسب علمي لم يتوصل لحل له حتى الآن........شاكرا ومقدرا...وفي الانتظار.
ابوعبدالله25 كتب:السلام عليكم................
أشكرك ايها الفاضل..........
سؤال سريع..................
هل الرقم الحقيقي ام رقم البارتشن الذي يتغير عند الفورمات وهنا مربط الفرس والذي حسب علمي لم يتوصل لحل له حتى الآن........شاكرا ومقدرا...وفي الانتظار.
طيب أيش رايك .. تشوف اكثر .. انتظر .. دقائق ...
تم تعديل هذه المشاركة بواسطة mirage4pc في 2 ديسمبر 2010 في 13:56
في الحقيقة تعبني شوي بس تفضلوا يا اخوان
اقتباسAll information returned in the Win32_LogicalDisk class (note that some systems may not return information in all class properties):
- uint16 Availability
- uint32 BytesPerSector
- uint16 Capabilities[]
- string CapabilityDescriptions[]
- string Caption
- string CompressionMethod
- uint32 ConfigManagerErrorCode
- boolean ConfigManagerUserConfig
- string CreationClassName
- uint64 DefaultBlockSize
- string Description
- string DeviceID
- boolean ErrorCleared
- string ErrorDescription
- string ErrorMethodology
- uint32 Index
- datetime InstallDate
- string InterfaceType
- uint32 LastErrorCode
- string Manufacturer
- uint64 MaxBlockSize
- uint64 MaxMediaSize
- boolean MediaLoaded
- string MediaType
- uint64 MinBlockSize
- string Model
- string Name
- boolean NeedsCleaning
- uint32 NumberOfMediaSupported
- uint32 Partitions
- string PNPDeviceID
- uint16 PowerManagementCapabilities[]
- boolean PowerManagementSupported
- uint32 SCSIBus
- uint16 SCSILogicalUnit
- uint16 SCSIPort
- uint16 SCSITargetId
- uint32 SectorsPerTrack
- uint32 Signature
- uint64 Size
- string Status
- uint16 StatusInfo
- string SystemCreationClassName
- string SystemName
- uint64 TotalCylinders
- uint32 TotalHeads
- uint64 TotalSectors
- uint64 TotalTracks
- uint32 TracksPerCylinder
و هذا مثال من اعدادي ( Access ) طبعا ___ فانا اعشق الاكسس ...
تم تعديل هذه المشاركة بواسطة mirage4pc في 3 ديسمبر 2010 في 13:46
اسمع جبيبي مش عارف ليش كل الناس جارية ورى الحماية برقم الهارد الحقيقي أو الافتراضي .. مع انه ممكن تحمي البرنامج بالعديد من الطرق ... راح اخصص موضوع عليها مع الامثلة بإذن الله تعالى ...
اسألكم الدعاء ... يوسف
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…