Skip to main content

AccessTr.neT


Farklı Formlardan Lisans Kontrolu Nasıl Yapılır?

Farklı Formlardan Lisans Kontrolu Nasıl Yapılır?

#9
Boş bir form ekleyin. Formun yüklendiğinde olayına aşağıdaki kodları yapıştırın:


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
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - Yazar: alpeki99 - 16/11/2015, 16:04
Task