منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة فى تحويل هذا الكود الى السى شارب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم مكتبة اكواد C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=181)
+--- الموضوع : ارجو المساعدة فى تحويل هذا الكود الى السى شارب (/showthread.php?tid=38114)



ارجو المساعدة فى تحويل هذا الكود الى السى شارب - omar5 - 23-03-21

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


RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - Ronald - 23-03-21

(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();
        }
    }





RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - sanyor77 - 26-03-23

تحويل الكود إلى C#:

كود :
using System.Management;
using Microsoft.Win32;

public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

هذا هو الكود النهائي

كود :
private void Form1_Load(object sender, EventArgs e)
{
   TxtWnd.Text = My.Computer.Info.OSFullName;
   TxtMname.Text = System.Environment.MachineName;
   TxtLang.Text = My.Computer.Info.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 (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.ToInt32(TextBox2.Text) * 13 + 1225 - 1650).ToString();
   TextBox4.Text = (Convert.ToInt32(TextBox4.Text) * 17).ToString();
}

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



RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - محمد صالح ابو صالح - 05-08-23

اخي العزيز معي هذا السيريال اريد توليد على هذا
1CA718 79EDD9 8302EA 3B8B24 2C9E8C


RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - HALIM ELEULMA - 06-01-24

الكود الذي قدمته يقوم بجلب بعض معلومات الجهاز مثل اسم النظام واسم الجهاز وبعض معلومات القرص الثابت، ثم يحسب قيمة مستخدمة للتفعيل

يرجى مراجعة الأكواد بعناية والتأكد من الدقة والتوافق مع متطلبات وبيئة العمل الخاصة بك قبل استخدامه

PHP كود :
using System;
using System.Management;
using System.Windows.Forms;
using Microsoft.Win32;

namespace 
YourNamespace
{
 
   public partial class Form1 Form
    
{
 
       public Form1()
 
       {
 
           InitializeComponent();
 
       }

 
       private void Form1_Load(object senderEventArgs e)
 
       {
 
           TxtWnd.Text System.Environment.OSVersion.ToString();
 
           TxtMname.Text System.Environment.MachineName;
 
           TxtLang.Text System.Globalization.CultureInfo.InstalledUICulture.EnglishName;

 
           ManagementObjectSearcher cmicWmi = new 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 (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.ToInt32(TextBox2.Text) * 13 1225 1650).ToString();
 
           TextBox4.Text = (Convert.ToInt32(TextBox4.Text) * 17).ToString();
 
       }

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