[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Maza Faka · Отправлено: **11:37, 12-03-2008** | #**211**

NikLok
Сохраняй в *.ini файле, либо, если данных очень много - в реестре.

NikLok · Конфигурация компьютера

Maza Faka, Можно примерчик кода небольшой ! Я просто как подумаю о синтаксическом анализе и т.п.

Maza Faka · Отправлено: **15:51, 12-03-2008** | #**213**

Цитата NikLok:

Можно примерчик кода небольшой »

Что-то вроде этого:

Код:

#include <GuiConstants.au3>

Global $CfgFile = @ScriptDir & "\Config.ini"

Global $Input_State = IniRead($CfgFile, "Settings", "Input", "")
Global $Radio1_State = IniRead($CfgFile, "Settings", "Radio1", 4)
Global $Radio2_State = IniRead($CfgFile, "Settings", "Radio2", 4)
Global $CheckBox1_State = IniRead($CfgFile, "Settings", "CheckBox1", 4)
Global $CheckBox2_State = IniRead($CfgFile, "Settings", "CheckBox2", 4)

$hGUI = GUICreate("Test GUI", 320, 240)

$hInput = GUICtrlCreateInput("", 10, 10, 160, 20)
GUICtrlSetData(-1, $Input_State)

GUICtrlCreateGroup("Group", 10, 50, 160, 100)
$Radio1 = GUICtrlCreateRadio("Radio1", 20, 75, 60, 16)
GUICtrlSetState(-1, $Radio1_State)
$Radio2 = GUICtrlCreateRadio("Radio2", 20, 120, 60, 16)
GUICtrlSetState(-1, $Radio2_State)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$CheckBox1 = GUICtrlCreateCheckbox("Param 1", 200, 75, 60, 20)
GUICtrlSetState(-1, $CheckBox1_State)

$CheckBox2 = GUICtrlCreateCheckbox("Param 2", 200, 120, 60, 20)
GUICtrlSetState(-1, $CheckBox2_State)

$AcceptButton = GUICtrlCreateButton("Ok", 10, 200, 60, 25)

$CancelButton = GUICtrlCreateButton("Cancel", 250, 200, 60, 25)

GUISetState()

While 1
    $msg = GUIGetMsg()

    Switch $msg
    Case $GUI_EVENT_CLOSE, $CancelButton
        ExitLoop
    Case $AcceptButton
        _SaveCfg()
        ExitLoop
    EndSwitch
WEnd

Func _SaveCfg()
    IniWrite($CfgFile, "Settings", "Input", GUICtrlRead($hInput))
    IniWrite($CfgFile, "Settings", "Radio1", GUICtrlRead($Radio1))
    IniWrite($CfgFile, "Settings", "Radio2", GUICtrlRead($Radio2))
    IniWrite($CfgFile, "Settings", "CheckBox1", GUICtrlRead($CheckBox1))
    IniWrite($CfgFile, "Settings", "CheckBox2", GUICtrlRead($CheckBox2))
EndFunc

Creat0R · Конфигурация компьютера

Maza Faka,

Цитата:

Что-то вроде этого:

Неплохой пример, я тоже так почти всегда делаю, но хотел подметить несколько моментов...

* Если чекбоксов и т.п. много, то пока главное окно программы закроется пройдёт время, поэтому перед записью всегда лучше скрывать окно (GUISetState(@SW_HIDE, $hGUI) но не в коем случае не удалять, т.к чтение контролов приведёт к нулевому значению).
* В Ini-шку можно и не записывать “реальные” значения (для чекбокса к примеру, это 1 и 4), можно было бы сделать что-то в этом духе:

Код:

Func _SaveCfg()
    GUISetState(@SW_HIDE, $hGUI)

    $Input_Data = GUICtrlRead($hInput)
    $Radio1_State = Number(GUICtrlRead($Radio1) = $GUI_CHECKED)
    $Radio2_State = Number(GUICtrlRead($Radio2) = $GUI_CHECKED)
    $CheckBox1_State = Number(GUICtrlRead($CheckBox1) = $GUI_CHECKED)
    $CheckBox2_State = Number(GUICtrlRead($CheckBox2) = $GUI_CHECKED)

    IniWrite($CfgFile, "Settings", "Input", $Input_Data)
    IniWrite($CfgFile, "Settings", "Radio1", $Radio1_State)
    IniWrite($CfgFile, "Settings", "Radio2", $Radio2_State)
    IniWrite($CfgFile, "Settings", "CheckBox1", $CheckBox1_State)
    IniWrite($CfgFile, "Settings", "CheckBox2", $CheckBox2_State)
EndFunc

DENoszone · Отправлено: **22:14, 12-03-2008** | #**215**

как с симулировать нажатие колесика?

как нажимать на конопку на сайте *в опере) адрес ссылки http://www.*.com/index.php?ext=searc...d=1498&start=* (меняется) и текст имеет ">"

NikLok · Конфигурация компьютера

Creat0R,

Цитата Creat0R:

Если чекбоксов и т.п. много »

Хаачу гуй для winnt.sif. !!! Сам понимаю что поздновато, но к сожалению нужон!
Соотв. чекбоксов стоко же скоко параметров!

Цитата Creat0R:

В Ini-шку можно и не записывать “реальные” значения (для чекбокса к примеру, это 1 и 4), »

Даже более того там же значения 1 или 0, Yes или No. Значит млин еще дополнит. обработка будет?! Или имеются какие нить механизмы?!

Creat0R,

Цитата Creat0R:

GUISetState(@SW_HIDE, $hGUI) »

То есть что получается что $hGUI глобальная переменная? Аесли параметром передавать?!

Чуствую этот материал на вики страничку по автоиту просится?

Creat0R · Конфигурация компьютера

NikLok,

Цитата:

там же значения 1 или 0

Это после моей обработки

Цитата:

имеются какие нить механизмы?!

Не уверен что понимаю что тут спрашивается?

- все записи нужно делать вручную, это самый надёжный метод.

Цитата:

получается что $hGUI глобальная переменная?

Поскольку она обьявлена в начале скрипта (не в циклах или в функциях/условиях), то она считается глобальной, хотя надёжнее всё же обьявлять её (Global $hGUI = ...)

Цитата:

Аесли параметром передавать?!

Можно конечно.

Цитата:

Чуствую этот материал на вики страничку по автоиту просится?

Кто бы этим занялся, у меня если честно времени не хватает (желание есть немернное

).

DENoszone,

Цитата:

как с симулировать нажатие колесика?

MouseClick("Middle") ?

Цитата:

как нажимать на конопку на сайте *в опере

Внешними средствами в Opera проблематично. Кстати по этой теме (по Opera) написал библиотеку автоматизации.

NikLok · Конфигурация компьютера

Цитата Creat0R:

все записи нужно делать вручную, это самый надёжный метод. »

Вот и получился у меня тупой, но надежный код аж на 1 500 строк только для секции Components !!!

Maza Faka · Отправлено: **08:33, 13-03-2008** | #**219**

Цитата NikLok:

Вот и получился у меня тупой, но надежный код аж на 1 500 строк только для секции Components »

Неужели нужно вырезать столько компонентов? Для чего?

NikLok · Конфигурация компьютера

Maza Faka,

Цитата Maza Faka:

столько компонентов? Для чего? »

А ля winnt.sif users manager.

Вот вырезка для 2-х компонент:

Код:

#include <GuiConstants.au3>
Global $CfgFile = "winnt.sif"
Global $AccessOpt_state = "On"
Global $Appsrv_console_state = "Off"

$hGUI = GuiCreate("WIndows XP winnt.Sif managers - feesh 0.0.1", 1020, 620)

GuiCtrlCreateTabItem("Components")
;CreateGUI
$AccessOpt = GUICtrlCreateCheckbox("AccessOpt",35,50,210,15)
GUICtrlSetState($AccessOpt,$GUI_UNCHECKED)

$Appsrv_console = GUICtrlCreateCheckbox("Appsrv_console",35,70,210,15)
GUICtrlSetState($Appsrv_console,$GUI_UNCHECKED)

; GUI MESSAGE LOOP
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd

Func _LoadCfg()
	$State = IniRead($CfgFile,"Settings","AccessOpt","Off")
	If $State == "On" Then
		$AccessOpt_State=$GUI_CHECKED
		;GUICtrlSetState($AccessOpt,$GUI_CHECKED)
	Else
		$AccessOpt_State=$GUI_UNCHECKED
		;GUICtrlSetState($AccessOpt,$GUI_UNCHECKED)
	EndIf
	$State = IniRead($CfgFile,"Settings","Appsrv_console","Off")
	If $State == "On" Then
		$Appsrv_console_State=$GUI_CHECKED
		;GUICtrlSetState($Appsrv_console,$GUI_CHECKED)
	Else
		$Appsrv_console_State=$GUI_UNCHECKED
		;GUICtrlSetState($Appsrv_console,$GUI_UNCHECKED)
	EndIf
EndFunc

Func _SaveCfg()
    GUISetState(@SW_HIDE, $hGUI)
	If GUICtrlRead($AccessOpt) = $GUI_CHECKED Then
		$AccessOpt_State="On"
	Else
		$AccessOpt_State="Off"
	EndIf
    IniWrite($CfgFile,"Settings","AccessOpt",$AccessOpt_State)
	If GUICtrlRead($Appsrv_console) = $GUI_CHECKED Then
		$Appsrv_console_State="On"
	Else
		$Appsrv_console_State="Off"
	EndIf
    IniWrite($CfgFile,"Settings","Appsrv_console",$Appsrv_console_State)
EndFunc
Exit

При грубой прикидке получаем 20-25 строк на параметр.
Очень мне не нравится забор из конструкций - GUICtrlCreateCheckbox("AccessOpt",35,50,210,15)
Особенно задание абсолютных координат. Ну ладно, допустим заменю на переменные с инкрементом по вертикали и горизонтали, но возникают проблемы если захочется делать окно масштабируемым?! Сейчас что бы вывести все компоненты без скролинга требуется окно шириной в 1000!
А если монитор не поддерживает такого разрешения! Кто как решает проблему масштабируемости?

Еще почему-то при проведении мышкой над чекбоксом его подпись меняет фон на темно серый! Как отключить?

Как задать высоту табов создаваемых при помощи GuiCtrlCreateTabItem ?!?!

Кто нить достал книгу по autoit - AutoIt v3: Your Quick Guide (Andy Flesner, O'Reilly)
Очень хочется электронный вариант!!!