|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Не срабатывает часть скрипта при его первом запуске |
|
Не срабатывает часть скрипта при его первом запуске
|
Старожил Сообщения: 255 |
Профиль | Отправить PM | Цитировать Добрый день. Имеется скрипт:
Скрытый текст
#include <WinAPIEx.au3> Opt('WinTitleMatchMode', 2) run ( @ComSpec & " /c " & """c:\Documents and Settings\lepta\Рабочий стол\Включить Х.cmd""", "") sleep (10000) _WinAPI_ShellObjectProperties( "X:\" ) ;Запуск свойств диска Х:\ и его расшаривание WinWait( "[TITLE:Свойства; CLASS:#32770]", "") ControlClick ( "[TITLE:Свойства; CLASS:#32770]", "", "[CLASS:SysTabControl32; INSTANCE:1]", "main", 1, 205,12) ControlClick ( "[TITLE:Свойства; CLASS:#32770]", "Если, несмотря на это, вы все равно хотите открыть общий доступ к корневой папке диска, щелкните здесь", "[CLASS:SysLink; INSTANCE:4]", "main", 1, 134,54) ControlCommand ( "[TITLE:Свойства; CLASS:#32770]", "Открыть о&бщий доступ к этой папке", "Button4", "Check", "") ControlClick ( "[TITLE:Свойства; CLASS:#32770]", "Локальный общий доступ и безопасность", "Button6", "main", 1) WinWaitClose ( "[TITLE:Свойства; CLASS:#32770]", "Локальный общий доступ и безопасность") ;Закрыть торрент, если он запущен If ProcessExists ("uTorrent.exe") Then ProcessClose ( "uTorrent.exe" ) EndIf Проблема состоит в том, что диск ни в какую не хочет расшириваться при первом запуске скрипта. Если отключить диск и снова запустить скрипт, то всё отлично срабатывает. Подскажите, пожалуйста, в чём может быть проблема? |
|
Отправлено: 13:32, 18-04-2017 |
Старожил Сообщения: 168
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 14:27, 24-04-2017 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 255
|
Профиль | Отправить PM | Цитировать Цитата oz84:
|
|
Отправлено: 15:45, 24-04-2017 | #12 |
Старожил Сообщения: 168
|
Профиль | Отправить PM | Цитировать sNc-DAntES, вот в таком виде
Скрытый текст
#NoTrayIcon Local $iCount = 0 If FileExists('X:\') Then MsgBox(48 + 4096, 'Расшаривание X:\', 'Диск X:\ уже существует!') Else FileChangeDir('C:\Temp\True Crypt') RunWait('TrueCrypt.exe /v C:\Temp\123.tc /lx /m ro /p 123 /q', '', @SW_HIDE) While 1 If $iCount >= 10000 Then MsgBox(48 + 4096, 'Расшаривание X:\', 'Запуск TrueCrypt почему-то не сработал!') Exit EndIf If FileExists('X:\') Then ExitLoop $iCount += 200 Sleep(200) WEnd RunWait(@ComSpec & ' /C net share ShareX=X:\', '', @SW_HIDE) MsgBox(64 + 4096, 'Расшаривание X:\', 'Готово!') EndIf у меня срабатывает на WinXP SP3 и WinXP SP2. Диск расшаривается, изменение файлов разрешено, но т.к. монитрование в режиме только чтения - получаю отлуп. Если запустить cmd и последовательно вставить сработает? |
------- Последний раз редактировалось oz84, 24-04-2017 в 23:49. Причина: Лишний предлог Отправлено: 23:49, 24-04-2017 | #13 |
Старожил Сообщения: 255
|
Профиль | Отправить PM | Цитировать Цитата oz84:
Цитата oz84:
|
||
Отправлено: 10:13, 25-04-2017 | #14 |
Старожил Сообщения: 168
|
Профиль | Отправить PM | Цитировать sNc-DAntES, покажите вашу 9ю строку из скрипта, т.к. моя определённо "terminated".
Вариант переписать на AutoIt предложеный выше VBS-скрипт или оказаться от AutoIt и добавить в него монтирование и расшаривание не рассматривали? Честно говоря, у меня опыта немного, а протокол SMB не люблю и не было необходимости разбираться и, почти, пользоваться. Возможно, всё можно попроще разрулить на уровне прав NTFS, если в контейнере используется NTFS? |
------- Отправлено: 22:25, 25-04-2017 | #15 |
Старожил Сообщения: 255
|
Профиль | Отправить PM | Цитировать |
Отправлено: 10:27, 26-04-2017 | #16 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать sNc-DAntES, у Вас кавычки не согласованы — раз, и синтаксис функции неправильный — два.
|
Отправлено: 10:58, 26-04-2017 | #17 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интерфейс - Часть активных программ не ображается при запуске | Navarro | Microsoft Windows 7 | 4 | 09-01-2017 16:06 | |
Разное - [решено] Не создавть пользователя при первом запуске | The_Immortal | Microsoft Windows 7 | 3 | 16-03-2015 12:34 | |
Не срабатывает часть скрипта при первом входе | illznn | Автоматическая установка Windows 2000/XP/2003 | 3 | 09-04-2009 17:19 | |
выполнение скрипта при ПЕРВОМ входе пользователя | tojlst9lk | Microsoft Windows NT/2000/2003 | 1 | 16-03-2009 20:12 | |
Не до конца срабатывает установка с ключём /S при запуске из батника | Baw17 | Автоматическая установка приложений | 8 | 27-01-2007 09:41 |
|