[Creat0R]

DenchikK

в соответствии с ini файлом, как я понял, переделал так:

Не совсем верно, дело в том, что функция IniReadSection() возвращяет двумерный массив, нулевой элемент ([0]), как и в других обычных массивах, содержит общее число элементов массива.
Построение цикла, должно быть так:

Код:

For $i = 1 To NN

Next

Тут For $i = 1, означает что для переменной $i, в теле цикла, будет присваиваться возрастающее значение от 1 и до NN (вместо NN нам и нужно подставить общее число элементов нашего массива, в данном случае, это $Logins_Array[0][0], иногда, обычно самодельные массивы, могут быть построены неверно, поэтому надёжнее проверять общее число массива, используя функцию Ubound, но при этом нужно отнять 1, чтобы нулевой элемент не учитывался:

Код:

For $i = 1 To Ubound($Logins_Array) - 1
     
Next

Или используем нулевой элемент для выявления общего числа элементов массива (не самый надёжный метод):

Код:

For $i = 1 To $Logins_Array[0][0]
     
Next

В справке написано, что функция IniReadSection(), возвращает двумерный массив, теперь его элементы присваиваются так:

Logins_Array[N][0] = Ключь в Ini-Файле
Logins_Array[N][1] = Значение этого же ключа (ключ это то что идёт перед знаком ровно в Ini-файле).

пытался впихнуть строчку

Тут тоже ошибка, ведь в начале идёт проверка переменной, является ли она массивом - If IsArray($Links_Array) Then...

Но в теле условия (If ... Then ... EndIf), массив обрабатывается совсем другой...

GUICtrlCreateRadio($Logins_Array[$i][1], 10, $Top)...

Вот отсюда и может быть вызвана ошибка.


Попытка №2 :

(Добавил также немного проверок на ошибочность).

Код:

#include <GUIConstants.au3>

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 60)
AutoItSetOption("MouseCoordMode", 0)

Global $group_1, $group_2, $group_3, $RadioArr[1], $Links_Array, $Logins_Array, $Pass_Array, $Servers_Array, $Secrets_Array

; Запуск программы

Run ('avaload.exe')

; Считывание Данных

$Logins_Array = IniReadSection("ava.ini", "logins")
$Pass_Array = IniReadSection("ava.ini", "pass")
$Links_Array = IniReadSection("ava.ini", "links")
$Servers_Array = IniReadSection("ava.ini", "servers")
$Secrets_Array = IniReadSection("ava.ini", "secrets")

; Построение GUI

GUICreate("Автозаполнение", 340, 350)

If IsArray($Logins_Array) Then
	ReDim $RadioArr[UBound($Logins_Array)]
	$Top = 20
    For $i = 1 To UBound($Logins_Array)-1
		$RadioArr[$i] = GUICtrlCreateRadio($Logins_Array[$i][1], 10, $Top)
		$Top += 20
    Next
EndIf

$Start = GUICtrlCreateButton("Заполнить", 210, 20, 120, 20)
$Close = GUICtrlCreateButton("Выход", 210, 40, 120, 20)
$Server1  = GUICtrlCreateButton("Сервер 1", 210, 60, 120, 20)
$Server2  = GUICtrlCreateButton("Сервер 2", 210, 80, 120, 20)

$group_1 = GUICtrlCreateGroup ("Выбор Аккаунта", 5, 5, 190, 340)
$group_2 = GUICtrlCreateGroup ("Кнопочки", 205, 5, 130, 100)
$group_3 = GUICtrlCreateGroup ("Описание", 205, 105, 130, 240)

$Label1 = GUICtrlCreateLabel("    Описание Работы", 210, 120)
$Label2 = GUICtrlCreateLabel("1. Впишите в ava.ini", 210, 140)
$Label3 = GUICtrlCreateLabel("линки,логины,пароли,", 210, 155)
$Label4 = GUICtrlCreateLabel("параметры серверов.", 210, 170)
$Label5 = GUICtrlCreateLabel("2. Выберите Сервер", 210, 185)
$Label6 = GUICtrlCreateLabel("3. Выберите пустой ", 210, 200)
$Label7 = GUICtrlCreateLabel("аккаунт для заливки. ", 210, 215)
$Label8 = GUICtrlCreateLabel("     Принцип работы: ", 210, 235)
$Label9 = GUICtrlCreateLabel("Например, выбираем", 210, 250)
$Label10 = GUICtrlCreateLabel("первый логин,в него", 210, 265)
$Label11 = GUICtrlCreateLabel("будет заливаться ", 210, 280)
$Label12 = GUICtrlCreateLabel("первый линк. и.т.д", 210, 295)
$Label13 = GUICtrlCreateLabel("             Удачи! ", 210, 315)

GUISetState ()

; Основная Работа Скрипта

GUISetState()  ; display the GUI

While 1
    Switch GUIGetMsg()
        Case -3, $Close
            Exit
		Case $Server1
			
			If UBound($Servers_Array) < 2 Or UBound($Secrets_Array) < 2 Then
				MsgBox(48, "Ошибка", "Извените, невозможно продолжить, видимо не были найдены данные серверов")
				ContinueLoop
			EndIf
			
			WinActivate ("AvaRemoteLoad")
			ControlClick ( 'AvaRemoteLoad', '', "Button4")

			WinWaitActive ('Настройки')
			ControlSetText ( 'Настройки', '', 'Edit1', $Servers_Array[1][1])
			ControlSetText ( 'Настройки', '', 'Edit2', $Secrets_Array[1][1])

			ControlClick ( 'Настройки', '', "Button2")

		Case $Server2
			
			If UBound($Servers_Array) < 3 Or UBound($Secrets_Array) < 3 Then
				MsgBox(48, "Ошибка", "Извените, невозможно продолжить, видимо не были найдены данные серверов")
				ContinueLoop
			EndIf
			
			WinActivate ("AvaRemoteLoad")
			ControlClick ( 'AvaRemoteLoad', '', "Button4")

			WinWaitActive ('Настройки')
			ControlSetText ( 'Настройки', '', 'Edit1', $Servers_Array[2][1])
			ControlSetText ( 'Настройки', '', 'Edit2', $Secrets_Array[2][1])

			ControlClick ( 'Настройки', '', "Button2")

		Case $Start
			
			Local $iSet = 0
			For $i = 1 To UBound($Logins_Array)-1
				If GUICtrlRead($RadioArr[$i]) = 1 Then
					$iSet = $i
					ExitLoop
				EndIf
			Next
			
			If $iSet = 0 Then
				MsgBox(48, "Ошибка", "Выберите пожалуйста один из логинов")
				ContinueLoop
			EndIf
			
			If $iSet > UBound($Links_Array)-1 Or $iSet > UBound($Logins_Array)-1 Or $iSet > UBound($Pass_Array)-1 Then
				MsgBox(48, "Ошибка", "Извените, невозможно продолжить, видимо не были найдены данные линков/логинов/паролей")
				ContinueLoop
			EndIf
			
			WinActivate ("AvaRemoteLoad")
			ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[$iSet][1])
			ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[$iSet][1])
			ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[$iSet][1])

	EndSwitch
WEnd

ChVL

Во всех случаях скомпилированный exe имеет объём чуть больше 200 КВ, не зависит от объёма исходного exe и от того, какая прога устанавливается.

Не вижу связи с поставленной проблемой...

Скомпилированный exe работает, но только тогда, когда рядом присутствует исходный exe

...И с тем что я написал

[ChVL]

Creat0R
Ещё конкретнее.
Беру autoit-winamp.au3 (7.43 KB) от Sanja Alone и winamp533_pro.exe (6.33 MB). Компилирую. Теперь autoit-winamp.exe имеет объём 205 КВ. Это правильно? Этот autoit-winamp.exe работает только тогда, когда рядом находится winamp533_pro.exe.

[Creat0R]

ChVL

Этот autoit-winamp.exe работает только тогда, когда рядом находится winamp533_pro.exe.

Значит в самом скрипте путь к winamp533_pro.exe указан тот же в котором находится сам скрипт, либо вовсе не указан (в таком случае, путь обычно проверяется в соответствии с рабочим каталогом).

Но я всё же не понимаю связи с этим:

Скомпилированный exe работает, но только тогда, когда рядом присутствует исходный exe

Либо тут неправильная подстановка термина “исходный exe”, либо я чего то недопонимаю... в моём понимании “исходный exe”, это не скомпилированный скрипт - именно на основе этого понимания я и ответил:

Это напряму зависит от того, какой состав скрипта, возможно в скрипте используются данные читаемые при выполнении из самого скрипта - чтобы сказать более точно, необходимо видеть исходный код.

А в чём собственно проблема?

[amel27]

Creat0R

Или используем нулевой элемент для выявления общего числа элементов массива (не самый надёжный метод):

Хм... Почему "ненадежный"?.. Не вижу смысла подсчитывать количество элементов если это уже сделала за нас функция... двойная работа получается. Откуда такое недоверие к разработчикам?

[Creat0R]

amel27

Откуда такое недоверие к разработчикам?

Я это на всякий случай пишу, потому что лучше перестраховаться, при наличии больших скриптов, можно “не вспомнить” кто создавал массив, встроенная функция, или построенный нами цикл (или просто “рукописный массив”)

Я вовсе не утверждал что нужно не доверять встроенным функциям, я им очень даже доверяю (но проверяю ), ведь если бы не доверял, то и небыло бы для меня повода использовать ту же встроенную функцию Ubound()

[VelDmi]

ChVL

Теперь autoit-winamp.exe имеет объём 205 КВ. Это правильно?

Да, правильно.

Этот autoit-winamp.exe работает только тогда, когда рядом находится winamp533_pro.exe.

Естественно, ведь он запускает winamp533_pro.exe, а затем производит над его окном определенные действия. Если же ты хотел, чтобы получился всего один файл, то прочитай справку по fileinstall (). Тогда winamp533_pro.exe будет помещен внутрь скрипта и получится один exe большого размера.

[DenchikK]

Creat0R
Огромное Вам спасибо! Буду разбираться.

[ChVL]

VelDmi
Спасибо!
C помощью FileInstall поместил дистрибутив в скомпилированный скрипт (по размеру скрипта всё сходится). Как теперь сделать так, чтобы скрипт при запуске использовал именно этот exe, а не требовал его снаружи?

Второй вопрос. Как сделать так, чтобы не мелькали окна приложения в процессе установки?

[Creat0R]

ChVL

Как теперь сделать так, чтобы скрипт при запуске использовал именно этот exe, а не требовал его снаружи?

FileInstall() позволяет помещать файлы в скомпилированный скрипт, чтобы потом они распаковывались в указанное место, вот перед всеми основными действиями скрипта, нужно прописать установку нужного файла, можно распаковывать с любым указанным именем, в данном случае, можно взять имя самого скрипта, и прибавить к нему приставку _Setup:

Код:

$WinampPath = StringTrimRight(@ScriptFullPath, 4) & "_Setup.exe"
FileInstall("winamp533_pro.exe", $WinampPath, 1)
Run($WinampPath)

Как сделать так, чтобы не мелькали окна приложения в процессе установки?

Либо запустить приложение в скрытом режиме ( Run($WinampPath, "", @SW_HIDE) ), либо прятать окна в процессе (см. WinSetState("Title", "Text", @SW_HIDE) )

[ChVL]

Creat0R
Спасибо!
C FileInstall() разобрался, работает. Не сразу, правда, понял, что AutoIt принципиально не переваривает кириллицу в директории (безуспешно пытался использовать Рабочий стол).

Со скрытым режимом не получается.
Запуск ( Run($WinampPath, "", @SW_HIDE) ) на окна, выскакивающие в процессе установки, не влияет (не скрывает).
Функция WinSetState оказалась несовместимой с WinWaitActive. Если WinSetState ставить перед WinWaitActive, то последняя не работает. Если после - нет смысла, т.к. окно уже промелькнуло.
Эти варианты пробовал и раньше, а другие не нашёл.