Key anahtar Kombinasyonu değişikliği - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Key anahtar Kombinasyonu değişikliği (/konu-key-anahtar-kombinasyonu-degisikligi.html) |
Cvp: Key anahtar Kombinasyonu değişikliği - karam - 15/12/2008 (15/12/2008, 15:23)alpeki99 yazdı: Ben bir programın aktivasyon işlemlerinde hangi kaynaklar kullanılabilir diye anlamıştım Aktivasyon Lisans Üretme programında 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. Cvp: Key anahtar Kombinasyonu değişikliği - alpeki99 - 15/12/2008 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() Kod:
For X = 1 To Len(TempPart) / 2 Cvp: Key anahtar Kombinasyonu değişikliği - karam - 15/12/2008 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. Cvp: Key anahtar Kombinasyonu değişikliği - karam - 15/12/2008 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 . Cvp: Key anahtar Kombinasyonu değişikliği - alpeki99 - 15/12/2008 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. Cvp: Key anahtar Kombinasyonu değişikliği - karam - 15/12/2008 (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. kayıtları silmemiştim onları da slip deneyeceğim teşekürler ilginiz için (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. ÇOK TEŞEKÜR REGEDİT'İ SİLİNCE KOD MÜKEMMEL ÇALIŞTI TEŞEKÜRLER |