Hallo.
Kann einer das folgende übersetzen?
Habe ich von der englischen Seite https://autoit.de/www.autoitscript.com.
LG Lina
Original:
http://www.autoitscript.com/forum/index.php?showtopic=31020&hl=PayPal
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
CODE: AutoIt
#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 ..............
[b]Protection:
ping test internet ( an internet connection is required [ if error user may exit ] )
email validate user or exit ( must recieve email to validate email address [ cc to developer])
abuse list = notify & exit ( "Blacklist.txt" )
change name of program = notify & exit
trial date error = notify & exit ( future date [also date emailed to developer] )
wrong email = notify & exit ( after installation )
additional installs = accepted or exit (License level 1 or 2 only [ License level 3 is 1 computer only ])
trail expired = pay or exit [and $U_Return = 1]( trial notification starts after 50% of trial period has passed )
"Limited Freeware" = same as above and $U_Return = 0 ( returns control to developer )
... and more
User License Levels:
1 = email license
2 = windows registered owner license
3 = One computer only license
note... license level has no effect on the following
if user trial = 0 days and user price = 0.00 then user email validation only ( free program )
if user trial > 0 days and user price = 0.00 then at the end of the trial period = notify & exit only
however...
if user trial = 0 days and user price > 0.00 then user must pay or quit ( no trial period and $U_Return = 1)
the user's license type is still in effect
Function Error Returns:
(1, -1, "Not a Compiled Program")
(0, 0, "Free Licensed")
(0, 1, "Email Licensed")
(0, 2, "Owner Licensed")
(0, 3, "Computer Licensed")
(0, 4, "License Paid") [ and emailed to developer ]
(0, 5, "License Not Paid") [ trial period continues ]
(0, 6, "Freeware Limited") [ past trial period and $U_Return = 0 ]
Function Exit Error:
("ERROR - Not a Valid Program Name ", 1, 1) [ user changed the program name ]
("Not a Valid Developer Program", 2, 1) program cannot be called "XProTec"
("Not a Valid Developer Email", 3, 1) developer email is not a correct syntax
("Not a Valid User License Number (1,2 or 3), 4, 1) User license must be a 1, 2 or 3
("Not the Registered Developer Email", 5, 1) the developer's email was changed
("This program has been abused and will now close ", 6, 1) user was found in "Blacklist.txt"
("ERROR - Validation Date ", 7, 1) a "future" validation date was used ( date emailed to developer )
($Program's Trial Period has Expired ", 8, 1) program was a "trial only"
Example Use: ( must be compiled )
CODE: AutoIt
#include<XProTec.au3>
$XLicense = XProTec("GregG@msn.com","X-ProTec-test", "10.00", "0")
If @error Then
MsgBox(0, "Error " & @error, $XLicense & " " & @CRLF & "License Type = " & @extended)
Exit
Else
MsgBox(0, "No Error " & @error, $XLicense & " " & @CRLF & "License Type = " & @extended)
EndIf
Blacklist: to check and test the default "Blacklist.txt"
CODE: AutoIt
#include<XProTec.au3>
$XLicense = XProTec("JohnSmith@aol.com","X-ProTec-test", "50.00", "10")
If @error Then
MsgBox(0, "Error " & @error, $XLicense & " " & @CRLF & "License Type = " & @extended)
Exit
Else
MsgBox(0, "No Error " & @error, $XLicense & " " & @CRLF & "License Type = " & @extended)
EndIf
; JohnSmith@aol.com is registered as an abuser in the programs default "Blacklist.txt"