Send the output of program execution to a variable Topic is solved

[Albireo]

Hi!
This command sends the output to a file. (from example 4 in the ahk-documentation)

Code: Select all

#Requires AutoHotkey v2.0
#SingleInstance Force
RunWait A_ComSpec " /c dir C:\ >>C:\temp\runTest.txt", , "Min"
Run "C:\temp\runTest.txt"
Persistent

1) The file runTest.txt is created in ANSI
Is it possible to create the result in UTF-8 instead?
How?

2) In the example above, the result is displayed in a program (notepad)
My wish is that the result directly end up in a variable/an object, so that it can then be analysed.
Is it possible?
How?

[reddyshyam]

Hi @Albireo ,

Below will get the result to clipboard.

Code: Select all

	RunWait A_ComSpec " /c dir C:\  | clip ", , "Min"
	MsgBox A_Clipboard

[Albireo]

Thank you!

[Albireo]

Thank you!
But there is something I don't understand.

If I run these instructions (with correct ip address),
I would have hoped that the response from the ftp server would end up in the Clipboard

Code: Select all

Clipboard := ""
ipAdr := '??.??.??.??'
Run A_ComSpec " /c ftp " ipAdr "  | clip "
MsgBox A_Clipboard

But...
On the screen I can see an empty black CMD-window, and the MsgBox (with Clipboard) is show the copy I made before the run of this script.

Even this script does not clear the Clipboard

Code: Select all

#Requires AutoHotkey v2.0
#SingleInstance Force
Clipboard := ""
MsgBox A_Clipboard

What am I doing wrong?

[Albireo]

In my search for a solution, I use a program called Mtee.exe
Which I also attach

mtee.zip

(7.98 KiB) Downloaded 13 times

This script displays the response from the command ftp ??.??.??.?? in the CMD-window,
but also creates a text file with the same content.
A_Clipboard in the MsgBox, displays the last copy before the script was executed.

Code: Select all

#Requires AutoHotkey v2.0
#SingleInstance Force

A_Clipboard := ""
Mtee := "C:\temp\mtee.exe"
outFile := "c:\Temp\ftpTest.txt"
ipAdr := '??.??.??.??'

runArgs := " /c ftp " ipAdr " | " Mtee " " outFile
Run A_ComSpec runArgs

MsgBox "Done! `n" A_Clipboard

My wish is for the result, to end up in the Clipboard instead of in a file - Is that possible?

I have tried something with clip - but it doesn't work at all.
(i dont understand clip)

[TAC109]

Thank you!
But there is something I don't understand.

If I run these instructions (with correct ip address),
I would have hoped that the response from the ftp server would end up in the Clipboard

Code: Select all

Clipboard := ""
ipAdr := '??.??.??.??'
Run A_ComSpec " /c ftp " ipAdr "  | clip "
MsgBox A_Clipboard

But...
On the screen I can see an empty black CMD-window, and the MsgBox (with Clipboard) is show the copy I made before the run of this script.

Even this script does not clear the Clipboard

Code: Select all

#Requires AutoHotkey v2.0
#SingleInstance Force
Clipboard := ""
MsgBox A_Clipboard

What am I doing wrong?

Replying to this earlier post:

• Your references to 'Clipboard' should be to 'A_Clipboard'.
• 'Run' should be 'RunWait'.

Cheers

[Seven0528]

　@Albireo
I believe this method is the cleanest, but I don't fully understand the code.
I'm especially unsure about the WScript.Shell part, as it is outside the scope of AHK. Please take note of this.

Code: Select all

#Requires AutoHotkey v2.0
#SingleInstance Force
result := getHiddenCommandOutput("dir C:\")
msgbox result

getHiddenCommandOutput(command)    {
    result  := ""
    detectHiddenWindows (prevDHW := A_DetectHiddenWindows, true)
    run(A_ComSpec,, "Hide", &pid)
    if (winWait("ahk_pid " pid,, 1))    {
        if (dllCall("Kernel32.dll\AttachConsole", "UInt",pid))    {
            try result := comObject("WScript.Shell").Exec(A_ComSpec " /c " command).StdOut.ReadAll()
            dllCall("Kernel32.dll\FreeConsole")
        }
        winClose("ahk_pid " pid)
    }
    detectHiddenWindows prevDHW
    return result
}

Code: Select all

 Volume in drive C has no label.
 Volume Serial Number is 0000-0000

 Directory of C:\

00/00/0000  00:00 AM    <DIR>          _
00/00/0000  00:00 AM                 0 _
              00 File(s)              0 bytes
              00 Dir(s)               0 bytes free

I cannot test it in my environment, but please try the following code:

Code: Select all

ipAdr := '??.??.??.??'
result := getHiddenCommandOutput("ftp " ipAdr)

[Seven0528]

Code: Select all

#Requires AutoHotkey v2.0
#SingleInstance Force
ShellHidden.create()
msgbox ShellHidden.ComObj.Exec(A_ComSpec " /c dir C:\").StdOut.ReadAll()

Code: Select all

class ShellHidden ;  ahk2.0
{
    static _pid                 := 0
        ,_isConsoleAttached     := false
        ,_shell                 := ""
        ,_objbmOnApplicationExit:= objBindMethod(this, "_onApplicationExit")
        
    static ComObj => this._shell
    static create(timeout := 1)    {
        if (this._shell)
            return true
        onExit(this._objbmOnApplicationExit)
        try  {
            run(A_ComSpec,, "Hide", &pid)
        }  catch  {
        }  else  {
            prevDHW := detectHiddenWindows(true)
            if (winWait("ahk_pid " pid,, timeout))
                this._pid := pid
            detectHiddenWindows(prevDHW)
        }
        if (this._pid)    {
            if (this._isConsoleAttached := dllCall("Kernel32.dll\AttachConsole", "UInt",this._pid))
                try this._shell := comObject("WScript.Shell")
        }
        return (!!this._shell)
    }
    static destroy()    {
        if (!this._shell)
            return false
        this._shell := ""
        if (this._isConsoleAttached)
            this._isConsoleAttached := !dllCall("Kernel32.dll\FreeConsole")
        if (this._pid)    {
            prevDHW := detectHiddenWindows(true)
            if (winExist("ahk_pid " this._pid))
                winClose("ahk_pid " this._pid)
            detectHiddenWindows(prevDHW)
            this._pid := 0
        }
        onExit(this._objbmOnApplicationExit, 0)
        return true
    }
    static _onApplicationExit(*)    {
        this.destroy()
    }
}

[Albireo]

Thanks!

....
I cannot test it in my environment, but please try the following code:

Code: Select all

ipAdr := '??.??.??.??'
result := getHiddenCommandOutput("ftp " ipAdr)

I think this is more difficult to solve.
The main reason is that dir produces its own result, but the ftp command does not produce any result at all, it is the receiving ftp server as answer the commands, I can only see the result from the communication.
This is where Mtee comes in, and tries to handle StdOut

I made another reflection.
The short solution by @reddyshyam

Code: Select all

RunWait A_ComSpec " /c dir C:\  | clip ", , "Min"
MsgBox A_Clipboard

Give one result

Directory of C:\tmp

2024-05-17 23:51 <DIR> .
2024-05-17 23:51 <DIR> ..
2023-01-27 12:09 5 119 Backup Lazzlo v2.ahk
2023-10-31 11:43 1 098 dir.txt


And the soulutions by @Seven0528 (both give the same result)

Directory of C:\tmp

2024-05-17 23:51 <DIR> .
2024-05-17 23:51 <DIR> ..
2023-01-27 12:09 5ÿ119 Backup Lazzlo v2.ahk
2023-10-31 11:43 1ÿ098 dir.txt
2023-11-25 11:33 63ÿ769 OCR-A Regular.ttf
3 File(s) 69ÿ986 bytes
2 Dir(s) 263ÿ207ÿ047ÿ168 bytes free
The difference is ÿ between numbers (I don't know why)