Dim CPU As String
Dim Kontrol As String
CPU = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID")
mtn_urunkimligi = CalculateMD5(CPU)
GCPU = CalculateMD5(CalculateMD5(CPU))
Kontrol = Nz(DLookup("[Kimlik]", "tbl_lisans", "[lisanskodu]=" & "'" & GCPU & "'"), 0)
If Kontrol > 0 Then
MsgBox "Program lisanslı ise yapılacak işlemler burada"
Else
MsgBox "Program lisanssız ise yapılacak işlemler burada"
End If
Boş bir form ekleyin. Formun yüklendiğinde olayına aşağıdaki kodları yapıştırın:
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
