#include <WindowsConstants.au3>
$Gui = GUICreate('Окно', 400, 430, -1, -1, $WS_POPUP + $WS_THICKFRAME, $WS_EX_TOOLWINDOW+$WS_EX_TRANSPARENT)
GUISetBkColor(0x3f3f3f)
$Button = GUICtrlCreateButton('Проверь', 100, 140, 100, 50)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button
_MsgFile()
Case $msg = -3
Exit
EndSelect
WEnd
Func _MsgFile()
$GuiPos = WinGetPos($Gui)
GUISetState(@SW_DISABLE, $Gui)
$Gui1 = GUICreate('Сообщение', 200, 70,$GuiPos[0]+110, $GuiPos[1]+100, -1, 0x00000080,$Gui)
GUICtrlCreateLabel('Что будем делать сейчас?', 20, 10, 180, 23)
$EditBut=GUICtrlCreateButton('Редактор', 10, 40, 80, 22)
$StrBut=GUICtrlCreateButton ('Калькулятор', 100, 40, 80, 22)
GUISetState(@SW_SHOW, $Gui1)
For $i = 255 to 0 step -1
WinSetTrans($Gui,"",$i)
; Sleep(10)
Next
GUISetState(@SW_HIDE, $Gui)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $EditBut
Run('Notepad.exe')
Case $msg = $StrBut
ShellExecute('Calc.exe')
Case $msg = -3
$msg = 0
GUISetState(@SW_ENABLE, $Gui)
GUIDelete($Gui1)
GUISetState(@SW_SHOW, $Gui)
For $i = 0 to 255
WinSetTrans($Gui,"",$i)
; Sleep(10)
Next
ExitLoop
EndSelect
WEnd
EndFunc |
главное если слать пробел не работает (как и раньше окошко закрывающееся) а если ентер слать то заработало
