تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيفية ربط رقم المعالج بإمكانية فتح أو غلق البرنامج بعد إظهاره
#1
قمت بإظهار رقم امعالج من خلال هذه 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 لانها لا تعمل لدي بالبرنامج ماذا افعل بالتوصيف من فضلكم؟
ولكم جزيل الشكر

(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
برجاء المساعدة
الرد
تم الشكر بواسطة:
#2
(31-08-18, 05:10 PM)mohamed arafa كتب : الأن عملت هذا الكود وربطت تيكست بوكس بالتتيكست بوكس اللي يظهر فيه رقم المعالج لو اختلف لا تفتح الصفحة الثانية ولو نفسه يتم الفتح ولكن الصفحة لا تفتح بل يتم غلق البرنامج 
Text1 = CpuId()
If Text2.Text = Text1.Text Then
Form2.Show
Me.Hide
Else: MsgBox "copyrights call 01068861280"
End If
End
برجاء المساعدة

السلام عليكم و رحمة الله و بركاته 
تعديل الكود السابق : 
PHP كود :
Text1 CpuId()
If 
Text2.Text Text1.Text Then
Form2
.Show
Me
.Hide
Else: MsgBox "copyrights call 01068861280"
End If 
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة:
#3
(31-08-18, 10:46 PM)Amir_Alzubidy كتب :
(31-08-18, 05:10 PM)mohamed arafa كتب : الأن عملت هذا الكود وربطت تيكست بوكس بالتتيكست بوكس اللي يظهر فيه رقم المعالج لو اختلف لا تفتح الصفحة الثانية ولو نفسه يتم الفتح ولكن الصفحة لا تفتح بل يتم غلق البرنامج 
Text1 = CpuId()
If Text2.Text = Text1.Text Then
Form2.Show
Me.Hide
Else: MsgBox "copyrights call 01068861280"
End If
End
برجاء المساعدة

السلام عليكم و رحمة الله و بركاته 
تعديل الكود السابق : 
وعليكم السلام ورحمة الله وبركاته
تمام بارك الله فيك وضعت END قبل end if وتوصلت للناتج 
PHP كود :
Text1 CpuId()
If 
Text2.Text Text1.Text Then
Form2
.Show
Me
.Hide
Else: MsgBox "copyrights call 01068861280"
End If 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 42 05-12-18, 05:58 PM
آخر رد: kamalgadir
  وضع أيقونة البرنامج بجانب ساعة الوينداوز عبد العزيز البسكري 9 1,210 26-11-18, 05:39 PM
آخر رد: عبدالله الصافي
  طريقة حماية البرنامج برقم المعالج layan2000 73 14,226 17-11-18, 07:43 PM
آخر رد: dr.mostashar
  مشكلة فى البرنامج بعد التنصيب على جهاز اخر المبرمج العتيق 2 100 01-11-18, 01:32 AM
آخر رد: حريف برمجة
  تفعيل البرنامج على جهاز واحد dr.mostashar 2 120 30-10-18, 04:58 AM
آخر رد: elgokr
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 147 15-10-18, 10:55 PM
آخر رد: سعداء
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 277 19-09-18, 08:37 PM
آخر رد: amrou
  كيفية عمل زر print screen للفورم المفتوحة mohamed arafa 1 162 14-09-18, 08:15 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 251 11-09-18, 05:10 PM
آخر رد: mohamed arafa
  كيفية ربط ملف صوتي عند فتح البرنامج يعمل مباشرة حتي وان لم يوجد علي الجهاز؟ mohamed arafa 3 176 09-09-18, 12:46 PM
آخر رد: جاسم عبد

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


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