|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:. |
|
[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.
|
(*.*) Сообщения: 36509 |
Внимание! В связи с созданием отдельного форума по AutoIt, эта тема переводится в архивное состояние. Если у вас есть вопрос, создайте новую тему или поднимите существующую, если в ней обсуждается аналогичная проблема. Пожалуйста, не создавайте тем с названием "Помогите!" или "Нужна помощь по AutoIt". Это и так понятно ![]() ![]() Сайт программы Русская справка Коллекция AutoIt скриптов от Sanja Alone Коллекция AutoIt скриптов от MSFN (могут быть устаревшие). Справочник по командам rundll32 (команды запуска диалоговых окон и не только...) AutoIt скрипты - введение и FAQ (статья содержит вводную информацию по AutoIt, а также ответы на ЧаВо). Архивы старых тем по AutoIt или они же в 7z архиве (версии для печати) - 846 кб (настоятельно рекомендуется к прочтению/поиску) (он же прикреплен в шапке) Данная тема предназначена для общих вопросов по AutoIt. Вопросы по установке приложений при помощи AutoIt следует задавать в соответствии с правилами форума "Автоматическая установка приложений". Таким образом, если вы хотите узнать как установить Winamp 5.x при помощи AutoIt, то создайте тему [autoit] Winamp 5.х (если таковой еще нет на форуме). Проверить наличие тем можно при помощи поиска или фильтров. Цитата Vadikan:
|
||
------- Отправлено: 00:02, 05-02-2006 |
![]() Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать Вообщем в некой части скрипта есть во такой код (который устанавливает прогресс бар)
Вопрос .... ! можно это ещё как либо доработать ??? Creat0R ![]() ;********* $ScriptDir = @ScriptDir $sDrive_Selected = "D:\" ;Проверяем размер копируеммых файлов $ySize_Menu = DirGetSize($ScriptDir & "\" & "Menu"); Папка на источника $ySize_Soft = DirGetSize($ScriptDir & "\" & "Soft"); Папка на источника $ySize_Total = $ySize_Soft + $ySize_Menu ; Размер фалов на источнике всего - 451 490 049 байт ;~ If $ySize_Total == 451490049 Then ;~ ContinueLoop ;~ Else ;~ MsgBox(0, "Внимание", "Произошла ошибка при проверке размера копируемых файлов") ;~ Exit ;~ EndIf IniWrite (@TempDir & '\CopyToUsb.ini', "settings", "KeyDrive", $sDrive_Selected); Записывам в INI выбранный диск например J:\ IniWrite (@TempDir & '\CopyToUsb.ini', "settings", "KeyPATH", $ScriptDir) ; Записываем в INI путь папки из которой запущен скрипт GUISetState(@SW_DISABLE, $hGUI) ;Блокируем GUI на время копирования ProgressOn("", "Идёт копирование", "" ,100 ,100 ,1) FileInstall (@ScriptDir & '\CopyToUsb.exe', @TempDir & '\CopyToUsb.exe', 1) Run(@TempDir & '\CopyToUsb.exe') $w = 0 While $w < 1 $zSize_Menu = DirGetSize($sDrive_Selected & "Menu");папка на приёмнике $zSize_Soft = DirGetSize($sDrive_Selected & "Soft");папка на приёмнике $zSize_Total = $zSize_Soft + $zSize_Menu ; Размер фалов на приёмнике Итог после окончания копирования должен быть 451 490 049 байт $zSize_1 = $zSize_Total / 1000000; Итог 451.ххх $zSize_PrBar = Round(($zSize_1) + 49) / 5; = 100 $Ver_Copy = IniRead(@TempDir & '\CopyToUsb.ini', "settings", "Copy", "default") ; Cчитываем из INI значение о правильности копирования ProgressSet($zSize_PrBar, $zSize_PrBar & " % выполнения") sleep(300) If $zSize_Total < 451490049 Then $w = 0 Else If $Ver_Copy = 1 Then ProgressSet(100 , "Готово", "Выполнено") sleep(3000) ProgressOff() $w = 2 MsgBox(64, "Внимание", "Копирование прошло удачно") EndIf If $Ver_Copy = 0 Then ProgressSet(100 , "Ошибка", "Не выполнено") sleep(3000) ProgressOff() MsgBox(16, "Внимание", "Произошла ошибка при копировании") Exit EndIf EndIf WEnd GUISetState(@SW_ENABLE, $hGUI) Case $GUI_EVENT_CLOSE, $Cancel_Button ExitLoop EndSwitch WEnd Впоследствии это станет "CopyToUsb.exe" который находится внутри закомпилированного скрипта (он выше) и сопсн говоря это приложение и будет выполнять копирование #NoTrayIcon $sDrive = IniRead(@TempDir & '\CopyToUsb.ini', "settings", "KeyDrive", "default1"); Считываем из INI выбранный диск например J:\ $sScriptDir = IniRead(@TempDir & '\CopyToUsb.ini', "settings", "KeyPATH", "default2"); Считываем из INI путь папки из которой запущен скрипт While 1 $xVer_1 = DirCopy($sScriptDir & "\" & "Menu", $sDrive & "Menu") $xVer_2 = DirCopy($sScriptDir & "\" & "Soft", $sDrive & "Soft") $xVer = $xVer_2 + $xVer_1 If $xVer == 2 Then IniWrite (@TempDir & '\CopyToUsb.ini', "settings", "Copy", "1"); Записывам в INI о том что копирование удачно ExitLoop Else IniWrite(@TempDir & '\CopyToUsb.ini', "settings", "Copy", "0") ; Записываем в INI о том что копирование неудачно ExitLoop EndIf WEnd ;~ FileDelete(@TempDir & '\CopyToUsb.ini') Exit |
Отправлено: 01:50, 15-01-2009 | #1531 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 838
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
титул: Windows Task Manager меню: Shut Down /список: Stand By | Hibernate | Turn Off | Restart | Log Off Semiono | Lock Computer WinKey + L надо Restart нажать! ![]() |
|
------- Отправлено: 02:01, 15-01-2009 | #1532 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата semiono:
P.S 4 нужно заменить на 3 в скрипте. |
|
------- Отправлено: 02:06, 15-01-2009 | #1533 |
Ветеран Сообщения: 604
|
Профиль | Отправить PM | Цитировать voler,
Цитата voler:
Цитата FlatX007:
Во первых - пример не рабочий, во вторых - неправильное использование функции FileInstall (читаем справку). P.S. Если хочешь получить грамотную помощь - задавай грамотные вопросы, с рабочими примерами ![]() |
||
------- Отправлено: 07:27, 15-01-2009 | #1534 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Maza Faka А если прятать окно?
GuiSetState(@SW_HIDE, $hGUI) А откуда взялась переменая $hGUI если нетрудно перепешите . Раньше это было два разных скрипта и если я вызывал с основного скрипта по функции run диалоговое окно то оно отрабатывалось как отдельный скрипт и спокойно закрывалось поExit не затрагивая работу основного скрипта. но хотелось бы зделать по компактнее. |
------- Отправлено: 10:03, 15-01-2009 | #1535 |
Новый участник Сообщения: 12
|
Профиль | Отправить PM | Цитировать Ребята, а подскажите как выгрузить из процесса одну dll. То есть, есть процесс (допустим explorer.exe) к нему подгружается одна dll вот как её выгрузить не убивая сам процесс ?
|
Отправлено: 10:45, 15-01-2009 | #1536 |
![]() Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать Возможно ли при присутствии 4 разделов жёсткого диска определить какие системы находятся на других жёстких дисках?
|
------- Отправлено: 12:53, 15-01-2009 | #1537 |
Ветеран Сообщения: 604
|
Профиль | Отправить PM | Цитировать Цитата litus:
![]() TERMINAL Либо парсить boot.ini, либо искать папки с именами: Windows, WinNT и т.д. |
|
------- Отправлено: 14:05, 15-01-2009 | #1538 |
![]() Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать Цитата Maza Faka:
|
|
------- Отправлено: 14:25, 15-01-2009 | #1539 |
![]() Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать Цитата Maza Faka:
А да извиняюсь ошибка есть ... компилятор выдал только при компиляции скрипта в ЕХЕ Вот так работает : FileInstall ("CopyToUsb.exe", @TempDir & '\CopyToUsb.exe', 1) |
|
Последний раз редактировалось FlatX007, 07-08-2009 в 23:32. Отправлено: 17:21, 15-01-2009 | #1540 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
[архив - Часть 2] AutoIt скрипты | Vadikan | AutoIt | 985 | 21-01-2008 09:58 | |
Вопрос - [Архив] Антивирусные программы - ОБЩИЕ ВОПРОСЫ | FOX RED | Защита компьютерных систем | 67 | 21-11-2007 15:05 | |
[Архив - Часть 1.3] AutoIt скрипты | biork | AutoIt | 503 | 09-06-2007 11:27 | |
[Архив - Часть 1.2] AutoIt скрипты | Dirk Diggler | AutoIt | 505 | 02-12-2006 11:00 | |
[Архив - Часть 1.1] AutoIt скрипты | EgOrus | AutoIt | 335 | 04-02-2006 16:58 |
|