sproxy
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
araneon
попробуй:
Код: #NoTrayIcon
AutoItSetOption('GUIOnEventMode', 1)
AutoItSetOption('TrayIconHide', 0)
AutoItSetOption('TrayMenuMode', 1)
AutoItSetOption('TrayOnEventMode', 1)
#include <Constants.au3>
;~ Закрытие программы: Ctrl+Alt+ESC
HotKeySet('!^{Esc}', 'exit_pro')
$tray_run = TrayCreateItem('Открыть Блокнот?')
TrayItemSetOnEvent(-1, 'run_program')
TrayCreateItem('')
$tray_exit = TrayCreateItem('Закрыть')
TrayItemSetOnEvent(-1, 'exit_pro')
TraySetState()
While 1
Sleep(100)
WEnd
Func exit_pro()
HotKeySet('!^{Esc}')
Exit
EndFunc
Func run_program()
Switch TrayItemGetText($tray_run)
Case 'Открыть Блокнот?'
TrayItemSetText($tray_run, 'Открыть Калькулятор?')
Run('C:\WINDOWS\system32\notepad.exe')
Case 'Открыть Калькулятор?'
TrayItemSetText($tray_run, 'Открыть диск Paint?')
Run('C:\WINDOWS\system32\calc.exe')
Case 'Открыть диск Paint?'
TrayItemSetText($tray_run, 'Ну сколько можно?')
Run('C:\WINDOWS\system32\mspaint.exe')
Case 'Ну сколько можно?'
TrayItemSetText($tray_run, 'Заблокировался  ')
TrayItemSetState($tray_run, $TRAY_DISABLE)
MsgBox(0, 'Дышите глубже, Господа', 'Пожалуйста, жмите не более 3 раз в сутки !')
EndSwitch
EndFunc |
Добавлено:
NEW_MAKC
надо определить controlID кнопки Ok,
если там будет что то вроде Button1,
то код ни же должен сработать:
Код: ;~ Закрытие программы: Ctrl+Alt+ESC
HotKeySet('!^{Esc}', '_Exit')
Run('C:\WINDOWS\system32\calc.exe')
$sTitle = "Калькулятор"
While 1
If WinExists($sTitle) Then ControlClick($sTitle, "", "Button1")
Sleep(100)
WEnd
Func _Exit()
HotKeySet('!^{Esc}')
Exit
EndFunc ;==>_Exit |
если не поможет, то хм...
то скачай Au3Info.exe.
Запусти её и открой вкладку Control, далее открой то сообщение с кнопкой ОК,
в Au3Info.exe нажми на иконку прицела и перетяни её на кнопку
ОК. После отпусти, в Au3Info.exe, в строке ClassnameNN будет ControlID
кнопки, открой в Au3Info.exe самую последную вкладку Summary
и скопируй его, далее вставь его в
ControlClick($sTitle, "", "Button1")
вместо Button1 и проверь..... |
