Problem with create trial version.

[jmp]

i want to create 3 days trial version of my copmlied script, after reached 3 days it want to ask some key and it send to the registry, the key has been already entered in my script.

Here is my code :

expandcollapse popup

#RequireAdmin
#include <Date.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "Quit")

$endDate = "2020/04/28"
$skey = "PF0BVXS" 
$regKey = "18241454598"

$oIE = _IEAttach ("My webpage")
Local $oTds = _IETagNameGetCollection($oIE, "AB")
For $oTd In $oTds
    If $oTd.className = "header-btn 3" Then
        $sDate = StringSplit($oTd.NextElementSibling.InnerText, " ")[3] ;Get date from webpage
        ExitLoop
    EndIf
Next
$findkey = RegRead("HKEY_CURRENT_USER\Software\Mycode" , "softwarekey")
$nowdate = StringRegExpReplace($sDate, "(\d\d)/(\d\d)/(\d\d\d\d)", "$3/$2/$1")
Local $datediff = _DateDiff('D', $nowdate, $endDate)
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colSMBIOS = $objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
For $objSMBIOS in $colSMBIOS
Next
$FsKey = $objSMBIOS.SerialNumber


If $datediff > 0 And $FsKey = $skey Then
;continue my script

ElseIf $datediff < 0 Then
    MsgBox($MB_ICONWARNING, "", "program expired", 15)
    Exit
ElseIf not ($FsKey = $skey) Then
    MsgBox($MB_ICONWARNING, "", "Serial not match", 15)
    Exit
ElseIf ($datediff < 363) And ($FsKey = $skey) And Not ($regKey = $findkey) Then
$guiCreate = GUICreate("Code", 400, 200, -1, -1)
GUICtrlCreateLabel("Enter your Key : ", 10, 20, 100)
$Input1 = GUICtrlCreateInput("", 10, 50, 300, 25)

$Button1 = GUICtrlCreateButton("Save", 130, 100, 75, 25)
GUICtrlSetTip(-1, "Save...")
$Button2 = GUICtrlCreateButton("Exit", 230, 100, 75, 25)
GUICtrlSetTip(-1, "Exit...")
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ClipPut ("")
            Exit
        Case $Button1
            OK()
        Case $Button2
            Close()
    EndSwitch
WEnd
EndIf

Func OK()
     $rCode = GUICtrlRead($Input1)
$verify = MsgBox(68, "", "Do you want to register with this serial key ?" &@crlf& $rCode)
                    Select
                        Case $verify = 6
RegWrite ("HKCU\Software\MyScript" , "ScriptWontWorkWithoutThisKey", "REG_SZ" , $rCode)
                        ClipPut ("")
                            Exit
                        Case $verify = 7
                          ClipPut ("")
                            Exit
                    EndSelect
EndFunc
Func Close()
    ClipPut ("")
    Exit
EndFunc

But, it was not ask for key and continue running.

Sorry for my bad english.

Edited April 28, 2019 by jmp

[Nine]

  What kind of debugging effort have you put to solve your issue.  You know that the lines that cause your problem are :

If $datediff > 0 And $FsKey = $skey Then
;continue my script

ElseIf $datediff < 0 Then
    MsgBox($MB_ICONWARNING, "", "program expired", 15)
    Exit
ElseIf not ($FsKey = $skey) Then
    MsgBox($MB_ICONWARNING, "", "Serial not match", 15)
    Exit
ElseIf ($datediff < 363) And ($FsKey = $skey) And Not ($regKey = $findkey) Then
...

So you should be able to find out the problem yourself.  What you should do is place a few msgbox or consolewrite just before the start of the "If" and look inside all variables implied in that section.  It should become clear what is the issue.  You can also msgbox a whole condition like :

MsgBox (0,"Test",($datediff < 363) And ($FsKey = $skey) And Not ($regKey = $findkey))

So you can know the real end result.  One piece of advise, replace not ($a = $b) by $a <> $b, it is more readable...

Edited April 28, 2019 by Nine

[jmp]

2 hours ago, Nine said:

  What kind of debugging effort have you put to solve your issue.  You know that the lines that cause your problem are :

If $datediff > 0 And $FsKey = $skey Then
;continue my script

ElseIf $datediff < 0 Then
    MsgBox($MB_ICONWARNING, "", "program expired", 15)
    Exit
ElseIf not ($FsKey = $skey) Then
    MsgBox($MB_ICONWARNING, "", "Serial not match", 15)
    Exit
ElseIf ($datediff < 363) And ($FsKey = $skey) And Not ($regKey = $findkey) Then
...

So you should be able to find out the problem yourself.  What you should do is place a few msgbox or consolewrite just before the start of the "If" and look inside all variables implied in that section.  It should become clear what is the issue.  You can also msgbox a whole condition like :

MsgBox (0,"Test",($datediff < 363) And ($FsKey = $skey) And Not ($regKey = $findkey))

 So you can know the real end result.  One piece of advise, replace not ($a = $b) by $a <> $b, it is more readable...

Msgbox showing False.

and it was not asking for key after reaching 3 days and Script continues work without key.

Edited April 28, 2019 by jmp

[BrewManNH]

How is this any different from your last thread? Why open a new one when you're still getting help in the previous one?

[FrancescoDiMuro]

14 minutes ago, BrewManNH said:

Why open a new one when you're still getting help in the previous one?

Already reported the thread since he seems to be @naru/@iamtech, who are already banned from the forum.

[alienclone]

4 hours ago, FrancescoDiMuro said:

Already reported the thread since he seems to be @naru/@iamtech, who are already banned from the forum.

are you sure it isnt just another brother?

[jmp]

4 hours ago, alienclone said:

are you sure it isnt just another brother?

Yeah, I am brother of naru, iamtech is not my account. He was used both account. So, He is not my business partner, but we have same types business.

Naru's mistake now seems to be punishment for me, because i feel that my account will banned of his mistake. 

[Melba23]

jmp,

At the moment I am prepared to give you the benefit of the doubt over this "brother" claim. Woe betide you if you are not being honest.

M23

[jmp]

32 minutes ago, Melba23 said:

jmp,

At the moment I am prepared to give you the benefit of the doubt over this "brother" claim. Woe betide you if you are not being honest.

M23

Okay Sir, I am not known English well as my brother, But i will trying to understand you. 

Can we now discuss about my post? 

Edited April 29, 2019 by jmp

[jmp]

Please help me anyone to solve my issue.

[JLogan3o13]

It was mentioned two days ago that you didn't have any debugging in your script, and an example of the debugging you should be doing was given to you. Have you implemented this? What are the results? Rather than just asking for someone else to fix it for you, how about showing some effort yourself

Edited April 30, 2019 by JLogan3o13

[jmp]

1 hour ago, JLogan3o13 said:

It was mentioned two days ago that you didn't have any debugging in your script, and an example of the debugging you should be doing was given to you. Have you implemented this? What are the results? Rather than just asking for someone else to fix it for you, how about showing some effort yourself

it was not asking for key after reaching 3 days and Script continues work without key.

[Earthshine]

you sure don't like answering questions do you? A Moderator asked you a very important question. Why should anyone help you if you refuse to take help advice? It makes some people angry to see code-begging.

Edited April 30, 2019 by Earthshine

[jmp]

1 minute ago, Earthshine said:

you sure don't like answering questions do you? A Moderator asked you a very important question. Why should anyone help you if you refuse to take help advice? It makes some people angry to see code-begging.

Okay Sorry Sir, But i am new on autoit and i don't know why my code is not working properly ?

[FrancescoDiMuro]

@jmp

Another reason to not sell your script.

[Earthshine]

what code? you've posted NONE of yours!

no excuses either--that is rather pathetic, we were all new at some point. difference is we read help files and do research. And when you are given help in other threads but don't implement it, who could possibly know but you why it doesn't work?!?

I'm out, you are now on Ignore. bye.

Edited April 30, 2019 by Earthshine

[jmp]

I Exchanged line 31 with line 40, and line 40 with line 31, and now it was asking key after 3 days.

Now my Code is :

expandcollapse popup

#RequireAdmin
#include <Date.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "Quit")

$endDate = "2020/04/28"
$skey = "PF0BVXS"
$regKey = "18241454598"

$oIE = _IEAttach ("My webpage")
Local $oTds = _IETagNameGetCollection($oIE, "AB")
For $oTd In $oTds
    If $oTd.className = "header-btn 3" Then
        $sDate = StringSplit($oTd.NextElementSibling.InnerText, " ")[3] ;Get date from webpage
        ExitLoop
    EndIf
Next
$findkey = RegRead("HKCU\Software\Mykey" , "WontWorkWithoutMyKey")
$nowdate = StringRegExpReplace($sDate, "(\d\d)/(\d\d)/(\d\d\d\d)", "$3/$2/$1")
Local $datediff = _DateDiff('D', $nowdate, $endDate)
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colSMBIOS = $objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
For $objSMBIOS in $colSMBIOS
Next
$FsKey = $objSMBIOS.SerialNumber


If ($datediff < 363) And ($FsKey = $skey) And Not ($regKey = $findkey) Then
$guiCreate = GUICreate("Code", 400, 200, -1, -1)
GUICtrlCreateLabel("Enter your Key : ", 10, 20, 100)
$Input1 = GUICtrlCreateInput("", 10, 50, 300, 25)

$Button1 = GUICtrlCreateButton("Save", 130, 100, 75, 25)
GUICtrlSetTip(-1, "Save...")
$Button2 = GUICtrlCreateButton("Exit", 230, 100, 75, 25)
GUICtrlSetTip(-1, "Exit...")
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ClipPut ("")
            Exit
        Case $Button1
            OK()
        Case $Button2
            Close()
    EndSwitch
WEnd
ElseIf $datediff > 0 And $FsKey = $skey Then
;continue my script

ElseIf $datediff < 0 Then
    MsgBox($MB_ICONWARNING, "", "program expired", 15)
    Exit
ElseIf not ($FsKey = $skey) Then
    MsgBox($MB_ICONWARNING, "", "Serial not match", 15)
    Exit

EndIf

Func OK()
     $rCode = GUICtrlRead($Input1)
$verify = MsgBox(68, "", "Do you want to register with this serial key ?" &@crlf& $rCode)
                    Select
                        Case $verify = 6
RegWrite ("HKCU\Software\Mykey" , "WontWorkWithoutMyKey", "REG_SZ" , $rCode)
                        ClipPut ("")
                            Exit
                        Case $verify = 7
                          ClipPut ("")
                            Exit
                    EndSelect
EndFunc
Func Close()
    ClipPut ("")
    Exit
EndFunc

Now my question is : 1) why it was not working before ?

2) Does it have any Bug ?

3) Does it stopped run after 365 days ?

[JLogan3o13]

1) Because you were doing something wrong

2) Almost certainly because you're still doing zero error checking

3) We'll let you know in 366 days, stay tuned

[jmp]

33 minutes ago, JLogan3o13 said:

1) Because you were doing something wrong

2) Almost certainly because you're still doing zero error checking

3) We'll let you know in 366 days, stay tuned

1) I agree, but my question is why autoit not recognize second if/elseif statement ?

2) can you tell me what is bug in my code? 

3) If I could wait, why would I ask you here?

[JLogan3o13]

1) Because it was formatted incorrectly, and if you had some error checking you would have figured that out.

2) See above, you want us to spoon-feed it to you. How about adding the error checking as suggested multiple times by multiple people, and figuring it out for yourself?

3) My point exactly - you're asking the community to peer into our collective crystal balls and determine whether your script will still be running a year from now. How do you expect a concrete answer to that? Best guess? Maybe...

If the answers you are getting are frustrating, realize they are a reflection of the teeth-pulling people have had to do to get information from you, as well as the community's frustration at you wanting to sit back and have everyone do it all for you line by line. Put in some additional effort, and you will receive additional assistance.