Skip to main content

AccessTr.neT


Key anahtar Kombinasyonu değişikliği

Key anahtar Kombinasyonu değişikliği

Çözüldü #7
(15/12/2008, 15:23)alpeki99 yazdı: Ben bir programın aktivasyon işlemlerinde hangi kaynaklar kullanılabilir diye anlamıştım Img-grin Aktivasyon Lisans Üretme programında

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.
Cevapla
Çözüldü #8
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.
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
Çözüldü #9
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.
Cevapla
Çözüldü #10
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 .
Cevapla
Çözüldü #11
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.
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
Çözüldü #12
(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 10806
(15/12/2008, 16:48)karam yazdı:
(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 10806


ÇOK TEŞEKÜR REGEDİT'İ SİLİNCE KOD MÜKEMMEL ÇALIŞTI TEŞEKÜRLER 108061080610806
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task