[diPhUZ8R]

Подскажите, как с помощью AutoIt, задать конкретному сетевому потключению общий доступ?

[Creat0R]

По поводу моего предыдущего вопроса - Можно хотябы сделать так, чтобы символы _1 добовлялись вместе с другим расширением, и чтобы если уже есть такие файлы, за место _1 писать _2 и т.д?

Не могу понять почему, но вот этот пример не работает как ожидается (мной):

Код:

$Number = 1
;Вписываю все файлы с расширением *.inibak в отдельный временный файл, и ставлю самый новый файл в верх списка
RunWait(@ComSpec & " /c dir /o -d /b /d *.inibak > test.tmp", "", @SW_HIDE)
;Беру число (восьмой символ справа у первой строки) с имени файла (для проверки).
$NumN = StringLeft(StringRight(FileReadLine("test.txt", 1), 8), 1)
FileDelete("test.txt")

;Если в файле test.tmp есть восьмой символ справа у первой строки, то переменной $Num присваевается значение ровняющееся этому символу (числу), плюс 1.
If $NumN <> "" Then $Number = $NumN+1

;Копируются все файлы с расширением *.ini в те же имена, плюс добовляется число, и расширение inibak.
	FileCopy("*.ini", "*_" & $Number & ".inibak")

При повторном вызове, начинается старая проблема - файлы дублируются.
Почему это происходит, и как исправить?

-------------

Есть ещё один, более выжный вопрос...

Как можно послать команду в винамп (Winamp), например, на проигрывание файла - не запуск винампа с ком. строкой ровняющейся имени файла, а именно вызов команды в самом винампе?

Как я понимаю, нужно использовать ControlCommand, но как узнать какую команду посылать?
Я пробовал так:

Код:

ControlCommand("Player Window", "", "BaseWindow_RootWnd1", 4)

4, это для того, чтобы как-бы вызвать четвёртый пункт в "BaseWindow_RootWnd1" (в Au3Info это то поле, которое видно когда проводишь мышкой по пунктам “Играть”, “Пауза”, “Стоп” и т.д. - В “Восспроизведение”). Но это не срабатывает .
Я бы мог конечно просто посылать нажатие клавиш, но мне нужно чтобы это происходило при свёрнутом окне винампа, а для посылки сочетании клавиш, нужно сделать WinActivate, или чтобы окно само было активным.

[Sanja Alone]

Creat0R

Как можно переименовать все файлы с одним расширением, в те же имена, но до самого расширения добавить символы _1 - а если уже существуют такие имена, то вместо _1 нужно подставить _2 и т.д.

Алгоритм такой:

1. Считываем список файлов по требуемой маске в массив ( $s=_FileListToArray($Dir,"*.dat",1) ). Можешь посмотреть пример реалтизации в моем скрипте автоустановки/активации игр Reflexive.
2. Пробегаем по массиву (цикл For), попутно анализируя имена файлов: разделяем по точке на имя ($name) и расширение ($ext). Во вложенном цикле по $i проверяем на существование файлы с окончанием имени "_"&$i в целевом каталоге - FileExists, или среди других эл-тов массива $s - при пом. ф-ции StrInStr (тут как тебе больше нравится; первый вариант для параноиков - а вдруг кто-то во время работы скрипта создаст файл с "хвостом" имени "_"&$i). Затем переименовываем текущий файл aka анализируемый эл-т массива в $name&"_"&$i+1&"."&$ext.

Все.

а для посылки сочетании клавиш, нужно сделать WinActivate

Ты о Global Hotkeys слышал? Очень удобная штука, особенно когда играешься в какую-нить игру в полноэкранном режиме и нужно уменьшить громкость или перейти к след. трэку в Winamp-е.
Вот тебе код:

Код:

;путь к Winamp
$WinampPath=RegRead ( 'HKEY_CURRENT_USER\Software\Winamp', '' )
If $WinampPath="" Then $WinampPath=@ProgramFilesDir & '\Winamp'
;включаем Global Hotkeys
IniWrite ( $WinampPath & '\winamp.ini', 'gen_hotkeys', 'enabled', '1' )
;запускаем Winamp
Run ( $WinampPath & '\Winamp.exe' )
;ждем загрузки процесса Winamp-а в память
ProcessWait ( 'Winamp.exe' )
;посылаем команду "Play"
Send ('^!{INS}')

Список хоткеев смотри в настройках Winamp-а (можно и свои сочетания прописать, причем, сразу в секцию [gen_hotkeys] файла winamp.ini).

[Creat0R]

Sanja Alone

Алгоритм такой:

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

Как можно переименовать все файлы с одним расширением, в те же имена, но до самого расширения добавить символы _1 - а если уже существуют такие имена, то вместо _1 нужно подставить _2 и т.д.

Вот тебе код:

И на этом спасибо. Если ты не против, можно немного усовершенствовать :

Код:

$WinampPath=RegRead ( 'HKEY_CURRENT_USER\Software\Winamp', '' )
If $WinampPath="" Then $WinampPath=@ProgramFilesDir & '\Winamp'

;Если Winamp небыл найден, то выводим соответствующее сообщение, и завершаем работу (скрипта)
If Not FileExists($WinampPath) Then
MsgBox(48, "error", "The Winamp ("& $WinampPath &") was not found")
Exit
EndIf

;Если Winamp не запущен, то запустим его
If Not ProcessExists("Winamp.exe") Then
Run($WinampPath & "\winamp.exe")
ProcessWait("Winamp.exe")
EndIf

;Если Global Hotkeys не установлен, то устанавливаем его через винамп
If IniRead($WinampPath,  'gen_hotkeys', 'enabled', '' )=0 Then
AutoItSetOption("WinTitleMatchMode", 4)
WinActivate("classname=BaseWindow_RootWnd", "")
WinWaitActive("classname=BaseWindow_RootWnd", "", 5)
Send("^p")
Send("{pgup}")
Send("{down 6}")
ControlCommand("classname=#32770", "", "Button2", "Check")
Send("{esc}")

   Send("!^{INS}")

;Если уже установлен, значит просто посылаем вызов команды проигрывания
Else
   Send("!^{INS}")
EndIf

Таким образом, ненужно прописывать в инишке - что позволит установить Global Hotkeys даже если винамп запущен.

[garbals]

можно с помощью скрипта поменять имя рабочей группы и имя пользователя
мне нужно переделать ipset http://home.electronicinsanity.com/a...ipts/ipset.rar
тоесть добавить ввод рабочей группы и имя комтьютера

[garbals]

и ещё можно ли с помощью AutoIt скрипта настроить VPN соединение

[amel27]

Creat0R

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

Код:

#include <File.au3>
#include <Array.au3>
#Include <String.au3>

_FilesFormatRename ("c:\Test", "_")

Func _FilesFormatRename ($sPath, $delim = "_")
	Local $i, $iMaxNum
	;Считываем список файлов в массив
	Local $FileList = _FileListToArray($sPath, "*", 1)
	;Создаем рабочий массив: 
	Local $WorkList [$FileList[0]+1] [6]
		;[][0] - имя файла без расширения
		;[][1] - имя файла без расширения и номера
		;[][2] - только расширение
		;[][3] - старый номер
		;[][4] - новый номер
		;[][5] - индекс для сортировки
	;Заполняем рабочий массив
	For $i=1 To $FileList[0]
		;выделяем имя, расширение и номер
		$WorkList [$i][0] = StringRegExpReplace ($FileList[$i], "\.[^.]*$","")
		$WorkList [$i][1] = StringRegExpReplace ($WorkList [$i][0], $delim & '[0-9]*$',"")
		$WorkList [$i][2] = StringMid ($FileList[$i], StringLen ($WorkList [$i][0]) +2)
		$WorkList [$i][3] = StringMid ($WorkList [$i][0], StringLen ($WorkList [$i][1]) +2) +0
		;формируем индекс для сортировки
		$WorkList [$i][5] = $WorkList[$i][1] & "." & $WorkList[$i][2] & "." & StringFormat ("%." & StringLen($FileList[0]) & "d", $WorkList[$i][3])
	Next
	;Сортируем массив по убыванию старого номера
	_ArraySort ($WorkList, 1, 1, $FileList[0]+1, 6, 5)

	;Основной цикл перенумерации
	For $i=1 To $FileList [0]
		;проверка на совпадение имени
		If $WorkList[$i-1][1] & "." & $WorkList[$i-1][2] = $WorkList[$i][1] & "." & $WorkList[$i][2] Then
			;проверка на совпадение номера
			If $WorkList [$i][3] = $WorkList [$i-1][3] Then
				;если номера совпадают, добавляем в конец списка
				$iMaxNum = $iMaxNum +1
				$WorkList [$i][4] = $iMaxNum
			Else
				;если номера отличаются зачем менять? 
				$WorkList [$i][4] = $WorkList [$i][3]
			EndIf
		Else
			;максимальный номер для нового имени
			$iMaxNum=$WorkList [$i][3]
			$WorkList [$i][4] = $iMaxNum
		EndIf
		;формируем индекс для сортировки
		$WorkList [$i][5] = $WorkList[$i][1] & "." & $WorkList[$i][2] & "." & StringFormat ("%." & StringLen($FileList[0]) & "d", $WorkList[$i][4])
	Next
	;Сортируем массив по убыванию нового номера
	_ArraySort ($WorkList, 1, 1, $FileList[0]+1, 6, 5)
	;Подготовка к переименованию
	FileChangeDir ($sPath)
	FileSetAttrib("*", "-R") 
	;Собственно цикл переименования
	For $i=1 To $FileList [0]
		;проверка на совпадение имени
		If ($WorkList[$i-1][1] & "." & $WorkList[$i-1][2]) <> ($WorkList[$i][1] & "." & $WorkList[$i][2]) Then	$iMaxNum = $WorkList [$i][4]
		FileMove ($WorkList [$i][0] & "." & $WorkList [$i][2], _ 
			$WorkList [$i][1] & $delim & StringFormat ("%." & StringLen ($iMaxNum) & "d", $WorkList [$i][4]) & "." & $WorkList [$i][2])
	Next
EndFunc

[amel27]

garbals

мне нужно переделать ipset

дык там все делается через NETSH, а AutoIT только графическая оболочка... поэтому подбери сначала (в другой ветке форума) требуемую CMD-утилитку, а потом _RunDOS или RunWait.

[Creat0R]

amel27

вариант рабочей функции переименования

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

Попробую перефразировать задачу:

В папке c:\test, есть 3 файла (кроме прочих) - myfile.dat, hisfile.dat, aourfile.dat - после запуска скрипта, нужно чтобы эти файлы (именно с таким расширением), переименовались в такие имена - myfile_1.dat, hisfile_1.dat, aourfile_1.dat.
Далее, при повторном запуске скрипта, если уже обнаружены такие файлы (myfile_1.dat, hisfile_1.dat, aourfile_1.dat), то именно их трогать ненужно, а нужно все остальные (с таким же расширением, и с таким же началом - до символа _), переименовать в такие файлы - myfile_2.dat, hisfile_2.dat, aourfile_2.dat, а те которые не совпадают в начале имени (до символа _), нужно переименовывать как и в первый раз (добовляя _1).
Точно такой способ, реализован в утилите 7-zip, там при расспаковке файлов (через командную строку), можно указать ключ, который позволит именно этим способом переименовывать существующие файлы.

[amel27]

Creat0R

дело в том, что это не совсем то

ясен пень, я ведь делал для фоток

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

ну дык добавь в функцию еще один параметр "маски" и при загрузке в массив используй его вместо "*"

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

звиняюсь, но нифига не понял... у меня переименовываются только те, которые НЕ содержат на конце знак разделителя с номером (aka _X), кстати именно поэтому в названии ф-ции присутствует слово "Format", т.е. происходит преобразование имени к определенному формату. Выравнивание по количеству знаков сделано для правильной сортировки, если не надо - можно убрать.

Точно такой способ, реализован в утилите 7-zip

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

FYI: скрипт подправил, теперь кол-во знаков в номере определяется автоматом