Script Ending & I Dont Understand Why

[jbh5000]

Thanks in advance or any help.

I am building a fairly simple (or so I thought) script to handle a few repetitive tasks. I have a loop that I run to listen for Hotkeys and fire functions.

There is one specific function that seems to kill the script at the same place every time but I cannot understand why.

I have posted the script and notated in the comments where the issues is at roughly line 7-8.

I am very green, but seem to have made it work great other than this.

Any help would be appreciated.

Feel free to ask for any additional information needed. I am not quite sure what all you need to provide a complete analysis.

Thanks

expandcollapse popup

Func runinitialdisclosurereport ()          
$i = 0                              ;Set variable i to 0
Do                                  ; Continue to Do
Send ("{Down}")                 ;Push the Down Arrow Key
$i = $i + 1                     ;Increase variable i by 1
Until $i = 52                       ;Repeat this process 52 times or until i=52
Send ("{Enter}")                    ;Press Enter to run report       #### This is where it is faling
Sleep (1000)                        ; Pause 1 Seconds                #### the script exits here Exit Code: 0        


If WinExists("[Class:#32770]") Then     ;check to see if the no records popup box exists
   
   WinClose ("[Class:#32770]")          ;if it exists close it
   Send ("!f")  ;Alt-F                  ;ALT-F Activate the File Menu
    Send ("x")                          ;X for Exit
Else                                    ;If the no records popup box does not exist Continue
If $location = "home" Then              ; If I am working from home set the color variable
    $color=0x0069FF
ElseIf $location="work" Then            ; If I am at work set the color variable
    $color=0x026AFE
EndIf



While PixelGetColor ( 870,032) <> $color        ;If the excel file is not present wait for it
Sleep (1000)
WEnd

Send ("!f")         ;Alt-F to activate file menu
Send ("a")          ;A for Save As
Send ("C:\Documents and Settings\auto\My Documents\Point Report Storage Files\Compliance Disclosure Reports\Files That Need Initial Disclosures.xls") ;directory
Send ("{Enter}")    ;Enter to Save
Send ("y")          ;y to confirm overwrite
EndIf


If $location = "home" Then                      ; If I am working from home set the color variable
    $color=0xEFEBDE                     
ElseIf $location="work" Then                    ; If I am at work set the color variable
    $color=0xECE9D8
EndIf

While PixelGetColor ( 300,150) <> $color        ;Wait for the excel file to close
Sleep (1000)                                    ;Pause 1 Sec
WEnd
Send ("{F2}")                                   ; Press F2 to change screens
deletefirstrowofexcelfile ()                    ;run the function that deletes the first row of excel
EndFunc

[jbh5000]

After a little more experimenting it seems to work on fresh runs after a reboot, but if I try to run it a second time it fails and it fails every time after that.

If I reboot and run it works once and then fails from there on out.

Any ideas?

[Melba23]

jbh5000,

First, please bear in mind that as I have no access to your particular files, these are very much shots in the dark.

Looking at the code, there is nothing which should make it exit at that point - normally a script will only end at Exit, on an error or when it runs out of commands to execute. Are you sure that you are, in fact, exiting at the very line of code you indicate? I ask because it looks to me that if the Send("{Enter}") ;Press Enter to run report line fails, there is nothing to stop the code running through the rest of the function without a pause and then perhaps stopping elsewhere.

I have often found that it is worth adding a short Sleep command betwen keystrokes when using Send - try adding a Sleep(250) before your Send("{Enter}") line. Additionally add some ConsoleWrite (or MsgBox) lines around the point where you believe the script to be exiting to try and debug exactly which lines are being executed.

Finally - are you sure that there is absolutely no difference in the behaviour of your app when you try to run the script a second time? Not 51 or 53 Send("{Down}") commands? Often on an initial run there is key that needs to be pressed which becomes redundant on subsequent passes.

Sorry I cannot be of more help. Please let me know if any of the above helps - particularly if the addition of the debugging lines pinpoints an exit point other than the one you have shown in the script.

M23