منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] PC's serial number - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [كود] PC's serial number (/showthread.php?tid=42616)

PC's serial number - محمد مسافر - 04-10-22

الاعزاء جميعاُ 

ممكن الكود الذي يظهر لي الرقم التسلسلي للجهاز  PC's serial number حاولت من خلال الكود الموجود في المشروع ولم يعمل ممكن الطريقه او الكود الخاص بذلك علماُ ان الامر الذي يظهر لي الرقم التسلسلي للجهاز يظهر من
 قائمه RUN عبر CMD ثم بعد ذلك [b]wmic bios get serialnumber [/b]

RE: PC's serial number - asemshahen5 - 05-10-22

[VB.NET] كود اظهار سريال الهارد او والماذر بورد


RE: PC's serial number - محمد مسافر - 05-10-22

شكراً جزيلاً لك استاذ / عاصم وشكراً كذلك للاستاذ/ عبدالعزيز البرنامج موجود معي مسبقاً وفيه معلومات كامله عن اظهار معظم سيريالات الجهاز ، ولكن عذراً منكم الذي اريده هو الرقم التسلسي للجهاز الذي هو  [b]PC's serial number
[/b]

مش موجود في البرنامج وحاولت احصل عليه وبحثت ماوجدت وللتوضيح اكثر الرقم التسلسلي للجهاز هو عاده يظهر عن طريق الامر cmd  من قائمه  Run
[b]وكتابه الامر [/b]

[b]mic bios get serialnumber[/b]

او كتابه الامر كاملاً مباشره والضغط على الامر انتر وستظهر البيانات كامله  cmd /k wmic bios get serialnumber
(05-10-22, 06:05 AM)asemshahen5 كتب :

كل الشكر لك استاذنا

RE: PC's serial number - asemshahen5 - 06-10-22

PHP كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim RshProcess As New Process()
        RshProcess.StartInfo.FileName = Environment.SystemDirectory & "\cmd.exe"
        RshProcess.StartInfo.Arguments = "cmd /k wmic bios get serialnumber"
        RshProcess.StartInfo.CreateNoWindow = True
        RshProcess.StartInfo.UseShellExecute = False
        RshProcess.StartInfo.RedirectStandardOutput = True
        If System.Environment.OSVersion.Version.Major >= 6 Then
            RshProcess.StartInfo.Verb = "runas"
        End If
        RshProcess.Start()
        Dim i As Integer = 0
        While Not RshProcess.HasExited
            Dim Line As String = RshProcess.StandardOutput.ReadLine() ''Console.ReadLine()
            If Line.Length > 0 Then
                '' يرجى إضافة تيكست بوكس لعرض النتائج
                TextBox1.Text = Line
                i += 1
                If i = 2 Then
                    Exit While
                End If
            End If
        End While
    End Sub 


RE: PC's serial number - محمد مسافر - 06-10-22

(06-10-22, 04:42 PM)asemshahen5 كتب :
PHP كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim RshProcess As New Process()
        RshProcess.StartInfo.FileName = Environment.SystemDirectory & "\cmd.exe"
        RshProcess.StartInfo.Arguments = "cmd /k wmic bios get serialnumber"
        RshProcess.StartInfo.CreateNoWindow = True
        RshProcess.StartInfo.UseShellExecute = False
        RshProcess.StartInfo.RedirectStandardOutput = True
        If System.Environment.OSVersion.Version.Major >= 6 Then
            RshProcess.StartInfo.Verb = "runas"
        End If
        RshProcess.Start()
        Dim i As Integer = 0
        While Not RshProcess.HasExited
            Dim Line As String = RshProcess.StandardOutput.ReadLine() ''Console.ReadLine()
            If Line.Length > 0 Then
                '' يرجى إضافة تيكست بوكس لعرض النتائج
                TextBox1.Text = Line
                i += 1
                If i = 2 Then
                    Exit While
                End If
            End If
        End While
    End Sub 

اشكرك من اعماق قلبي Heart .