[решено] Открыть окно, скрытое вторым .exe - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Открыть окно, скрытое вторым .exe (http://forum.oszone.net/showthread.php?t=177688)

Открыть окно, скрытое вторым .exe

Здравствуйте!
Возникла такая проблемка.
В одном скрипте создано gui, затем guisetstate(), затем guisetstate(@SW_HIDE, $Gui)
Нужно другим скриптом отобразить это окно - guisetstate(@SW_SHOW, $Gui).
Помогите пожалуйста.

morgan1991,
если у первого GUI есть $Title, то

Код:

WinSetState($Title, "", @SW_SHOW)

Цитата:

Цитата kaster

если у первого GUI есть $Title, то »

к сожалению $Title нет, а если сделать, то окно открывается, но неодна кнопка не работает...

А ещё было бы неплохо, не только отобразить окно а ещё и выслать ему комманду нажатия на кнопку, не используя клавиатуру и мышь...

morgan1991,
код первого скрипта приведи. там видно будет

Код:

#include <guiconstants.au3>



$Gui = GUICreate("")

$Button = GUICtrlCreateButton("button1", 10, 10)



GUISetState(@SW_SHOW, $Gui)

GUISetState(@SW_HIDE, $Gui)



While 1

    $Msg = GUIGetMsg()

    If $Msg = $GUI_EVENT_CLOSE Then Exit

WEnd

morgan1991
1. зачем делать SHOW, а потом следом сразу же HIDE? если ничего не делать будет тоже самое
2. зачем нужен GUI который скрыт? ну да ладно, это не суть

Title у GUI никак не может влиять на его работоспособность. Просто дай уникальное имя окну.
к примеру, вот немного твой доработанный скрипт

Код:

#include <guiconstants.au3>



$Gui = GUICreate("My Unique title")

$Button = GUICtrlCreateButton("button1", 10, 10)



;GUISetState(@SW_SHOW, $Gui)

;GUISetState(@SW_HIDE, $Gui)



While 1

    $Msg = GUIGetMsg()

    If $Msg = $GUI_EVENT_CLOSE Then Exit

WEnd

запускаешь после этого второй скрипт-монитор.

Код:

$hGUI = GUICreate("Window catcher")

$hButtonCatch = GUICtrlCreateButton("Show/Hide Window", 10, 10)

GUISetState()

$sTitle = "My Unique title"

Global $flag = 1; WIndow is hide

While 1

        $msg = GUIGetMsg()

        Switch $msg

                Case -3

                        ExitLoop

                Case $hButtonCatch

                        _WinCatch()

        EndSwitch

WEnd



Func _WinCatch()

        Switch $flag

                Case 1

                        WinSetState($sTitle, "", @SW_SHOW)

                        $flag = 0

                Case 0

                        WinSetState($sTitle, "", @SW_HIDE)

                        $flag = 1

        EndSwitch

EndFunc

К сожалению, сейчас немогу привести пример скрипта, но я с предидущим немного ошибся.
guigetmsg() там не используется, вмсто него оневент, и возможно из-за этого после отображения окна вторым скриптом, ни одна кнопка в окне не работает.
+ необходимо:

Цитата:

Цитата morgan1991

не только отобразить окно а ещё и выслать ему комманду нажатия на кнопку, не используя клавиатуру и мышь... »

просто отобразить окно недостаточно... :(
Возможно есть способ используя dll или чтото ещё, чтобы отсылать первому скрипту комманды?

morgan1991, для этого существуют команда

Код:

ControlClick()

Цитата:

Цитата kaster

morgan1991, для этого существуют команда »

Цитата:

Цитата morgan1991

не используя клавиатуру и мышь... »

Решил, методом TCP соединения между двумя скриптами...

morgan1991, предполагаю, что если ты приведешь свое решение тут, оно будет очень полезным не только тебе но и многим другим, с аналогичной проблемой ;)

Example.au3

Код:

Func TCPConnect()

    Local $MainSocet = TCPListen(@IPAddress1, 5438, 1)

    If @error Then MsgBox(16, "", "TCPListen: " & @error)

    If FileExists(@ScriptDir & "\_MsgFunc.exe") Then

        ShellExecute(@ScriptDir & "\_MsgFunc.exe")

        Local $ConnectSocet = -1

        While $ConnectSocet < 0

            $ConnectSocet = TCPAccept($MainSocet)

        WEnd

    Else

        ErrorInstallProg()

    EndIf

    Return $ConnectSocet

EndFunc



Func _ShowGui()

    ; Тут открывается окно

EndFunc



Func ErrorInstallProg()

    Exit

EndFunc



TCPConnect()

While 1

    $TCPRecvData = TCPRecv($VK_MsgConnectedSocet, 4098)

    If $TCPRecvData = "ShowGUI" Then _ShowGui()

WEnd

_MsgFunc.au3

Код:

Func _CreateConnectedSocet()

    Local $TempConnectSocet = -1

    $TempConnectSocet = TCPConnect(@IPAddress1, 5438)

    If @error Then Exit

    Return $TempConnectSocet

EndFunc



Func _SendShowGui()

    TCPSend($ConnectedSocet, "ShowGUI")

EndFunc



_CreateConnectedSocet()

_SendShowGui()

Откомпилить _MsgFunc.au3 и запустить Example.au3