[ahmedramy]

كنت اشتريت سورس كود من حد ومبعتليش برنامج التفعيل بتاعه ده الكود اللي جوه السورس  الخاص بالتفعيل 
اي المعادله او الكود اللي يخليني اطلع كود تفعيل للبرنامج
Imports Security.FingerPrint
Imports MicroVisionSerial.Encryption.Activation
Imports System.Management
Imports System.Data.OleDb

Public Class active_pro
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\setting.mdb;Jet OLEDBatabase Password=spaxet2020"
    Dim Conn As New OleDbConnection(ConStr)


    Private Sub active_pro_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            serial.Text = Value()
        Catch ex As Exception

        End Try

        check()
    End Sub
    Sub save_acrivw()

        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        Dim cmd As New OleDb.OleDbCommand
        cmd.Connection = Conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "UPDATE seial_check SET MACAddress= @MACAddress,Win32_Processor= @Win32_Processor,SerialNumber= @SerialNumber WHERE idsetting = " & 1 & " "
        cmd.Parameters.AddWithValue("MACAddress", MACAddress.Text)
        cmd.Parameters.AddWithValue("Win32_Processor", Win32_Processor.Text)
        cmd.Parameters.AddWithValue("SerialNumber", SerialNumber.Text)

        cmd.ExecuteScalar()
        Conn.Close()
        MsgBox("تم تفعيل البرنامج بنجاح..شكرا")
    End Sub

    Private Sub exit_btn_Click(sender As Object, e As EventArgs) Handles exit_btn.Click
        End
    End Sub

    Private Sub inserte_btn_Click(sender As Object, e As EventArgs) Handles inserte_btn.Click
        If CheckActivationKey(serial.Text, active.Text) = True Then
            save_acrivw()
            End
        Else
            MsgBox("رقم التفعيل غير صحيح", MsgBoxStyle.Exclamation, "خطاء")
        End If

    End Sub
    Sub check()

   
        Try
            'رقم ابرسيور
            Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
            Dim mo_PR As ManagementObject
            For Each mo_PR In MOS_PR.Get()
                Win32_Processor.Text = mo_PR("ProcessorId").ToString()
            Next
            '===========================================
        Catch ex As Exception

        End Try
     
    End Sub

    Private Sub active_TextChanged(sender As Object, e As EventArgs) Handles active.TextChanged

    End Sub

    Private Sub SerialNumber_Click(sender As Object, e As EventArgs) Handles SerialNumber.Click

    End Sub

    Private Sub MACAddress_Click(sender As Object, e As EventArgs) Handles MACAddress.Click

    End Sub
End Class
addsfsdfsdf@mailna.co

[momani33]

يمكن عمل كيجين بسهوله

[princelovelorn]

تم الأجابة على حضرتك بخصوص نفس الأستفسار في هذا الموضوع

استفسار عن حمايه البرنامج