[Архив

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

amel27

Цитата:

возможные параметры

Спасибо. Я только не совсем понимаю какой из них мне нужен (склоняюсь к INTERNET_OPEN_TYPE_DIRECT, но не уверен), и как быть с InetGet()? может есть такая же самодельная функция с подобным выходом в сеть как и у _InetGetSource()?

amel27 · Отправлено: **10:13, 17-02-2007** | #**202**

Creat0R

Цитата:

склоняюсь к INTERNET_OPEN_TYPE_DIRECT

правильно склоняешься

Цитата:

может есть такая же самодельная функция с подобным выходом в сеть как и у _InetGetSource()?

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

amel27 · Отправлено: **10:29, 17-02-2007** | #**203**

Creat0R
Уф, добил таки самопальный _FileSelectFolder, только есть два замечания:
1. Внимание! В параметре $root передается код папки (CSIDL), но ни в коем случае не путь к ней!
2. Функция не поддерживает параметр каталога по умолчанию ("initial dir")... хотя теоретически эту фичу можно реализовать через GUICtrlSendMsg (), т.к. окно выбора может принимать сообщения пред-селекта и установки текста статус-бара

Код:

Func _FileSelectFolder ($title, $root = 0, $flags = 0, $hwnd = 0)
    Local $ret, $pidl, $res = ''
    ; Создание структур данных
    Local $ubi = DllStructCreate ("hwnd;ptr;ptr;ptr;int;ptr;ptr;int") ; управляющая структура BROWSEINFO
    Local $utl = DllStructCreate ("char[512],char") ; заголовок окна
    Local $urs = DllStructCreate ("char[260]") ; буфер для возвращаемого пути (длиной MAX_PATH)
    Local $ulf = BitOR (BitShift(BitAnd ($flags,1),-9), _ ; 1: не позволять создавать новые каталоги
        BitShift(BitAnd ($flags,2),-5), _ ; 2: использовать новый стиль диалога
        BitShift(BitAnd ($flags,4),-2)) ; 4: включить cтроку редактирования
    ; Заполнение структур данных
    DllStructSetData ($utl, 1, $title)
    DllStructSetData ($ubi, 1, $hwnd)
    DllStructSetData ($ubi, 3, DllStructGetPtr($urs))
    DllStructSetData ($ubi, 4, DllStructGetPtr($utl))
    DllStructSetData ($ubi, 5, $ulf)
    $ret = DllCall ("shell32.dll", "ptr", "SHGetSpecialFolderLocation", _
        "int", 0 , _
        "int", $root , _
        "ptr", DllStructGetPtr($ubi, 2))
    If $ret[0] Then Return $res
    ; Открытие окна выбора каталога
    $pidl = DllCall ("shell32.dll", "ptr", "SHBrowseForFolder", "ptr", DllStructGetPtr ($ubi))
    If $pidl[0] Then
        $ret = DllCall ("shell32.dll", "int", "SHGetPathFromIDList", _
            "ptr", $pidl[0], _
            "ptr", DllStructGetPtr ($urs))
        If $ret[0] Then $res = DllStructGetData ($urs, 1)
        DllCall ("ole32.dll", "int", "CoTaskMemFree", "ptr", $pidl[0]) ; чистим за собой
    EndIf
    DllCall ("ole32.dll", "int", "CoTaskMemFree", "ptr", DllStructGetData ($ubi, 2))
    Return $res ; Вывод результата
EndFunc

Diamond · Отправлено: **19:45, 17-02-2007** | #**204**

amel27

Цитата:

Обнови версию AutoIT - это новая фича, еще не устаканилась

Дело оказалось не в версии, видимо, код неправильно скопировался (почему-то полностью отсутствовали символы *, | и \)

Наверное, когда копировал код с форума, страница не до конца загрузилась...
Приношу свои извинения.

i_mihal · Отправлено: **22:50, 17-02-2007** | #**205**

Mihal> Можно ли с помощью AutoIt проделать такую операцию?
Mihal> То есть "взять некий WAV-файл мышкой" и "кинуть его на окошко этой проги"

amel27> обычно перетаскивание можно заменить на копировать/вставить через буфер обмена...

в этой проге (yamaha'вская wscma) нет "вставить" к сожалению.

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

amel27

Цитата:

добил таки самопальный _FileSelectFolder

Огромное челевечное спасибо!!!

Цитата:

Функция не поддерживает параметр каталога по умолчанию ("initial dir")...

Жалко, один из самых важных параметров этой функции...

Цитата:

хотя теоретически эту фичу можно реализовать через GUICtrlSendMsg ()

Хм... я пробовал, но что то не получается

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

Но всё же ещё раз огромное спасибо за эту долгожданную функцию

P.S
На офф форуме кстати, тоже вроде с нетерпением её ожидают

amel27 · Отправлено: **07:23, 18-02-2007** | #**207**

Creat0R

Цитата:

я не очень понимаю как её использовать в данном случае

Подобные фокусы обычно реализуются через CallBack-функции для окон, но к сожалению пока AutoIT позволяет их регистрировать только для лист-контролов (GUICtrlRegisterListViewSort). По сути требуется лишь узнать точку входа AutoIT-функции и передать этот указатель как параметр.... но пока ничего кроме создания "фиктивного" лист-контрола ничего не приходит в голову, а это имхо из разряда извращений

FYI: "по горячему" немного оптимизировал код

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

amel27

Цитата:

кроме создания "фиктивного" лист-контрола ничего не приходит в голову, а это имхо из разряда извращений

Это тот самый лист котроль над которым я извращался тут?

(пост номер 694).

Немного поизвращался в другом направлении, и сделал нужные для себя функции связанные с массивами, но подумал может кому то ещё пригодятся

(комментов нет, но думаю запустив примеры всё довольно быстро станет ясно):

Код:

#include <Array.au3>

Dim $Arr1[4]
$Arr1[0] = UBound($Arr1) - 1
$Arr1[1] = "Hello"
$Arr1[2] = "My"
$Arr1[3] = "Friend!"

Dim $Arr2[4]
$Arr2[0] = UBound($Arr2) - 1
$Arr2[1] = "AutoIt"
$Arr2[2] = "Is"
$Arr2[3] = "The best!"

_ArrayDisplay($Arr1, "Display the first array")
_ArrayDisplay($Arr2, "Display the second array")

_ArrayJoin($Arr1, $Arr2, 1)

_ArrayDisplay($Arr1, "Demo of _ArrayJoin() function")

_ArrayClone($Arr1, 2)

_ArrayDisplay($Arr1, "Demo of _ArrayClone() function")

_ArrayDeleteClones($Arr1)

_ArrayDisplay($Arr1, "Demo of _ArrayDeleteClones() function")

_ArrayClear($Arr1)

_ArrayDisplay($Arr1, "Demo of _ArrayClean() function")

Func _ArrayJoin(ByRef $Array1, ByRef $Array2, $JoinedArray=1)
    If IsArray($Array1) And IsArray($Array2) Then
        If $JoinedArray = 1 Then
            For $iArr = 1 To UBound($Array2) - 1
                ReDim $Array1[UBound($Array1) + 1]
                $Array1[UBound($Array1) - 1] = $Array2[$iArr]
            Next
            $Array1[0] = UBound($Array1) - 1
        Else
            For $iArr = 1 To UBound($Array1) - 1
                ReDim $Array2[UBound($Array2) + 1]
                $Array2[UBound($Array2) - 1] = $Array1[$iArr]
            Next
            $Array2[0] = UBound($Array2) - 1
        EndIf
        SetError(0)
    Else
        SetError(1)
        Return -1
    EndIf
EndFunc

Func _ArrayClone(ByRef $Array, $Repeat=1)
    If IsArray($Array) Then
        Local $TempArr = $Array
        For $iR = 1 To $Repeat
            For $iArr = 1 To UBound($TempArr) - 1
                ReDim $Array[UBound($Array) + 1]
                $Array[UBound($Array) - 1] = $TempArr[$iArr]
            Next
            $Array[0] = UBound($Array) - 1
        Next
        SetError(0)
        Return 1
    Else
        SetError(1)
        Return -1
    EndIf
EndFunc

Func _ArrayDeleteClones(ByRef $Array)
    If IsArray($Array) Then
        Local $StringWithDelValue
        For $iD = 1 To UBound($Array) - 1
            $FindInArr = _ArraySearch($Array, $Array[$iD])
            If $FindInArr <> $iD Then $StringWithDelValue &= $Array[$iD] & "|"
        Next
        If $StringWithDelValue <> "" Then
            $TempArrOfIndexesString = StringSplit($StringWithDelValue, "|")
            If IsArray($TempArrOfIndexesString) Then
                For $iI = 1 To $TempArrOfIndexesString[0]
                    $CurrentIndexToDel = _ArraySearch($Array, $TempArrOfIndexesString[$iI])
                    If $CurrentIndexToDel = -1 Then ExitLoop
                    _ArrayDelete($Array, $CurrentIndexToDel)
                Next
            Else
                _ArrayDelete($Array, StringReplace($StringWithDelValue, "|", ""))
            EndIf
            $Array[0] = UBound($Array) - 1
            SetError(0)
            Return 1
        Else
            SetError(0)
            Return 0
        EndIf
    Else
        SetError(1)
        Return -1
    EndIf
EndFunc

Func _ArrayClear(ByRef $Array)
    If IsArray($Array) Then
        For $iArr = 1 To UBound($Array) - 1
            _ArrayDelete($Array, $iArr)
        Next
        $Array[0] = 0
        SetError(0)
        Return 1
    Else
        SetError(1)
        Return -1
    EndIf
EndFunc

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

Ещё функция для работы с массивом - _ArrayReplace() - Кстати, предыдущие и эта функция, работают только с одномерным (с одним элементом) массивом:

Код:

Func _ArrayReplace(ByRef $Array, $ValueToReplace, $NewValue)
    Local $IsReplaced = 0
    If IsArray($Array) Then
        For $iR = 1 To UBound($Array) - 1
            $Array[$iR] = StringReplace($Array[$iR], $ValueToReplace, $NewValue)
            If StringInStr($Array[$iR], $ValueToReplace) Then $IsReplaced = 1
        Next
        SetError(0)
        If $IsReplaced = 1 Then
            Return 1
        Else
            Return 0
        EndIf
    Else
        SetError(1)
        Return -1
    EndIf
EndFunc

Эта функция позволяет произвести замену значении в массиве.

P.S
А как определять является ли массив двухмерным, или нет?

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

Всем всем!

Кому интересна фича отката скрытых папок и расширении файлов, посмотрите на эти два скрипта:

Для отката расширении файлов:

Код:

$RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
If RegRead($RegKey, "HideFileExt") Then
    RegWrite($RegKey, "HideFileExt", "REG_DWORD", 0)
Else
    RegWrite($RegKey, "HideFileExt", "REG_DWORD", 1)
EndIf

UpdateExplorer()

Func UpdateExplorer()
    $WinExpListArr = _ExplWinGetList()
    If IsArray($WinExpListArr) Then
        For $iWin = 1 To $WinExpListArr[0]
            $GetWinState = WinGetState($WinExpListArr[$iWin])
            $Hwnd = WinGetHandle($WinExpListArr[$iWin])
            DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", 0x111, "int", 28931, "int", 0)
        Next
    EndIf

        Opt("WinTitleMatchMode", 4)
    $Hwnd = WinGetHandle("classname=Progman")
    DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", 0x111, "int", 28931, "int", 0)
EndFunc

Func _ExplWinGetList()
    Opt("WinTitleMatchMode", 4)
    $WinList = WinList("classname=CabinetWClass")
    If IsArray($WinList) Then
        Local $WinListArr[$WinList[0][0]+1]
        For $iW = 1 To $WinList[0][0]
            $WinListArr[$iW] = $WinList[$iW][0]
        Next
        $WinListArr[0] = $WinList[0][0]
        Return $WinListArr
    Else
        Return ""
    EndIf
EndFunc

Для отката скрытых папок и файлов:

Код:

$RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
If RegRead($RegKey, "Hidden") = 1 Then
    RegWrite($RegKey, "Hidden", "REG_DWORD", 2)
Else
    RegWrite($RegKey, "Hidden", "REG_DWORD", 1)
EndIf

UpdateExplorer()

Func UpdateExplorer()
    $WinExpListArr = _ExplWinGetList()
    If IsArray($WinExpListArr) Then
        For $iWin = 1 To $WinExpListArr[0]
            $GetWinState = WinGetState($WinExpListArr[$iWin])
            $Hwnd = WinGetHandle($WinExpListArr[$iWin])
            DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", 0x111, "int", 28931, "int", 0)
        Next
    EndIf

        Opt("WinTitleMatchMode", 4)
    $Hwnd = WinGetHandle("classname=Progman")
    DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", 0x111, "int", 28931, "int", 0)
EndFunc

Func _ExplWinGetList()
    Opt("WinTitleMatchMode", 4)
    $WinList = WinList("classname=CabinetWClass")
    If IsArray($WinList) Then
        Local $WinListArr[$WinList[0][0]+1]
        For $iW = 1 To $WinList[0][0]
            $WinListArr[$iW] = $WinList[$iW][0]
        Next
        $WinListArr[0] = $WinList[0][0]
        Return $WinListArr
    Else
        Return ""
    EndIf
EndFunc

Процесс проходит практический незаметно, все открытые окна обновляются, и в конце также обновляется рабочий стол!
В сети можно найте несколько подобных расширении, но я ещё не видел подобное, чтобы весь процесс проходил незаметно.

Вот если бы ещё найти способ как внедрить пункт в контекстное меню папки, по нажатию которого и запускался бы этот скрипт (в закомпилированном виде), то это было бы вообще шикарно!