Я вам еще первым сообщением массивы предлагал.
Спасибо, буду пробовать.
2ypppu, реализация через сокеты мне тоже больше нравится, но у меня не получилось завести эти примеры... Да и проблемы с autohotkey_L испытывал...
]]>i:=0, stop_prog_:=[]
Loop 5 {
stop_prog_[A_Index] := i++
}
MsgBox % stop_prog_[3]
; stop_prog_:={}
stop_prog_["MyComp"] := 1
MsgBox % stop_prog_["MyComp"]
ListBox := "PC1|PC2|PC10"
Loop parse, ListBox, |
{
IniRead, stop_prog, % "\\" A_LoopField "\c$\help\help.ini", list_param, stop_prog
stop_prog_[A_LoopField] := stop_prog
}
MsgBox % stop_prog_["PC2"]Не могу понять о чем вы вообще.
У меня есть несколько РС скажем 10шт. На которых посредством AHK я выполняю действия и мониторю состояние корпоративной программы. На всех этих 10 РС есть скрипт и ini файл, в котором я храню данные и через который я управляю поведением корпоративной программой.
Из примера ini файла выше:
[list_param]
start_prog=0
stop_prog=0
Эти параметры находятся в ini файлах на10 РС (параметров в ini файле гораздо больше, для примера и лучшего понимания сути моего вопроса я опустил эти параметры).
Скажем, когда я жму кнопку Start(в гуи на своём основном РС) меняется start_prog на 1 и это запись происходить на выбранных мною в ListBox РС. Запускается моя корп.программа черех AHK скрипт который на этих РС запущен всегда и читает каждые 2сек состояние параметров в ini файле.
Т.е, примитивная реализация через AHK клиент-сервер работы со скриптами.
Встрял на этом моменте:
Как получить данные с 10 РС? Не писать же на каждую машину статический код такого типа:
IniRead, stop_prog, \\PC1\c$\help\help.ini, list_param, stop_prog
IniRead, start_prog, \\PC1\c$\help.ini, list_param, start_prog
IniRead, stop_prog, \\PC2\c$\help\help.ini, list_param, stop_prog
IniRead, start_prog, \\PC2\c$\help.ini, list_param, start_prog
IniRead, stop_prog, \\PC3\c$\help\help.ini, list_param, stop_prog
IniRead, start_prog, \\PC3\c$\help.ini, list_param, start_prog
IniRead, stop_prog, \\PC4\c$\help\help.ini, list_param, stop_prog
IniRead, start_prog, \\PC4\c$\help.ini, list_param, start_prog
IniRead, stop_prog, \\PC5\c$\help\help.ini, list_param, stop_prog
IniRead, start_prog, \\PC5\c$\help.ini, list_param, start_prog
И так далее... Немного не правильно, что-ли. Получается куча лишнего кода, которого можно избежать если парсить инфу циклом из listbox'a и подставлять имя РС в путь IniRead(скрипты на тачках расположены по одинаковым путям).
Следовательно вместо огромного количества строк кода, будет цикл, который и будет подставлять имя РС, которые уже заведомо известны моему GUI т.к. я имею список РС в ini файле.
И будем иметь примерно такой результат:
IniRead, stop_prog, \\%pcNameFromList%\c$\help\help.ini, list_param, stop_prog
IniRead, start_prog, \\%pcNameFromList%c$\help.ini, list_param, start_prog
И соответственно надо каким-то образом записывать параметры в эти ini файлы на удалённых машинах, но пока я ещё не придумал как это должно выглядеть.
Собственно вопрос в том, как это реализовать...
не могу понять как бы так красиво парсить данные
Не могу понять о чем вы вообще. Справку по IniRead прочтите, парсить ничего не надо.
как достать инфу
stop_prog_machine[A_LoopField]:=stop_prog
изменить стостояние чекбокса
Control Check для существующего; Gui, Add, Checkbox, Checked для нового. Все в справке.
stop_prog := 1
Gui Add, CheckBox, HwndOutputVar , 1
Gui Show
Sleep 1000
box := stop_prog ? "Check" : "Uncheck"
Control % box,,, % "ahk_id" OutputVarЕсли надеетесь, что кто-то напишет за вас, выложите весь код, а то неясны детали.
]]>[list_param]
start_prog=0
stop_prog=0И код для GUI, который должен при запуске опрашивать(iniRead) все компьютеры из списка и отображать информацию в GUI тем самым сразу получить текущее состоянии с удалённых машин(через чекбоксы check\uncheck и поле edit.). И, само собой индивидуальное iniRead и iniWrite посредством выделения РС из listBox и изменения ini через кнопки start, stop.
IniRead, IniRead, сolors.ini, сolors, сolors, %A_Space%
Gui, Add, ListBox, x12 y50 w100 h260 , vListBox Multi, %IniRead%
Gui, Add, CheckBox, x122 y50 w10 h20 , CheckBox
Gui, Add, CheckBox, x122 y70 w10 h20 , CheckBox
Gui, Add, CheckBox, x122 y90 w10 h20 , CheckBox
Gui, Add, CheckBox, x122 y110 w10 h20 , CheckBox
Gui, Add, CheckBox, x122 y130 w10 h20 , CheckBox
Gui, Add, CheckBox, x122 y150 w10 h20 , CheckBox
Gui, Add, CheckBox, x122 y170 w10 h20 , CheckBox
Gui, Add, Edit, x142 y50 w60 h20 , Edit
Gui, Add, Button, x262 y80 w100 h30 , STOP
Gui, Add, Button, x262 y150 w100 h30 , START
; Generated using SmartGUI Creator 4.0
Gui, Show, x409 y210 h379 w479, New GUI Window
Return
F3::
GuiControlGet, ListBox
Loop, parse, ListBox, |
{
StringReplace, Label, A_LoopField, %A_Space%, _, All
IniRead, stop_prog, \\%Label%\c$\help\help.ini, list_param, stop_prog
%Label%_stop_prog = %stop_prog%
IniRead, start_prog, \\%Label%\c$\help.ini, list_param, start_prog
%Label%_start_prog = %start_prog%
}
Return
GuiClose:
ExitAppСобственно циклом запарсил, список, достаю, но не пойму как достать инфу из цикла и изменить стостояние чекбокса и изменить значение в edit поле.
]]>