Autoıt Ile Yazılmış Programı Süre Kısıtlı Yapmak

[radyofon]

Kolay gelsin arkadaşlar!...

AutoIt ile yazdığım programlarda süre kısıtlaması nasıl yapabilirim? Tarihe göre yaparsam, kullanıcı bilgisayarın tarihini değiştirir ve yine kullanılabilir duruma getirebilir. Bunu için regedit te bir değer yazdırıp onu kontrol ederek mi yapmalı ne yapmalı? Yazdığım programın geçerlilik süresinin 3 ay olması için ne yapabilirim? 3 ay sonra ben kodlarda ilgili satırları değiştirmedikten sonra kullanıcılar programı kullanamamalı, yani program off olmalı. Bu konuda ne yapılabilir? Fikri olan arkadaşlardan yardım bekliyorum.

[MostWanted]

[codebox]#include <String.au3>
Func _Bugun()
Dim $aylar[12]=["January", "February", "March","April","May","June","July","August","September","October","November","December"]
$ping=Ping("www.google.com")
;~ MsgBox(0,"", @error)
If $ping Then
$don=_StringBetween(_INetGetSource("http://nist.time.gov/timezone.cgi?Eastern/d/-5"),'color',"<br>")
$gun=0
for $i=0 To UBound($don)-1
If StringLeft($don[$i],9) = '="white">' Then
If StringInStr(StringTrimLeft($don[$i],9), ":") Then
$ayirtime=StringSplit(StringTrimLeft(StringTrimLeft($don[$i],9),3), ":")
If Number($ayirtime[1]) > 17 Or Number($ayirtime[1]) = 17 Then
$gun=1

EndIf
Else
$hangiay=0
$ayir1=StringSplit(StringTrimLeft($don[$i],9),",")
For $i=0 To 11
If StringInStr($ayir1[2], $aylar[$i]) Then
$hangiay=$i+1
$hangigun=StringStripWS(StringReplace($ayir1[2], $aylar[$i], ""),+$gun
$hangiyil=StringStripWS($ayir1[3],
EndIf

Next
Return $hangiyil&"/"&$hangiay&"/"&$hangigun
EndIf
EndIf
Next
Else
Return @YEAR & "/" & @MON & "/" & @MDAY
EndIf

EndFunc
Func _INetGetSource($s_URL, $bString = True)
Local $sString = InetRead($s_URL, 1)
Local $nError = @error, $nExtended = @extended
If $bString Then $sString = BinaryToString($sString)
Return SetError($nError, $nExtended, $sString)
EndFunc ;==>_INetGetSource[/codebox]

Üstte yazdığım _Bugun() fonksiyonu eğer internet varsa ilgili web sitesine bağlanıp tarihi alıyor.Fakat internet bağlantısı yoksa bilgisayarın tarihi dönüyor.Ha sadece internetten tarihi aldırmasını istiyorsan

Return @YEAR & "/" & @MON & "/" & @MDAY bu kısmı return False yaparsın.Ona göre internet bağlantınız yok programı açamazsınız gibi bişi yaparsınız.Trial kavramı için alttaki örneği inceleyebilirsin.

http://www.tnctr.com/topic/146006-30-gun-trial-program/