14/05/2015, 17:28
Kopyalama Koruması ve Lisans
14/05/2015, 17:32
uMits
(14/05/2015, 17:26)ozanakkaya yazdı:(14/05/2015, 11:07)uMits yazdı: bu uygulamadaki aktivasyon.mdb ye shift tuşuyla giremiyorum. önlem almışsınız sanırım tablolara bakamıyorum formları inceleyemiyorum ...Her iki uygulamada da shift engeli bulunmamaktadır.
ozan bey denedim shift ile tablo form olan yer çıkmadı ama sağ tıklayıp form tasarımı dediğimde açıldı. Access 2003 kullanıyorum bundan kaynaklı olabilir .
14/05/2015, 17:38
ozanakkaya
(14/05/2015, 17:32)uMits yazdı: ozan bey denedim shift ile tablo form olan yer çıkmadı ama sağ tıklayıp form tasarımı dediğimde açıldı. Access 2003 kullanıyorum bundan kaynaklı olabilir .
Bilgi olması açıından, ilk açılan formun form özelliklerinden açılan, kalıcı özelliği evet olarak düzenlendiği için tablolar açılışta pasif durumda.
14/05/2015, 18:08
uMits
yeni konu açmadan sormak istedim.
birde elimde lisanslama uygulaması mevcut. aşağıdaki kodun mantığı nedir bilgi verirmisiniz
birinci private ile başlayan kod sanırım uygulamayı kullanılacak bilgisayarın
ikinci private ile başlayan kodda müşteriye verilecek kod .
uygulamanın olduğu dizine .txt kaydedip ne yapacaz. kod sorduğunda kod yerine ne yazacağız
birde elimde lisanslama uygulaması mevcut. aşağıdaki kodun mantığı nedir bilgi verirmisiniz
birinci private ile başlayan kod sanırım uygulamayı kullanılacak bilgisayarın
ikinci private ile başlayan kodda müşteriye verilecek kod .
uygulamanın olduğu dizine .txt kaydedip ne yapacaz. kod sorduğunda kod yerine ne yazacağız
Kod:
Private Sub Form_Load()
Dim wrkDefault As Workspace
Dim nesne, disk, k
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = k
End Sub
Private Sub Komut0_Click()
Dim wrkDefault As Workspace
Dim nesne, disk, k
r = Mid(MD5String(Me.disk), 1, 8)
If asif = r Then
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = disk.SerialNumber
klasor = CurrentProject.Path & "/" & disk.SerialNumber & ".txt"
Open CurrentProject.Path & "/" & disk.SerialNumber & ".txt" For Output As #1
Print #1, MD5String(disk.SerialNumber)
Close #1
DoCmd.OpenForm "başlangıç"
Else
10 MsgBox "HATALI ŞİFRE YENİNİDEN DENE"
End If
End Sub 06/11/2015, 14:44
ozanakkaya
64 bit ofiste sorunlu çalıştığı için 06/11/2015 tarihi itibariyle 1. mesajdaki örnek uygulama yenilenmiştir.
14/03/2017, 14:47
hknct
lisanslama kodunu programıma entegre ettiğimde aşağıdaki hata veriyor.
yüklü referanslar da
yüklü referanslar da