radyofon Posted May 3, 2012 Share Posted May 3, 2012 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. Quote Link to comment Share on other sites More sharing options...
MostWanted Posted May 3, 2012 Share Posted May 3, 2012 [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/ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.