منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(05-10-22, 06:05 AM)asemshahen5 كتب : [ -> ]

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

(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 


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