File looping (HELP)

[BrewManNH]

Use the window's handle and not it's title.

https://www.autoitscript.com/autoit3/docs/intro/windowsadvanced.htm

 

[Rmedina4]

When I get to this step in the code with every new part the window handle will change after each loop because every loop pulls in a new part.  I don't want to have to hardcode all the window handles. Correct me if I'm wrong.

[Rmedina4]

Example this is the next part the loop pulls in and the window handle changes everytime when it gets to this step.

 

[Subz]

Just use StringTrimRight($aParts[$i]) or one of the other string functions like StringLeft + StringInStr

[Rmedina4]

So winwaitActivate("Family Table: StringTrimRight($aParts[$i]) 3 ")

 

??

[Rmedina4]

I did the step I wanted to do using a hotkey but if I can do it in Autoit then that would be alot better.

[Subz]

WinActivate("Family Table: " & StringTrimRight($aParts[$i], 4))

 

Edited June 30, 2017 by Subz

[Rmedina4]

@Subz I tried your command doesn't seem to work, it doesn't output "Family Table: it only outputs the StringTrimright command. I did testing to see what it's actually populating and it only displays the bottom portion "window doesnt exist" If I change that to Family Table  :" & StringTrimRight($aParts[$i], 4 it will display correctly but for some reason it doesn't activate the Winexist 

 

Func Example()
If WinExists ("Family Table  :" & StringTrimRight($aParts[$i], 4)) Then
    MsgBox($MB_SYSTEMMODAL, "", "Family Table :" & StringTrimRight($aParts[$i], 4))
 Else
     MsgBox($MB_SYSTEMMODAL, "", "window doesn't exist")
     EndIf
EndFunc

 

[Subz]

Sorry just copied your code above, I believe your issues are spaces, you need to check where the spaces should be so in your code above I noticed you a double space between (Table) and the end colon (:), with no space afterwards

Quote

"Family Tablexx:" & StringTrimRight($aParts[$i], 4) = Family Tablexx:Part Name
nb: xx represents space

In my last post I had added a space after the colon:

Quote

"Family Table :x" & StringTrimRight($aParts([$i], 4) = Family Table :xPart Name

Once you figure out the spacing you should be alright

[Rmedina4]

yeah, I can't figure out the spacing. the window info it shows like this

Family Table :CAP_SMD_3528

My code is:

Func Example()
If WinActivate ("Family Table   :" & StringTrimRight($aParts[$i], 4)) Then
    MsgBox($MB_SYSTEMMODAL, "", "Coreect")
 Else
     MsgBox($MB_SYSTEMMODAL, "", "Sorry")
     EndIf
  EndFunc

Cap_smd_3528 is the part just fyi

 

I keep getting back sorry ...I tried all types of spacing single double triple and nothing works. Even when I output "Family Table   :" & StringTrimRight($aParts[$i], 4 in the message box it looks identical as what the Autoit Window tool shows me.

[Rmedina4]

expandcollapse popup

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#RequireAdmin
AutoItSetOption('MouseCoordMode', 0)
AutoItSetOption('SendKeyDelay', 7)

Global $sParts = @ScriptDir & "\Symbol-look-with-prt.txt" ;~ String Variable pointing to Parts.txt file

   Global $aParts ;~ Array Variable
        _FileReadToArray($sParts, $aParts)

For $i = 1 To $aParts[0]
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    sleep(2000)
    MouseClick('primary', 1300, 292, 1, 0)

    ;****************************************************************************************
    ;This part of the code is for assigning a var to a part
    ;it stores the var then paste it into the search field and hits enter
    ;
    ;****************************************************************************************

    ClipPut($aParts[$i])
    Send('^v')
    Send("{ENTER}")

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will show the results of
    ; the ClipPut ("Value") and will show the part in PDP
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(9000)
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    MouseClick('primary', 372, 595, 1, 0)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will click on the Action button
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(9000)
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    MouseClick('primary', 312, 366, 1, 0)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will click on the Action button, scroll
    ; down, right, enter then it will open in Creo and populate the 3D model
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(9000)
    Send('{DOWN}')
    Send('{RIGHT}')
    sleep(9000)
    Send("{ENTER}")
    Sleep(7000)
    Send("{ENTER}")
    Sleep(9000)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in Creo and will click on the X button To
    ; Close the current window another way to do this is WinClose funtion
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(9000)
    Send('{DOWN 4}')
    Sleep(9000)
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    Sleep(9000)
    WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in Creo and bring back the PDP search link
    ; Make sure to have MapKey created in Creo call it qq so when its called
    ; it will close the object in creo
    ;
    ; Another Mapkey that needs to be created is ss so it can bring up the PDP search
    ; site.
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   #comments-start
   This part of the script locates the Tools in Creo and clicks on Family Table
   #comments-end


    ; Creo tools Tab
   WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
    MouseClick('Primary', 479, 53, 1, 0)


   ; This function clicks on FT and open it

    sleep(9000)
    WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
    MouseClick('Primary', 541, 102, 1, 0)


Example()
Func Example()
If WinActivate ("Family Table   :" & StringTrimRight($aParts[$i], 4)) Then
    MsgBox($MB_SYSTEMMODAL, "", "Correct")
 Else
     MsgBox($MB_SYSTEMMODAL, "", "Sorry")
     EndIf
  EndFunc

Full code above

Autoit window tool info down below:

Edited July 1, 2017 by Rmedina4
more information to add

[Subz]

For  Family Table :CAP_SMD_3528  you should be using something like this, if you run this within Scite it should output the name to the console.

Func Example()
    Local $sWinTitle = "Family Table :" & StringTrimRight($aParts[$i], 4) 
    WinActivate($sWinTitle, "")
    ConsoleWrite($sWinTitle & @CRLF)
    If WinActive($sWinTitle, "") Then
        MsgBox(4096, "", $sWinTitle & " is active.")
    Else
        MsgBox(4096, "", $sWinTitle & " is inactive.")
    EndIf
EndFunc

 

[Rmedina4]

Yeah, I used your function and it keeps coming back as inactive. IDK what to do anymore....

[Rmedina4]

another question is there anyway I can send the array value Example:

Send ("[StringTrimRight($aParts[$i], 4]" &".txt")

If i can get this working it will resolve my issue above with the spacing @Subz

[Rmedina4]

I want this to output Part name from the txt file its pulling from then i want to add .txt after every part name.

[BrewManNH]

Maybe this?

Send(StringTrimRight($aParts[$i], 4) & ".txt")

 

[Rmedina4]

Quick question: Can I control a drop down list like controlclick funtion does with a button?

 

My basic control info is down below. .....I want control the class:List instance 2 so It automatically clicks it and I can send 2 down command then enter. I can do it with mouse clicks but curious if I can control the list. If so how?

 

Thank you,

 

[Rmedina4]

My script is complete and was working perfect this morning and it goes thru one full cycle and starts the second loop but when it gets to one command (Send ("lop"))

it doesn't run it just stalls.. Any clue on why? Doesn't make sense to me because it does one full cycle and starts to work on the second loop but stops when it gets to that part of the code. it worked perfect this morning and now it doesn't work, plus I didn't change anything either. Also it finish the 

WinWait("Select Instance")
    WinActivate("Select Instance")
    Send("{ENTER}")
    Sleep(9000)

part of the code which is right before the Send command

Here is my code:

expandcollapse popup

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#RequireAdmin
AutoItSetOption('MouseCoordMode', 0)
AutoItSetOption('SendKeyDelay', 7)

Global $sParts = @ScriptDir & "\Symbol-look-with-prt.txt" ;~ String Variable pointing to Parts.txt file

   Global $aParts ;~ Array Variable
        _FileReadToArray($sParts, $aParts)

For $i = 1 To $aParts[0]
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    sleep(2000)
    MouseClick('primary', 1300, 292, 1, 0)

    ;****************************************************************************************
    ;This part of the code is for assigning a var to a part
    ;it stores the var then paste it into the search field and hits enter
    ;
    ;****************************************************************************************

    ClipPut($aParts[$i])
    sleep(3000)
    Send('^v')
    Sleep(3000)
    Send("{ENTER}")

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will show the results of
    ; the ClipPut ("Value") and will show the part in PDP
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(5000)
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    MouseClick('primary', 372, 595, 1, 0)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will click on the Action button
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(5000)
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    MouseClick('primary', 292, 366, 1, 0)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will click on the Action button, scroll
    ; down, right, enter then it will open in Creo and populate the 3D model
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(5000)
    Send('{DOWN}')
    Send('{RIGHT}')
    sleep(5000)
    Send("{ENTER}")
    Sleep(5000)
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in creo and will run thru a if else statement for when
    ; the information dialog box pops up
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    Information()
    Sleep (5000)
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes when select instance window comes up
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    WinWait("Select Instance")
    WinActivate("Select Instance")
    Send("{ENTER}")
    Sleep(9000)
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ; This part of the code executes a Creo HotKey to load parameters
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   Send("lop")
   Sleep(5000)
   
   
   WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    Sleep(5000)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This part of the code executes a Creo HotKey to delete Family table instances
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
Send("dft")

; nv tool tab
   WinWaitActive("[CLASS:Dialog]")
    MouseClick('Primary', 122, 53, 1, 0)
Sleep(5000)


; this part is for the "Generate family table Columns"
WinWaitActive("[CLASS:Dialog]")
    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(5000)
    Send('{DOWN}')
  Sleep(5000)
    Send("{ENTER}")
    Sleep(5000)

; This part clicks on the manu load feature
WinWaitActive("[CLASS:Dialog]")
    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(5000)
    Send('{DOWN}')
Send('{DOWN}')
Send('{DOWN}')
 Sleep(5000)
    Send("{ENTER}")

    ; popup window after you click on the manu load button
WinWait("Information")
WinActivate("Information")
Send("{ENTER}")

; in the search field it will enter the part.txt file and press enter
WinWait("Select File")
WinActivate("Select File")
Send (StringTrimRight($aParts[$i], 4) &".txt")
    Sleep(5000)
    Send('{ENTER}')

    ; the status will appear and a dialog box will appear, click enter
WinWait("Family Table Status")
WinActivate("Family Table Status")
Sleep(5000)
Send ('{ENTER}')
Sleep(5000)

;After the manu process is complete
WinWaitActive("Information")
Sleep(5000)
Send("{ENTER}")
Sleep (5000)
WinWaitActive("[CLASS:Dialog]")
Send("{CTRLDOWN}s{CTRLUP}")
;close object window

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This part of the code executes a if else function for things to be verify if needed
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 Conflicts()
 Sleep(3000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This part of the code executes a Creo HotKey to quit object
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 Send("qq")
    Sleep(5000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This part of the code executes a Creo HotKey open up the PDP search window
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Send("ss")


Next



Func Information ()
   If WinActivate ("Information") Then
      Send("{ENTER}")
   Else
   EndIf
EndFunc


Func Conflicts()
   Sleep(5000)
   If WinActivate("Conflicts") Then
      WinWait("Conflicts")
      WinActivate("Conflicts")
      MouseClick('primary', 483, 104, 1, 0)
      Sleep(3000)
      Send('{DOWN}')
      Send('{DOWN}')
      Send("{ENTER}")
      WinWait("Conflicts")
      WinActivate("Conflicts")
      MouseClick('primary', 472, 318, 1, 0)
      Sleep(4000)
      Send("{CTRLDOWN}s{CTRLUP}")
   Else
   EndIf
EndFunc

 

[Rmedina4]

expandcollapse popup

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#RequireAdmin
AutoItSetOption('MouseCoordMode', 0)
AutoItSetOption('SendKeyDelay', 7)

Global $sParts = @ScriptDir & "\Symbol-look-with-prt.txt" ;~ String Variable pointing to Parts.txt file

   Global $aParts ;~ Array Variable
        _FileReadToArray($sParts, $aParts)

$log = Fileopen(@scriptdir & "\log.txt", 10)

For $i = 1 To $aParts[0]
   FileWrite($log, $aParts[$i])
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    sleep(5000)
    MouseClick('primary', 1300, 292, 1, 0)


    ;****************************************************************************************
    ;This part of the code is for assigning a var to a part
    ;it stores the var then paste it into the search field and hits enter
    ;
    ;****************************************************************************************

    ClipPut($aParts[$i])
    Send('^v')
    Sleep(2000)
    Send("{ENTER}")

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in PDP and will show the results of
    ; the ClipPut ("Value") and will show the part in PDP
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    sleep(9000)
    WinWait("Creo Parametric")
    WinActivate("Creo Parametric")
    MouseClick('Secondary', 415, 603, 1, 0)
     sleep(3000)
    Send('{DOWN}')
    sleep(1000)
    Send('{DOWN}')
    Send('{RIGHT}')
    sleep(3000)
    Send("{ENTER}")

    Information()
    Sleep (5000)
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes when select instance window comes up
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    WinWait("Select Instance")
    WinActivate("Select Instance")
    Send("{ENTER}")
    Sleep(9000)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in Creo and will click on the X button To
    ; Close the current window another way to do this is WinClose funtion
    ;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
Send("uf")
Sleep(5000)
If WinExists ("Menu Manager") Then
      FileWrite($log, @CRLF)
      Send("rf")
      FileWrite($log, $aParts[$i] & " Regeneration Failed")
      FileWrite($log, @CRLF)

ContinueLoop
   EndIf
sleep(5000)
    WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(9000)
    Send('{DOWN 4}')
    Sleep(9000)
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    Sleep(9000)
    WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This part of the code executes in Creo and bring back the PDP search link
    ; Make sure to have MapKey created in Creo call it qq so when its called
    ; it will close the object in creo
    ;
    ; Another Mapkey that needs to be created is ss so it can bring up the PDP search
    ; site.
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   #comments-start
   This part of the script locates the Tools in Creo and clicks on Family Table
   #comments-end


    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(5000)
    Send('{DOWN 4}')
    Sleep(5000)
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    WinWaitActive("Parameter Status",'')
    Send("{ENTER}")
    Sleep(5000)
    WinWait("[CLASS:Dialog]")
    WinActivate ("[CLASS:Dialog]")

Send("dftt")

; nv tool tab
   WinWaitActive("[CLASS:Dialog]")
    MouseClick('Primary', 122, 53, 1, 0)
Sleep(5000)


; this part is for the "Generate family table Columns"
WinWaitActive("[CLASS:Dialog]")
    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(5000)
    Send('{DOWN}')
  Sleep(5000)
    Send("{ENTER}")
    Sleep(5000)

; This part clicks on the manu load feature
WinWaitActive("[CLASS:Dialog]")
    MouseClick('Primary', 610, 84, 1, 0)
    Sleep(5000)
    Send('{DOWN}')
Send('{DOWN}')
Send('{DOWN}')
 Sleep(5000)
    Send("{ENTER}")

    ; popup window after you click on the manu load button
WinWait("Information")
WinActivate("Information")
Send("{ENTER}")

; in the search field it will enter the part.txt file and press enter
WinWait("Select File")
WinActivate("Select File")
Send (StringTrimRight($aParts[$i], 4) &".txt")
    Sleep(5000)
    Send('{ENTER}')

    ; the status will appear and a dialog box will appear, click enter
WinWait("Family Table Status")
WinActivate("Family Table Status")
Sleep(5000)
Send ('{ENTER}')
Sleep(5000)

;After the manu process is complete
WinWaitActive("Information")
Sleep(5000)
Send("{ENTER}")
Sleep (5000)
WinWaitActive("[CLASS:Dialog]")
Send("viv")

    Sleep(5000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This part of the code executes a Creo HotKey open up the PDP search window
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    WinWaitActive("[CLASS:Dialog]")
    Send("ss")

FileWrite($log, @CRLF)

Next

FileClose($log)

Func Information ()
   If WinActivate ("Information") Then
      Send("{ENTER}")
   Else
   EndIf
EndFunc

I decided to use the if else statement in the script instead of making a function but when I do it this way it works half way. Everytime when the window ("Menu manager") doesn't exist it still starts to loop over which I don't want to happen. I only want it to happen when the window exist.