[محمد اسماعيل]

(23-08-19, 05:02 AM)خالد كامل1 كتب :

(23-08-19, 04:52 AM)محمد اسماعيل كتب : هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك

كما ترى اخى الكود به شئ خطأ فو سمحت تكتبه كاملا من عند ال CLASS

الكود بالكلاس كامل

كود :

Imports System.Management

Public Class Class1

   Public Shared MOTHERBOARDID As String

   Public Shared Sub hardware()
       Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARDID = getserial("SerialNumber").ToString()
       Next
   End Sub
End Class

بوتن  زر ورسالة الاستعادة الرقم

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Class1.hardware()
       MsgBox(Class1.MOTHERBOARDID)
   End Sub