[Maza Faka]

Котяра

скрыть икону (хотя она все равно висит лишь пару секунд)

Лучше вставить в начало скрипта #NoTrayIcon

[Котяра]

Код:

#NoTrayIcon
ShelLExecuteWait("file.msi")

А это загрузчик MSI-файла. Сама Microsoft называет их "bootstrapper". Позволяет переделать MSI в EXE. Как? А так:
1. Поменять file.msi на имя MSI-файла
2. Откомпилировать скрипт
3. Сжать скомпилированный скрипт setup.exe и MSI-файл в SFX-архив с распаковкой во временную папку и запуском setup.exe после завершения распаковки (это можно делать программой iexpress.exe)

[unikum111]

Помогите написать часть скрипта. Цель: после отработки основной части скрипта мне необходимо изменить параметр "объект" у ярлыка (рабочая папка таже), затем необходимо чтобы файл скрипта удалился.

[Maza Faka]

unikum111
Попробуй так:

Код:

$aShortcut = FileGetShortcut("c:\Documents and Settings\All Users\Рабочий стол\NOTEPAD.lnk")

FileCreateShortcut("c:\notepad.exe", "c:\Documents and Settings\All Users\Рабочий стол\NOTEPAD.lnk", "c:\", $aShortcut[2], $aShortcut[3], $aShortcut[4], $aShortcut[5], $aShortcut[6])

$OpenFile = FileOpen(@TempDir & "\tmp.bat", 2)

FileWrite($OpenFile, "@Echo off" & @CRLF & _
         "chcp 1251" & @CRLF & _
         "ping -n 6 127.0.0.1" & @CRLF & _
         "del /f /q " & '"' & @ScriptFullPath & '"' & @CRLF & _
         "del /f /q tmp.bat")

FileClose($OpenFile)

ShellExecute(@TempDir & "\tmp.bat", "", "", "open", @SW_HIDE)

[unikum111]

Maza Faka, здорово! Спасибо. А зачем нужна эта строка:

Код:

"ping -n 6 127.0.0.1" & @CRLF & _

[Dmurr]

Всем доброго времени суток! Сталкнулся с такой проблемой. При установке программы Comodo AntiVirus 2.0.17.58 beta открываются последовательно три окна:Comodo AntiVirus Beta 2.0 Installer (отрабатывает все свои действия и уходит в неактив) => COMODO AntiVirus Installer(распаковывает файлы самой программы) => License Activation (линцензионный запрос - просто нажимаю далее)! После всех этих действий снова становиться активным основное окно Comodo AntiVirus Beta 2.0 Installer, на котором нужно нажать кнопку "Finish"(хотя AutoIt Window Info пишет что это кнопка "Next >" - чему верить не знаю)! помогите нажать последнюю кнопку чтобы ОС пошла на перезагрузку, тк ни WinWait + send, ни WinWait + WinWaitActive + controlclick, ни WinWait + WinWaitActive + controfocus + controlclick, ни WinWait + WinWaitActive + controfocus + controlsend (Space) | не проходят! помогите пожалуйста всетаки нажать на последнюю кнопку! ^_^ Р.s. такое ощущение, что окно не активно и вследствии этого комады не проходят.

[Котяра]

Делаю на Autoit программу, суть которой сводится к следующему: попросить пользователя некоторые данные в поле, а потом сравнить их с разными образцами и вывести сообщение. Я делаю примерно так:

Код:

$zapros = MsgBox(36, "Добро пожаловать", "bla-bla-bla")
if $zapros = 7 Then Exit
$nomer = InputBox("Ввод номера", "Ля-ля", "", "")
if @error = 1 Then Exit
if $nomer = '' Then MsgBox(4096, "Ошибка", "Номер не введен.", 10)
if $nomer = '100' Then MsgBox(4096, "-", "Стольник", 10)
if $nomer = '1000' Then MsgBox(4096, "-", "Тыячник", 10)

Вопрос: как сделать, что при вводе иного числа, чем определенные, выводилось что-то типа "Номер не числится в БД"

[SmallGod]

В последней версии AutoIt Beta при считывании из StdOut процесс не блокируется.
Кто нибудь знает как его заблокировать?

$zapros = MsgBox(36, "Добро пожаловать", "bla-bla-bla") if $zapros = 7 Then Exit $nomer = InputBox("Ввод номера", "Ля-ля", "", "") if @error = 1 Then Exit if $nomer = '' Then MsgBox(4096, "Ошибка", "Номер не введен.", 10) if $nomer = '100' Then MsgBox(4096, "-", "Стольник", 10) if $nomer = '1000' Then MsgBox(4096, "-", "Тыячник", 10) »

Код:

$zapros = MsgBox(36, "Добро пожаловать", "bla-bla-bla")
if $zapros = 7 Then Exit
$nomer = InputBox("Ввод номера", "Ля-ля", "", "")
if @error = 1 Then Exit
Switch $nomer
Case ''
	MsgBox(4096, "Ошибка", "Номер не введен.", 10)
Case '100'
	MsgBox(4096, "-", "Стольник", 10)
Case '1000'
	MsgBox(4096, "-", "Тыячник", 10)
Case Else
	MsgBox(4096, "Ошибка", "Номер не числится в БД", 10)
EndSwitch

[Maza Faka]

unikum111,

А зачем нужна эта строка:

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

[Maza Faka]

попросить пользователя некоторые данные в поле, а потом сравнить их с разными образцами и вывести сообщение »

Пример:

Код:

$GetInput = InputBox("Запрос данных...", "Введите данные", 5)
If @error Then Exit

Switch $GetInput
Case 5
    MsgBox(0, "", 5)
Case 3
    MsgBox(0, "", 3)
Case Else
    MsgBox(16, "Ошибка", "Нет совпадений")
EndSwitch

помогите пожалуйста всетаки нажать на последнюю кнопку! »

Выложи скриншот проблемной кнопки.