31-08-18, 05:10 PM
قمت بإظهار رقم امعالج من خلال هذه function :
Private Function CpuId() As String
Dim computer As String
Dim wmi As Variant
Dim processors As Variant
Dim cpu As Variant
Dim cpu_ids As String
computer = "."
Set wmi = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
computer & "\root\cimv2")
Set processors = wmi.ExecQuery("Select * from Win32_Processor")
For Each cpu In processors
cpu_ids = cpu_ids & ", " & cpu.ProcessorId
Next cpu
If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)
CpuId = cpu_ids
End Function
ويظهر في text box اريد ان اربط فتح البرنامج نفسه من خلال command bottun بهذه الطريقة وليست طريقة اداة MD5 لانها لا تعمل لدي بالبرنامج ماذا افعل بالتوصيف من فضلكم؟
ولكم جزيل الشكر
الأن عملت هذا الكود وربطت تيكست بوكس بالتتيكست بوكس اللي يظهر فيه رقم المعالج لو اختلف لا تفتح الصفحة الثانية ولو نفسه يتم الفتح ولكن الصفحة لا تفتح بل يتم غلق البرنامج
Text1 = CpuId()
If Text2.Text = Text1.Text Then
Form2.Show
Me.Hide
Else: MsgBox "copyrights call 01068861280"
End If
End
برجاء المساعدة
Private Function CpuId() As String
Dim computer As String
Dim wmi As Variant
Dim processors As Variant
Dim cpu As Variant
Dim cpu_ids As String
computer = "."
Set wmi = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
computer & "\root\cimv2")
Set processors = wmi.ExecQuery("Select * from Win32_Processor")
For Each cpu In processors
cpu_ids = cpu_ids & ", " & cpu.ProcessorId
Next cpu
If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)
CpuId = cpu_ids
End Function
ويظهر في text box اريد ان اربط فتح البرنامج نفسه من خلال command bottun بهذه الطريقة وليست طريقة اداة MD5 لانها لا تعمل لدي بالبرنامج ماذا افعل بالتوصيف من فضلكم؟
ولكم جزيل الشكر
(31-08-18, 05:10 PM)mohamed arafa كتب : [ -> ]قمت بإظهار رقم امعالج من خلال هذه function :
Private Function CpuId() As String
Dim computer As String
Dim wmi As Variant
Dim processors As Variant
Dim cpu As Variant
Dim cpu_ids As String
computer = "."
Set wmi = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
computer & "\root\cimv2")
Set processors = wmi.ExecQuery("Select * from Win32_Processor")
For Each cpu In processors
cpu_ids = cpu_ids & ", " & cpu.ProcessorId
Next cpu
If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)
CpuId = cpu_ids
End Function
ويظهر في text box اريد ان اربط فتح البرنامج نفسه من خلال command bottun بهذه الطريقة وليست طريقة اداة MD5 لانها لا تعمل لدي بالبرنامج ماذا افعل بالتوصيف من فضلكم؟
ولكم جزيل الشكر
الأن عملت هذا الكود وربطت تيكست بوكس بالتتيكست بوكس اللي يظهر فيه رقم المعالج لو اختلف لا تفتح الصفحة الثانية ولو نفسه يتم الفتح ولكن الصفحة لا تفتح بل يتم غلق البرنامج
Text1 = CpuId()
If Text2.Text = Text1.Text Then
Form2.Show
Me.Hide
Else: MsgBox "copyrights call 01068861280"
End If
End
برجاء المساعدة