ممكن الكود الذي يظهر لي الرقم التسلسلي للجهاز PC's serial number حاولت من خلال الكود الموجود في المشروع ولم يعمل ممكن الطريقه او الكود الخاص بذلك علماُ ان الامر الذي يظهر لي الرقم التسلسلي للجهاز يظهر من قائمه RUN عبر CMD ثم بعد ذلك [b]wmic bios get serialnumber [/b]
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
05-10-22, 02:18 PM (آخر تعديل لهذه المشاركة : 05-10-22, 02:32 PM {2} بواسطة محمد مسافر.)
شكراً جزيلاً لك استاذ / عاصم وشكراً كذلك للاستاذ/ عبدالعزيز البرنامج موجود معي مسبقاً وفيه معلومات كامله عن اظهار معظم سيريالات الجهاز ، ولكن عذراً منكم الذي اريده هو الرقم التسلسي للجهاز الذي هو [b]PC's serial number [/b]
مش موجود في البرنامج وحاولت احصل عليه وبحثت ماوجدت وللتوضيح اكثر الرقم التسلسلي للجهاز هو عاده يظهر عن طريق الامر cmd من قائمه Run [b]وكتابه الامر [/b]
[b]mic bios get serialnumber[/b]
او كتابه الامر كاملاً مباشره والضغط على الامر انتر وستظهر البيانات كامله cmd /k wmic bios get serialnumber
06-10-22, 04:42 PM (آخر تعديل لهذه المشاركة : 06-10-22, 04:43 PM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
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
اشكرك من اعماق قلبي .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.