[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