طريقة اخرى كما قدمه شرحه الاخ سعود
قم باستدعاء كلاً من
كود :
Imports System.Management
Imports System.Net
بعد ذلك اسفل سطر
قم باضافة الكود التالى
كود :
Dim HW As New SEC_Informations
Dim MB As String
Public Class SEC_Informations
Friend Function GetMotherBoardID() As String
Dim strMotherBoardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherBoardID = info("product").ToString()
Next
Return strMotherBoardID
End Function
End Class
وقبل الاستخدام قم بانشاء جدول تحت اسم مثلاً
VUsers
ويحتوى بداخله على اعمدة التالية
MyID - MyUSERS - G-DATE
الاول ترقيم تلقائى - الثاني نصي [المستخدم] - الثالث تاريخ
بعد ذلك سيتم عمل التالي
فى منطقة الـ Form1_Load
ضع السطر التالى
كود :
MB = HW.GetMotherBoardID()
واسفل منه كود الاستعلام بالجدول
(يتوقف على طريقة كتابة كود الاتصال بقاعدة البيانات وطريقة كتابة الاسطر فقط بالنهاية استخدم الاستعلام بهذا الشكل)
كود :
"SELECT MyUSERS FROM VUsers WHERE MyUSERS='" & MB & "'"
بعد ذلك عمل التحقق
كود :
If dt.Rows.Count = 0 Then
' ضح كود الادخال بقاعدة البيانات وهو عبارة عن الكود التالى
' "INSERT INTO VUsers (MyUSERS, G-DATE) VALUES ('" & MB & "', '" & NOW.ToString() & "')"
End If
وبكده اذا كان المستخدم اى الكمبيوتر
قام بفتح البرنامج للمرة الاولى سيقوم بتسجيله فى قاعدة البيانات
وفى حالة قام بفتحه العديد من المرات بعد ذلك
ومن اشخاص مختلفين ولكن من جهاز الكمبيوتر نفس فلم يقوم بفعل شئ
يارب يكون الكود والشرح بسيط
تحياتى لك
وتمنياتى لك التوفيق
لكل من يقوم بالمساهمة
