[Diamond]

gregaz

Действительно есть,оказывается <Руководство по консольной версии RAR > - там все прописано

Я имел ввиду консольную справку (cmd /k "Rar.exe" /?), а о том, что есть руководство, я почему-то не подумал...

[Creat0R]

proxy

как быть?

Если для GUICtrlCreateListView поставить GUICtrlSetOnEvent, то оно срабатывать будет при нажатии на заголовок (Column), для того чтобы срабатывало при нажатии в пустом (точнее в любом) месте ListView, нужно совместить события (нажатие мышки и наведение курсора мышки над ListView контролем)...

Код:

#include <GuiConstants.au3>
Opt("GuiOnEventMode", 1)

$GUI = GUICreate("Test")
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "LV_Event")

$ListViewID = GUICtrlCreateListView("Column", 20, 40)

GUISetState()

While 1
    Sleep(10)
WEnd

Func LV_Event()
    Local $CursorInfoArr = GUIGetCursorInfo($GUI)
    If $CursorInfoArr[4] = $ListViewID Then MsgBox(0, "", "Ok, List View was Clicked")
EndFunc

Func Quit()
    Exit
EndFunc

точно также и с табами:

Код:

#include <GuiConstants.au3>
Opt("GuiOnEventMode", 1)

$GUI = GUICreate("Test")
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "Tab_Event")

$TabID = GUICtrlCreateTab(20, 40)
GUICtrlCreateTabItem("Tab Item")

GUISetState()

While 1
    Sleep(10)
WEnd

Func Tab_Event()
    Local $CursorInfoArr = GUIGetCursorInfo($GUI)
    If $CursorInfoArr[4] = $TabID Then MsgBox(0, "", "Ok, Tab control was Clicked")
EndFunc

Func Quit()
    Exit
EndFunc

[Diamond]

объект: "Scripting.Dictionary" - Сортировка данных в словаре
Использование:
SortDictionary($objDict, flag)
$objDict - словарь (как объект)
flag - 0 сортировка по ключам(key); 1 сортировка по элементам(item)

Код:

$Dict = ObjCreate("Scripting.Dictionary")

;~ Наполняем словарь неотсортированными данными:
$Dict.Add ("3", "Delta")
$Dict.Add ("1", "Foxtrot")
$Dict.Add ("4", "Bravo")
$Dict.Add ("2", "Echo")
$Dict.Add ("6", "Alpha")
$Dict.Add ("5", "Charlie")

;~ Сортировка:
SortDictionary($Dict, 0)

;~ Просмотр результатов сортировки:
For $o In $Dict
	MsgBox(0+262144 ,$o, $Dict($o) )
Next

;~ Эта функция основана на:
;~ http://support.microsoft.com/support/kb/articles/q246/0/67.asp
Func SortDictionary(ByRef $objDict, $intSort=0)
	Local Const $dictKey  = 0
	Local Const $dictItem = 1
	Local $strDict[1]
	Local $objKey
	Local $strKey, $strItem
	Local $intCount, $i, $j
	$intCount = $objDict.Count
	If $intCount > 1 Then
		ReDim $strDict[$intCount][2]
		$i = 0
		For $objKey In $objDict
			$strDict[$i][$dictKey]  = String($objKey)
			$strDict[$i][$dictItem] = String($objDict($objKey))
			$i = $i + 1
		Next
		For $i = 0 To $intCount-2
			For $j = $i To $intCount-1
				If StringCompare($strDict[$i][$intSort], $strDict[$j][$intSort]) > 0 Then
					$strKey  = $strDict[$i][$dictKey]
					$strItem = $strDict[$i][$dictItem]
					$strDict[$i][$dictKey]  = $strDict[$j][$dictKey]
					$strDict[$i][$dictItem] = $strDict[$j][$dictItem]
					$strDict[$j][$dictKey]  = $strKey
					$strDict[$j][$dictItem] = $strItem
				EndIf
			Next
		Next
		$objDict.RemoveAll
		For $i = 0 To $intCount-1
		$objDict.Add ($strDict[$i][$dictKey], $strDict[$i][$dictItem])
		Next
	EndIf
EndFunc

P.S. "Scripting.Dictionary" имеет свойства и методы которые делают его функциональней обычных массивов, плюс простота использования и высокая скорость обработки. А с этой функцией сортировки, словарь может стать серьёзным конкурентом для одномерных массивов.
Для тех кто не знаком с принципами работы этого объекта, есть хорошая ссылка, котрую дал мне Creat0R :http://www.autoitscript.com/forum/in...56?entry352256
Также, описание свойств и методов можно найти на MSDN.

[Creat0R]

На офф. форуме нашел функцию, которая казалось бы, воплотит в реальность мою давнюю “хотелку” ...

Вот функция:

Код:

Func SetParent($hWndChild, $hWndNewParent)
    Local $vRtn = DllCall("USER32.DLL", "hwnd", "SetParent", "hwnd", $hWndChild, "hwnd", $hWndNewParent)
    Return $vRtn[0]
EndFunc

Судя по её назваению и содержанию, я предположил что она позволяет присваивать одно окно к другому (в соотношении родительское-дочернее), и делая как бы дочернее окно “прикреплённым” к родительскому, но после долгих тестировании, присваивании якобы родительскому окну атрибута @SW_DISABLE и т.п, так ничего и не вышло .
Окно однако становится дочерним/родительским, но не так как мне этого хотелось...

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

Код:

$Hwnd = WinGetHandle(WinGetTitle(""))

_MsgBox(0, "", "", $Hwnd)

Func _MsgBox($MsgBoxType, $MsgBoxTitle, $MsgBoxText, $mainGUI="")
    $ret = DllCall ("user32.dll", "int", "MessageBox", _
            "hwnd", $mainGUI, _
            "str", $MsgBoxText , _
            "str", $MsgBoxTitle, _
            "int", $MsgBoxType)
    Return $ret [0]
EndFunc

[amel27]

Diamond
ИМХО у "Scripting.Dictionary" только одно преимущество перед массивами AutoIT - индекс может быть не только числовым, но и текстовым... другими словами это означает штатную поддержку _ArraySearch(), которая в AutoIT доступна только через UDF... Во всех остальных случаях не вижу причин для замены ими штатных массивов... Между прочим функция SortDictionary() по большому счету ничем не отличается от _ArraySort() (кроме отсутствия контроля ошибок), поэтому быстрей она работать не может по определению...
Подробно: http://www.osp.ru/win2000/2006/07/3643019

Creator

На офф. форуме нашел функцию

угу, видел эту функцию, только это не совсем то... а точней совсем не то:

прикладная программа обычно использует дочерние окна, чтобы поделить рабочую область родительского окна на функциональные области

т.е. грубо говоря применение это функции превращает окно в контрол другого окна, источник: http://www.firststeps.ru/mfc/winapi/win/r.php?18

[schel4ok]

А кто-нибудь знает как запускать inf файлы при помощи AutoIt?

[eNcub]

Вообще-то, WinWaitActive() по умолчанию работает только с видимым текстом

Тогда я вообще ничего не понимаю .
Почему такая проверка:

Код:

if WinWaitActive('Мастер новых подключений', 'Выберите, надо ли автоматически подключаться к Интернету','5' )==1 Then
      Send ( '{UP}{ENTER}' ) 
EndIf

не срабатывает
Если это окно не появляется, то нажатие стрелки вверх и энтера всё равно производится. В чем ошибаюсь, может как-то проверять надо другим способом?

[Diamond]

amel27

ИМХО у "Scripting.Dictionary" только одно преимущество перед массивами AutoIT - индекс может быть не только числовым, но и текстовым... другими словами это означает штатную поддержку _ArraySearch(), которая в AutoIT доступна только через UDF... Во всех остальных случаях не вижу причин для замены ими штатных массивов...

Действительно, для "Scripting.Dictionary" функция _ArraySearch(), по большому счёту не нужна, поскольку он имеет метод Exists, но это не единственный его плюс. Например, чтобы произвести добавление, удаление или замену элементов, массивы используют UDF-функции, а при работе со словарём зависимость от UDF также отпадает.

Между прочим функция SortDictionary() по большому счету ничем не отличается от _ArraySort() (кроме отсутствия контроля ошибок), поэтому быстрей она работать не может по определению...

Если честно, я их ещё не сравнивал... А по поводу скорости, согласен, но я и не утверждал что она работает быстрее, ведь сам факт использования в ней массивов, говорит об обратном. Её плюс только в том, что она адаптирована для работы со словарём, и то что она компенсирует отсутствие штатной сортировки (что-то вроде udf, для "Scripting.Dictionary").

[proxy]

хм....., если Creat0R это стиль жизни...то как же тебя именовать?

В любом случае, Человек живущий и создающий - Спаибо, уже витал ответ в голове но небыло времени проверить...
а так и бестрее и вернее выйдет ))) Продолжу вкладывать свои силы в подобный тебе стиль жизни.. )

[ChVL]

В обычном режиме скрипт работает нормально: мелькают окна, но установка проходит автоматом до конца.
При использовании ключа /VERYSILENT идёт скрытый режим и натыкается на место, когда на экране одновременно два окна. Послать команду надо в верхнее окно, но скрипт его упорно не видит. Как победить?

Добавлено:
Разобрался. Оказалось, что это баг самой подопытной программы.