عادل سرور سرور

Function MBSerialNumber2() 'الحصول على سيريال المازر بورد بدون اعطاء اسم الكمبيوتر Dim V, vName, vUUID With GetObject("winmgmts:\\") For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48) vName = V.Name vUUID = V.UUID Next V End With MBSerialNumber2 = vName & ", " & vUUID End Function

Option Compare Database Dim trial As Date Dim b As Date ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ Private Sub Form_Open(Cancel As Integer) trial = GetSetting("aa", "bb", "trial", Nz(trial)) If trial = Empty Then SaveSetting "aa", "bb", "trial", Date End If trial = GetSetting("aa", "bb", "trial", Nz(trial)) rem هنا التعديل trial = CDate(trial) If Date < trial Then MsgBox "قم بضبط تاريخ جهاز الكمبيوتر", vbCritical Else b = trial + 60 ' 60 يوم مدة تجريبية If Date > b Then MsgBox "انتهت الفترة التجريبية؛ الرجاء الاتصال بالمصمم", vbInformation DoCmd.OpenForm"المصمم" Else MsgBox "نسخة تجريبية؛ بقي لديك " & b - Date & " يوم" End If End If End Sub