en coproduction avec le geek rigolo,
Blue VLC
Presentationgrace au tout nouveau blue Vlc (trademark) version 1.2.3.4 BetaAlpha multiChannel,
gagnez une seconde de votre vie a chaque fois que vous relancez une video interrompu !
puisque Blue VLC reprend directement la ou vous vous êtes arrêté la dernière fois! ("OMG j'adore")
mieux encore, vous etes habitué à regarder vos vid en accéléré. Blue VLC, vous affiche combien il vous reste exactement de temps: par exemple une vid dure 1h mais vous la regardez en vitesse x2 donc il affiche -00:30:00, merci qui? merci Blue VLC !
Blue VLC ne remplace pas VLC c'est comme une service
VLC Doit être configuré comme suit:
- config vlc.pdf
- (300.32 Kio) Téléchargé 251 fois
Download EXE
-------
à partir d'ici si tu sais pas ce que c'est sleep(10) c'est bon dégérpi...
il n'y a toujours pas d'interface c'est pas encore le moment mais tt les variables sont en haut pour vous faciliter la vie
doit etre lancé avant VLC
crée un fichier data.ini
► Afficher le texteScript 3.3.12.0
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
► Afficher le texteFAQ
pouquoi ne pas utiliser un simple Plugin de VLC?
parce qu'il faut le lancer a chaque démarrage de VLC alors que mon app se lance automatiquement au démarrage de windows.
Comment faire pour que blue VLC se lance auto au démarrage de win?
lancez Blue VLC une fois en Admin.
pourquoi Blue VLC?
au debut je l'est appelé Custom VLC et puis j'ai cherché une icone et j'ai trouvé une en bleu alors...
qui est Colonel32.au3 ?
Soon.
pourquoi je continue a lire tt ça?
je me demande aussi...
parce qu'il faut le lancer a chaque démarrage de VLC alors que mon app se lance automatiquement au démarrage de windows.
Comment faire pour que blue VLC se lance auto au démarrage de win?
lancez Blue VLC une fois en Admin.
pourquoi Blue VLC?
au debut je l'est appelé Custom VLC et puis j'ai cherché une icone et j'ai trouvé une en bleu alors...
qui est Colonel32.au3 ?
Soon.
pourquoi je continue a lire tt ça?
je me demande aussi...