AllInOne

#pragma compile(ExecLevel, highestavailable)
#pragma compile(FileDescription, Asissting application for 3D Operators)
#pragma compile(ProductName, 3D_Helper)
#pragma compile(ProductVersion, 1.0)
#pragma compile(FileVersion, 1.0.0.1) ; The last parameter is optional.
#pragma compile(LegalCopyright, © Ivan Petrov)

#include <MsgBoxConstants.au3>
#include <Misc.au3>
#include <AutoItConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet("^{F11}", "ExitProg")

Opt("TrayMenuMode", 3)

Global $idExit, $iHelpMSG

CustomTray()

MsgBox($MB_SYSTEMMODAL, "", "Използавай знак '+' (плюс) за автоматично попълване на Отливка/Матрица/Дата." & @LF & "" & @LF & "Инструкции:" & @LF & "     1. Програмата работи само за изчакващата отливка" & @LF & "     2. Натискате ПЛЮС след стартирана програма в PCDMIS" & @LF & "      (Когато изпише '№ Отливка')" & @LF & "" & @LF & "Използавай знак '-' (минус) за автоматично попълване на Дефект/Размер  (От Репорта към Базата)" & @LF & "" & @LF & "Инструкции:" & @LF & "     1. Програмата работи само с отворен Репорт" & @LF & "     2. Селектира се Дефекта и се натиска МИНУС" & @LF & "     3. Селектира се Размера и се натиска МИНУС" & @LF & "" & @LF & "За изход се натиска CTRL и F11.")

Example()

Func Example()
    GUICreate(" 3D Operator Helper", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, $WS_EX_ACCEPTFILES)
    Local $idFile = GUICtrlCreateInput("", 10, 5, 300, 20)
    Local $idBtn = GUICtrlCreateButton("OK", 40, 75, 60, 20)

    GUISetState(@SW_SHOW)

$Toggle = False
While 1
    If WinActive ("[TITLE:Input Comment; CLASS:#32770]", "тливка") or WinActive ("[TITLE:Input Comment; CLASS:#32770]", "tlivka") Then ; BG comment
      If _IsPressed("6B") Then
         WinActivate ("[CLASS:#32770]", "")
         Opt('SendKeyDelay', 50); default 5. higher number = slower
         Send ("{BS}")
         Send(GUICtrlRead($idFile))
         Send ("{ENTER}")
         WinActivate ("[CLASS:OMain]", "")
         WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
         MouseMove (480, 770, 0)
         MouseClick ($MOUSE_CLICK_LEFT)
         Send("{TAB}")
         Send ("^c")
         WinActivate ("[CLASS:#32770]", "")
         Send ("^v")
         Send ("{ENTER}")
         WinActivate ("[CLASS:OMain]", "")
         MouseMove (480, 770, 0)
         MouseClick ($MOUSE_CLICK_LEFT)
         Send("{TAB 2}")
         Send ("^c")
         WinActivate ("[CLASS:#32770]", "")
         Send ("^v")
         Send ("{ENTER}")
         WinActivate ("[CLASS:OMain]", "")
         MouseMove (480, 770, 0)
         MouseClick ($MOUSE_CLICK_LEFT)
         Send("{TAB}")
         Send("+{TAB}")
         Send ("^c")
         WinActivate ("[CLASS:#32770]", "")
         Send ("^v")
         Send ("{ENTER}")
      EndIf
   ElseIf WinActive("[CLASS:AcrobatSDIWindow]") Then
        If _IsPressed("6D") And $Toggle = False Then
            Send("^c")
            WinActivate("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove(510, 620, 0)
            MouseClick($MOUSE_CLICK_LEFT)
            Send("+{TAB}")
            Send("^v")
            WinActivate("[CLASS:AcrobatSDIWindow]", "")
            $Toggle = True
            ElseIf _IsPressed("6D") And $Toggle = True Then
            Send("^c")
            WinActivate("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove(350, 620, 0)
            MouseClick($MOUSE_CLICK_LEFT)
            Send("{TAB}")
            Send("^v")
            WinActivate("[CLASS:AcrobatSDIWindow]", "")
            $Toggle = False
      EndIf
   EndIf

Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
             Case $idBtn
                MsgBox($MB_SYSTEMMODAL, " ", "BG# " & GUICtrlRead($idFile))
                WinSetState("[ACTIVE]", "", @SW_MINIMIZE)
            Case $iHelpMSG ; Display a message box with the working instructions.
                  MsgBox($MB_SYSTEMMODAL, "", "Използавай знак '+' (плюс) за автоматично попълване на Отливка/Матрица/Дата." & @LF & "" & @LF & "Инструкции:" & @LF & "     1. Програмата работи само за изчакващата отливка" & @LF & "     2. Натискате ПЛЮС след стартирана програма в PCDMIS" & @LF & "        (Когато изпише '№ Отливка')" & @LF & "" & @LF & "За изход се натиска CTRL и F11.")
            Case $idExit ; Exit the loop.
            ExitLoop
        EndSwitch

    Switch TrayGetMsg()
        Case $iHelpMSG ; Display a message box with the working instructions.
            MsgBox($MB_SYSTEMMODAL, "", "Използавай знак '+' (плюс) за автоматично попълване на Отливка/Матрица/Дата." & @LF & "" & @LF & "Инструкции:" & @LF & "     1. Програмата работи само за изчакващата отливка" & @LF & "     2. Натискате ПЛЮС след стартирана програма в PCDMIS" & @LF & "      (Когато изпише '№ Отливка')" & @LF & "" & @LF & "Използавай знак '-' (минус) за автоматично попълване на Дефект/Размер  (От Репорта към Базата)" & @LF & "" & @LF & "Инструкции:" & @LF & "     1. Програмата работи само с отворен Репорт" & @LF & "     2. Селектира се Дефекта и се натиска МИНУС" & @LF & "     3. Селектира се Размера и се натиска МИНУС" & @LF & "" & @LF & "За изход се натиска CTRL и F11.")
        Case $idExit ; Exit the loop.
            ExitLoop
    EndSwitch
 WEnd
 MsgBox($MB_SYSTEMMODAL, "Exit", "Чао   ;(")
 EndFunc

Func CustomTray()
    $iHelpMSG = TrayCreateItem("Help") ; Help Message
    TrayCreateItem("") ; Create a separator line.
    $idExit = TrayCreateItem("Exit") ; Manual Exit
    TraySetToolTip("3D Operator Helper") ;Tray name
EndFunc   ;==>CustomTray

Func ExitProg()
    Exit 0 ;;Exits the program (with HotKeySet)
EndFunc