Sergey2210
Осваивающий
- Сообщения
- 263
- Репутация
- 31
Версия AutoIt:3.
Не получается поставить кнопку в окно.
Главный скрипт:
Консольный:
Не получается поставить кнопку в окно.
Главный скрипт:
Код:
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
$hForm = GUICreate("22",400,300)
$But = PluginCall(@ScriptDir & "\1.exe",'_Button('&'"'& $hForm &'"'&', 10, 10,100,20)')
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func PluginCall($hFile,$hFunc)
Local $sRead = ""
$iPid = Run($hFile, "", @SW_HIDE, 1)
StdinWrite($iPid, '/Func:'& $hFunc)
EndFunc
Консольный:
Код:
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
$sRead = ""
Dim $Button
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 _Button($hWnd,$left,$top,$width,$height)
$Button = _GUICtrlButton_Create($hWnd,"",$left,$top,$width,$height)
Return $Button
EndFunc