Başlangıç > Kodlar > Visual basic 6 ile 30 günlük deneme programı nasıl yapılır ?

Visual basic 6 ile 30 günlük deneme programı nasıl yapılır ?


Hepimiz 30 gün süre kullanilabilen demo programlari taniriz, peki bu nasil programlanir? Iste böyle...

Fakat bu code o kadarda emniyetli degildir, bilgisayardan haberi olan registry ye girerek kayitlanan tarihi degistirebilir. Ilerki günlerde daha emniyetli bir code buraya gönderecegim. Sorular icin: isci@excite.com,

Kayitlanan tarih registride surdadir: HKEY_CURRENT_USER/Software/Vb and Vba Program Settings/

Gelelim codumuza:

Private Sub form_load()

Dim enddate As Date
enddate = GetSetting("Demo", "Demo", "EndDate", "01.01.89")
'EndDate = "01.01.89" ise enddate belirleniyor.
If enddate = "01.01.89" Then
enddate = Date
enddate = enddate + 30 '30 Gün toplaniyor
SaveSetting "Demo", "Demo", "EndDate", enddate 'EndDate kayitlaniyor
End If

If Date > enddate Then MsgBox "Demo Süresi bitmistir."
End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: