ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 scriptCode1   pic x(500).
 PROCEDURE       DIVISION.
              MOVE SPACES TO scriptCode1.
              string     
                   'Sub MYProgram() ' vbCRLF        
                   ' Set objWMI = GetObject("winmgmts:\.
ootcimv2")' vbCRLF
                   ' Set colProcesses = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = ""ElsisGestion.exe"" ") ' vbCRLF
                   ' If colProcesses.Count = 0 Then' vbCRLF
                   '    MsgBox "El programa no se está ejecutando"' vbCRLF
                   ' Else' vbCRLF
                   '    MsgBox "El programa se está ejecutando"' vbCRLF
                   ' End If'     vbCRLF
                   'End Sub' vbCRLF                                        
                   delimited by size into scriptCode1
              end-string.
 
      INVOKE scriptControl1 "Reset".
      INVOKE scriptControl1 "AddCode" USING scriptCode1.
      INVOKE scriptControl1 "ExecuteStatement" USING "MYProgram".
 
      
              

 special-names.
        symbolic constant
            gw_hwndfirst    is 0
            gw_hwndnext     is 2
        .
 data division.
 working-storage section.
 01 get-this-window-handle.
        05  this-window-handle          pic s9(9)   comp-5  value 0.
        05  filler                      pic x(12)           value spaces.
        
 01 title-bar-search-string         pic x(1025)         value spaces.
 01 title-bar-index                 pic 9(9)    comp-5  value 0.
 
 01 child-window-handle             pic s9(9)   comp-5  value 0.
 01 parent-window-handle            pic s9(9)   comp-5  value 0.
 
 01 length-of-title-bar-buffer      pic s9(9)   comp-5.
 01 title-bar-buffer-max            pic s9(9)   comp-5.
 01 title-bar-buffer                pic x(1025)         value spaces.               
        
 01 hwnd-type                       pic 9(9)    comp-5. 
            
 01     null-value                      pic s9(9)   comp-5  value 0.
 
 linkage section.
 01 title-bar-string                pic x(1024).
 01 found-window-sw                 pic 9(4)    comp-5.
 01 found-window-handle             pic s9(9)   comp-5.
 01 return-value                    pic s9(9)   comp-5. 
    
 procedure division using title-bar-string, found-window-sw, found-window-handle, return-value. 
        move 0 to return-value
        move 0 to found-window-sw
        move 0 to found-window-handle
        
        compute title-bar-buffer-max = function length(title-bar-buffer)
*       
* Let's make sure they passed the title bar string
*
        if title-bar-string not > " " 
            move 1 to return-value
            exit program
        end-if
*
* Let's get the handle of this window
*
        call "GetTopWindow" with STDCALL using
            by value null-value
            returning this-window-handle
*
* Now, let's find the length of the search string
*
        move title-bar-string to title-bar-search-string
        perform varying title-bar-index from 1025 by -1
                until title-bar-search-string(title-bar-index:1) not = " "
            continue
        end-perform
*
* Now, let's get the first window
*
        move gw_hwndfirst to hwnd-type
        call "GetWindow" with STDCALL using
            by value this-window-handle
            by value hwnd-type
            returning child-window-handle
        if child-window-handle = 0
            move 3 to return-value
            exit program
        end-if
        
        move gw_hwndnext to hwnd-type   
*
* Now, let's see if this is the target window, if not, loop through all open windows
*
        perform until child-window-handle = 0
* 
* Let's get the title bar text of this window
*
            call "GetWindowTextA" with STDCALL using
                by value child-window-handle
                by reference title-bar-buffer               
                by value title-bar-buffer-max
                returning length-of-title-bar-buffer        *> Note, the length returned does NOT include the NULL byte
*
* If the window has a title bar, is it the one we're looking for?
*               
            if length-of-title-bar-buffer > 0
                if title-bar-search-string(1:title-bar-index) = title-bar-buffer(1:title-bar-index)
                    move 1 to found-window-sw
                    move child-window-handle to found-window-handle
                    move 0 to return-value
                    exit program
                end-if
            end-if
*
* Get the next window
*
            move child-window-handle to this-window-handle
            
            call "GetWindow" with STDCALL using
                by value this-window-handle
                by value hwnd-type
                returning child-window-handle
        
        end-perform
*
* Didn't find the window
*
        move 0 to return-value
        move 0 to found-window-sw
        move 0 to found-window-handle
        exit program

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  DWORD       typedef pic s9(9) comp-5.
 01  ULONG_PTR   typedef pic  9(9) comp-5.
 01  LONG        typedef pic s9(9) comp-5.
 01  HANDLE      typedef pic s9(9) comp-5.
 
*>---------------------------------------------
 01  TH32CS_SNAPPROCESS      type DWORD value h"02".
*>---------------------------------------------
 
 01  PROCESSENTRY32.
     05  dwSize              type DWORD.
     05  cntUsage            type DWORD.
     05  th32ProcessID       type DWORD.
     05  th32DefaultHeapID        pointer.
     05  th32ModuleID        type DWORD.
     05  cntThreads          type DWORD.
     05  th32ParentProcessID type DWORD.
     05  pcPriClassBase      type LONG.
     05  dwFlags             type DWORD.
     05  szExeFile           pic x(1000).
     
 01  snapshot                type HANDLE.
 
 01  returnCode              type DWORD.
 
 PROCEDURE       DIVISION.
 
     call "CreateToolhelp32Snapshot" with stdcall using by value TH32CS_SNAPPROCESS
                                                         by value 0
                                                         returning snapshot
     
     move length of PROCESSENTRY32 to dwSize
     
     call "Process32First" with stdcall using by value snapshot
                                              by reference PROCESSENTRY32
                                              returning returnCode
     
     if  returnCode = 0
         call "GetLastError" with stdcall returning returnCode
         
         display "GetLastError: ", returnCode
         
         exit program
     end-if
     
     perform until returnCode = 0
         if  szExeFile(1:8) = "Main.exe" *> resto a nulos
             INVOKE pow-self "DisplayMessage" USING "Bingo!" 64
         end-if
                  
         INVOKE CmList1 "AddString" USING szExeFile
         
         call "Process32Next" with stdcall using by value snapshot
                                                 by reference PROCESSENTRY32
                                                 returning returnCode
     end-perform

#include <windows.h>
#include <tlhelp32.h>
#include <iostream>
#include <cstdlib>
 
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam) {
    DWORD processId;
    GetWindowThreadProcessId(hwnd, &processId);
 
    // Verificar se o PID corresponde e se a janela é visível
    if (processId == static_cast<DWORD>(lParam) && IsWindowVisible(hwnd)) {
        // Maximizar e trazer a janela para o primeiro plano
        ShowWindow(hwnd, SW_MAXIMIZE);
        SetForegroundWindow(hwnd);
        return FALSE; // Parar a enumeração
    }
 
    return TRUE; // Continuar a enumeração
}
 
void MaximizeMainApplicationWindow(DWORD pid) {
    EnumWindows(EnumWindowsProc, static_cast<LPARAM>(pid));
}
 
int main(int argc, char* argv[]) {
    if (argc != 2) {
        std::cerr << "Usage: " << argv[0] << " <PID>" << std::endl;
        return 1;
    }
 
    DWORD pid = std::atoi(argv[1]);
    MaximizeMainApplicationWindow(pid);
 
    return 0;
}

CALL 'IsWindowVisible' USING BY VALUE HWND 
IF RETURN-CODE = 1 
   CALL 'ShowWindow' USING BY REFERENCE HWND, 
                                            BY VALUE 3   *> SW_MAXIMIZE 
   CALL 'SetForegroundWindow' USING BY REFERENCE HWND 
   IF RETURN-CODE = 1 
      DISPLAY "Janela trazida para frente com sucesso."
  ELSE 
      DISPLAY "Falha ao trazer a janela para frente." 
   END-IF 
ELSE 
   DISPLAY "Janela não está visível."
END-IF

 IDENTIFICATION DIVISION.
 PROGRAM-ID. "EnumWindowsProc".
 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  SW_MAXIMIZE          PIC S9(9) COMP-5 VALUE 3.
 
 01  P1                   POINTER.
 01  HWND REDEFINES P1    PIC S9(9) COMP-5.
 01  P2                   POINTER.
 01  LPARAM REDEFINES P2  PIC S9(9) COMP-5. 
 
 01  processId            PIC S9(9) COMP-5.
 01  isVisble             PIC S9(9) COMP-5.
 
 LINKAGE SECTION.
 77  PARM1                PIC S9(9) COMP-5.
 77  PARM2                PIC  9(9) COMP-5. 
 
 01  RETURN-VALUE         PIC  9(9) COMP-5. 
 
 PROCEDURE DIVISION WITH STDCALL USING PARM1, PARM2 RETURNING RETURN-VALUE. 
     
     MOVE FUNCTION ADDR(PARM1) TO P1
     MOVE FUNCTION ADDR(PARM2) TO P2
     
     CALL "GetWindowThreadProcessId" WITH STDCALL USING BY VALUE HWND
                                                        BY REFERENCE processId
                                                        
     CALL "IsWindowVisible" WITH STDCALL USING BY VALUE HWND RETURNING isVisble
     
     IF  processId = LPARAM AND 
         isVisble NOT = 0
         CALL "ShowWindow"          WITH STDCALL USING BY VALUE HWND, SW_MAXIMIZE
         CALL "SetForegroundWindow" WITH STDCALL USING BY VALUE HWND
         
         MOVE 0 TO RETURN-VALUE
     
     ELSE
         MOVE 1 TO RETURN-VALUE
     END-IF
     
     GOBACK 
     .
         

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  ptr-EnumWindowsProc    procedure-pointer.
 01  num-ptr redefines ptr-EnumWindowsProc pic s9(9) comp-5.
 
 01  pid         pic s9(9) comp-5.
 PROCEDURE       DIVISION.
 
     move pow-numeric of CmText1 to pid
     
     set ptr-EnumWindowsProc to entry "EnumWindowsProc@8"
     
     call "EnumWindows" with stdcall using by value num-ptr
                                           by value pid

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  pid         pic s9(9) comp-5.
 01  hModule     pic s9(9) comp-5.
 01  pAddress    pic s9(9) comp-5.
 
 PROCEDURE       DIVISION.
 
     move pow-numeric of CmText1 to pid
          
     call "GetModuleHandleA" with stdcall using by value h"00" returning hModule
          
     call "GetProcAddress" with stdcall using by value hModule 
                                              by content "_EnumWindowsProc@8" & x"00"
                                              returning pAddress
     
     call "EnumWindows" with stdcall using by value pAddress
                                           by value pid

     call "GetProcAddress" with stdcall using by value hModule 
                                              by content "EnumWindowsProc@8" & X"00"
                                              returning pAddress

call "GetModuleHandleA" with stdcall using by value h"00" returning hModule

call "GetModuleHandleA" with stdcall using by content "RgestAPI.dll" returning hModule

    move pow-numeric of CmText1 to pid.
     
          
     call "GetModuleHandleA" with stdcall using by value 0 returning hModule
          
     call "GetProcAddress" with stdcall using by value hModule 
                                              by content "_EnumWindowsProc@8" & X"00"
                                              returning pAddress
                                              display "pAddress: " , pAddress.
     
     call "EnumWindows" with stdcall using by value pAddress
                                           by value pid 

     MOVE "SFAC03.DLL" & x"00" TO  String-DLL.
          
*    call "GetModuleHandleA" with stdcall using by value 0 returning hModule
      call "GetModuleHandleA" with stdcall using by CONTENT String-DLL  returning hModule
     DISPLAY "hModule: " , hModule.