[rochdi191]

السلام عليكم

عندي مشكل يا اخوتي اريد مناقشته معكم
اتبعت درس للدكتور صبحي الجزازي ربي يحفظوا على ما يبذله وربي يجعله له صدقة جارية

قمت ببرمجة الكود اولا يفنح رسالة اريد التفعيل



عند الضعط ok يظهر الفورم التالي يجلب كل المعلومات العميل كما في الصورة




و بعد اجراء معادلة اقوم بوضع اجلب كود التفعيل ويتم وضعه في التكست بوكس والضعظ على زر التفعيل
فتظهر رسالة صح



المطلوب الان يا اخوتي

اريد تفعيل البرنامج مرة واحدة فقط ليس كل ما افتح البرنامج اكرر عملية التفعيل
و جزاكم الله خيرا

و هذا الكود بجلب المعلومات الخاصة بالجهاز


Imports System.Management
Imports Microsoft.Win32
Imports System.Security.AccessControl
Public Class Form11

    Private Sub Form11_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TxtWindows.Text = My.Computer.Info.OSFullName
        TxtNamepc.Text = System.Environment.MachineName
        Txtlangpc.Text = My.Computer.Info.InstalledUICulture.EnglishName
        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim diskid As String 'DigitalID
        Dim diskserialnumber As String ' this is we will call it the serial number for the time being
        Dim diskmodel As String ' serial unmber

        For Each cmicWmiobj As Managementobject In cmicWmi.get
            diskid = cmicWmiobj("signature")
            diskserialnumber = cmicWmiobj("serialnumber")
            diskmodel = cmicWmiobj("model")
        Next
        Dim x As String
        Txtharddiskserial.Text = diskserialnumber
        Txtserial.Text = diskid
        Txt4.Text = Val(Txtserial.Text) * 13 + 1225 - 1650

        x = Txtharddiskserial.Text
        Dim activekey As RegistryKey
        activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
        activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Progtest", True)
        If activekey Is Nothing Then
            activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
            activekey.CreateSubKey("Progtest")

            activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Progtest", True)
            activekey.SetValue("System_Key", x)
            activekey.Close()

        End If




    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Txtnumbercactivate.Text = Txt4.Text Then
            MsgBox("نمت عملية تفعيل البرنامج بنجاح")
            ''My.Settings.isActive = True
            'My.Settings.Save()
        Else
            MsgBox("رقم التفعيل الذي ادخلته غير صحيح الرجاء التاكد")
            Application.Exit()
        End If

    End Sub
End Class


هذا الكود الخاص برسالة تاكيد التقعيل

Imports Microsoft.Win32
Public Class StartForm1
    Public Function check_key() As String
        Try
            Dim checkkey As registrykey
            Dim CK_Key As String
            checkkey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
            CK_Key = checkkey.getvalue("System_Key")
            Return CK_Key


        Catch ex As Exception
            Return ""
        End Try
    End Function
    Private Sub StartForm1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim x As String
        x = check_key()
        If x = String.Empty Then
            MsgBox(" Need Active")
            Form11.ShowDialog()
        Else
            MsgBox("مرحبا بك")
        End If