Что нового

[Данные, строки] Запуск программы из input

greshnik77

Новичок
Сообщения
27
Репутация
0
Что должно работать:
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
 

axlwor

Скриптер
Сообщения
657
Репутация
147
можно попробовать
Код:
Global $put_k_aion
 
Автор
G

greshnik77

Новичок
Сообщения
27
Репутация
0
Спасибо всё работает)
 
Верх