[Abandoned effort] RunProgram Reading Between The Lines

[Randy Walker]

Windows 11 Pro...
Something wrong here. Probably me. I'm expecting debug lines here to be same as what I get running this command line at powershell prompt.
Of course these samples only work if you have LibreOffice 25.2.0.3 installed on your PC.

Here's the RunProgram command code:

Code: Select all

Exe = RunProgram("powershell.exe","winget upgrade "+Chr(34)+"LibreOffice 25.2.0.3"+Chr(34),"",#PB_Program_Hide|#PB_Program_Open|#PB_Program_Read|#PB_Program_Error)
If Exe
  While ProgramRunning(Exe)
    WindowEvent()
    If AvailableProgramOutput(Exe)
      Output$=ReadProgramString(Exe)
      Debug Output$
    EndIf
  Wend
  CloseProgram(exe)
EndIf

And Here's the command line for the powershell prompt:

winget upgrade "LibreOffice 25.2.0.3"

(Use Ctrl-C to abort if you don't want to upgrade)

Compare debug lines to output in powershell and they are completely different.

[infratec]

Try to read the error output too.

[Randy Walker]

Try to read the error output too.

Good thought i suppose but #PB_Program_Error is already there.

[BarryG]

The flag on its own isn't enough. You need to use ReadProgramError() as well, which isn't there.

[Randy Walker]

The flag on its own isn't enough. You need to use ReadProgramError() as well, which isn't there.

eh Ohhhh Ok, I'll try to figure out how to squeeze that in there.
Thanks BarryG !!!

[Randy Walker]

The flag on its own isn't enough. You need to use ReadProgramError() as well, which isn't there.

Ok so I added these two lines and commented the debug Output$ line and got nothing so I think ReadProgramError() is not the answer:

Code: Select all

Error$ = ReadProgramError(Exe)
DeBug Error$

[BarryG]

It might be, but we don't have your full snippet to see.

[Randy Walker]

It might be, but we don't have your full snippet to see.

Can't finish until I can get full output from WinGet cmdlet so this is a work in progress:

Code: Select all

;WingetUpdater written by Randy Walker with no promises -- run at your own risk (02/26/2025)
Dim prog$(250)
Dim update$(250,2)
If OpenWindow(0, 0, 0, 322, 450, "WinGet Application Updater", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 8, 8, 306, 433)
  SetGadgetText(0,"Please wait while we perform a search . . .")
  AddGadgetItem(0, -1, "")
  AddGadgetItem(0, -1, "       NAME                  Update Ver   Current Ver")
  ;Exe = RunProgram("powershell.exe","winget upgrade YourAppHer","",#PB_Program_Open)
  ;Uncomment line above, comment line below and change YourAppHer with name of your preference from list in main window 
  Exe = RunProgram("powershell.exe","winget list","",#PB_Program_Hide|#PB_Program_Open|#PB_Program_Read|#PB_Program_Error)
  If Exe
    While ProgramRunning(Exe)
      WindowEvent()
      If AvailableProgramOutput(Exe)
        Output$=ReadProgramString(Exe)
        error$ = ReadProgramError(Exe)
        name$ = StringField(Output$,1,"  ")
        If FindString(Output$,"|") = 0
          If FindString(Output$,"----") = 0
            n + 1
            prog$(n) = RTrim(Output$)
          EndIf
        EndIf
        Debug Output$ ; comment this line to see  no  error  line output
        If error$
          Debug error$
        EndIf
      EndIf
    Wend
    CloseProgram(exe)
  EndIf
  For z = 1 To n
    s$ = Trim(Mid(prog$(z),102,12)) ; test for new  version
    If s$
      update$(z,0) = RTrim(Mid(prog$(z),1,41))  ;NAME
      update$(z,1) = s$                         ;NEW VERSION
      update$(z,2) = RTrim(Mid(prog$(z),83,19)) ;CURRENT VERSION
                                                ;Debug update$(z,0) + "  " + update$(z,1) + "  " + update$(z,2)
      AddGadgetItem(0, -1, update$(z,0) + "  " + update$(z,1) + "  " + update$(z,2))
    EndIf
    WindowEvent()
    s$ = ""
  Next z
  ; more processng follows here but not required  to see results from above.
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[Randy Walker]

I was aiming at a Very simple GUI interface for the Windows "winget" CLI utility but cannot get runprogram to cooperate for me. So,I went in search on the web to see if anyone else had beat me to it. Well, Its out there but it's not a simple GUI. It's chalk full of wizzdings to the point I have no idea what's happening. Find it here if you're interested:
https://www.marticliment.com/unigetui/

[AZJIO]

Call the Win+R hotkey and check the line's operation

Code: Select all

powershell.exe -NoExit winget list

I'm getting a message that winget doesn't exist

[Randy Walker]

Call the Win+R hotkey and check the line's operation

Code: Select all

powershell.exe -NoExit winget list

I'm getting a message that winget doesn't exist

Yes, I came across a comment somewhere telling winget is not standard on all Windows 11, but can get it in the "Microsoft store". Mine came with it, and works fine.