+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن حامية برنامج (/showthread.php?tid=50832)
استفسار عن حامية برنامج - ahmedramy - 24-12-24
كنت اشتريت سورس كود من حد ومبعتليش برنامج التفعيل بتاعه ده الكود اللي جوه السورس الخاص بالتفعيل
اي المعادله او الكود اللي يخليني اطلع كود تفعيل للبرنامج
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
atabase 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
RE: استفسار عن حامية برنامج - momani33 - 27-04-25
يمكن عمل كيجين بسهوله
RE: استفسار عن حامية برنامج - princelovelorn - 27-04-25
تم الأجابة على حضرتك بخصوص نفس الأستفسار في هذا الموضوع
استفسار عن حمايه البرنامج