[nevson]

amel27, да, именно так! Спасибо огромное, все работает!

[KillHunter]

Может проще его удалять из AutoIt скрипта в конце?! »

Может и проще,но мне интересно понять где я ошибся....
Если напишешь как ярлык удалить буду благодарен.

[Maza Faka]

amel27
Подскажи пожалуйста, имеется такая функция:

Код:

Global Const $FO_COPY = 0x0002
Global Const $FOF_ALLOWUNDO = 0x0040

_ExplorerCopy("d:\Video\Clips\New\02.avi", "C:\")

Func _ExplorerCopy($source, $dest)

    Local $SHFILEOPSTRUCT, $source_struct, $dest_struct

    $SHFILEOPSTRUCT = DllStructCreate("hwnd hWnd;uint wFunc;ptr pFrom;ptr pTo;int fFlags;" & _
                                      "int fAnyOperationsAborted;ptr hNameMappings;ptr lpszProgressTitle")

    $source_struct = DllStructCreate("char[" & StringLen($source) + 2 & "]")
    DllStructSetData($source_struct, 1, $source)
    DllStructSetData($source_struct, 1, 0, StringLen($source) + 2)

    $dest_struct = DllStructCreate("char[" & StringLen($dest) + 2 & "]")
    DllStructSetData($dest_struct, 1, $dest)
    DllStructSetData($dest_struct, 1, 0, StringLen($dest) + 2)

    DllStructSetData($SHFILEOPSTRUCT, "hWnd", 0)
    DllStructSetData($SHFILEOPSTRUCT, "wFunc", $FO_COPY)
    DllStructSetData($SHFILEOPSTRUCT, "pFrom", DllStructGetPtr($source_struct))
    DllStructSetData($SHFILEOPSTRUCT, "pTo", DllStructGetPtr($dest_struct))
    DllStructSetData($SHFILEOPSTRUCT, "fFlags", $FOF_ALLOWUNDO)

    DllCall("shell32.dll", "int", "SHFileOperation", "ptr", DllStructGetPtr($SHFILEOPSTRUCT))
EndFunc   ;==>_ExplorerCopy

В вышеуказанной функции копируется один файл, а как скопировать несколько файлов из одной директории?
Поискал в инете, нашёл такое описание:

pFrom Указатель на буфер, содержащий пути к одному или нескольким файлам. Если файлов несколько, между путями ставится нулевой байт. Список должен заканчиваться двумя нулевыми байтами.

Пример для Дельфи:

Для удобства дальнейших экспериментов напишем функцию, создающую из массива строк буфер для передачи его в качестве параметра pFrom. После каждой строки в буфер вставляется нулевой байт, в конце списка - два нулевых байта. Код: type TBuffer = array of Char; procedure CreateBuffer( Names : array of string; var P : TBuffer ); var I, J, L : Integer; begin for I := Low( Names ) to High( Names ) do begin L := Length( P ); SetLength( P, L + Length( Names[ I ] ) + 1 ); for J := 0 to Length( Names[ I ] ) - 1 do P[ L + J ] := Names[ I, J + 1 ]; P[ L + J ] := #0; end; SetLength( P, Length( P ) + 1 ); P[ Length( P ) ] := #0; end;

Полдня бьюсь, не получается

[amel27]

Maza Faka,

В вышеуказанной функции копируется один файл, а как скопировать несколько файлов из одной директории? »

зависит от того как передавать список файлов в функцию - массивом, строкой с разделителями или еще как... заполнить структуру можно так:

Код:

$sList = "File1" &Chr(0)& "File2" &Chr(0)& "File3" &Chr(0)&Chr(0)
$bList = StringToBinary($sList)

$iListLen = BinaryLen($bList)
$tList = DllStructCreate("byte["& $iListLen &"]")
DllStructSetData($tList, 1, $bList)

ConsoleWrite(DllStructGetData($tList,1) &@CRLF)

З.Ы. В примере на DELFI каждая строка заносится в структуру отдельной командой со сдвигом (чтобы оставлять нулевые байты), в моем примере сначала формируем искомую строку, которую потом сохраняем в структуре.

[Maza Faka]

amel27
Низкий тебе поклон за помощь и отличный пример! В жизни бы не додумался преобразовать строку в бинарник. А я ведь пытался формировать строку с Chr(0) вот по этому примеру:

uses ShellApi; ... var SHFileOpStruct:TSHFileOpStruct; From:array [0..255] of Char; begin From:='D:\1.txt'+#0+'D:\2.txt'+#0+#0; with SHFileOpStruct do begin Wnd:=Handle; wFunc:=FO_COPY; pFrom:=@From; pTo:='D:\'; fFlags:=FOF_RENAMEONCOLLISION; fAnyOperationsAborted:=False; hNameMappings:=nil; lpszProgressTitle:=nil; end; SHFileOperation(SHFileOpStruct); end;

да только безуспешно, так, как символы после первого нулевого байта игнорировались. Ещё раз огромное спасибо!

P.S.
Интересно, а почему на Дельфи такое формирование строки получается, а на AutoIt-е нужно преобразовывать в бинарный код?

[MaxxQ]

Можно ли написать скрипт который бы включал и отключал сетевую плату через диспетчер устройств?

[NikLok]

KillHunter,

Если напишешь как ярлык удалить буду благодарен. »

Ну это детский вопрос и возможно мой ответ будет правильным.
Ярлык это файл с расширением lnk. Поэтому удалив этот файл ты удалишь ярлык.
Вот например я удаляю тотал мандер из автозапуска:

Код:

	If FileExists(@StartupDir & "\Total Commander.lnk") Then
	   FileDelete(@StartupDir & "\Total Commander.lnk")
	EndIf

Аналогично с программами.
Когда хочешь удалить из панели быстрого запуска просто нужно правильно указать положение файла.
Это скорре всего что- то типа

Код:

 @UserProfileDir & "\Application Data\Microsoft\Internet Explorer\Quick Launch\Твоя программа.lnk"

[amel27]

Maza Faka,

почему на Дельфи такое формирование строки получается, а на AutoIt-е нужно преобразовывать в бинарный код? »

ну хотя бы потому, что AutoIT не поддерживает указатели на переменные (в данном случае строковые) - только на структуры, поэтому приходится формировать структуру в два приема: сначала создаем строку (так же как в DELFI), потом присваиваем (т.е. "копируем") это значение в структуру... но при выполнении последней операции (копирования строки) AutoIT просто обязан оборвать строку на первом нулевом байте (конец строки!), только бинарные строки позволяют содержать нулевые байты (как в юникоде)


KillHunter

мне интересно понять где я ошибся »

похоже, что при входе в окно выбора компонент курсор находится совсем не в том месте где предполагалось - не на выборе режима (Standard/Custom), а уже на списке компонент, т.е. первый TAB будет лишний... Самое неприятное, что при таком положении "SPACE" отрабатывает не на компоненте ярлыка, а на кнопке "Next" что сбивает весь дальнейший ход установки. И еще неприятный момент - если вручную вернуться на этап выбора компонент (через "Back") курсор встанет как и положено на "Standard/Custom".

Всё равно ярлык остаётся »

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

Код:

#include <GuiTreeView.au3>

$Title='DAEMON

WinWait($Title,"Choose Components")
$hDTCtrl = ControlGetHandle($Title, "", "SysTreeView321")  ; ищем элемент окна
$hDTItem = _GUICtrlTreeView_FindItem($hDTCtrl, "Desktop Shortcut") ; ищем нужный пункт списка

WinActivate($Title,"Choose Components")
WinWaitActive($Title,"Choose Components")
_GUICtrlTreeView_ClickItem ($hDTCtrl, $hDTItem)

[amel27]

Можно ли написать скрипт который бы включал и отключал сетевую плату через диспетчер устройств? »

Насколько важно именно через Диспетчер устройств?.. AFAIK через "сетевые подключения" можно добиться такого же результата... Как альтернатива для Висты можно использовать WMI, для 2К/XP - утилиту DevCon... думаю можно замутить аналогичное и в AutoIT через SetupAPI но вопрос: насколько это необходимо?

Код:

Func _NetConnection_Disable($sConnectionName)
    Local $sFolderName = "Сетевые подключения"
    Local $sVerbDisable= "&Отключить"

        Local $oNetConnections, $oConnection
    Local $oShellApp = ObjCreate("Shell.Application")
    Local $oControlPanel = $oShellApp.Namespace(3)
    For $oFolderItem In $oControlPanel.Items
        If $oFolderItem.Name = $sFolderName Then
            $oNetConnections = $oFolderItem.GetFolder
            ExitLoop
        EndIf
    Next
    If Not(IsObj($oNetConnections)) Then Return SetError(1, 0, False)
    For $oFolderitem In $oNetConnections.Items
        If StringInStr($oFolderitem.Name, $sConnectionName) Then
            $oConnection = $oFolderitem
            ExitLoop
        EndIf
    Next
    If Not(IsObj($oConnection)) Then Return SetError(2, 0, False)
    $oConnection.InvokeVerb($sVerbDisable)
    Sleep(1000)
EndFunc

[TERMINAL]

amel27, что-то попробовал скомпелировать чаты по твоей ссылке-все ошибки выдают