[Элементы GUI] Создание кнопки ( button )

[MiXa]

Как добавить несколько кнопок , таким образом, что бы был просто текст ( и при наведении на текст и нажатии, цвет менялся)

Версия AutoIt: 3.6_3361

#Include <GUIConstants.au3>

GUICreate('Добро пожаловать', 600, 300)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

Do
Until GUIGetMsg() = -3

ниже написал какая кнопка что должна запускать

Спойлер

запуск файлов

1:кнопка:
DRV\myprog.exe

2:кнопка:
DRV\ins\myprog.exe

3:кнопка:
wpi\wpi.hta

4:кнопка:
что бы открывалась ссылка ( например http://autoit-script.ru )

Спасибо за внимание

 

[Viktor1703]

#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

Global $iState = True

$hForm = GUICreate('Добро пожаловать', 600, 300)
$iLabel = GUICtrlCreateLabel('текст', 20, 20, 80, 20)
GUIRegisterMsg($WM_SETCURSOR, 'WM_SETCURSOR')
GUISetState()

While 1
   Switch GUIGetMsg()
      Case -3
	     Exit
	  Case $iLabel
		 ShellExecute('www.autoit-script.ru')
   EndSwitch
Wend	  

Func WM_SETCURSOR($hWnd, $iMsg, $wParam, $lParam)
   If $wParam = GUICtrlGetHandle($iLabel) Then
	  If $iState Then
	     GUICtrlSetColor($iLabel, 0xFF0000)
		 $iState = False
	  EndIf
   Else
	  If Not $iState Then
         GUICtrlSetColor($iLabel, 0x000000)	
         $iState = True
      EndIf		 
   EndIf
   Return $GUI_RUNDEFMSG 
EndFunc

 

[MiXa]

А как еще сделать,что бы при нажатии на кнопку,окно закрывалось и запускалась моя программа?

 

[Viktor1703]

#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

Global $iState = True

$hForm = GUICreate('Добро пожаловать', 600, 300)
$iLabel = GUICtrlCreateLabel('текст', 20, 20, 80, 20)
GUIRegisterMsg($WM_SETCURSOR, 'WM_SETCURSOR')
GUISetState()

While 1
   Switch GUIGetMsg()
      Case -3
         Exit
      Case $iLabel
         ShellExecute('www.autoit-script.ru')
         Run('cmd.exe')
         Exit
   EndSwitch
Wend      

Func WM_SETCURSOR($hWnd, $iMsg, $wParam, $lParam)
   If $wParam = GUICtrlGetHandle($iLabel) Then
      If $iState Then
         GUICtrlSetColor($iLabel, 0xFF0000)
         $iState = False
      EndIf
   Else
      If Not $iState Then
         GUICtrlSetColor($iLabel, 0x000000) 
         $iState = True
      EndIf      
   EndIf
   Return $GUI_RUNDEFMSG 
EndFunc

 

[MiXa]

Viktor1703

Run('cmd.exe')

а зачем

Run('cmd.exe')

для чего это?

 

[Viktor1703]

Это пример одного из вариантов, как можно запустить вашу программу

 

[DarWiM]

OffTopic:
Эх, Run это первая команда, написанная мной на AutoIt :laugh: