greshnik77
Новичок
- Сообщения
- 27
- Репутация
- 0
Что должно работать:
1.Выбор приложения через проводник
2.Путь до приложения записывается в Input1
3.Запуск приложения по данным из Input1 кнопкой Button3
Не работает запуск приложения из Input1 второй час кручу и так и так ни чего не выходит, может у вас есть мысли по этому поводу?
1.Выбор приложения через проводник
2.Путь до приложения записывается в Input1
3.Запуск приложения по данным из Input1 кнопкой Button3
Не работает запуск приложения из Input1 второй час кручу и так и так ни чего не выходит, может у вас есть мысли по этому поводу?
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\koda_1.7.3.0\Forms\Form1.kxf
Opt('GUIOnEventMode',1)
Opt('TrayIconDebug',1)
Opt('TrayIconHide',0)
$Form1 = GUICreate("Автовход для AION v0.1a", 615, 438, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE,'_Pro_Exit')
$Group1 = GUICtrlCreateGroup("Учетные данные", 16, 16, 281, 137)
$Input2 = GUICtrlCreateInput("", 88, 48, 169, 21)
$Label1 = GUICtrlCreateLabel("Логин", 32, 48, 35, 17)
$Label2 = GUICtrlCreateLabel("Пароль", 32, 80, 42, 17)
$Input3 = GUICtrlCreateInput("", 88, 80, 169, 21)
$Button4 = GUICtrlCreateButton("Свернуть AION", 32, 112, 97, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Путь к Aion.exe", 320, 16, 273, 65)
$Input1 = GUICtrlCreateInput("", 336, 32, 193, 21)
$Button1 = GUICtrlCreateButton("...", 544, 32, 41, 17)
GUICtrlSetOnEvent(-1, 'put_k_aion')
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Запустить автовход", 24, 376, 201, 33)
GUICtrlSetOnEvent(-1, 'acinfo')
$Button3 = GUICtrlCreateButton("Запустить AION", 160, 112, 105, 25)
GUICtrlSetOnEvent(-1, 'zapusk_aion')
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func acinfo()
MsgBox(64, "Учётные данные", 'Логин:' & GUICtrlRead($Input2) & ' Пароль:'& GUICtrlRead($Input3) & '', 0)
EndFunc
Func aiontree()
WinSetState("AION Client", "", @SW_MINIMIZE)
EndFunc
Func _Pro_Exit()
Exit
EndFunc
Func put_k_aion()
$put_k_aion=FileOpenDialog("Выберите файл для запуска Aion",@WindowsDir, "Aion (*exe)", 1)
If @error Then
MsgBox(48,"","Внимание! Файл не выбран,выберите файл!")
Else
GUICtrlSetData($Input1, $put_k_aion)
EndIf
EndFunc
Func zapusk_aion()
Run($put_k_aion)
EndFunc