Примеры ahk-скриптов

[ashu]

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



Пример для встраивания в ваш скрипт:

videosource	:= "C:\camera\*.*"			; маска видеофайлов для переноса на usb-накопитель
videodest	:= "G:\camera"				; путь, куда надо переносить видеофайлы
отключения из системы
videodest2	:= "F:\camera"				; альтернативный путь, куда надо переносить видеофайлы
onvideomove := 0

VideoMove:
	onvideomove := 1
	readyformove := 0
	allsize := 0
	allcount := 0
	cursize := 0
	curcount := 0
	curvideodestfound := 0
	if InStr(FileExist(videodest), "D")
	{
		curvideodest := videodest
		curvideodestfound := 1
	}
	Else
	{
		if InStr(FileExist(videodest2), "D")
		{
			curvideodest := videodest2
			curvideodestfound := 2
		}
	}
	If (curvideodestfound > 0)
	{
		DriveSpaceFree, destspace, %curvideodest%
		Loop, %videosource%
		{
			allsize := allsize + A_LoopFileSizeKB
			allcount := allcount + 1
		}
		needspace := round(allsize/1024 - destspace)+1
		if(needspace > 0)
		{
			Progress, B ZH0 W600 H120 CW000000 CB00F000 CT00D000 FM20 FS18 WM1000 WS700, `nНа USB-накопителе не хватает %needspace%Mb!`nПеренос видеофайлов не возможен!,,, Courier New
			Sleep, 5000
			Progress, Off
		}
		Else
		{
			readyformove := 1
		}
	}
	Else
	{
		Progress, B ZH0 W600 H120 CW000000 CB00F000 CT00D000 FM20 FS18 WM1000 WS700, `nUSB-накопитель не найден!`nПеренос видеофайлов не возможен!,,, Courier New
		Sleep, 5000
		Progress, Off
	}
	if(readyformove == 1)
	{
		Progress, B R0-%allsize% ZH50 ZX20 ZY10 W600 H190 CW000000 CB00F000 CT00D000 FM24 FS20 WM1000 WS700, 0`%`r`n0 of %allcount%`r`n%a_space%, Переношу маршрутное видео, Перенос видеозаписей, Tahoma
		copytime := A_TickCount
		copyspeedtext := a_space
		Loop, %videosource%
		{
			prometer := round(cursize * 100 / allsize)
			Progress, %cursize%, %curcount% of %allcount%`n%prometer%`% объёма%copyspeedtext%
			cursize := cursize + A_LoopFileSizeKB
			curcount := curcount + 1
			curcopytime := (A_TickCount - copytime) / 1000
			copyspeed := round((allsize - cursize) / (cursize / curcopytime))
			copyspeedtext := ", осталось " copyspeed " сек"
			FileMove, %A_LoopFileLongPath%, %curvideodest%, 1
			if ErrorLevel
			{
				Progress, B ZH0 W600 H120 CW000000 CB00F000 CT00D000 FM20 FS18 WM1000 WS700, `nОшибка переноса %A_LoopFileName%!`nПеренос видеофайлов не возможен!,,, Courier New
				Sleep, 15000
				Progress, Off
				onvideomove := 0
				return
			}
		}
		Progress, %cursize%, %curcount% of %allcount%`n100`% объёма
		Sleep, 3000
		Progress, Off
	}
	onvideomove := 0
	return

Процедура VideoMove из данного примера производит перенос файлов по маске C:\camera\*.* на флешку в каталог G:\camera. Если такого каталога обнаружить не удалось, производится попытка произвести перенос файлов в альтернативный каталог F:\camera. Если и такого каталога не найдено, выдается предупреждение и работа завершается.
Если каталог назначения найден, рисуется progress процесса переноса.

Процедуру можно вызывать по удобному вам событию - по нажатию горячей клавиши, по таймеру, по сообщению, посланному через WM_COPY, иль каким-нибудь другим образом.