AutoIt Français

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\ADD FILE\ICON\blue-vlc.ico
#AutoIt3Wrapper_Outfile=Blue VLC.exe
#AutoIt3Wrapper_Res_Comment=Baka-App Production
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Vous avez le droit de ne pas en avoir.
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ #NoTrayIcon ;on sait jamais :/
#include "Colonel32.au3"
#include <Timers.au3>
#include <Math.au3>
#cs
    Apendix:
    TCP
    VLC config 2 pages
    ne seek pas pour une vid ouverte avant le prog
    seek only if file is playing
    child linked to explorer
    autorun ssi en admin

    Tiquet
    autorun
    del autorun
    only for Video file
    reprise -10 sec
    config VLC auto
    vidage quotidient des fichiers effacé
    hash to avoid file with same name
    chapter less 1 min
#ce
#Region OPT
;seek only if marked deley >$Sec_min
$Sec_min = 5
;Mark pos in the file if $time>$last_mark+$Mark_Deley or $time<$last_mark-$Mark_Deley
$Mark_Deley = 5;sec
;Marck_once
$Marck_Once = True
;arreter de marquer avant $before_end sec de la fin de lecture
$before_end = 30
;$length_min of vid to mark, avoid video-clip
$length_min = 5 * 60
;Lancer au demmarage
$Auto_run = True
;#Internal (at your own risk)
$TCP_len = 2500
$Stat_opaque = 2000
$Stat_disp = 1200
$cle = "Blue_VLC"
Dim Const $ExitCode = 'status change: ( play state: 4 ): End' & @CRLF & 'status change: ( play state: 4 ): End' & @CRLF & 'status change: ( audio volume: -256 )' & @CRLF;* a partir de end only
;#Declaration
Dim $file = '', $new_input = "", $TCPConnected = 0, $Socket = -1, $rate = 1
Dim Const $Stat_A = 255 / ($Stat_opaque - ($Stat_disp + $Stat_opaque))
Dim Const $Stat_B = -$Stat_A * ($Stat_disp + $Stat_opaque)
Dim $last_o = 0, $Tx = '', $last_Tx = '', $length = 0, $time = 0
OnAutoItExitRegister('Die')
ProcessSetPriority(@ScriptFullPath, 0)
#EndRegion OPT
#Region ### AUTORun ###
If $Auto_run And @Compiled Then
    RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $cle)
    If @error Then
;~      RequireAdmin ;*** ; comme ça marche que si c'est lancé en admin
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $cle, "REG_SZ", '"' & @ScriptFullPath & '"')

    EndIf
EndIf
#EndRegion
_Singleton($cle)
#Region ### GUI     ###
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
$Fenetre = GUICreate(".1", 80, 20, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_LAYERED), WinGetHandle('[CLASS:WorkerW]'))
GUISetBkColor(0x000000)
$label = GUICtrlCreateLabel("[BApp]", 0, 0, 80, 20, 0x01)
GUICtrlSetColor($label, 0xFFD966)
AdlibRegister("GUI", 90)

#EndRegion ### GUI  ###
If Not @Compiled Then
;~  If ProcessExists('vlc.exe') Then ProcessClose('vlc.exe');***
;~  ShellExecute(".avi");******
;~              $sec = REG(".avi")
;~              w($sec, 'sec...')
    Opt('TrayIconDebug', 1)
EndIf
;Sys
Dim $Pid = 0, $file = '', $length = 0, $time = 0, $rate = 1, $IsPlaying = 0
Dim $nfile = '', $ntime = 0
Dim $Rq_length = 0, $Rq_time = 0, $Rq_seek = 0
$Sleep = 20
While 1;vlc close; new file; just playing
    $ttt = TimerInit()
    Sleep($Sleep)
    ;Get Data
    $nfile = $nfile
    $IsPlaying = 0
    $ntime = 0
    $Pid = ProcessExists('vlc.exe')
    Switch $Pid
        Case 0
            $Sleep = 200
            ;vars to default
            $nfile = ''
            $rate = 1
            $length = 0
        Case Else
            _TCPStartup()
            $Sleep = 20




            If $Rq_length Then
                $get_length = _Do('get_length')
                $length = Number(StringTrimRight($get_length, 2))
                If Not ($length & @CRLF = $get_length) Then
                    ConsoleWrite('-->get_length (Warning 1) : Avoid taksir krayem' & @CRLF);/ fusion with _do
                    $length = 0
                EndIf


            ElseIf $Rq_time Then
                $get_time = _Do('get_time')
                $ntime = Number($get_time)
                If Not ($ntime & @CRLF = $get_time) Then
                    ConsoleWrite('-->get_time (Warning 1) : Avoid taksir krayem' & @CRLF)
                    $ntime = 0
                EndIf


            ElseIf $Rq_seek Then
                ;seek
                $sec = REG($file)
                w($sec, 'sec')
                If $sec > $Sec_min Then
                    _Do('seek ' & $sec)
                    ConsoleWrite('+>Seek ' & $sec & ': ' & $nfile & @CRLF)
                Else
                    ConsoleWrite('+>Seek X: ' & $nfile & @CRLF)
                EndIf
            Else
                $Recv = _Do('is_playing'); rate file exit
                $IsPlaying = Number(StringLeft(StringRight($Recv, 3), 1))
            EndIf
    EndSwitch
    Sleep(10)
;~  w($file)
;~  w($nfile)
    ;Get Event & react
    $Rq_length = 0
    $Rq_time = 0
    If $Rq_seek Then $Rq_length = 1;*** length with normal rq and not do
    $Rq_seek = 0
    If $file == $nfile And $file <> '' Then
        $Rq_time = 1
;~      ConsoleWrite(($ntime > $time + $Mark_Deley Or $ntime < $time - $Mark_Deley) & ' ' & ($length_min < $length) & ' ' & ($ntime > $Sec_min) & @CRLF)
        If ($ntime > $time + $Mark_Deley Or $ntime < $time - $Mark_Deley) And $length_min < $length And $ntime > $Sec_min Then
            $time = $ntime
            If Not $Marck_Once Then
                REG($file, String($time))
                ConsoleWrite('+>REG  ' & $time & '     ' & $file & @CRLF)
            EndIf
        Else
            If Not $Marck_Once Then ConsoleWrite('(Not yet)' & @CRLF)

        EndIf
    Else
        ;reg last time
        If $file <> '' Then
            If $Marck_Once And $length_min < $length And $time > $Sec_min Then
                REG($file, String($time))
                ConsoleWrite('+>REG last time ' & $time & ' :  ' & $file & @CRLF)
            Else
                ConsoleWrite('(Not yet last time)' & @CRLF)
            EndIf
        EndIf

        If $nfile <> '' Then
            $Rq_seek = 1
        EndIf

    EndIf
    $file = $nfile



    _TCPShutdown()
    If TimerDiff($ttt) > 330 Then w(Round(TimerDiff($ttt) / 1000, 3), 'cycle')
WEnd

#Region ### FUNC
Func GUI()
;~  ConsoleWrite((WinGetProcess("[ACTIVE]") = $Pid) & ' ' & ($rate <> 1) & ' ' & ($length <> 0) & ' ' & @CRLF)
    If $length <> 0  And $rate <> 1 And  WinGetProcess("[ACTIVE]") = $Pid Then
        If $ntime == 0 Then Return
        $o = $Stat_A * _Timer_GetIdleTime() + $Stat_B
;~      w($o, 'oo')
        ;Trans
        State($o)
        ;Data
        $Tx = '-' & __Time(($length - $ntime) / $rate)
        If Not ($last_Tx = $Tx) Then
            GUICtrlSetData($label, $Tx)
            $last_Tx = $Tx
        EndIf
        ;Pos
        $poz = WinGetPos('[ACTIVE]', '')
        If IsArray($poz) Then
            $last_poz = WinGetPos($Fenetre, '')
            $X = $poz[0] + $poz[2] - 90
            $Y = $poz[1] + $poz[3] - 99
            If $last_poz[0] <> $X And $last_poz[1] <> $Y Then WinMove($Fenetre, '', $X, $Y)
        EndIf
    Else
;~      ConsoleWrite('!State(0)' & @CRLF)
        State(0)
    EndIf
EndFunc   ;==>GUI
Func State($o)
;~  w($o, 'o')
;~      Sleep(500)
    $o = Int($o)
    $o = _Max(0, $o)
    $o = _Min(255, $o)
    If $o = $last_o Then Return
    If $o Then WinSetTrans($Fenetre, "", $o)
    If $last_o * $o == 0 Then
        ConsoleWrite(-1 * $o & @CRLF)
        GUISetState(($o ? @SW_SHOWNOACTIVATE : @SW_HIDE), $Fenetre)
        WinSetOnTop($Fenetre, '', 1)
    EndIf
    $last_o = $o
EndFunc   ;==>State


Func REG($file, $time = Default)
    Switch $time
        Case Default;Read mode
            Return Int(IniRead("data.ini", "file", $file, "-1"))
        Case Else
            IniWrite("data.ini", "file", $file, $time)
    EndSwitch
EndFunc   ;==>REG

Func _Do($execution = 'is_playing'); @extended=Isplaying
    If Not $TCPConnected Then Return SetError(1, 0, '')

    TCPSend($Socket, $execution & @CRLF)
    Sleep(50)
    $Recv = TCPRecv($Socket, $TCP_len)
    $a = AdLibTCP($Recv)
    If (StringLen($Recv) > 1) Then w($Recv, $execution & ' (' & $a & ')'); > 3 ***
    Return $a ? $Recv : ''
EndFunc   ;==>_Do
Func AdLibTCP($Recv)
    If StringLen($Recv) > 0 Then
        ;rate
        $__d = '( new rate: '
        $p = StringInStr($Recv, $__d, 2) + StringLen($__d) - 1
        If StringInStr($Recv, $__d, 2) Then
            $rate = Number(StringMid($Recv, $p, 5))
            ConsoleWrite('> Rate: ' & $rate & @CRLF)
        EndIf
        ;File
        $__d = 'new input: file:///'
        If StringInStr($Recv, $__d) Then

            $p = StringInStr($Recv, $__d) + StringLen($__d)
            $ss = StringTrimLeft($Recv, $p)
            $pp = StringInStr($ss, @CR, 2)
            $ss = URL_Decode(StringMid($Recv, $p, $pp - 2))
            If FileExists($ss) Then $nfile = $ss
        EndIf
        ;Exit
        If StringRight($Recv, StringLen($ExitCode)) = $ExitCode Then
            $nfile = ''
            ConsoleWrite('!Exit vlc intercepted' & @CRLF)
;~          _TCPShutdown()
            Return 0
        EndIf
    EndIf
    Return 1
EndFunc   ;==>AdLibTCP
Func Die()
    TCPShutdown()
EndFunc   ;==>Die

#Region ### INTERNAL    ###
Func __Time($sec)
    Return StringFormat("%02i:%02i:%02i", ___Time($sec, 3600), ___Time($sec, 60), ___Time($sec, 1))
EndFunc   ;==>__Time
Func ___Time(ByRef $sec, $tot)
    $X = Floor($sec / $tot)
    $sec -= Floor($sec / $tot) * $tot
    Return $X
EndFunc   ;==>___Time
Func _TCPStartup()
    If Not $TCPConnected Then
        TCPStartup()
        Global $Socket = TCPConnect("127.0.0.1", 2150)
        If Not ($Socket = -1) Then
            $TCPConnected = 1;~     Exit MsgBox(0, "Error", "Failed to connect to VLC over tcp proctol on localhost.Is it running and set to listen for console commands on port 2150?")
;~          ConsoleWrite('> TCP On.' & @CRLF)
        EndIf
    EndIf
    If $TCPConnected Then
        TraySetToolTip("Blue VLC")

    Else

        TraySetToolTip("Immpossible de communiquer avec VLC.")
    EndIf
    Return $TCPConnected
EndFunc   ;==>_TCPStartup
Func _TCPShutdown()
    If $TCPConnected Then
        TCPCloseSocket($Socket)
;~      If @error then ;/ then what?
;~      ConsoleWrite('> TCP Off.' & @CRLF)
    EndIf
    $TCPConnected = 0
    Return 1
EndFunc   ;==>_TCPShutdown
#EndRegion ### INTERNAL ###
#EndRegion ### FUNC