Jump to content

Recommended Posts

Posted

I have no more knowledge about Xprotec, But i am trying to buid this code

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

$D_Mail = "developer@msn.com " ; your email
$D_Program = "rcnumber" ; your program name
$U_Price = "10" ; the amount of money you wish to be payed by the user
$U_Trial = "3" ; 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)
Opt("TrayAutoPause",0)
HotKeySet("{ESC}", "Quit")

Func Quit()
    Exit
 EndFunc

 $sData = ClipGet()
$oIE = _IEAttach ("Enter card Number")
$body = _IEBodyReadHTML($oIE)
WinActivate("[CLASS:IEFrame]")
while 1
_IELoadWait($oIE); (Default) Wait for page load to complete before returning
$body = _IEBodyReadHTML($oIE)

If Not StringInStr($body, "userCard") Then
ContinueLoop
Else
   $oObj = _IEGetObjByName($oIE,"userCard")
_IEPropertySet($oObj,"innertext",$sData)
$btnext = _IEGetObjById($oIE,"btnnext")
_IEAction($btnnext,"click")
ExitLoop
EndIf
WEnd

But when i run complied script i got this error : 

Please Register as Devloper

Anyone can help me for build it, Please.

Capturehh.JPG

Posted
8 minutes ago, naru said:

Please Register as Devloper

Is caused by:

If $D_License <> $D_2 Then mError("Please Register as Developer" & @CRLF & @CRLF & "Dev Email = " & $D_Mail & "   "  & @CRLF & "Dev License = " & $D_2 & "     " & @CRLF & @CRLF, " Free #          ...Valuater", 1)

Try to set $D_License = 1.

Click here to see my signature:

Spoiler

ALWAYS GOOD TO READ:

 

Posted
4 minutes ago, FrancescoDiMuro said:

Is caused by:

If $D_License <> $D_2 Then mError("Please Register as Developer" & @CRLF & @CRLF & "Dev Email = " & $D_Mail & "   "  & @CRLF & "Dev License = " & $D_2 & "     " & @CRLF & @CRLF, " Free #          ...Valuater", 1)

Try to set $D_License = 1.

@FrancescoDiMuro I was set $D_License = 1. but i get same error

Posted
10 minutes ago, moimon said:

Add Clipput($D_2) in func XProTec

And have:

$D_License = "F2C02EDD5B8AB654"

Try it.

Sorry because I'm not well English

How can i put Clipput($D_2) ?

$D_License = "F2C02EDD5B8AB654"

Tried it. same error.

Posted (edited)

COM Error by Func mEmailer

mryXOLv.png

 

You need to fully declare these, they are found at the beginning of the UDF

QBd2HtZ.png

 

Edited by moimon
Posted (edited)
6 minutes ago, moimon said:

COM Error by Func mEmailer

mryXOLv.png

 

 

how to solve it ? I have no any server

Edited by naru

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...