[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 OLEDB:Database 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