[EX] Téléchargeur de vidéo
Posté : dim. 21 sept. 2008 19:57
Ce petit script récupère les fichiers internet temporaire et s'il font plus d'un meg, il les déplace dans un dossier défini au départ. Si les fichier n'ont pas d'extensions, *.flv sera assigné automatiquement au fichier.
J'ai fait celà dans l'intention de récupérer et de stocker les fichiers que je visionne sur youtube sans toujours aller les chercher moi-même dans le dossier des fichiers internet temporaire.
Le script vérifie à chaque 15 secondes pour de nouveaux fichiers.
Assez écrit, voilà le code.
J'ai fait celà dans l'intention de récupérer et de stocker les fichiers que je visionne sur youtube sans toujours aller les chercher moi-même dans le dossier des fichiers internet temporaire.
Le script vérifie à chaque 15 secondes pour de nouveaux fichiers.
Assez écrit, voilà le code.
Code : Tout sélectionner
#include<file.au3>
If IniRead("cfg.ini","","FirstStart","0") = 0 Then
IniWrite("cfg.ini","","FirstStart","1")
$location = ""
$savefolder = ""
While Not FileExists($location) Or Not FileExists($savefolder)
$location = InputBox("Attention","Veuillez entrez le dossier où sont stockés vos fichiers internet temporaire","M:\Backup\Bases de données\Mozilla\Firefox Profile\njn833qw.default\Cache")
If StringRight($location,1) <> "\" Then
$location = $location & "\"
EndIf
$savefolder =InputBox("Attention","Veuillez choisir un dossier de sauvegarde",@ScriptDir & "\")
If StringRight($savefolder,1) <> "\" Then
$savefolder = $savefolder & "\"
EndIf
WEnd
IniWrite("cfg.ini","","TempInternetFolder",$location)
IniWrite("cfg.ini","","RefreshTime","15")
IniWrite("cfg.ini","","Filter","1")
IniWrite("cfg.ini","","SaveFolder",$savefolder)
EndIf
$location = IniRead("cfg.ini","","TempInternetFolder","")
$refresh = IniRead("cfg.ini","","RefreshTime","15") * 1000
$filter = IniRead("cfg.ini","","Filter","1") * 1048576
$savefolder = IniRead("cfg.ini","","SaveFolder","1")
While 1
checktemp()
Sleep($refresh)
WEnd
Func checktemp()
$files = _FileListToArray($location,"*",1)
For $i = 1 To $files[0]
$file = $location & $files[$i]
If FileGetSize($file) > $filter Then
$newfile = StringTrimRight($files[$i],3)
If StringRight($newfile,1) <> "." Then
$newfile = $files[$i] & ".flv"
Else
$newfile = $files[$i]
EndIf
FileMove($location & $files[$i],$savefolder & $newfile)
EndIf
Next
EndFunc