Как написать консольное приложение Stdin/Stdout

Sergey2210 · 11 Май 2011

Версия AutoIt:3.

Приветствую всех,у меня вопрос,как создать консольное приложение чтобы главный скрипт вызывал из него какие либо функции,например в консольном приложении будет такая функция:

Код:

Func _Msg($index,$title,$text)
    MsgBox($index,$title,$text)
EndFunc

Как передать параметры с главного скрипта в консольное и вызвать эту функцию?

CreatoR · 11 Май 2011

Как то так:

Main.au3:

Код:

$iPid = Run("Console.exe", "", @SW_HIDE, 1)
Sleep(1500)
StdinWrite($iPid, '/Func:_Msg(64, "Title", "Hi")')
Sleep(3000)
StdinWrite($iPid, '/Exit')

Console.exe:

Код:

$sRead = ""

While 1
	Sleep(10)
	
	$sRead &= ConsoleRead()
	;If @error Then exit
	
	If $sRead Then
		If StringLeft($sRead, 6) = "/Func:" Then
			Execute(StringTrimLeft($sRead, 6))
		ElseIf $sRead = "/Exit" Then
			Exit
		EndIf
		
		$sRead = ""
	EndIf
WEnd

Func _Msg($index,$title,$text)
    MsgBox($index,$title,$text)
EndFunc

Кстати, оно будет работать и с обычным скриптом, не консольным.

Sergey2210 · 11 Май 2011

Спасибо,работает,то что нужно,и зачем теперь нужны DLL'ки :laugh:

CreatoR · 11 Май 2011

И ещё: Коммуникация процессов при помощи STDIN/STDOUT

Sergey2210 · 11 Май 2011

Я это уже смотрел,но не всё понял,захотел разобраться на простом примере... :smile:

Sergey2210 · 12 Май 2011

Классная вешь, поставил расширение dll ,через редактор ресурсов применил "Статическая библиотека" и всё равно работает,теперь можно dll'ки делать,правдо вызывать функции из неё не обычным способом нужно ;D

VladUs · 12 Май 2011

Sergey2210 [?]

поставил расширение dll

Скажу Вам по секрету. С таким успехом можно любой UDF превратить в dll.
Достаточно создать свой UDF c функциями, дать ему расширение .dll (хоть .jpg),
подключайте эту библиотеку к основному скрипту и вызывай из нее необходимые функции.

Sergey2210 · 12 Май 2011

Это я знаю,но после компиляции скрипта,вашу UDF можно будет выбросить в корзину,так как всё её содержимое будет находится в главном скрипте....

zlo-kazan · 12 Май 2011

Можно изменить подход. Можно не отправлять команды скрипту, а можно сделать, чтобы скрипт искал главную часть и следил за ней.
Где-то видел функцию которая работает на подобии GUIGetMsg, только для чужого GUI... т.е. в консольный скрипт можно её встроить и он будет следить на нажатиями в главном скрипте...

P.S. обсуждалось примерно в последние 2 недели, но найти не могу :search:

Sergey2210 · 12 Май 2011

Было бы не плохо...

CreatoR · 12 Май 2011

Sergey2210 [?]

Било бы не плохо

Кого? :laugh:

Sergey2210 · 12 Май 2011

Не знаю,но я понял так,что главный скрипт никуда ничего не отправляет,а в консольное приложение добавляется какая то доп.функция для контроля главного скрипта и все действия считываются в консольное приложение ...

zlo-kazan · 12 Май 2011

Хм... ту функцию не нашел, нашел немного другое. :smile:

Читает Lable главного окна.

Если ввести test... выдаст значение lable главного окна... если ввести ping выдаст пинг до yandex.ru

Консольная часть ждущая команды.

Код:

$command1="test"
$command2="ping"
While 1
If ControlGetText("My GUI","","[CLASS:1; ID:5]")=$command1 then 
	command1()
ElseIf ControlGetText("My GUI","","[CLASS:1; ID:5]")=$command2 Then
	_ping()
EndIf
	sleep(100)

WEnd


Func command1() 
	msgbox(0,"",ControlGetText("My GUI","","[CLASS:1; ID:5]"))
EndFunc

Func _ping()
	msgbox(0,"","ping yandex.ru" & @CRLF & ping("yandex.ru") & " ms")
EndFunc

GUI часть откуда берется команда

Код:

#include <GUIConstants.au3>

GUICreate("My GUI", 200, 200)  ; will create a dialog box that when displayed is centered
$input=GUICtrlCreateInput("",10,10, 180,30)
$button=GUICtrlCreateButton("Применить", 90, 50, 100,30)
$text=GUICtrlCreateLabel("",10, 100, 180,100)
GUISetState (@SW_SHOW)       ; will display an empty dialog box

; Run the GUI until the dialog is closed
$Timer=TimerInit()
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	switch $msg
		Case $button
		GUICtrlSetData($text,GUICtrlRead($input))
		$timer=TimerInit()
	EndSwitch
	If TimerDiff($timer)>1000 then 
		GUICtrlSetData($text," ")
		$timer=TimerInit()
	EndIf
Wend

Pelerin · 12 Май 2011

Если задача стоит в том чтобы создать полноценное консольное приложение и GUI к нему то можно истользовать $cmdline (или $cmdlineraw) в консольном скрипте, и Run или Shellexecute в скрипте-GUI.
Как пример мой total_config

Sergey2210 · 14 Май 2011

А как передать из консольного приложения в главное результат выполнения какой либо функции,пробовал через ConsoleWrite/ConsoleRead,Stderr/ConsoleWriteErr

zlo-kazan · 14 Май 2011

Ещё осталось попробовать ControlSetText

GUI часть

Код:

#include <GUIConstants.au3>
GUICreate("My GUI", 200, 200)  ; will create a dialog box that when displayed is centered
$input=GUICtrlCreateInput("",10,10, 180,30)
$button=GUICtrlCreateButton("Применить", 90, 50, 100,30)
$text=GUICtrlCreateLabel("",10, 100, 180,100)
GUISetState (@SW_SHOW)       ; will display an empty dialog box

; Run the GUI until the dialog is closed
$Timer=TimerInit()
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	switch $msg
		Case $button
		GUICtrlSetData($text,GUICtrlRead($input))
		$timer=TimerInit()
	EndSwitch
	If TimerDiff($timer)>1000 then 
		GUICtrlSetData($text," ")
		$timer=TimerInit()
	EndIf
Wend

Консольная часть

Код:

$command1="test"
$command2="ping"
While 1
If ControlGetText("My GUI","","[CLASS:1; ID:5]")=$command1 then 
	command1()
ElseIf ControlGetText("My GUI","","[CLASS:1; ID:5]")=$command2 Then
	_ping()
EndIf
	sleep(100)
	
WEnd


Func command1() 
	ControlSetText("My GUI","","[CLASS:1; ID:3]",'Команда "command1" выполнена')
	msgbox(0,"",ControlGetText("My GUI","","[CLASS:1; ID:5]"))
EndFunc

Func _ping()
	ControlSetText("My GUI","","[CLASS:1; ID:3]",'Команда "_ping" выполнена')
	msgbox(0,"","ping yandex.ru" & @CRLF & ping("yandex.ru") & " ms")
EndFunc

Добавлено:
Сообщение автоматически объединено: 14 Май 2011

Сделал общение через ControlSetText. Только у консольной части сделал скрытый GUI в котором есть lable который ждет когда в него, что-нибудь пропишут. Теперь можно из любой программы отсылать команды. :smile:

GUI

Код:

#include <GUIConstants.au3>

GUICreate("My GUI", 200, 200)  ; will create a dialog box that when displayed is centered
$input=GUICtrlCreateInput("",10,10, 180,30)
$button=GUICtrlCreateButton("Применить", 90, 50, 100,30)
$text=GUICtrlCreateLabel("",10, 100, 180,100)
GUISetState (@SW_SHOW)       ; will display an empty dialog box


While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	switch $msg
		Case $button
		ControlSetText("GUI2","","[CLASS:1; ID:3]",GUICtrlRead($input))
	EndSwitch
Wend

Консольная

Код:

#include <GUIConstants.au3>

GUICreate("GUI2", 0, 0)  
$text=GUICtrlCreateLabel("",0 ,0, 0,0)
GUISetState (@SW_HIDE)       
GUICtrlSetData($text,"Wait...")

$command1="test"
$command2="ping"
While 1
If GUICtrlRead($text)=$command1 then 
	command1()
ElseIf GUICtrlRead($text)=$command2 Then
	_ping()
ElseIf GUICtrlRead($text)="Wait..." Then
	sleep(5)
Else
	ControlSetText("My GUI","","[CLASS:1; ID:3]",'неизвестная команда')
	GUICtrlSetData($text,"Wait...")
EndIf
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	sleep(5)
WEnd


Func command1() 
	ControlSetText("My GUI","","[CLASS:1; ID:3]",'Команда "command1" выполнена')
	msgbox(0,"",ControlGetText("My GUI","","[CLASS:1; ID:3]"))
	GUICtrlSetData($text,"Wait...")
EndFunc

Func _ping()
	ControlSetText("My GUI","","[CLASS:1; ID:3]",'Команда "_ping" выполнена')
	msgbox(0,"","ping yandex.ru" & @CRLF & ping("yandex.ru") & " ms")
	GUICtrlSetData($text,"Wait...")
EndFunc

Добавлено:
Сообщение автоматически объединено: 14 Май 2011

Интересная штука получилась... :scratch:

если нормально оформить в функцию, то решает вопрос о многопоточности AutoIt... :IL_AutoIt_1:

Sergey2210 · 15 Май 2011

у меня получается отправить через ConsoleWrite результат выполнения функции в главный скрипт,но вытянуть текс из консоли почему то не могу...

Главный скрипт:

Код:

PluginCall("ex.exe",'_Msg(64, "Title", "Hi")')

Func PluginCall($hFile,$hFunc)
	Local $sRead = ""
    $iPid = Run($hFile, "", @SW_HIDE, 1)
    StdinWrite($iPid, '/Func:'& $hFunc)
	Sleep(1000)
    StdinWrite($iPid, '/Exit')
EndFunc

Скрипт консольного приложения:

Код:

$sRead = ""

While 1
    Sleep(10)
    
    $sRead &= ConsoleRead()
    ;If @error Then exit
    
    If $sRead Then
        If StringLeft($sRead, 6) = "/Func:" Then
            Execute(StringTrimLeft($sRead, 6))
        ElseIf $sRead = "/Exit" Then
            Exit
        EndIf
        
        $sRead = ""
    EndIf
WEnd

Func _Msg($index,$title,$text)
    MsgBox($index,$title,$text)
	If @error Then 
	    ConsoleWrite("0" & @CRLF)
	Else	
	    ConsoleWrite("1" & @CRLF)
	EndIf	
EndFunc

Viktor1703 · 2 Июл 2011

Я извиняюсь если не туда написал и нужно было создавать новую тему,но по моему она подходит для моего вопроса, я посмотрел примеры в этой теме и ни как не могу разобраться...

1. Как написать консольное приложение чтоб после компиляции его открыть и там можно было писать,а после нажатия Enter эта строка считалась с консоли
2. Например приложение находится в покое,берём файл мышкой,переносим на сам exe и программа открывается с выведенным путём до этого файла,который мы переместили.

Конечно если AutoIt такое поддерживает.

Код:

$sRead = ""

While 1
	Sleep(10)
	
	$sRead &= ConsoleRead()
	If $sRead Then
		; Тут код который выполняет определённую
		; функцию, смотря что будет в консоле
		; это не нужно писать...
	    $sRead = ""
    EndIf
	
WEnd

madmasles · 2 Июл 2011

Viktor1703,
1. Не совсем понял, что надо.
2.

Код:

If Not $CmdLine[0] Then
	MsgBox(16, 'Error', 'Error')
Else
	MsgBox(64, 'Info', $CmdLine[1])
EndIf

Viktor1703 · 2 Июл 2011

На основе первого примера сделать что-то похожее на cmd.exe , в котором можно писать текст и выводит полный путь до файла если его переместить в саму консоль, после того как сделал не большую функцию с выводом введённых данных в MsgBox()
я скомпилировал скрипт для проверки(при компиляции поставил галку консоль) и открыл,решил вписать текст а он не пишется,каретка не уходит,стоит на месте(опыт закончился не удачей)

Автор темы	Похожие темы	Форум	Ответы	Дата
E	Помогите написать скрипт, нужно скачать файлы с нескольких сайтов через прокси	Общие вопросы по AutoIt	1	30 Ноя 2022
I	Сеть, интернет Необходимо написать программу	Автоматизация IE и Web-интерфейса	1	27 Сен 2022
N	Переписать или написать скрипт	Стол заказов	0	25 Окт 2021
C	Автоматизация Помогите написать скрипт для автоматизации действий	Общие вопросы по AutoIt	2	19 Июл 2021
L	Можно ли на аутоите написать свою прогу для записи видео с монитора - плейера, браузера - со звуком?	Общие вопросы по AutoIt	3	6 Май 2021

Как написать консольное приложение Stdin/Stdout

Осваивающий

Must AutoIt!

Осваивающий

Must AutoIt!

Осваивающий

Осваивающий

Скриптер

Осваивающий

Скриптер

Осваивающий

Must AutoIt!

Осваивающий

Скриптер

Осваивающий

Осваивающий

Скриптер

Осваивающий

AutoIT Гуру

Модератор

AutoIT Гуру