[elgokr]

طريقة اخرى كما قدمه شرحه الاخ سعود

قم باستدعاء كلاً من 

كود :

Imports System.Management
Imports System.Net

بعد ذلك اسفل سطر 

كود :

Public Class Form1

قم باضافة الكود التالى

كود :

   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

وبكده اذا كان المستخدم اى الكمبيوتر

قام بفتح البرنامج للمرة الاولى سيقوم بتسجيله فى قاعدة البيانات

وفى حالة قام بفتحه العديد من المرات بعد ذلك

ومن اشخاص مختلفين ولكن من جهاز الكمبيوتر نفس فلم يقوم بفعل شئ

يارب يكون الكود والشرح بسيط

تحياتى لك

وتمنياتى لك التوفيق