JavaScript_Freek Posted June 2, 2007 Share Posted June 2, 2007 Does anyone know a Autoit thing that makes my .au3 only last 30 days unless given a serial? [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
qwertylol Posted June 2, 2007 Share Posted June 2, 2007 oh this is going to own some greens right? how much are you going to charge? Link to comment Share on other sites More sharing options...
Generator Posted June 2, 2007 Share Posted June 2, 2007 (edited) Does anyone know a Autoit thing that makes my .au3 only last 30 days unless given a serial?Look in the example script forum. I believe the topic was called Autoit Wrapper by Valuter. Realy nice. Actually i found it for you. ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf Edited June 2, 2007 by Generator Link to comment Share on other sites More sharing options...
Generator Posted June 2, 2007 Share Posted June 2, 2007 oh this is going to own some greens right? how much are you going to charge?You don't even know what's he making. Link to comment Share on other sites More sharing options...
sandman Posted June 2, 2007 Share Posted June 2, 2007 Check out XProtec by Valuater. That might be the same thing that Generator listed, I don't know, but XProtec comes with a TON of great, secure features to earn you some $$$. [center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center] Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted June 2, 2007 Author Share Posted June 2, 2007 Look in the example script forum. I believe the topic was called Autoit Wrapper by Valuter. Realy nice. Actually i found it for you. ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf i'm just testing. btw how do you work this? [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
laffo16 Posted June 6, 2007 Share Posted June 6, 2007 ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf the _nowcalc time can easily be changed by the end user. how could you detect, prevent this from happening? could the date / time be pulled from a website (eg. timeanddate.com)? Link to comment Share on other sites More sharing options...
gsglive Posted June 7, 2007 Share Posted June 7, 2007 Try this. FileCreateShortcut(@scriptfullpath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Traiol.lnk") $daysdone = IniRead (@scriptdir & "\Time.time", "Trial", "DateNowSpent", "0") $daysdone+=1 IniWrite (@scriptdir & "\Time.time", "Trial", "DateNowSpent", $daysdone) Exit - gsglive - gsglive Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now