Kopyalama Koruması ve Lisans

Kopyalama Koruması ve Lisans - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kopyalama Koruması ve Lisans (/konu-kopyalama-korumasi-ve-lisans.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13

Cvp: Kopyalama Koruması ve Lisans - uMits - 14/05/2015

harikasınız ;)

Cvp: Kopyalama Koruması ve Lisans - uMits - 14/05/2015

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

Cvp: Kopyalama Koruması ve Lisans - ozanakkaya - 14/05/2015

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

Cvp: Kopyalama Koruması ve Lisans - uMits - 14/05/2015

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

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

Cvp: Kopyalama Koruması ve Lisans - ozanakkaya - 06/11/2015

64 bit ofiste sorunlu çalıştığı için 06/11/2015 tarihi itibariyle 1. mesajdaki örnek uygulama yenilenmiştir.

Cvp: Kopyalama Koruması ve Lisans - hknct - 14/03/2017

lisanslama kodunu programıma entegre ettiğimde aşağıdaki hata veriyor.
[Resim: do.php?imgf=148949188344571.jpg]

[Resim: do.php?imgf=148949188344571.jpg]

yüklü referanslar da
[Resim: do.php?imgf=148949201460871.jpg]