لابد ان اقول اولا ان هذا الكود ليس من صنعي ولكن من صنع الاستاذ المهندس بن حسن ولكني اود في صنع تعديل في هذا الكود ولم استطع ممكن لو سمح اي اخ من الاخوة والاخوات ان يقوم بتعديل هذا الكود ويقوم بارفاقة في المنتدى حتى يستفيد به باقي الاخوة ولو ممكن يرسل لي هذا التعديل على اميل الخاص بي مع جزيل الشكر
Option Explicit
Private Sub Command1_Click()
Dim m_objCPUSet As SWbemObjectSet
Dim m_objWMINameSpace As SWbemServices
Dim oCpu As SWbemObject 'WMI Object, in this case, local CPUs
Set m_objWMINameSpace = GetObject("winmgmts:")
Set m_objCPUSet = m_objWMINameSpace.InstancesOf("Win32_Processor")
'I use the foir loop because I could
'not retrieve the first object normally
For Each oCpu In m_objCPUSet
Text1 = oCpu.processorid
Exit For
Next
Set oCpu = Nothing
Set m_objCPUSet = Nothing
Set m_objWMINameSpace = Nothing
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
هذا الكود يقوم بإظهار رقم البروسيسور ولكن يظهر أحرف مع الأرقام
ولكي أتمكن من وضع الناتج في المعادلة الخاصة بالحماية لابد أن يعدل الكود لإظهار الناتج إلى أرقام فقط.
هل يمكنك لو سمحت ان تقوم بتعديل هذا الكود حتى يظهرارقام فقط اي ان تعدل في النتيجة ويظهر في النهاية ارقام فقط مع الشكر
ممكن لو سمحت ترسل لي هذا التعديل على الاميل
الخاص بي
abdunahas@yahoo.com
abdunahas@hotmail.com