XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
Private Sub Form_Load()
Dim Gun, Ay, Yil
Dim SonGun, SonAy, SonYil
Dim Ilk, Son
'Program ilk defa calışıyorsa
Ilk = StringOku(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows", "ilk")
If Not Ilk = "yes" Then
Ilk = Date
DegerKaydet HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows", "ilk", "yes"
DegerKaydet HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows", "ilktarih", (Ilk)
Else
End If
Son = StringOku(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows", "sontarih")
If Son = "yes" Then
MsgBox "Bu program 30 Gunluk limiti aşmış bulunmaktadır. Program şimdi kapanacak...", vbCritical
End
End If
Ilk = StringOku(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows", "ilktarih")
Label1.Caption = Ilk
'Burada tarihi gun, ay, yıl olarak ayırıyoruz.
Gun = Mid(Ilk, 1, 2)
Ay = Mid(Ilk, 4, 2)
Yil = Mid(Ilk, 7, 4)
'Bir ay 31 gunden fazla olamaz.
'Eğer 31 gunu gecerse bunu tarih formatına gore tekrar ayarlıyoruz.
Gun = Gun + 31
If Gun > 31 Then
Gun = Gun - 31
'Eğer o gunun tarihi 10'dan kucukse yanına bir "0" ekliyoruz
If Gun < 10 Then Gun = "0" & Gun
End If
'Eğer aralık ayında isek, 13. ay olmayacağına gore
'bunuda tarih formatına gore ayarlıyoruz.
Ay = Ay + 1
If Ay > 12 Then
Ay = Ay - 12
Yil = Yil + 1
End If
If Ay < 10 Then Ay = "0" & Ay
Label2.Caption = Gun & "." & Ay & "." & Yil
SonGun = Mid(Date, 1, 2)
SonAy = Mid(Date, 4, 2)
SonYil = Mid(Date, 7, 4)
'Tarih denetleniyor, eğer 30 gunluk sureyi aşmış ise
'bu değer kaydediliyor. Ve program acılışta bu değeri kontol ediyor.
'Eğer sure aşılmış ise program bir hata mesajı veriyor ve bir daha calışmamasını
'bildiren değeri kaydediyor. Bundan sonra sistem tarihi geri alınsa bile
'program calışmayacaktır.
If Date >= Label2.Caption Then
DegerKaydet HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows", "sontarih", "yes"
Else
End If
End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
MUSTIK ARKADAŞIM BU İNŞALLAH İŞİNİ GORUR BİR SİTEDE BULDUM SANA ATICAKTIM AMA BELKİ BİR COK ARAKAŞAŞ ARIYORDUR KOLAY GELSİN
__________________