Недавние сообщения

Страницы: [1] 2 3 ... 10
1
Собственно, сабж. Возможно ли это?
2
Общие вопросы по AutoIt / Re: Плавное увеличение звука при наведении на окно
« Последний ответ от Visors Отправлен Вчера в 19:20:24 »
Tempo, а вот теперь звук увеличивается плавно.
Спасибо за помощь со скриптом.
4
Общие вопросы по AutoIt / Re: Плавное увеличение звука при наведении на окно
« Последний ответ от Tempo Отправлен Вчера в 15:40:37 »
Код: AutoIt [Выделить]
#include "DSEngine.au3"
#include <WindowsConstants.au3>
#include <GuiConstants.au3>
#include <WinAPI.au3>
#include <WinAPISys.au3>

Global $sFile = FileOpenDialog("Select video file", "", "All video files (*.avi;*.mpg;*.wmv;*.mov;*.3gp;*.asf;*.mp4;*.flv;*.rv;)")
If @error Then Exit

Global $fVolume, $iValue = -10000
Global $hWnd = GUICreate("DirectShow Engine Example", 480, 320, -1, -1, $WS_POPUP) ;, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUIRegisterMsg($WM_MOUSEMOVE, "WM_MOUSE")
GUIRegisterMsg($WM_MOUSELEAVE, "WM_MOUSE")
Engine_Startup(@ScriptDir & "\DSEngine_UDF.dll")
Engine_LoadFile($sFile, $hWnd)
GUISetState()
Engine_StartPlayback()
Engine_Mute()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Engine_Shutdown()

Func WM_MOUSE($hWnd, $iMsg)
    Switch $iMsg
        Case $WM_MOUSEMOVE
            If Not $fVolume Then
                AdlibUnRegister("_VolumeDown")
                AdlibRegister("_VolumeUp", 10)
                $fVolume = True
                _WinAPI_TrackMouseEvent($hWnd, $TME_LEAVE)
            EndIf
        Case $WM_MOUSELEAVE
            If $fVolume Then
                AdlibUnRegister("_VolumeUp")
                AdlibRegister("_VolumeDown", 10)
                $fVolume = False
            EndIf
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_MOUSE

Func _VolumeUp()
    If $iValue < 0 Then
        $iValue += 100
        Engine_SetVolume($iValue)
    Else
        AdlibUnRegister("_VolumeUp")
    EndIf
EndFunc   ;==>_VolumeUp

Func _VolumeDown()
    If $iValue > -10000 Then
        $iValue -= 100
        Engine_SetVolume($iValue)
    Else
        AdlibUnRegister("_VolumeDown")
    EndIf
EndFunc   ;==>_VolumeDown

OffTopicВ вашем случае лучше писать в стол заказов
5
Общие вопросы по AutoIt / Re: Плавное увеличение звука при наведении на окно
« Последний ответ от Visors Отправлен Вчера в 15:13:54 »
Tempo , не работает.

Не наблюдается плавности увеличения или уменьшения звука.
При наведении курсора мыши - звук просто резко врубается безо всякой плавности.
6
Так как же лучше сделать? Ни у кого мыслей нет? Или это сделать нельзя и ... снова переходить на парсинг регулярными выражениями?

Слушайте, а нет ли случайно какой-нибудь DLL ки, чтобы можно было удобно все эти вещи проделывать?
Например:
Код: AutoIt [Выделить]
DllCall("json.dll", "...", "parse", "WSTR", '{"name":"value", "qwerty": "asdf"}')
$a = DllCall("json.dll", "...", "getitem", "WSTR", "name")
     ;     $a[0] = "value"
 

7
Общие вопросы по AutoIt / Re: Плавное увеличение звука при наведении на окно
« Последний ответ от Tempo Отправлен Вчера в 01:10:20 »
Например так
Код: AutoIt [Выделить]
#include "DSEngine.au3"
#include <WindowsConstants.au3>
#include <GuiConstants.au3>
#include <WinAPI.au3>
#include <WinAPISys.au3>

Global $sFile = FileOpenDialog("Select video file", "", "All video files (*.avi;*.mpg;*.wmv;*.mov;*.3gp;*.asf;*.mp4;*.flv;*.rv;)")
If @error Then Exit

Global $fVolume
Global $hWnd = GUICreate("DirectShow Engine Example", 480, 320, -1, -1, $WS_POPUP) ;, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUIRegisterMsg($WM_MOUSEMOVE, "WM_MOUSEMOVE")
GUIRegisterMsg($WM_MOUSELEAVE, "WM_MOUSELEAVE")
Engine_Startup(@ScriptDir & "\DSEngine_UDF.dll")
Engine_LoadFile($sFile, $hWnd)
GUISetState()
Engine_StartPlayback()
Engine_Mute()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Engine_Shutdown()

Func WM_MOUSEMOVE()
    If Not $fVolume Then
        For $i = -10000 To 0
            Engine_SetVolume($i)
        Next
        $fVolume = True
        _WinAPI_TrackMouseEvent($hWnd, $TME_LEAVE)
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_MOUSEMOVE

Func WM_MOUSELEAVE()
    If $fVolume Then
        For $i = 0 To -10000 Step -1
            Engine_SetVolume($i)
        Next
        $fVolume = False
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_MOUSELEAVE
 

8
Общие вопросы по AutoIt / Плавное увеличение звука при наведении на окно
« Последний ответ от Visors Отправлен Вчера в 00:17:34 »
Доброго времени суток, специалисты по AutoIt'у.
Помогите с решением проблемы.

Есть скрипт вывода видео без звука - в беззаголовочном окне.
(нажмите для показа/скрытия)

Как при наведении мыши - на это беззаголовочное окно с видео - плавно повысить уровень звука до 100%  ?
А если убрать курсор мыши с окна - то звук плавно уменьшится опять до 0.
9
Версия AutoIt: 3.3.14.2

Описание:
Добрый вечер.
Подскажите с решением.

Как определить изменения элемента ToolbarWindow32 в программе "Динамики.exe", висящей в трее ?
Если этот элемент меняется - то выдается сообщение "Изменение".

Примечания:
10
GUI - Графический интерфейс пользователя / Полупрозрачность - по краям окна
« Последний ответ от perven1 Отправлен Декабрь 16, 2017, 23:24:14 »
Здравствуйте.
Хочу задать вопрос про графический интерфейс пользователя.

Есть скрипт, делающий окно программы Notepad.exe - полупрозрачным.

Подскажите - как сделать полупрозрачность - только по краям окна, я в центре вообще оставить окно как оно есть - без прозрачности ?
(нажмите для показа/скрытия)
Страницы: [1] 2 3 ... 10