Lisanslı Dosya Hazırlamak

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Cevap: Lisanslı Dosya Hazırlamak

İleti#21)  alican60 » 22 Ağu 2011 20:15

Osman Bey tekrar indirip açtım normal açılıyor...
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 41
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Lisanslı Dosya Hazırlamak

İleti#22)  Osman AKYÜZ » 22 Ağu 2011 22:50

Normal açılır çünkü lisansı aktif hale getirdiniz.10 gün boyunca kullanabilirsiniz.10 gün sonra lisans süreniz bitmiştir diye uyarı verecek tekrar lisans almak zorunda kalacaksınız.İnsanların lisanslama mantığının nasıl işlediğini anlamaları için iki dosyayıda gönderdim inceleyerek fikir sahibi olunslar diye.Normal şartlarda programcı programı yazar şifreler ve kullanıcıya demo olarak sunar.Kullanıcı programı satın almak istersede tam sürüme yükseltmek içinde lisans satın almak zorunda kalır.Ben ikinci dosyayı yani "Lisans Serial Üretmek Ve Kullanıcılara Serial Vermek.xls" dosyasını göndermemiş olsaydım benimle irtibata geçip lisans almak zorunda kalacaktınız.Umarım anlatabilmişimdir... [evet] Bu lisanslama olayı kişinin hayal gücüne ve kodlama / yazılım bilgisine göre daha çok (Kullanıcılar İçin) çözülemez hale getirilebilir.

İnternet sayfasına yönlendirmek içinde bu kodu kullanabilirsiniz...
Kod: Tümünü seç
Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute GetActiveWindow(), "Open", "http://www.excelvba.net/", "", 0&, 1
End Sub
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#23)  Arslanbey » 22 Ağu 2011 23:24

Buton ile değilde şöyle bir şey olabilirmi diyelimki kullanım suresi doldu mesaj süreniz dolmuştur felanca siteyle bağlantıya gecmek istermisiniz diye mesaj gelse evet tıklandığında istenilen site açılsa olabilirmi böyle birşey.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#24)  mustafa1205 » 22 Ağu 2011 23:28

Daha önce buradan sorduğum lisanslama sorusuna cevap almıştım. Ben kullandım .Çok da işime yaradı. Umarım kullanmak isteyenlerinde ihtiyacını görür.
viewtopic.php?f=4&t=7930
Kullanıcı avatarı
mustafa1205
Siteye Alışmış
 
Adı Soyadı:mustafa ünal
Kayıt: 15 Oca 2011 21:31
Konum: ISPARTA
Meslek: SERBEST
Yaş: 40
İleti: 142
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: siirt

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

Cevap: Lisanslı Dosya Hazırlamak

İleti#25)  mustafa1205 » 22 Ağu 2011 23:36

Ayrıca yapmış olduğum örnekler var.Bunu da ekliyorum.Umarım ihtiyacı olanların işlerini görür.Ekteki dosya da çeşitli versiyonlar mevcut.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mustafa1205
Siteye Alışmış
 
Adı Soyadı:mustafa ünal
Kayıt: 15 Oca 2011 21:31
Konum: ISPARTA
Meslek: SERBEST
Yaş: 40
İleti: 142
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: siirt

Cevap: Lisanslı Dosya Hazırlamak

İleti#26)  Arslanbey » 22 Ağu 2011 23:56

İlginizden dolayı teşekkür ederim fakat benim istediğim bu değil bir önceki mesajımda yazdıgım gibi olmasını sitiyorum tabi mümkünse.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Lisanslı Dosya Hazırlamak

İleti#27)  Osman AKYÜZ » 23 Ağu 2011 00:58

Bu kodu kopyalayın. "Serial Test Programı.xls" nin Thisworkbook kısmındaki kodların hepsini silerek oraya yapıştırın. [evet]
Kod: Tümünü seç
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
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
    Dim iResult, Satir As Integer
    iResult = MsgBox("Lisans süreniz doldu ilgili siteye yölendirilmek istermisiniz ?", vbYesNo, "Lisans süresi doldu...")
If iResult = vbYes Then
ShellExecute GetActiveWindow(), "Open", "http://www.excelvba.net/", "", 0&, 1
Else
Exit Sub
End If
End If
    '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
        UserForm1.Show
       
End Sub
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#28)  Arslanbey » 23 Ağu 2011 17:24

Diyelimki 10 gün sorunsuz kullandı 10 gün sonra ilgili siteye bağlanacakmı ve saerial üret programından serial üretip demi serial vereceğiz isteyen kişiye Ayrıca kendi programımıza serial test programınımı uyarlayacagız bilgi verirseniz sevinirim.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#29)  Osman AKYÜZ » 23 Ağu 2011 17:56

Süleyman bey 10 gün bekleyin bağlanmaz ise manuel bağlarız.ExcelVBA.NET te kesinti olmaz ... :lol: hehe hehe :lol: [evet] [evet] [evet]

10 günü 1 saniye geçsin programı açtığınızda uyarı verecek ve diyecek böyle böyle bilader yakıt bitti tamam mı devammı devam derseniz ver elini ExcelVBA.NET tamam derseniz program kapanacak.

Kendi programınıza uyarlamaya gelince göndermiş olduğum örnek dosya içerisindeki LisansAktif formunu export edin.Sonra this workbook taki kodları kopyalayın , uyarlamak istediğiniz çalışmanızı açın ve thisworkbook kısmına kopyaladığınız kodları yapıştırın.Daha sonra File / import File menüsünü tıklayın ve LisansAktif formunu import edin.Thisworkbook sayfasına gidin ve kodların en altında userform1.show yazan yere kendi formunuzun adını yazın.Eğer ilk açılışta form ile çalışmayacaksanız burayı silin ve bir şey yazmayın çalışmanızı sorunsuz bir şekilde devam ettirebilirsiniz.

Not : Vba kod sayfasını şifreleyin.

Diyelimki çalışmanızı kopyaladınız başka bilgisayara kaydettiniz kesinlikle çalışmaz.Kodlara ve lisans anahtarlarının yazıldığı yere ulaşılmadığı müddetçe , buda zaten biraz ileri seviye kullanıcılığa giriyor bence... [evet]
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#30)  Arslanbey » 23 Ağu 2011 18:02

Açıklmanız için teşekkürler.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#31)  Osman AKYÜZ » 23 Ağu 2011 18:07

Ben [TESEKKÜR] ederim Süleyman bey.
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#32)  Arslanbey » 23 Ağu 2011 18:08

Son olarak birşey sorabilirmiyim bu kodlar ile excel sayfasına herhangi bir yere birşey yazıyormu onu öğrenebilirmiyim lütfen.Birde 10 değilde 20-30-60 kadar çıkarabilrimiyiz bu bizim elimizde olan birşeymi.?
En son Arslanbey tarafından, 23 Ağu 2011 18:14 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#33)  Osman AKYÜZ » 23 Ağu 2011 18:13

Kesinlikle hayır. [evet] Ayrıca size yeniden [TESEKKÜR] ediyorum ExcelVBA.NET hayatımda 200 üncü mesajı sizin sorunuza cevaben yazmış oldum... [TESEKKÜR]
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#34)  Arslanbey » 23 Ağu 2011 18:15

Asıl ben teşekkür ederim böyle şaheser bir program çıkardığınız için bizim gibi amötörler için.Birde bir önceki mesajımı incelermisiniz tekrar.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Cevap: Lisanslı Dosya Hazırlamak

İleti#35)  Osman AKYÜZ » 23 Ağu 2011 18:30

Arslanbey yazdı:Asıl ben teşekkür ederim böyle şaheser bir program çıkardığınız için bizim gibi amötörler için.

ESTAĞFİRULLAH ben sadece üstadlarımızdan birşeyler kapıp geliştirmek , öğrenmek çabasındayım.Bu tabiki bizim elimizde kodları incelediğinizde bunu fark edebilirsiniz.Lisans aktif formunun kodlarını inceleyin 10 yazan yeri istediğiniz gibi arttırabilir azalta bilirsiniz.
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#36)  Arslanbey » 23 Ağu 2011 23:29

Dün itibariyle lisanlamada 10 gün olan yeri 1 gün yaptım malesef tekrar bana lisans sormadı açtığımda bilginize.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#37)  Osman AKYÜZ » 23 Ağu 2011 23:38

Bahsi geçen demo süresi , ilk lisanslamada geçerlidir.Sonraki lisanslamada 365 gün süre verir.Şöyle deneyin lütfen ;

* Kodları açın 365 yazan yeri 1 yapın ;
* Lisanslamayı tekrar yapın ;
* Sistem tarihinizi iki gün ileri alın test dosyasını açın , sorun çıkmayacaktır. [evet]

Kodlarda bir sıkıntı yok.Önemli olan kodların çalışma prensibini anlayabilmek.

Bir de Thisworkbook kod bölümünde ;
Kod: Tümünü seç
ShellExecute GetActiveWindow(), "Open", "http://www.excelvba.net/", "", 0&, 1

satırının altına
Kod: Tümünü seç
exit sub


yazınız.
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#38)  Arslanbey » 23 Ağu 2011 23:45

Dediğinizi yaptım malesef olmadı 365 yazan yeri 1 yaptım bilgisayarın tarihinide 31.08.2011 yaptım yine sormadı bana lisans
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Lisanslı Dosya Hazırlamak

İleti#39)  Osman AKYÜZ » 23 Ağu 2011 23:47

365 i 1 yaptıktan sonra "lisansaktif" formunu açın , yeniden lisanslayın.
Kullanıcı avatarı
Osman AKYÜZ
Site Dostu
 
Adı Soyadı:OSMAN AKYÜZ
Kayıt: 09 Haz 2010 21:20
Meslek: Üretim Takip Program Yazılımı - Stok/Sipariş/Fatura/Cari Yazılım - İşlemleri - Muhasebe
Yaş: 33
İleti: 646
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ/SÜLEYMANPAŞA

Cevap: Lisanslı Dosya Hazırlamak

İleti#40)  Arslanbey » 23 Ağu 2011 23:50

Birde siz incelermisiniz doğrumu yapmışım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 38
İleti: 597
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

ÖncekiSonraki

Forum Örnek Dosyalar

Online Kullanıcılar

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

Bumerang - Yazarkafe