Печать

[CreatoR [?]]

AutoIt: 3.2.10.0+
Версия: 1.0

Категория: Графика, Разное

Описание: Библиотека для записи видео с вашего монитора в файл формата AVI.

Код/Пример:

Код: AutoIt [Выделить]

; Example by ProgAndy
#include <ScreenCapture.au3>
#include "AVIWriter.au3"

Hotkeyset("{ESC}","close")

Break(0)


FileDelete(@DesktopDir & "\test.avi")

_StartAviLibrary()

$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,200,200)

Do
    $m = MouseGetPos()
    $hBmp = _ScreenCapture_Capture("", $m[0] - 100, $m[1] - 100, $m[0] + 100, $m[1] + 100, True)
    _AddHBitmapToAvi($avi, $hBmp)
    _WinAPI_DeleteObject($hBmp)
    Sleep(200)
Until False



Func close()
    _CloseAvi($avi)
    _StopAviLibrary()
    exit
EndFunc;==>close

Файл: Библиотека AVIWriter

Источник: http://www.autoitscript.com/forum/index.php?showtopic=86748
Автор(ы): monoceres

[Zaramot [?]]

Спасибо что подправил 

[araneon [?]]

Чёт непойму, скрипт должен писать видео со всего монитора или только какуюто область, просто у меня пишет небольшую область вокруг курсора, то есть передвигаешь курсор и запись идет только курсора с небольшой областью (windows7 x32) скрипт не менял, копи-паст и запуск!!! И размер БОЛЬШООООЙ получается, что тоже неудобно

[asa12 [?]]

С размером то всё понятно. 1,5 гига на 10 мин. записи при 1024*
Это размер несжатого avi. Нужно прикрутить модуль компрессии (или не нужно) - минус комп нужен не одноядерный и относительно современный. Там заморочек прилично и проблемы не с кодом.

[araneon [?]]

Так как на счёт размера записываемого изображения, у меня почему то только кусочек пишет а не весь экран 

вот такое в место такова

[Redline [?]]

araneon  [?]

Так как на счёт размера записываемого изображения, у меня почему то только кусочек пишет а не весь экра

В примере кода же написано какой участок пишется:

Код: AutoIt [Выделить]

$hBmp = _ScreenCapture_Capture("", $m[0] - 100, $m[1] - 100, $m[0] + 100, $m[1] + 100, True)

То есть берется квадрат вокруг курсора со стороной 200 пикселей.
Весь экран:

Код: AutoIt [Выделить]

_ScreenCapture_Capture("", 0, 0, -1, -1, True)

[araneon [?]]

araneon  [?]

Так как на счёт размера записываемого изображения, у меня почему то только кусочек пишет а не весь экра

В примере кода же написано какой участок пишется:

Код: AutoIt [Выделить]

$hBmp = _ScreenCapture_Capture("", $m[0] - 100, $m[1] - 100, $m[0] + 100, $m[1] + 100, True)

То есть берется квадрат вокруг курсора со стороной 200 пикселей.
Весь экран:

Код: AutoIt [Выделить]

_ScreenCapture_Capture("", 0, 0, -1, -1, True)

спасибо за советик, но чёт не получается (((

[Redline [?]]

araneon  [?]

спасибо за советик, но чёт не получается (((

Код лень рассмотреть?

Код: AutoIt [Выделить]

$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,200,200)

Здесь тоже нужно указать размер, если весь экран, то пиши так:

Код: AutoIt [Выделить]

$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,@DesktopWidth, @DesktopHeight)

[araneon [?]]

araneon  [?]

спасибо за советик, но чёт не получается (((

Код лень рассмотреть?

Код: AutoIt [Выделить]

$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,200,200)

Здесь тоже нужно указать размер, если весь экран, то пиши так:

Код: AutoIt [Выделить]

$avi = _CreateAvi(@DesktopDir & "\test.avi", 5,@DesktopWidth, @DesktopHeight)

ООО СПАСИБО !!!

[X3.42rus [?]]

Вот немного порылся на источнике и пришил в пример компрессию:

Код: AutoIt [Выделить]

#include <ScreenCapture.au3>
#include "AVIWriter.au3"
#include <Process.au3>

Hotkeyset("{ESC}","close")

Break(0)


FileDelete(@DesktopDir & "\capture.avi")
FileDelete(@DesktopDir & "\Compressed_AVI.avi")
_StartAviLibrary()

$avi = _CreateAvi(@DesktopDir & "\capture.avi", 5,@DesktopWidth, @DesktopHeight)


Do
        $hBmp = _ScreenCapture_Capture("", 0, 0, -1, -1, True)
    _AddHBitmapToAvi($avi, $hBmp)
    _WinAPI_DeleteObject($hBmp)
    Sleep(200)
Until False



Func close()
    _CloseAvi($avi)
    _StopAviLibrary()
     CompressAVI("capture.avi")
     FileDelete(@DesktopDir & "\capture.avi")
    exit
EndFunc;==>close

Func CompressAVI($PATH)
    TrayTip("AVIWritter", "Compressing avi...", 3, 4)
    _RunDOS('ffmpeg -i capture.avi -b 512k -vcodec msmpeg4v2 Compressed_AVI.avi')
    TrayTip("AVIWritter", "Finished !", 3, 4)
    EndFunc  

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

[Kaster [?]]

X3.42rus
используй тэги [autoit][/autoit] для AutoIt кодов

• Pasmer
• Ganibal95
• Arei
• abelar
• centaur
• eropov
• Yashied
• Serafim
• enk
• inververs
• mr.Gbabak
• sagem830
• CreatoR
• asdf8
• felikc
• spn123
• madmasles
• trizorka
• Viktor1703
• Pavel
• Kaster
• ORiON
• alexisnoy123
• Asshaker
• valdur2000
• Nivel
• winstan