Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Диалог открытия файла + добавление текста в существующий лейбл

Ответить
Настройки темы
[решено] Диалог открытия файла + добавление текста в существующий лейбл
D_Master


Сообщения: n/a

Профиль | Цитировать

Всем привет!

Имеется скрипт:
Код: Выделить весь код
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Выбор картинки", 377, 110)
$ImgPath = GUICtrlCreateInput("", 120, 16, 161, 21)
$Button1 = GUICtrlCreateButton("Обзор...", 288, 13, 65, 25, 0)
$Label1 = GUICtrlCreateLabel("Выберите картинку", 8, 19, 103, 17)
$Button2 = GUICtrlCreateButton("Отправить", 144, 64, 81, 25, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUICtrlSetOnEvent($Button1, "GetImgPath")
GUICtrlSetOnEvent($Button2, "Submit")
GUISetState(@SW_SHOW)

While 1
Sleep(100)
WEnd

Func GetImgPath()
    $imgFullPath = FileOpenDialog("Выберите картинку", @MyDocumentsDir, "Изображения (*.jpg;*.gif;*.png)", 1)
    MsgBox(64, "Путь к картинке", $imgFullPath)
EndFunc

Func Submit()
    Exit
EndFunc

Func Close()
    Exit
EndFunc
При нажатии на кнопку "Обзор..." открывается окно выбора картинки. Как обычно в таком случае бывает, путь к картинке сразу же после выбора файла записывается в поле ввода. Как бы тут такое же реализовать?

Чтобы не плодить темы: запускаю второй au3-скрипт такой командой:
Код: Выделить весь код
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Video.au3"')
А как остановить выполнение второго скрипта?

Отправлено: 19:27, 13-02-2009

 

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата D_Master:
Как обычно в таком случае бывает, путь к картинке сразу же после выбора файла записывается в поле ввода. Как бы тут такое же реализовать? »
Имеется в виду после нажатия на ОК? тогда через GUICtrlSetData($ImgPath, $ImgFullPath). Но перед этим нужно проверять небыла ли нажата кнопка «Отмена», чтобы не записалась пустая строка, т.е так: If Not @error Then GUICtrlSetData($ImgPath, $ImgFullPath)

Цитата D_Master:
Чтобы не плодить темы »
А по твоему лучше плодить оффтопик?

Цитата D_Master:
как остановить выполнение второго скрипта? »
Закрыть его процесс?

Код: Выделить весь код
$iVideo_PID = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Video.au3"')

;...

ProcessClose($iVideo_PID)

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 19:53, 13-02-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

D_Master


Сообщения: n/a

Профиль | Цитировать

Цитата Creat0R:
Закрыть его процесс? »
Не получается

Отправлено: 20:11, 13-02-2009 | #3


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата D_Master:
Не получается »
Что делает этот процесс (скрипт Video.au3)?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 20:14, 13-02-2009 | #4

D_Master


Сообщения: n/a

Профиль | Цитировать

Цитата Creat0R:
Что делает этот процесс »
Это скрипт, приведенный в шапке Коряво просто обозвал имя скрипта

Отправлено: 20:15, 13-02-2009 | #5


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата D_Master:
Это скрипт, приведенный в шапке »
А как он запускается, из самого скрипта? покажи полный пример того, как/где скрипт запускается и как убивается.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 20:39, 13-02-2009 | #6

D_Master


Сообщения: n/a

Профиль | Цитировать

Так и запускается
Код: Выделить весь код
#NoTrayIcon
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Video.au3"')
Sleep(5000)
$iVideo_PID = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Video.au3"')
ProcessClose($iVideo_PID)

Отправлено: 20:43, 13-02-2009 | #7


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата D_Master:
Так и запускается »
Так он же 2 раза запускается, зачем?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 21:30, 13-02-2009 | #8

D_Master


Сообщения: n/a

Профиль | Цитировать

Цитата Creat0R:
Так он же 2 раза запускается, зачем? »
Ух ты, вот я дурак Я почему-то подумал, что $iVideo_PID получает ID процесса Разумеется, так всё работает:
Код: Выделить весь код
#NoTrayIcon
$iVideo_PID = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Video.au3"')
Sleep(5000)
ProcessClose($iVideo_PID)

Отправлено: 22:16, 13-02-2009 | #9



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Диалог открытия файла + добавление текста в существующий лейбл

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - [решено] Удаление файла после открытия intersk Скриптовые языки администрирования Windows 6 08-04-2009 07:46
[решено] зависает папка после открытия файла igoriss Microsoft Windows 2000/XP 13 15-03-2007 22:53
Исчез диалог открытия/сохранения файла tri777ki Microsoft Windows 2000/XP 1 10-03-2007 18:16
*Решено* Win32API | Базовый диалог открытия файла сам не открывается Savant Программирование и базы данных 3 22-04-2005 15:19


« Предыдущая тема | Следующая тема »


 
Переход