تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة فى تحويل هذا الكود الى السى شارب
#1
Imports System.Management
Imports Microsoft.Win32
Imports System.Security.AccessControl
Public Class Form1
    'Public Sub Get_Info()

    '    Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
    '    Dim diskId As String 'Digital ID
    '    Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
    '    Dim diskModel As String 'serial number
    '    For Each cmicWmiObj As ManagementObject In cmicWmi.Get
    '        diskId = cmicWmiObj("signature")
    '        diskSerialNumber = cmicWmiObj("serialnumber")
    '        diskModel = cmicWmiObj("Model")
    '    Next
    'End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      
        TxtWnd.Text = My.Computer.Info.OSFullName
        TxtMname.Text = System.Environment.MachineName
        TxtLang.Text = My.Computer.Info.InstalledUICulture.EnglishName
        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim diskId As String 'Digital ID
        Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
        Dim diskModel As String 'serial number
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
        Next

        TextBox1.Text = diskSerialNumber
        TextBox2.Text = diskId
        TextBox4.Text = Val(TextBox2.Text) * 13 + 1225 - 1650
        TextBox4.Text = TextBox4.Text * 17

     
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox3.Text = TextBox4.Text Then
            MsgBox("تمت عملية تفعيل البرنامج بنجاح")
            Dim x As String
            x = TextBox3.Text
            Dim Activekey As RegistryKey
            Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
            Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
            If Activekey Is Nothing Then
                Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
                Activekey.CreateSubKey("FoxSoftware")
                Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
                Activekey.SetValue("System_key", x)
                Activekey.Close()
            End If
        Else
            MsgBox("رقم التفعيل الذي ادخلته غير صحيح الرجاء مراجعة قسم المبيعات")
            Application.Exit()
        End If
    End Sub
End Class
الرد
تم الشكر بواسطة:
#2
(23-03-21, 03:55 AM)omar5 كتب : Imports System.Management
Imports Microsoft.Win32
Imports System.Security.AccessControl
Public Class Form1
    'Public Sub Get_Info()

    '    Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
    '    Dim diskId As String 'Digital ID
    '    Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
    '    Dim diskModel As String 'serial number
    '    For Each cmicWmiObj As ManagementObject In cmicWmi.Get
    '        diskId = cmicWmiObj("signature")
    '        diskSerialNumber = cmicWmiObj("serialnumber")
    '        diskModel = cmicWmiObj("Model")
    '    Next
    'End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      
        TxtWnd.Text = My.Computer.Info.OSFullName
        TxtMname.Text = System.Environment.MachineName
        TxtLang.Text = My.Computer.Info.InstalledUICulture.EnglishName
        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim diskId As String 'Digital ID
        Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
        Dim diskModel As String 'serial number
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
        Next

        TextBox1.Text = diskSerialNumber
        TextBox2.Text = diskId
        TextBox4.Text = Val(TextBox2.Text) * 13 + 1225 - 1650
        TextBox4.Text = TextBox4.Text * 17

     
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox3.Text = TextBox4.Text Then
            MsgBox("تمت عملية تفعيل البرنامج بنجاح")
            Dim x As String
            x = TextBox3.Text
            Dim Activekey As RegistryKey
            Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
            Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
            If Activekey Is Nothing Then
                Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
                Activekey.CreateSubKey("FoxSoftware")
                Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
                Activekey.SetValue("System_key", x)
                Activekey.Close()
            End If
        Else
            MsgBox("رقم التفعيل الذي ادخلته غير صحيح الرجاء مراجعة قسم المبيعات")
            Application.Exit()
        End If
    End Sub
End Class


تحتاج تشغيل البرنامج Run as administrator تشغيل كمسئول
PHP كود :
public partial class Form1 Form
{
    public 
Form1()
    {
        
InitializeComponent();
    }

    private 
void Form1_Load(object senderEventArgs e)
    {
        
TxtWnd.Text Microsoft.Win32.Registry.GetValue(@"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "ProductName", "").ToString();
        TxtMname.Text = Environment.MachineName;
        TxtLang.Text = System.Globalization.CultureInfo.InstalledUICulture.EnglishName;
        var cmicWmi = new System.Management.ManagementObjectSearcher("
SELECT FROM Win32_DiskDrive");
        string diskId = ""; // Digital ID
        string diskSerialNumber = ""; // This we will call it the serial number for the time being.
        string diskModel = ""; // serial number
        foreach (System.Management.ManagementObject cmicWmiObj in cmicWmi.Get())
        {
            diskId = cmicWmiObj["
signature"].ToString();
            diskSerialNumber = cmicWmiObj["
serialnumber"].ToString();
            diskModel = cmicWmiObj["
Model"].ToString();
        }

        TextBox1.Text = diskSerialNumber;
        TextBox2.Text = diskId;
        TextBox4.Text = (Convert.ToInt64(TextBox2.Text) * 13 + 1225 - 1650).ToString();
        TextBox4.Text = (Convert.ToInt64(TextBox4.Text) * 17).ToString();
    }

    private void Button1_Click(object sender, EventArgs e)
    {
        if (TextBox3.Text == TextBox4.Text)
        {
            MessageBox.Show("
تمت عملية تفعيل البرنامج بنجاح");
            string x;
            x = TextBox3.Text;
            Microsoft.Win32.RegistryKey Activekey;
            Activekey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("
SOFTWARE", true);
            Activekey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(@"
SOFTWARE\FoxSoftware", true);
            if (Activekey == null)
            {
                Activekey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("
SOFTWARE", true);
                Activekey.CreateSubKey("
FoxSoftware");
                Activekey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(@"
SOFTWARE\FoxSoftware", true);
                Activekey.SetValue("
System_key", x);
                Activekey.Close();
            }
        }
        else
        {
            MessageBox.Show("
رقم التفعيل الذي ادخلته غير صحيح الرجاء مراجعة قسم المبيعات");
            Application.Exit();
        }
    }


الرد
تم الشكر بواسطة: عبد العزيز البسكري , omar5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] ارجو المساعدة tamerkr2007 6 3,090 19-04-20, 02:54 AM
آخر رد: ezzatgammal
Wink [C#.NET] ربط مشروع سي شارب بقاعدة بيانات ولكن بعد عمل المشروع محمد عبده 1 1,615 28-03-20, 10:13 PM
آخر رد: asemshahen5
  [C#.NET] عندي كود بايثون بدي اعملو تحويل دموع الوطن 4 3,048 05-08-18, 07:08 PM
آخر رد: دموع الوطن

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم