(15/12/2008, 15:23)alpeki99 yazdı: Ben bir programın aktivasyon işlemlerinde hangi kaynaklar kullanılabilir diye anlamıştım
Kod:
For x = 1 To Len(sTemp)
TempVar = TempVar & Format((Int(Mid(sTemp, x, 1)) * 8), "00")
Next x
kısmında yer alan * 8 ifadesi yerine kendiniz başka bir şey kullanabilirsiniz. Bunun dışında da şeyler var ancak en basiti bu olabilir.
hocam bu anında ve hızlı cevabınız için çok teşekürler.
key jeneratöründe dedeğiniz ifadeyi buldum ve diyelimki değiştirdim
serial formun uyumlu ve sadece o key jeneratörüne bağlı olması için
serial
Vba da
Private Sub ACTİVE_KeyPress(KeyAscii As Integer)
If (KeyAscii > 44 And KeyAscii < 58) Or (KeyAscii > 64 And KeyAscii < 123) Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
ElseIf KeyAscii = 8 Then
KeyAscii = 8
Else
KeyAscii = 0
End If
End Sub
burdaki 8 değerlerini değiştirmemmi gerekiyor yani keyjeneratöründe ne yaptı isem buradiki değer de aynımı olmalı veya hangi değerler aynı olmalı ?
bu konuda bilgi verirseniz çok mutlu olacağım.
aksi halde bu key jenertörü elinde olan herkes benim yaptığım ve dağıttığım programa key verebilir duruma geliyor. amacım bunu önlemek .
teşekürler.
Mesajları önceki ile birleştirip yazarsanız çok daha iyi olur. Aslında ben bilerek söylememiştim kendiniz bulmaya çalışırsanız daha iyi kavrarsınız diye ancak işi uzatmayalım, sorunuzun cevabı :
Aktivasyon numarası veren formda Uygula butonunun Kodlarını incelerseniz Time
Kod:
Private Sub ONAYLA_Click()
Retry = Retry + 1
If Retry = 5 Then DoCmd.Quit
If IsNull(Me.AD) Or IsNull(Me.ACTİVE) Then Exit Sub
Dim rDate As Date
RetrieveTimeLimit Me!ACTİVE, Me!AD, Delivre, Expire, NombreJour
.....
.....
.....
kodlarını göreceksiniz. Burada
RetrieveTimeLimit çağırılmış. Peki burası nerede? modSerial modülünün içinde. Bu modül içindeki :
Kod:
For X = 1 To Len(TempPart) / 2
TempVar = TempVar & Int(Mid(TempPart, (X * 2) - 1, 2)) / 8
Next X
kısmında önceki Algoritmada yaptıklarını geri alıyor ve 8 ile çarpmıştı şimdi 8 e bölüyor. Siz hangi rakamı girdiyseniz o rakamı buraya yazmalısınız. Programın başka yerlerinde kontrol işlemleri yapılıyormu bilmiyorum ancak varsa onlarda bu şekilde düzenlenmeli.
siden cevap gelene kadar bende serial modülü buldum ve orda değişiklik yapmıştım hocam ancak runtime hatası verdi sizden mail gelince cevap vereyim dedim tekrar araştırıyorum içinden çıkamaz isem size dönerim teşekürler eğer yaparsamda bildireceğim.
key jeneratörde sorun yok
For x = 1 To Len(sTemp)
TempVar = TempVar & Format((Int(Mid(sTemp, x, 1)) * 8), "00")
Next x
burda bulunan iki adet aynı kodu iki yerden "8"rakamını 1 veya 6 yapıyorum ve bu şekilde çalışıyor.
amcak serial programında Modserial'de
For X = 1 To Len(TempPart) / 2
TempVar = TempVar & Int(Mid(TempPart, (X * 2) - 1, 2)) / 8
Next X
iki yerde bu değer var her ikisinide veya teker teker değiştiriyorum
her seferinde serial açılmıyor ve rutime 13 type mismach uyarısı veriyor tüm kombinasyonları denedim hep aynı hatayı veriyor bir sefrinde açtı lisans tarihi 30 aralık 1899 olarak gösterdi ancak bu sefer yeni lisans verme için menüler aktif olmuyor kilitli kalıyor.
hatam nerede acaba ? neyi beceremedim ? yardımcı olurmusunuz aslında gayet açık yazmışsınız ama beceremedim .
Yukarıda yazdığım gibi başka yerlerde de kontrol yapılıyor. Toplamda aktivasyon kodunu veren programda 2 yerde, lisans veren programda ise 4 yerde aynı rakamları vermelisiniz.
Bunları zaten yaptıysanız kayıt defterine eklenmiş önceki kayıtları silin yoksa ondan dolayı da hata verebilir.
(15/12/2008, 16:46)alpeki99 yazdı: Yukarıda yazdığım gibi başka yerlerde de kontrol yapılıyor. Toplamda aktivasyon kodunu veren programda 2 yerde, lisans veren programda ise 4 yerde aynı rakamları vermelisiniz.
Bunları zaten yaptıysanız kayıt defterine eklenmiş önceki kayıtları silin yoksa ondan dolayı da hata verebilir.
kayıtları silmemiştim onları da slip deneyeceğim teşekürler ilginiz için
Bunları zaten yaptıysanız kayıt defterine eklenmiş önceki kayıtları silin yoksa ondan dolayı da hata verebilir.
kayıtları silmemiştim onları da slip deneyeceğim teşekürler ilginiz için
ÇOK TEŞEKÜR REGEDİT'İ SİLİNCE KOD MÜKEMMEL ÇALIŞTI TEŞEKÜRLER