XProTec.au3 = automated Protect and get *Paid*

[naru]

On 8/16/2006 at 1:45 AM, Valuater said:

*** FREE*** April 9, 2007

 

Download XProtec.au3 - Free

 

 

 

Original XProTec - v1.0.5 - March 18, 2007

 

XProTec.au3

Previous downloads = 820 +/-

 

Protect and get Paid for.... Your Program

 

Features:

*New* Limited Freeware Option Example

end user must register.

automated email notifications to developer.

trial period.

user license.

registration price.

registration reminder.

automated registration and acceptance of payment. ( your paypal account )

 

 

Syntax:

 

Must be compiled

 

 

#include<XProTec.au3> ; MUST BE AN INCLUDE

$D_Mail = "developer@msn.com " ; your email
$D_Program = "My_Program_Name" ; your program name
$U_Price = "20.00" ; the amount of money you wish to be payed by the user
$U_Trial = "30" ; amount of days for the trial period
$U_License = "3" ; 3 = one computer only - see license notes
$D_License = "123456789" ; developers license # 
$D_PayPal = "www.paypal.com/my account-link to paypal" ; - paypal link 
$D_Link = "www.mywebsite.com/.../" ; looks for "www.mywebsite.com/.../Blacklist.txt" ; see Blacklist
$U_Return = 1 ; pay or quit .... or  $U_Return = 0 ; will return control to developer with @extended = 6 [Limited Freeware Option]

XProTec($D_Mail, $D_Program, $U_Price, $U_Trial, $U_License, $D_License, $D_PayPal, $D_Link, $U_Return)

; your script starts here ..............

@Valuater How to use this code ?

I want to protect my this script :

#include <IE.au3>
Local $oIE = _IEAttach ("Home")

$Dprintdetails1 = _IEGetObjById($oIE, "printdetails") ; get first object
$Dprintdetails1.id = "printdetails1" ; change it's id
$Dprintdetails = _IEGetObjById($oIE, "printdetails") ; get second object
$Dprintdetails.RemoveNode(True) ; remove it

exit

 

[kartune]

Hi there!

Highly interested in implementing this to my software.

Is there a simple way to have trial keys that only last 5 days, and premium keys for x amount of days (such as 30)?

 

Thanks!