السلام عليكم
عندي مشكل يا اخوتي اريد مناقشته معكم
اتبعت درس للدكتور صبحي الجزازي ربي يحفظوا على ما يبذله وربي يجعله له صدقة جارية
قمت ببرمجة الكود اولا يفنح رسالة اريد التفعيل
عند الضعط 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
عندي مشكل يا اخوتي اريد مناقشته معكم
اتبعت درس للدكتور صبحي الجزازي ربي يحفظوا على ما يبذله وربي يجعله له صدقة جارية
قمت ببرمجة الكود اولا يفنح رسالة اريد التفعيل
عند الضعط 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