[Yardım]  Lisans Yapma

Kulanıcı arayüz formu

Lisans Yapma

İleti#1)  selimileri0623 » 22 Mar 2020 14:51

Herkese Merhaba

Excelde lisans yapma ile ilgili bir dosya buldum lisans işlemi yapıyor ama lisans anahtarı nasıl üretiliyor onu beceremedim . yani sistem lisans için kendi saat ve dakikası nı alarak veri veriyor ama bu veriyı nerede dosyayı açacak geçerli anahtar yapacağıma dair user form eksik kalmış ilgilinenler için Lisans kontrol adında bir user form oluşturdum isteğim bu lisans kontrol userformuna lisansaktif userformunda verilen kodu girince bana aanhtar kodu versin yardım edebilecekler varda çok sevinirim.



Programın mantığı : O anki saat ve tarihten bir kaç ve HDDSerino danda bir kaç karekter alır.O anki saniyenin birler basamağını Select Case yöntemi ile kontrol eder ve buna göre değişkenlere harf atar değişkenlere atanan harfler ile az önce saat,tarih,HDDSerino dan aldığımız sayısal veriler ile serpiştirilerek harmanlanır ve serila üretilir.Üretilen serial , bu serialin kontrol seriali , başlama tarihi bitiş tarihi bir yerlere yazılır.(Bilenler bilir bu yerleri).Sonrasında program çalıştığında bitiş tarihini , lisans ını ve HddSerinosunu kontrol ederek çalışır.Birinde soruna rastlasın uyarı verir.

[url]https://dosya.co/rbmas4pggtmh/Lisanslama_Programı.xlsm.html
[/url]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Lisans Yapma

İleti#2)  selimileri0623 » 23 Mar 2020 22:41

Yardım edebilecek olan var mı
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Lisans Yapma

İleti#3)  selimileri0623 » 25 Mar 2020 20:10

Uzman arkadaşlar
Dosyanın içinde kodun yapılış yöntemi anlatılmış ama ben çözemedim. Yardımcı olabilecek olan yok mu ciddiden
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Lisans Yapma

İleti#4)  selimileri0623 » 28 Mar 2020 20:09

Lisans Serial Üretmek Ve Kullanıcılara Serial Vermek Programından üretilen seriali Serial Test Programına giriyorum kabul deediyor ama ikinci açılışta hata veriyor . Bakabilecek olan var mı
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Lisans Yapma

İleti#5)  selimileri0623 » 30 Mar 2020 21:26

Ekteki dosyamda kullanıcı adı Administrator Şifresi 0000



Private Sub Workbook_Open() başlığı altında aşağıdaki kod kullanıcı adı ve şifresini çalıştırıyor



Kod: Tümünü seç
Private Sub Workbook_Open()



ThisWorkbook.Kontrol



yer = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text

ActiveWorkbook.Protect Password:=yer, Structure:=False ', Windows:=True' kapatmak



For j = 1 To ActiveWorkbook.Sheets.Count

If Sheets(j).Name <> "anasayfa" Then

Sheets(Sheets(j).Name).Visible = False

End If

Next

ActiveWorkbook.Protect Password:=yer, Structure:=True ', Windows:=True' kapatmak





kayıt = ThisWorkbook.Path & "\şifreli_işlem.1st" ' işlemlerin kayıt altına alındığı dosya





alan1 = RightPadChar("Program acildi", " ", 35) & "/"

alan2 = RightPadChar(Format(Now, "dd:mm:yyyy  : hh:mm:ss"), " ", 39) & "/"

alan3 = RightPadChar("", " ", 22) & "/"

alan4 = RightPadChar("Programa giris islemi yapildi", " ", 35) & "/"





yaz = alan1 & alan2 & alan3 & alan4







i = 1

On Error Resume Next

Do While i <> Len(yaz) + 1

yazi = Mid(yaz, i, 1)

yazi = Chr(Asc(yazi) + 120)

kon = kon + yazi

i = i + 1

Loop





Open kayıt For Append As #1

Print #1, kon

'Print #1, alan1 & alan2 & alan3

Close #1





Application.Visible = False

Form.Show

ActiveWorkbook.Save





Application.DisplayAlerts = True

ver = ThisWorkbook.Path & "\"

ser = "Yedek " & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.FullName) & ".xlk"

eskısıl = ver & ser

If CreateObject("Scripting.FileSystemObject").FileExists(eskısıl) = True Then

Kill eskısıl

End If

'On Error Resume Next

Application.DisplayAlerts = False



End Sub




Aşağıdaki kod da lisans kontrol kodu Bu kodda Private Sub Workbook_Open() başlığı altında çalışıyor



Kod: Tümünü seç
Private Sub Workbook_Open()

'Application.Visible = false

Dim Seri, HddKontrolSeri, Lisans, LisansKntrl, kontrol As String

Dim HddKontrol As Variant

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Surucu = FSO.GetDrive("C:")

Hddserino = Surucu.serialnumber

Set Surucu = Nothing

Set FSO = Nothing

LisansKntrl = GetSetting("ProV1", "V1", "SerialKontrol")

Lisans = Replace(LisansKntrl, "-", "")



kontrol = Mid(Lisans, 2, 1) & Mid(Lisans, 19, 1) & Mid(Lisans, 18, 1) & Mid(Lisans, 15, 1) & "-" & _

           Mid(Lisans, 8, 1) & Mid(Lisans, 13, 1) & Mid(Lisans, 4, 1) & Mid(Lisans, 5, 1) & "-" & _

           Mid(Lisans, 12, 1) & Mid(Lisans, 1, 1) & Mid(Lisans, 10, 1) & Mid(Lisans, 9, 1) & "-" & _

           Mid(Lisans, 16, 1) & Mid(Lisans, 17, 1) & Mid(Lisans, 14, 1) & Mid(Lisans, 7, 1) & "-" & _

           Mid(Lisans, 6, 1) & Mid(Lisans, 3, 1) & Mid(Lisans, 20, 1) & Mid(Lisans, 11, 1)



Seri = GetSetting("ProV1", "V1", "Serial")

HddKontrolSeri = GetSetting("ProV1", "V1", "Serial")

HddKontrol = Replace(HddKontrolSeri, "-", "")

Hddserino = Replace(Hddserino, "-", "")

Hddserino = Mid(Hddserino, 1, 7)

HddKontrol = Mid(HddKontrol, 11, 1) & Mid(HddKontrol, 12, 1) & Mid(HddKontrol, 14, 1) & Mid(HddKontrol, 15, 1) & Mid(HddKontrol, 16, 1) & Mid(HddKontrol, 18, 1) & Mid(HddKontrol, 19, 1)



If Seri = Empty Or kontrol <> Seri Or Hddserino <> HddKontrol Then

    MsgBox "Ürünün kayıt numarası hatalı. Lütfen program yetkilisi ile görüşünüz. ", vbCritical + vbOKOnly, "Hatalı Lisans Kodu"

   LisansAktif.Show

Exit Sub

Else

EndDate = DateValue(GetSetting("ProV1", "V1", "EndDate"))

If EndDate < Date Then

    If EndDate < Now Then MsgBox "Lisans Kullanım Süreniz Bitmistir. Lütfen program yetkilisi ile görüşünüz.", vbCritical + vbOKOnly, "Lisans Kullanım Süresi Doldu..."

      LisansAktif.Show: Exit Sub

        End If

        End If

        Form.Show

End Sub




Yapmaya çalıştığım fakat yapamadığım olay şu:

Excel açılır açılmaz excel sayfası gizlenecek ve LisansAktif userformu kontrol edilecek lisan yapılmamış ise lisanslama için LisansAktif userformu açılacak Lisans yapılmış ise Form adlı userform açılacak . İki aynı başlık altındaki kodu birleştirmek gerekiyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Lisans Yapma

İleti#6)  selimileri0623 » 01 Nis 2020 20:03

İki kodu birleştirecek kimse yok mu
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 4 misafir

Bumerang - Yazarkafe