AutoHotkey Community

F1::
winName = Reprint Label ;child win name inside specimen main window
appName = Specimen ;main window with multiple child windows
WinGet, conList, ControlListHwnd, % appName
Loop, Parse, conList, `n
{
    curHwnd := A_Loopfield
    WinGetTitle, curWin, ahk_id %curHwnd%
    CoordMode, Tooltip, Screen
        if (curWin = winName)
                Break
}
WinSet, Top,, % "ahk_id " curHwnd
;is there a way to make it so that if the reprint label window is not active in specimen window than it allows me to send keystroke to open that window  under specimen window? i need it done in the background (NA style) or just msgbox that reprint label window is not open. i've tried but didn't work out.
Loop
{
IfWinNotExist Specimen
MsgBox, Specimen window not active
Else
IfWinExist Specimen
Inputbox,CID,Please enter CID to reprint,,,,100 ;i need this always on top
If ErrorLevel ;end loop also how can i make it so that if the value is empty(press enter without entering any numbers to inputbo), that it will also end the loop
{
   break
}
Else
DetectHiddenWindows, On
ControlSendRaw,Edit1,%CID%,Specimen Management Routing and Tracking
ControlClick,Button6,Specimen,,,,NA
;i need to add that if a window call SMART(an error message) come up than to activate that window and also end loop
;else continue loop
Winwait,Printer Select,,,,4
ControlClick,Button1,Printer Select,,,,NA
}
Return

IfWinNotExist, Specimen Window Title
run, c:\whatever the path is\specimen.exe
WinWaitExist, Specimen Window Title

IfWinExist, SMART
  {
  MsgBox, SOME TEXT
  WinActivate, SMART
  Break
  }

IfWinExist, Program name
  IfWinNotExist, Print Label
    ControlSend/ControlClick/WinMenuSelectItem????

WinSet, Top,, % "ahk_id " curHwnd

; Static subwindow calls.
SelectSubWin("PIC1.jpg","Microsoft Photo Editor") ; Call 1
SelectSubWin("Text2","Microsoft Visual C++") ; Call 2

SelectSubWin(wN,aN){
    WinGet, conList, ControlListHwnd, % aN
    Loop, Parse, conList, `n
    {
        WinGetTitle, cW, % "ahk_id " curHwnd := A_Loopfield
            if (cW = wN)
                    Break
    }
    WinActivate, % aN
    WinActivate % "ahk_id " curHwnd
}

SelectSubWin("Reprint Label","Specimen **enter full name**") ; add the rest of the Specimen name.

SelectSubWin(wN,aN){
    WinGet, conList, ControlListHwnd, % aN
    Loop, Parse, conList, `n
    {
        WinGetTitle, cW, % "ahk_id " curHwnd := A_Loopfield
            if (cW = wN)
                    Break
    }
    WinActivate, % aN
    WinActivate % "ahk_id " curHwnd
}

F1::
winName = Reprint Label ;child win name inside specimen main window
appName = Specimen ;main window with multiple child windows
WinGet, conList, ControlListHwnd, % appName
Loop, Parse, conList, `n
{
   curHwnd := A_Loopfield
   WinGetTitle, curWin, ahk_id %curHwnd%
   CoordMode, Tooltip, Screen
   if (curWin = winName)
   {
   ; if you need to change the Reprint label Edit boxes.
   controlsettext, **control name for CID**, new text, ahk_id %curHwnd%
   controlsettext, **control name for Acc #:**, new text
   ; the same for all other Edit controls you want to change.

   ; sleep, 100 ; may not need this.

   ; Read whats in the Edit boxes for multi condition.
   ; controlgettext, eb1Txt, **control name for CID**
   ; controlgettext, eb2Txt, **control name for Acc #:**

   ; then press Reprint (button6) while its open.
   while (winexist("ahk_id " curHwnd))
      controlclick, button6, ahk_id %curHwnd%

   ; Or use multiple conditions in the expression:
   ; while (winexist("ahk_id " curHwnd) || (eb1Txt = "**new text**") || (eb2Txt = "**new text**")) ; and so on..
   ;       controlclick, button6, ahk_id %curHwnd%

   break
   }
}
WinSet, Top,, % "ahk_id " curHwnd

;is there a way to make it so that if the reprint label window is not active in specimen window than it allows me to send keystroke to open that window  under specimen window? i need it done in the background (NA style) or just msgbox that reprint label window is not open. i've tried but didn't work out.

Loop
{
IfWinNotExist Specimen
MsgBox, Specimen window not active
Else
IfWinExist Specimen
Inputbox,CID,Please enter CID to reprint,,,,100 ;i need this always on top
If ErrorLevel ;end loop also how can i make it so that if the value is empty(press enter without entering any numbers to inputbo), that it will also end the loop
{
   break
}
Else
DetectHiddenWindows, On
ControlSendRaw,Edit1,%CID%,Specimen Management Routing and Tracking
ControlClick,Button6,Specimen,,,,NA
;i need to add that if a window call SMART(an error message) come up than to activate that window and also end loop
;else continue loop
Winwait,Printer Select,,,,4
ControlClick,Button1,Printer Select,,,,NA
}
Return

Home::
IfWinNotExist Specimen
MsgBox, SMART window not active, please run Specimen window
Else
{
WinMenuSelectItem, Specimen,,Utilities,Reprint Label...
{
SetTimer,CID,-50
Loop
{   
Inputbox,CID,Please enter CID to reprint,,,,100 ;will always stay on top on first loop than it won't stay always on top the 2nd/3rd/etc loop
If ErrorLevel
{
winName = Reprint Label
appName = Specimen

WinGet, conList, ControlListHwnd, % appName
Loop, Parse, conList, `n
{
    curHwnd := A_Loopfield
    WinGetTitle, curWin, ahk_id %curHwnd%
    CoordMode, Tooltip, Screen
        if (curWin = winName)
                Break
}
Winclose % "ahk_id " curHwnd
break
}
Else
ControlSendRaw,Edit1,%CID%,Specimen
ControlClick,Button6,Specimen,,,,NA
IfWinExist SMART
{
Winactivate
Winclose,Printer Select
winName = Reprint Label
appName = Specimen

WinGet, conList, ControlListHwnd, % appName
Loop, Parse, conList, `n
{
    curHwnd := A_Loopfield
    WinGetTitle, curWin, ahk_id %curHwnd%
    CoordMode, Tooltip, Screen
        if (curWin = winName)
                Break
}
Winclose % "ahk_id " curHwnd
Break
}
Else
Winwait,Printer Select,,,,4
ControlClick,Button1,Printer Select,,,,NA
Sleep,100
}
CID:
 WinSet, AlwaysOnTop, On, Please enter CID to reprint
Return
}
}
Return