AccessTr.neT

Tam Versiyon: Kopyalama Koruması ve Lisans
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13
harikasınız ;)
(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: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.
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
64 bit ofiste sorunlu çalıştığı için 06/11/2015 tarihi itibariyle 1. mesajdaki örnek uygulama yenilenmiştir.
lisanslama kodunu programıma entegre ettiğimde aşağıdaki  hata veriyor.
[Resim: do.php?imgf=148949188344571.jpg]

yüklü referanslar da 
[Resim: do.php?imgf=148949201460871.jpg]
Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13