ارجو المساعدة فى تحويل هذا الكود الى السى شارب - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 تحتاج تشغيل البرنامج Run as administrator تشغيل كمسئول PHP كود : public partial class Form1 : Form RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - sanyor77 - 26-03-23 تحويل الكود إلى C#: كود : using System.Management; هذا هو الكود النهائي كود : private void Form1_Load(object sender, EventArgs e) RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - محمد صالح ابو صالح - 05-08-23 اخي العزيز معي هذا السيريال اريد توليد على هذا 1CA718 79EDD9 8302EA 3B8B24 2C9E8C RE: ارجو المساعدة فى تحويل هذا الكود الى السى شارب - HALIM ELEULMA - 06-01-24 الكود الذي قدمته يقوم بجلب بعض معلومات الجهاز مثل اسم النظام واسم الجهاز وبعض معلومات القرص الثابت، ثم يحسب قيمة مستخدمة للتفعيل يرجى مراجعة الأكواد بعناية والتأكد من الدقة والتوافق مع متطلبات وبيئة العمل الخاصة بك قبل استخدامه PHP كود : using System; |