[..] Planifier un dl et automatiser sa décompression

[obiyoann]

Bonjour je suis nouveau sur ce forum et je suis débutant sur le logiciel AutoIt. J’aimerai savoir comment faire un script qui permet le téléchargement d’un dossier à une date précise pour ensuite qu’il ce décompresse automatiquement dans un dossier choisi.

[timmalos]

Concernant votre demande, Je ne peux pas faire votre script en entier, mais la solution se trouve:

_DateDiff() et _Now() pour comparer les dates afin de savoir si le moment est venu de faire le telechargement

Ce qui suit s'appelle une boucle infinie, elle vous permettra , une fois que vous aurez lancé votre programme, de ne jamais quitter le programme.

While 1
Sleep(100)
wEnd

_Inetget() vous permettra de telecharger votre fichier sur Internet

Il existe des UDF pour dezipper mais je n'ai plus le lien sur moi

Pour toutes les fonctions que je vous ai mis, une fois dans l'editeur Scite, il faut appuyer sur F1 pour acceder a la documentation. Je te conseille egalement de lire tous les tutoriels pour debutant presents sur ce forum.

[jbnh]

j'ai peur pour la décompression mais essaye quand même...

le code:

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
#include <Zip32.au3>

$i = 1 
$date = "22:41|22/10" ; respecter la forme : heure:min|jour/mois
$url = "http://hardwarez.xooit.net/test.rar" 
$hDestPath = 'C:\Documents and Settings\Propriétaire\Bureau\test';chemin complet

If $i = 1 Then

    while 1
        If $date =  @HOUR&':'&@MIN&'|'&@MDAY&'/'&@MON Then
        $i = 2
        exitloop
        Endif
    wend

Endif

If $i = 2 Then
InetGet($url, 'archive.zip', 1,0)
_UnZIP_Unzip("archive.zip", $hDestPath)
            
Endif

            ;==========================# ZIP FUNCTIONS #======================================
Func _UnZIP_PrintFunc($sName, $sPos)
    ConsoleWrite("---> _UnZIP_PrintFunc: " & $sName & @LF)
EndFunc

Func UnZIP_ReplaceFunc($sReplace)
    If MsgBox(4 + 32, "Overwrite", "File " & $sReplace & " is exists." & @LF & "Do you want to overwrite all file?") = 6 Then
        Return $IDM_REPLACE_ALL
    Else
        Return $IDM_REPLACE_NONE
    EndIf
EndFunc

Func _UnZIP_PasswordFunc($sPWD, $sX, $sS2, $sName)
    ConsoleWrite("!> UnZIP_PasswordFunc: " & $sPWD & @LF)
    
    Local $iPass = InputBox("Password require", "Enter the password for decrypt", "", "", 300, 120)
    If $iPass = "" Then Return 1
    
    Local $PassBuff = DllStructCreate("char[256]", $sPWD)
    DllStructSetData($PassBuff, 1, $iPass)
EndFunc

Func _UnZIP_SendAppMsgFunc($sUcsize, $sCsize, $sCfactor, $sMo, $Dy, $sYr, $sHh, $sMm, $sC, $sFname, $sMeth, $sCRC, $fCrypt)
    ;ConsoleWrite("!> _UnZIP_SendAppMsgFunc: " & $sUcsize & @LF)
EndFunc

Func _UnZIP_ServiceFunc($sName, $sSize)
    ;Return 1 for abort the unzip!
    GUICtrlSetData($edit, $sName & @CRLF, 1)
    
    ConsoleWrite("!> Size: " & $sSize & @LF & _
                 "!> FileName" & $sName & @LF)
EndFunc

[Ghost911]

j'ai plus simple pour décompresser et sans .dll :

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
_Zip_UnzipAll (@ScriptDir&"\tonfichierzip.zip",@ScriptDir&"\tondossierdedecompression",0)


Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 4)
    Local $DLLChk = _Zip_DllChk()
    If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0)
    If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) 
    
    If Not FileExists($hDestPath) Then DirCreate($hDestPath)
    
    Local $aArray[1]
    $oApp = ObjCreate("Shell.Application")
    $oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items, $flag)
    
    For $item In $oApp.Namespace($hZipFile).Items
        _ArrayAdd($aArray, $item)
    Next
    
    While 1
        Sleep(500)
        If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then Return SetError(0, 0, 1)
        ExitLoop
    WEnd
    
EndFunc
Func _Zip_DllChk()
    If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
    If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
    Return 0
EndFunc

[jbnh]

J'avais déja essayer celui ci mais perso ca marche pas chez moi, étrange....

[Ghost911]

bizarre chez moi sa marche très bien !

[obiyoann]

Un grand merci à tous le monde je vais tester tous sa

[ani]

Le problème avec cette manip^c'est que t'a deux copie du dossier décompressé
mais l'idée est là

lister le contenu sans la décompresser ?
@ghost911, dans la récuperation des item avec _arrayadd il t'afficher quoi pour un arraydisplay ?

@jbnh, çà ne marche pas, ne doit pas exister dans le vocabulaire ^^'
Alors l'exemple que tu fournis => ZIP mais le fichier a chercher est de compression RAR, peut etre que c'est là le soucis

[Ghost911]

donc si j'ai bien compris il veut utiliser une compression .rar ? (après si il ve utiliser lister un fichier zip il faut qu'il rajoute sa )

► Afficher le texte

Func _Zip_List($hZipFile)
local $aArray[1]
Local $DLLChk = _Zip_DllChk()
If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0) ;no dll
If Not FileExists($hZipFile) Then Return SetError(1, 0, 0) ;no zip file

$oApp = ObjCreate("Shell.Application")
$hList = $oApp.Namespace($hZipFile).Items

For $item in $hList
_ArrayAdd($aArray,$item.name)
Next
$aArray[0] = UBound($aArray) - 1
Return $aArray
EndFunc

[ani]

ok ghost911, pour le listage, mais le soucis, c'est que si le zip contiend un dossier il retourne que le dossier et pas son contenu :§

Exemple

Code : Tout sélectionner

Test.zip
--dossier test
---dossier 1
-----fichier ini/bat
---dossier 2
-----fichier exe
--dossier test 2
---dossier 3
-----Fichier Texte
---dossier 4
-----vide

et en visionnant le code, je remarque qu'il non pas inclu la recherche recursive,,,,, rhoooooo

Sinon çà fonctionne bien quand les fichier se trouve dans le zip sans dossier

Code : Tout sélectionner

Test.zip
teste.ini
teste.bat
teste.exe
test.txt

code

Code : Tout sélectionner

#include <array.au3>

$zip = "F:\Test.zip"
$list = _Zip_List($Zip)
ConsoleWrite("============== Contenu du ZIP ============" & @LF)
For $i = 1 to $list[0]  
    ConsoleWrite($list[$i] & @LF)
Next

Func _Zip_List($hZipFile)
local $aArray[1]
Local $DLLChk = _Zip_DllChk()
If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0) ;no dll
If Not FileExists($hZipFile) Then Return SetError(1, 0, 0) ;no zip file

$oApp = ObjCreate("Shell.Application")
$hList = $oApp.Namespace($hZipFile).Items

For $item in $hList
_ArrayAdd($aArray,$item.name)
Next
$aArray[0] = UBound($aArray) - 1
Return $aArray
EndFunc 

Func _Zip_DllChk()
    If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
    If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
    Return 0
EndFunc

LA valeur retourné

Code : Tout sélectionner

"============== Contenu du ZIP ============" 
teste.ini
teste.bat
teste.exe
test.txt

[Ghost911]

il faut que je réfléchisse

► Afficher le texte

Code : Tout sélectionner

Func _Zip_SearchInFile($hZipFile, $sSearchString)
    local $aArray
    $list = _Zip_List($hZipFile)
    for $i = 1 to UBound($list) - 1
        _Zip_Unzip($hZipFile, $list[$i], @TempDir & "\tmp_zip.file")
        FileRead(@TempDir & "\tmp_zip.file")
        if StringInStr($read,$sSearchstring) > 0 Then
            _ArrayAdd($aArray, $list[$i])
        EndIf
    Next
    if UBound($aArray) - 1 = 0 Then
        Return SetError(1,0,1)
    Else
        Return $aArray
    EndIf
EndFunc

[Tlem]

@Ghost911
N'oubliez pas les balises de code lorsque vous placez du code.

[Ghost911]

oui dsl je les oublie a chaque fois