How can I close this script from another script?

[timmy2]

I'd like to use the following script as a standalone executable that can be run from my "main" script. At first I thought I could simply get its PID when I "Run" it and then use ProcessClose to kill it when my main script is ready, but it dawned on me that the _VisualizerExit() code (see below) needs to be executed as part of a clean exit.  What would be a reliable way to close it from my main script?  Thank you.

expandcollapse popup

#AutoIt3Wrapper_UseX64=n
#include "Bass.au3"
#include "BassExt.au3"
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Global $sFile = "testfile.wav"

Global $iWidth = 410
Global $iHeight = 170
Global $fftGui, $hGraphics, $hGfxBuffer, $hBmpBuffer, $hBmpBk, $hBrushFFT
Global $aFFT, $aPeak
Global $iTimer
Global $hStream

$fftGui = GUICreate("BASS_EXT AudioMeter", $iWidth, $iHeight, -1,-1, BitOR($WS_SYSMENU,$WS_POPUP))
GUISetBkColor(0x000000)

_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($fftGui)
$hBmpBuffer = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
$hGfxBuffer = _GDIPlus_ImageGetGraphicsContext($hBmpBuffer)
_GDIPlus_GraphicsSetSmoothingMode($hGfxBuffer, 2)


$hBrushFFT = _BrushCreateFFT(0, 0, 410, 170, $iWidth, $iHeight, $hGraphics)
$aFFT = _BASS_EXT_CreateFFT(410 / 5, 0, 0, 410, 170, 1, 70, True)

$hBmpBk = _BMPCreateBackGround($iWidth, $iHeight, $hGraphics)

_BASS_Startup(@ScriptDir & "\bass.dll")
_BASS_EXT_Startup(@ScriptDir & "\bassExt.dll")
_BASS_Init(0, -1, 44100, 0, "")

GUIRegisterMsg(0x000F, "WM_PAINT")
GUISetState()

$hStream = _BASS_StreamCreateFile(False, $sFile, 0, 0, 0)

$aPeak = _BASS_EXT_ChannelSetMaxPeakDsp($hStream)

_BASS_ChannelPlay($hStream, True)

GUISetOnEvent($GUI_EVENT_CLOSE, "_VisualizerExit")

While _BASS_ChannelIsActive($hStream)
    _GDIPlus_GraphicsDrawImage($hGfxBuffer, $hBmpBk, 0, 0)

    _BASS_EXT_ChannelGetFFT($hStream, $aFFT, 6)
    If Not @error Then DllCall($ghGDIPDll, "int", "GdipFillPolygonI", "handle", $hGfxBuffer, "handle", $hBrushFFT, "ptr", $aFFT[0], "int", $aFFT[1], "int", "FillModeAlternate")

    _GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
    Sleep(30)
WEnd

Func WM_PAINT($hWnd, $uMsgm, $wParam, $lParam)
    _GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
    Return 'GUI_RUNDEFMSG'
EndFunc   ;==>WM_PAINT

Func _BMPCreateBackGround($iW, $iH, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetSmoothingMode($hContext, 2)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hBrushBK = _GDIPlus_BrushCreateSolid(0xEE000000)
    Local $hBrushTXT = _GDIPlus_BrushCreateSolid(0xFF99AAFF)
    Local $hPen = _GDIPlus_PenCreate(0xFF222222, 1)

    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrushBK)
    _GDIPlus_BrushDispose($hBrushTXT)
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreateBackGround

Func _BrushCreateFFT($iX, $iY, $iW, $iH, $iWidth, $iHeight, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hBrush[5]
    $hBrush[0] = _GDIPlus_BrushCreateSolid(0xFFFF0000)
    $hBrush[1] = _GDIPlus_LineBrushCreate(0, 0, 0, 20, 0xFFFF0000, 0xFFFFAA00, 1)
    $hBrush[2] = _GDIPlus_LineBrushCreate(0, 20, 0, 40, 0xFFFFAA00, 0xFF00AAFF, 1)
    $hBrush[3] = _GDIPlus_BrushCreateSolid(0xFF00AAFF)
    $hBrush[4] = _GDIPlus_LineBrushCreate(0, 0, 0, 4, 0x00000000, 0xAA000000, 0)
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY, $iW, 20, $hBrush[0])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY + 20, $iW, 20, $hBrush[1])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY + 40, $iW, 20, $hBrush[2])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY + 60, $iW, $iH - 60, $hBrush[3])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY, $iW, $iH, $hBrush[4])
    For $i = 0 To 4
        _GDIPlus_BrushDispose($hBrush[$i])
    Next
    _GDIPlus_GraphicsDispose($hContext)
    Local $aRet = DllCall($ghGDIPDll, "uint", "GdipCreateTexture", "hwnd", $hBitmap, "int", 0, "int*", 0)
    _GDIPlus_BitmapDispose($hBitmap)
    Return $aRet[3]
EndFunc   ;==>_BrushCreateFFT

Func _VisualizerExit()
    _BASS_StreamFree($hStream)
    _BASS_Free()

    _GDIPlus_BrushDispose($hBrushFFT)
    _GDIPlus_BitmapDispose($hBmpBk)
    _GDIPlus_GraphicsDispose($hGfxBuffer)
    _GDIPlus_BitmapDispose($hBmpBuffer)
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_Shutdown()
    GUIDelete()
    Exit
EndFunc   ;==>_VisualizerExit



Func _GDIPlus_LineBrushCreate($nX1, $nY1, $nX2, $nY2, $iARGBClr1, $iARGBClr2, $iWrapMode = 0)
    Local $tPointF1, $pPointF1
    Local $tPointF2, $pPointF2
    Local $aResult

    $tPointF1 = DllStructCreate("float;float")
    $pPointF1 = DllStructGetPtr($tPointF1)
    $tPointF2 = DllStructCreate("float;float")
    $pPointF2 = DllStructGetPtr($tPointF2)

    DllStructSetData($tPointF1, 1, $nX1)
    DllStructSetData($tPointF1, 2, $nY1)
    DllStructSetData($tPointF2, 1, $nX2)
    DllStructSetData($tPointF2, 2, $nY2)

    $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateLineBrush", "ptr", $pPointF1, "ptr", $pPointF2, "uint", $iARGBClr1, "uint", $iARGBClr2, "int", $iWrapMode, "int*", 0)

    If @error Then Return SetError(@error, @extended, 0)
    ;$GDIP_STATUS = $aResult[0]
    Return $aResult[6]
EndFunc   ;==>_GDIPlus_LineBrushCreate

[guinness]

Look at WM_COPYDATA in my signature. It allows you to send messages between a parent and child process.

[water]

What you are looking for is called IPC (inter process communication). On the forum you'll find some implementations of IPC for AutoIt.

[czardas]

Maybe >mailslot.

There are lots of ways to communicate between scripts. Probably the simplest method is writing (triggers) to disk, read by second (or multiple) script/s. I used a single integer along with bitwise functions to trigger and quit several scripts all controlled by a single main script - it's very easy to do this.

Edited November 10, 2013 by czardas

[guinness]

Writing to disk is quite slow and reduces the life of the disk by constant reading & writing.

[czardas]

Yes it's slow and easy, and I guess most modern disks can handle a few bad sectors (ouch). Use clipboard if you're worried. Good point though.

Edited November 10, 2013 by czardas

[water]

Writing to disk is quite slow and reduces the life of the disk by constant reading & writing.

Isn't reading & writing what a disk is being made for

[guinness]

Isn't reading & writing what a disk is being made for

I don't think you understood my point. I was referring to unnecessary disk usage. Edited November 10, 2013 by guinness

[czardas]

I haven't tried so many methods, but writing to a hidden window may also suffice. However I agree with you guinness.

[water]

I'm sure I didn't get the point. In my opinion even unnecessary disk usage won't kill a disk. I don't think the OP will kill his process 100 times a second or more.

But I'm getting off topic ...

[MachinistProgrammer]

this is exactly what you are >looking for

[UEZ]

What you can do is to start the script from the main script and close it with WinClose() when ever you want.

Prerequisite is that the child process is closeable with WinClose -> GUIGetMsg() = $GUI_EVENT_CLOSE.

Further on child script you have to use OnAutoItExitRegister() to cleanup resouces on exit.

Example:

Main.au3

#include  <WinAPIProc.au3>
#include <Array.au3>

$iPid = Run("Child.exe")
Local $aData = _WinAPI_EnumProcessWindows($iPid, 0)
ConsoleWrite($aData[1][0] & @LF)
Sleep(2000)
WinClose($aData[1][0])

Child.au3

#NoTrayIcon
OnAutoItExitRegister("_Exit")
$hGUI = GUICreate("Test")
GUISetState()

Do
    If GUIGetMsg() = -3 Then _Exit()
Until Not Sleep(1000)

Func _Exit()
    MsgBox(0, "Information", "Exit", 10)
    Exit
EndFunc

Compile Child.au3 and start Main.au3. Both should be in same dir.

 

 

_WinAPI_EnumProcessWindows requires beta version.

 

 

Br,

UEZ

Edited November 10, 2013 by UEZ

[timmy2]

Look at WM_COPYDATA in my signature. It allows you to send messages between a parent and child process.

 

Thank you for the reply, Guinness, but your WM_Copydata runction and example are over my head.  If I don't hear of anything better -- that I can comprehend -- I'll just define a hotkey (HotKeySet ( "{BREAK}" ,"_VisualizerExit" )) and SEND it from the main script (having had no luck using ControlSend("BASS_EXT AudioMeter","","","{BREAK}") to send the hotkey). But I always appreciate your insights.

[guinness]

You have been given other options here as well. I personally use WM_COPYDATA and am happy to help if you have a look at the UDF and try to decipher it.

[timmy2]

What you can do is to start the script from the main script and close it with WinClose() when ever you want.

Prerequisite is that the child process is closeable with WinClose -> GUIGetMsg() = $GUI_EVENT_CLOSE.

Further on child script you have to use OnAutoItExitRegister() to cleanup resouces on exit.

Example:

Main.au3

#include  <WinAPIProc.au3>
#include <Array.au3>

$iPid = Run("Child.exe")
Local $aData = _WinAPI_EnumProcessWindows($iPid, 0)
ConsoleWrite($aData[1][0] & @LF)
Sleep(2000)
WinClose($aData[1][0])

Child.au3

#NoTrayIcon
OnAutoItExitRegister("_Exit")
$hGUI = GUICreate("Test")
GUISetState()

Do
    If GUIGetMsg() = -3 Then _Exit()
Until Not Sleep(1000)

Func _Exit()
    MsgBox(0, "Information", "Exit", 10)
    Exit
EndFunc

Compile Child.au3 and start Main.au3. Both should be in same dir.

 

 

_WinAPI_EnumProcessWindows requires beta version.

 

 

Br,

UEZ

 

 

Thank you, UEZ. Your suggestion looks wonderful except I've avoided the Beta version because I'm too new to Autoit to distinguish my errors from bugs. Would prefer to have stable ground beneath my feet. Am I being overly conservative?  _WinAPI_EnumProcessWindows sure would be useful!!  In lieu of that would you trust> this _WinGetByPID() function?

Func _WinGetByPID($iPID, $iArray = 1) ; 0 Will Return 1 Base Array & 1 Will Return The First Window.
    Local $aError[1] = [0], $aWinList, $sReturn
    If IsString($iPID) Then
        $iPID = ProcessExists($iPID)
    EndIf
    $aWinList = WinList()
    For $A = 1 To $aWinList[0][0]
        If WinGetProcess($aWinList[$A][1]) = $iPID And BitAND(WinGetState($aWinList[$A][1]), 2) Then
            If $iArray Then
                Return $aWinList[$A][1]
            EndIf
            $sReturn &= $aWinList[$A][1] & Chr(1)
        EndIf
    Next
    If $sReturn Then
        Return StringSplit(StringTrimRight($sReturn, 1), Chr(1))
    EndIf
    Return SetError(1, 0, $aError)
EndFunc   ;==>_WinGetByPID

[guinness]

That function is OK, but badly written, I mean who would use $A...oh wait!

[UEZ]

That function doesn't work for me.

Here the function _WinAPI_EnumProcessWindows() embedded:

expandcollapse popup

Global $__Enum
$iPid = Run("Test05.exe")
Local $aData = _WinAPI_EnumProcessWindows($iPid, 0)
Sleep(2000)
WinClose($aData[1][0])
Exit


Func __EnumWindowsProc($hWnd, $fVisible)
    Local $aResult
    If ($fVisible) Then
        $aResult = DllCall("user32.dll", "bool", "IsWindowVisible", "hwnd", $hWnd)
        If Not $aResult[0] Then
            Return 1
        EndIf
    EndIf
    __Inc($__Enum)
    $__Enum[$__Enum[0][0]][0] = $hWnd
    $aResult = DllCall("user32.dll", "int", "GetClassNameW", "hwnd", $hWnd, "wstr", "", "int", 4096)
    $__Enum[$__Enum[0][0]][1] = $aResult[2]
    Return 1
EndFunc   ;==>__EnumWindowsProc

Func __Inc(ByRef $aData, $iIncrement = 100)
    Select
        Case UBound($aData, 2)
            If $iIncrement < 0 Then
                ReDim $aData[$aData[0][0] + 1][UBound($aData, 2)]
            Else
                $aData[0][0] += 1
                If $aData[0][0] > UBound($aData) - 1 Then
                    ReDim $aData[$aData[0][0] + $iIncrement][UBound($aData, 2)]
                EndIf
            EndIf
        Case UBound($aData, 1)
            If $iIncrement < 0 Then
                ReDim $aData[$aData[0] + 1]
            Else
                $aData[0] += 1
                If $aData[0] > UBound($aData) - 1 Then
                    ReDim $aData[$aData[0] + $iIncrement]
                EndIf
            EndIf
        Case Else
            Return 0
    EndSelect
    Return 1
EndFunc   ;==>__Inc

Func _WinAPI_EnumProcessThreads($PID = 0)
    If Not $PID Then $PID = @AutoItPID
    Local $hSnapshot = DllCall('kernel32.dll', 'handle', 'CreateToolhelp32Snapshot', 'dword', 0x00000004, 'dword', 0)
    If @error Or Not $hSnapshot[0] Then Return SetError(@error + 10, @extended, 0)
    Local Const $tagTHREADENTRY32 = 'dword Size;dword Usage;dword ThreadID;dword OwnerProcessID;long BasePri;long DeltaPri;dword Flags'
    Local $tTHREADENTRY32 = DllStructCreate($tagTHREADENTRY32)
    Local $Result[101] = [0]
    $hSnapshot = $hSnapshot[0]
    DllStructSetData($tTHREADENTRY32, 'Size', DllStructGetSize($tTHREADENTRY32))
    Local $Ret = DllCall('kernel32.dll', 'bool', 'Thread32First', 'handle', $hSnapshot, 'struct*', $tTHREADENTRY32)
    While Not @error And $Ret[0]
        If DllStructGetData($tTHREADENTRY32, 'OwnerProcessID') = $PID Then
            __Inc($Result)
            $Result[$Result[0]] = DllStructGetData($tTHREADENTRY32, 'ThreadID')
        EndIf
        $Ret = DllCall('kernel32.dll', 'bool', 'Thread32Next', 'handle', $hSnapshot, 'struct*', $tTHREADENTRY32)
    WEnd
    DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hSnapshot)
    If Not $Result[0] Then Return SetError(1, 0, 0)
    __Inc($Result, -1)
    Return $Result
EndFunc   ;==>_WinAPI_EnumProcessThreads

Func _WinAPI_EnumProcessWindows($PID = 0, $fVisible = 1)
    Local $Threads = _WinAPI_EnumProcessThreads($PID)
    If @error Then Return SetError(@error, @extended, 0)
    Local $hEnumProc = DllCallbackRegister('__EnumWindowsProc', 'bool', 'hwnd;lparam')
    Dim $__Enum[101][2] = [[0]]
    For $i = 1 To $Threads[0]
        DllCall('user32.dll', 'bool', 'EnumThreadWindows', 'dword', $Threads[$i], 'ptr', DllCallbackGetPtr($hEnumProc), 'lparam', $fVisible)
        If @error Then
            ExitLoop
        EndIf
    Next
    DllCallbackFree($hEnumProc)
    If Not $__Enum[0][0] Then Return SetError(11, 0, 0)
    __Inc($__Enum, -1)
    Return $__Enum
EndFunc   ;==>_WinAPI_EnumProcessWindows

Br,

UEZ

Edited November 10, 2013 by UEZ

[guinness]

I personally would have just told the OP to head on over to the WinAPIEx section of the Forum and download the appropriate includes.

[timmy2]

I appreciate all the suggestions about using IPC, but please realize that when I tried to study Guinness's WM_Copydata example or JScript's Interprocess UDF post I got a case of the spins reminiscent of trying to read Lewis Carroll. All masterful code no doubt, but you guys are working at such a higher level here that I don't belong in the same room -- except that I have my little challenge I'm trying to solve.

Let's start with this basic question:

The section of Eukalyptus' script (below) that animates the FFT display is an endless While/WEnd loop. It relies on an earlier GUISetOnEvent($GUI_EVENT_CLOSE, "_VisualizerExit") to get interrupted and exit.  My primitive thought was to send such an interrupt as a hotkey, but I thought maybe there's a better, more elegant and direct way -- thus my post.  

IPC sounds like a great way to exchange lots of information between programs, but here I have only a very simple bit of communication analogous to pressing Escape or changing a value in a Do/Until loop -- and that's about all I can understand at this point anyway.

UEZ's suggestion is closer to my level of understanding but even there I must ask: would his If GUIGetMsg() = -3 Then _Exit() command go within the While/WEnd loop below and thereby receive notice from the WinClose(FFT visualizer handle) command in the main program to jump to my _VisualizerExit function? This kind of simplistic thinking I can get.

If there's anyone willing to show me how IPC can accomplish the same simple task I'd love to see it.

While _BASS_ChannelIsActive($hStream)
    _GDIPlus_GraphicsDrawImage($hGfxBuffer, $hBmpBk, 0, 0)

    _BASS_EXT_ChannelGetFFT($hStream, $aFFT, 6)
    If Not @error Then DllCall($ghGDIPDll, "int", "GdipFillPolygonI", "handle", $hGfxBuffer, "handle", $hBrushFFT, "ptr", $aFFT[0], "int", $aFFT[1], "int", "FillModeAlternate")

    _GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
    Sleep(30)
WEnd

[timmy2]

I personally would have just told the OP to head on over to the WinAPIEx section of the Forum and download the appropriate includes.

 

Thank you, Guinness.   Which of the 904 functions listed would you recommend as applicable here, or do I misunderstand?