File moving verstecken ?

02/13/2014 19:20 Terrat#1
Hallo,

ich mache derzeit ein downloader der in einzelnen datein (1,7 gb alles) downloadet. Kein problem da ich aber die datein als zip downloade und sie dan vorort entpacken lasse kommt immer dieses hässlige move interface von windows mit datein werden kopiert. Dieses sollen die User aber nicht mitbekommen. Wie machen ich das
?
02/13/2014 19:36 alpines#2
Wenn AutoIt Daten verschiebt dann sollte da nichts angezeigt werden, ansonsten WinSetState @SW_HIDE.
02/13/2014 20:14 YatoDev#3
7zip udf hidet beim entpacken alles auch wenn du es in einen anderen ordner entpackst (soweit ich weis)
02/14/2014 18:03 Terrat#4
?[Only registered and activated users can see links. Click Here To Register...]

Funktion fürs unpacken
Code:
Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 1)
	Local $DLLChk = _Zip_DllChk()
	If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll
	If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
	If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) ;no zip file
	If Not FileExists($hDestPath) Then DirCreate($hDestPath)
	Local $aArray[1]
	$oApp = ObjCreate("Shell.Application")
	$oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items)
	For $item In $oApp.Namespace($hZipFile).Items
		_ArrayAdd($aArray, $item)
	Next
	While 1
		If $flag = 1 then _Hide()
		If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then
			Return SetError(0, 0, 1)
			ExitLoop
		EndIf
		Sleep(500)
	WEnd
EndFunc   ;==>_Zip_UnzipAll
02/14/2014 18:23 alpines#5
WinSetState Kopieren von @SW_HIDE.
02/14/2014 18:50 Terrat#6
wtf was meinst du damit ?
02/14/2014 19:07 SpieleHacksInfo#7
WinSetState("Kopieren von","",@SW_HIDE)
02/14/2014 19:48 alpines#8
War das jetzt so schwer?
02/14/2014 20:35 SpieleHacksInfo#9
Quote:
Originally Posted by alpines View Post
War das jetzt so schwer?
anscheinend
02/14/2014 20:39 Terrat#10
gott das kann ih auch aber es springt den user trozdem erstmal ins gesicht und lässt die gui aufplopen ich möchte das aber nicht ich möchte das man es von hausaus nicht sieht das man zb noch ein game nebenzocken kann.

(sry bin etwas genervt)
02/14/2014 21:09 Brendan Jordan#11
PHP Code:
;===============================================================================
; Function Name:   _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=True, $iIndexBase=1, $fOverwrite=True)
; Description:     Erstellt aus einer Datei od. einem Array von Dateien eine ZIP-Datei
;                  mit Hilfe der Windows eigenen ZIP-Funktion
; Parameter(s):    $sPath       Pfad der zu erstellenden ZIP-Datei // Bestehenden ZIP-Datei
;                  $s_a_ToZip   String der Einzeldatei oder Array der zu zippenden Dateien
;                               // Pfad des Zielordners, in den entpackt werden soll
;                  $fUnZip=True Entpacken=True, Packen=False (Standard)
;                  $iIndexBase  Index Basis (erstes Element mit Pfad) des übergebenen Arrays (0 od.1)
;                  $fOverwrite  Falls $sPath existiert ==> Überschreiben (Standard=True)
; Return Value(s): Erfolg  1
;                  Fehler  set @error  1 - Überschreiben aus, aber Zieldatei existiert
;                                      2 - Zieldatei endet nicht auf ".zip"
;                                      3 - zu komprimierende Datei existiert nicht
;                                          @extended: Anzahl der fehlenden Dateien
; Author(s):       BugFix (bugfix@autoit.de)
;===============================================================================
Func _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=False, $iIndexBase=1, $fOverwrite=True)
    Local $fh, $sNul = '', $sZIPHeader, $objShell = ObjCreate("Shell.Application"), $objZipOrdner, $err = 0
    $sPath = FileGetLongName($sPath, 1)
    If $fUnZip Then
        Local $temp, $objZip
        If Not FileExists($s_a_ToZip) Then DirCreate($s_a_ToZip)
        $temp = $objShell.Namespace($s_a_ToZip)
        $objZip = $objShell.Namespace($sPath)
        $temp.CopyHere($objZip.Items)
        Return 1
    EndIf
    If (Not $fOverwrite) And FileExists($sPath) Then Return SetError(1,0,0)
    If StringRight($sPath, 4) <> '.zip' Then Return SetError(2,0,0)
    For $i = 1 To 18
        $sNul &= Chr(0)
    Next
    $sZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & $sNul
    $fh = FileOpen($sPath, 10)
    FileWrite($fh, $sZIPHeader)
    FileClose($fh)
    $objZipOrdner = $objShell.Namespace($sPath)
    If Not IsArray($s_a_ToZip) Then
        If Not FileExists($s_a_ToZip) Then Return SetError(3,1,0)
        $objZipOrdner.CopyHere($s_a_ToZip)
        Sleep(1000)
        Return 1
    EndIf
    For $i = $iIndexBase To UBound($s_a_ToZip) -1
        If Not FileExists($s_a_ToZip[$i]) Then
            $err += 1
            ContinueLoop
        EndIf
        $objZipOrdner.CopyHere($s_a_ToZip[$i])
        Sleep(1000)
    Next
    If $err Then Return SetError(3,$err,0)
    Return 1
EndFunc  ;==>_BuildInZIP

_BuildInZIP("C:\Users\Freddy\Desktop\IMG\Test.zip",@DesktopDir, True) 
So gehts ohne Probleme und man muss die dumme .au3 dafür nicht benutzen. Copyrights by bugfix
02/14/2014 21:42 Terrat#12
gelesen danke werde mal ausprobieren

immer noch sehbar :(