Старожил
Сообщения: 288
Благодарности: 40
|
Профиль
|
Отправить PM
| Цитировать
Creat0R
Спасибо большое! Построение GUI идет как надо, но вот только теперь я не понимаю, как обрабатывать эти чекбоксы... Не понимаю, как это:
Код: 
If GUICtrlRead($checkCN1) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[1] )
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[1])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[1])
EndIf
заставить работать с построением GUI...
Тупо заделал так, но теряется возможность определять, сколько чекбоксов надо сделать для содержимого файла логов:
Код: 
#include <GUIConstants.au3>
#include <File.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 60)
AutoItSetOption("MouseCoordMode", 0)
; Запуск программы
Run ('avaload.exe')
; Построение GUI
GUICreate("Автозаполнение", 330, 300)
Global $Links_Array, $Logins_Array, $Pass_Array
_FileReadToArray("logins.txt", $Logins_Array)
_FileReadToArray("pass.txt", $Pass_Array)
_FileReadToArray("links.txt", $Links_Array)
$checkCN1 = GUICtrlCreateCheckbox ($Logins_Array[1], 10, 10, 180, 20)
$checkCN2 = GUICtrlCreateCheckbox ($Logins_Array[2], 10, 30, 180, 20)
$checkCN3 = GUICtrlCreateCheckbox ($Logins_Array[3], 10, 50, 180, 20)
$checkCN4 = GUICtrlCreateCheckbox ($Logins_Array[4], 10, 70, 180, 20)
$checkCN5 = GUICtrlCreateCheckbox ($Logins_Array[5], 10, 90, 180, 20)
$checkCN6 = GUICtrlCreateCheckbox ($Logins_Array[6], 10, 110, 180, 20)
$checkCN7 = GUICtrlCreateCheckbox ($Logins_Array[7], 10, 130, 180, 20)
$checkCN8 = GUICtrlCreateCheckbox ($Logins_Array[8], 10, 150, 180, 20)
$checkCN9 = GUICtrlCreateCheckbox ($Logins_Array[9], 10, 170, 180, 20)
$checkCN10 = GUICtrlCreateCheckbox ($Logins_Array[9], 10, 190, 180, 20)
$Start = GUICtrlCreateButton("Заполнить", 200, 10, 120, 20)
$Close = GUICtrlCreateButton("Выход", 200, 30, 120, 20)
GUISetState ()
; Основная Работа Скрипта
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $Close Then
Exit
ElseIf $msg = $Start Then
If GUICtrlRead($checkCN1) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[1])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[1])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[1])
EndIf
If GUICtrlRead($checkCN2) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[2])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[2])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[2])
EndIf
If GUICtrlRead($checkCN3) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[3])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[3])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[3])
EndIf
If GUICtrlRead($checkCN4) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[4])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[4])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[4])
EndIf
If GUICtrlRead($checkCN5) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[5])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[5])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[5])
EndIf
If GUICtrlRead($checkCN6) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[5])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[5])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[5])
EndIf
If GUICtrlRead($checkCN7) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[7])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[7])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[7])
EndIf
If GUICtrlRead($checkCN8) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[8])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[8])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[8])
EndIf
If GUICtrlRead($checkCN9) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[9])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[9])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[9])
EndIf
If GUICtrlRead($checkCN10) = 1 Then
WinActivate ("AvaRemoteLoad")
ControlSetText ( 'AvaRemoteLoad', '', 'Edit1', $Links_Array[10])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit2', $Logins_Array[10])
ControlSetText ( 'AvaRemoteLoad', '', 'Edit3', $Pass_Array[10])
EndIf
EndIf
WEnd
Попробовал по изощряться для компактности с $i - не вышло...
|