Beiträge von mitac100

Func _Backup()

    Global $q_Array = IniReadSection($ini, "Quellen")
    Global $z_Array = IniReadSection($ini, "Ziel")
    Global $Backup_Ziel_Verzeichnis = ($z_Array[1][1])
    
    ;; Exclude Files & Dirs from Backup
    Global $Exclude_files = IniRead($ini, "Exclude_Files", "Files", "default")
    Global $Exclude_Dir = IniRead($ini, "Exclude_Dir", "Dirs", "default")
    
    For $i = 1 To $q_Array[0][0]
        $array_Quelle = ($q_Array[$i][1])
        $Quell_Verzeichnis = StringReplace($array_Quelle, "*Userprofil*", @UserProfileDir)
        $Quell_Laufwerk = StringLeft($Quell_Verzeichnis, 3)
        $Quell_Buchstabe = StringLeft($Quell_Verzeichnis, 1)
        
        $Backup_Ziel = StringReplace("Drive_" & $Quell_Verzeichnis, ":", "")
        $Backup_Ziel_Pfad = ($Backup_Ziel_Verzeichnis & "\" & $Backup_Ziel)
        $Ziel = ($Backup_Ziel_Pfad)
        
        Sleep(1000)
        
        Global $sSourceDir = $Quell_Verzeichnis ; alle Dateien aus diesem Verzeichnis sollen kopiert werden
        Global $sDestDir = $Ziel ; die Quelldateien sollen (mit Unterverzeichnissen) in dieses Verzeichnis kopiert werden
        Global $aSourceFiles[1], $aDestDir[1]
        
        If GUICtrlRead($Outlook) = "1" Then ;; Sicherung inkl. PST Dateien
            ;; '*|*.ost|Ordner' Ordner welche nicht kopiert werden sollen
            _FileCopyEx_CreateArrays($sSourceDir, $sDestDir, $aSourceFiles, $aDestDir, '*|' & $Exclude_files & '|' & $Exclude_Dir & "'") ; diese Funktion erstellt die Arrays für _FileCopyEx
            
        ElseIf GUICtrlRead($Outlook) = "4" Then ;; Sicherung ohne PST Dateien
            ;; '*|*.ost|Ordner' Ordner welche nicht kopiert werden sollen
            _FileCopyEx_CreateArrays($sSourceDir, $sDestDir, $aSourceFiles, $aDestDir, '*|*.pst' & $Exclude_files & '|' & $Exclude_Dir & "'") ; diese Funktion erstellt die Arrays für _FileCopyEx
        EndIf
            
        If Not @error Then
            Global $sLog = _FileCopyEx($aSourceFiles, $aDestDir, 16 + 8 + 2 + 1, 'Dateien kopieren...') ; hier erfolgt dann das kopieren
            ConsoleWrite('Fehler: ' & @error & @CRLF)
            ConsoleWrite($sLog & @CRLF)
            
            Global $Backuplog = (@UserProfileDir & '\_Datenaufnahme')
            $boottime = _DateAdd('s', -Int(_Date_Time_GetTickCount() / 1000), _NowCalc())
            $date = @MDAY & "." & @MON & "." & @YEAR
            
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", "____________________________________________  Sicherung  __________________________________________")
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", @CRLF)
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", @CRLF)
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", "Start Logging: " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr " & "  -   " & "Datum: " & $date & @CRLF)
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", "_________________________________________________________________________________________________" & @CRLF)
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", 'Fehler: ' & @error & @CRLF)
            FileWrite($Backuplog & "\_Log_" & $date & ".txt", $sLog & @CRLF)
        EndIf
    Next
    
    DirCopy(@UserProfileDir & "\_Datenaufnahme", $Backup_Ziel_Verzeichnis & "\_Datenaufnahme", $FC_OVERWRITE)
    FileCopy(@AppDataDir & "\myBackup\myBackup.ini", $Backup_Ziel_Verzeichnis & "\_Datenaufnahme\")

    Local $sString = StringLeft($Backup_Ziel_Verzeichnis, 3)
;~     FileCopy(@ScriptDir & "\Datenaufnahme.exe", $sString & "\Datenaufnahme.exe")
    FileCopy(@ScriptDir & "\myBackup - Kopie.exe", $sString & "\myBackup.exe", $FC_OVERWRITE)

    If Not FileExists($Backup_Ziel_Verzeichnis & "UserProfileDir.txt") Then
        FileWrite($Backup_Ziel_Verzeichnis & "_UserProfileDir.txt", @UserProfileDir)
        Sleep(1000)
        
        _Stop_Proggress()
        
        If Not @error Then
            $Fehler = "Sicherung beendet! (Keine Fehler!)"
        Else
            $Fehler = "Sicherung beendet! (Es sind Fehler aufgetreten, näheres im Log.)"
        EndIf
        
        _ExtMsgBoxSet(-1, 4, -1, -1, 11, "Calibri", 900)
        $sMsg = $Fehler & @CRLF & @CRLF
        $sMsg &= "Schließen Sie myBackup." & @CRLF & @CRLF
        $sMsg &= "Vor dem herausziehen, deaktivieren Sie den USB-Stick." & @CRLF & @CRLF
        $sMsg &= "Wählen Sie 'Hardware sicher entfernen' (USB-Symbol) rechts unten in der Taskleiste." & @CRLF & @CRLF & @CRLF
        $sMsg &= "Rücksicherung:" & @CRLF & @CRLF
        $sMsg &= "Diese kann per myBackup oder manuell erfolgen." & @CRLF & @CRLF
        $sMsg &= "Starten Sie 'myBackup' von diesem USB-Stick. " & @CRLF & @CRLF
        $sMsg &= "" & @CRLF & @CRLF
        $sMsg &= "Eine Anleitung zum einbinden der Persönlichen Ordner und Drucker finden Sie in der 'Datenaufnahme'." & @CRLF & @CRLF
        $iRetValue = _ExtMsgBox(0, "OK", "Sicherung beendet!", $sMsg)
        _ExtMsgBoxSet(Default)
    EndIf
EndFunc   ;==>_Backup

#include <MsgBoxConstants.au3>

Reg_Export()


Func Reg_Export()
$ini = @scriptdir & "\myBackup.ini"

;~         ; Read the INI section labelled 'General'. This will return a 2 dimensional array.
    Local $aArray = IniReadSection($ini, "Registry")

;~     ; Check if an error occurred.
    If Not @error Then
;~         ; Enumerate through the array displaying the keys and their respective values.
        For $i = 1 To $aArray[0][0]
    
        MsgBox($MB_SYSTEMMODAL, "", "Key: " & $aArray[$i][0] & @CRLF & "Value: " & $aArray[$i][1])

Run(@comspec & ' /k reg export ' & '"' & $aArray[$i][1] & '"' & " " & $aArray[$i][0] & ".reg /Y", @ScriptDir & "\Regkeys", @SW_show)

        Next
    EndIf
EndFunc

#Region #### AutoIt Includes ####
#include <Array.au3>
#include <Clipboard.au3>
#include <ColorConstants.au3>
;~ #include 'Datenaufnahme.au3'
#Include <File.au3>
;~ #include '_FileCopyEx.au3'
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <GUIconstants.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <Process.au3>
#include <ScreenCapture.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#EndRegion #### AutoIt Includes ####

Opt('GUICloseOnEsc', 0)

Global $sTitle = ' myBackup - '
Global $sVersion = '1.0.3'
Global $sDate = '28.08.2017'

Global $hGui = GUICreate(StringFormat('%s v%3.5s', $sTitle, $sVersion), 302,300,-1,300) ; Fenster erstellen
$Label_1=GuiCtrlCreateLabel("Status:",26,10,50,15)
$Label_2=GuiCtrlCreateLabel("Kein USB-Medium gefunden!",70,10,200,15)
         GUICtrlCreateGroup("  Ziellaufwerk wählen                                 Freier Platz", 10, 115, 281, 80) ; Umrandung Ziellaufwerk
$Label_3=GuiCtrlCreateLabel("Größe der zu sichernden Daten:" ,26,30,270,15)
$Label_4=GuiCtrlCreateLabel("GB",197,30,75,15,0x2) ; 0x2 mittig
        GUICtrlCreateGroup("", 10, 55, 281, 50)  ; Umrandung Outlook             

$Label_5=GuiCtrlCreateLabel("Outlook ",26,55,50,15)  
Local $Outlook = GUICtrlCreateCheckbox("Persönliche Ordner sichern", 26, 75, 200, 20)
GUICtrlSetState(-1, 0) ; unchecked

$btnBackup = GUICtrlCreateButton("  Backup  ", 26, 250) 


$btnIni = GUICtrlCreateButton("  Edit ini...  ", 120, 250)

$btnRestore = GUICtrlCreateButton("  Restore  ", 215, 250)

$hStart = GUICtrlCreateButton('Ausgewählte Volumes anzeigen', 15, 200, 275, 25)

If Not FileExists(@ScriptDir & "\myBackup.ini") Then
              
            _ini_create()

EndIf
 
#Region ### ini_read ####
Global $q_Array = IniReadSection(@ScriptDir & "\myBackup.ini", "Quellen")
Global $z_Array = IniReadSection(@ScriptDir & "\myBackup.ini", "Ziel")

Global $Backup_Ziel_Verzeichnis = ($z_Array[1][1] )
 
If $Backup_Ziel_Verzeichnis = "@ScriptDir" Then
              $Backup_Ziel_Verzeichnis= StringReplace($Backup_Ziel_Verzeichnis,"@ScriptDir",@ScriptDir)
              $Backup_Ziel_Verzeichnis= ($Backup_Ziel_Verzeichnis &"\Backup\")
EndIf
 
              local $tmp = 0
              For $i = 1 To $q_Array[0][0]
 
                $array_Quelle = ($q_Array[$i][1])
                $Quell_Verzeichnis = StringReplace($array_Quelle, "*Userprofil*", @UserProfileDir)
                $Quell_Laufwerk = StringLeft($Quell_Verzeichnis,3)
                $Quell_Buchstabe = StringLeft($Quell_Verzeichnis,1)                          
                Local $Ordner = DirGetSize($q_Array[$i][1])                                                                                                                                                      
                DirGetSize($Quell_Verzeichnis)
                $tmp +=($Ordner) ;Größe zusammenrechnen

                Next
      
                GUICtrlSetData($Label_3,"Größe der zu sichernden Daten:")
                $gesammt = GUICtrlSetData($Label_4, round(($tmp /1024 /1024), 0) & " MB")

#EndRegion ### ini_read ####

GUISetState(@SW_SHOW, $hGui) ; Show GUI

_USB_Medium() ;Ist ein USB-Medium angeschlossen?

#Region ### _ini_create ####
Func _ini_create()
    
              ; Create a constant variable in Local scope of the filepath that will be read/written to.
              Local Const $sFilePath = @ScriptDir & "\myBackup.ini"
 
              ; Create a temporary file to write data to.
              If Not FileWrite($sFilePath, "" & @CRLF) Then
                            MsgBox($MB_SYSTEMMODAL, "", "Fehler - ini- Datei kann nicht erstellt werden!")
                            Return False
              EndIf
 
              ; Open the file for writing (append to the end of a file) and store the handle to a variable.
              Local $hFileOpen = FileOpen($sFilePath, $FO_APPEND)
              If $hFileOpen = -1 Then
                            MsgBox($MB_SYSTEMMODAL, "", "Fehler - ini- Datei kann nicht erstellt werden!")
                            Return False
              EndIf
                            
              ; Write data to the file using the handle returned by FileOpen.
            FileWrite($hFileOpen, "In dieser Datei werden die zu sichernden Pfade festgelegt, die mit dem myBackup Tool gesichert werden sollen" & @CRLF)
            FileWrite($hFileOpen, "" & @CRLF)
            FileWrite($hFileOpen, "-------------------------------------       Bitte hier keine änderung vornehmen!      -------------------------------------" & @CRLF)
            FileWrite($hFileOpen, "[Quellen]" & @CRLF)
            FileWrite($hFileOpen, "1=" & @DesktopDir & @CRLF)
            FileWrite($hFileOpen, "[Ziel]" & @CRLF)
            FileWrite($hFileOpen, "1=" & @CRLF)
              
            ; Close the handle returned by FileOpen.
            FileClose($hFileOpen)
#EndRegion ### _ini_create ####

#Region ### ini_Info ####
    
GUICreate("Ini-Datei nicht gefunden...", 500, 300) ; will create a dialog box that when displayed is centered
Local $idMyedit = GUICtrlCreateEdit("",10, 10, 480, 250, $ES_READONLY)

GUISetBkColor(0xFFFABB) ;; 0xFFFFFF)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")

    $btnOK = GUICtrlCreateButton("  OK  ", 235, 270, 50, 25)

    While 1
        Switch GUIGetMsg()
            
            Case $GUI_EVENT_CLOSE
                ExitLoop
                
            Case $btnOK
                ExitLoop
        EndSwitch
    WEnd
    GUIDelete()
EndFunc   ;==>create_ini
#EndRegion ### ini_Info ####

#Region ### USB_Medium ####
func _USB_Medium()
              
Global $drives=DriveGetDrive("removable")
 
If @error Then
    Sleep(2000)
    MsgBox(16,"Kein USB-Stick gefunden!","Kein USB-Stick gefunden!" & @cr &  @cr & "Bitte schliessen Sie einen USB-Stick an!" & @cr & @cr & "Die Anwendung wird beendet.",20000)              
EndIf
 
dim $name[$drives[0]+1]
dim $space[$drives[0]+1]
$maxname=2
$maxspace=0
for $i=1 to $drives[0]
  $name[$i]=StringLen(DriveGetLabel($drives[$i]))
  if $name[$i]>=$maxname then
    $maxname=$name[$i]
  endif
  $space[$i]=StringLen(Round(DriveSpaceFree($drives[$i])))
  if $space[$i]>=$maxspace then
    $maxspace=$space[$i]
  endif
Next
 
 
$width=($maxname+$maxspace)+8+150
if $width<210 then $width=300              
              

For $i=1 to $drives[0]
  If $i=0 Then 
    GUICtrlSetData($Label_2,"Kein USB Medium angeschloßen!")
    Sleep(5000)
    MsgBox(16,"Kein USB-Medium gefunden!","Kein USB-Medium gefunden!" & @CR & "Die Anwendung wird jetzt beendet." & @cr & $Label_3 & " " & $Label_4,30000)      
    Exit
  Else
    If $i=NOT 0 Then        
      GUICtrlSetData($Label_2,"USB-Medium gefunden...") ;;report drives found     
    EndIf 
  EndIf
Next
              
              
dim $chkboxes[$drives[0] + 1]
$chkboxes[0]=$drives[0]
$Ypos=130
for $i=1 to $drives[0]
  $chkboxes[$i]=GUICtrlCreateRadio(StringUpper($drives[$i]), 26,$Ypos,35,20) ;; & " (" & DriveGetLabel($drives[$i]) & ")"),26,$Ypos,($maxname+5)*8,20)
  GuiCtrlSetState(-1,$GUI_UNCHECKED)
  $Ypos=$Ypos+20
next
$Ypos=130
for $i=1 to $drives[0]
  $FreeMem=GuiCtrlCreateLabel(Round(DriveSpaceFree($drives[$i])) & " MB",198,$Ypos,75,15,0x2)

  $Ypos=$Ypos+20
next 

#Region Test


$sCheckedDrives = ''
For $i = 1 To $drives[0]
If BitAND(GUICtrlRead($chkboxes[$i]), 1) Then
$sCheckedDrives &= ControlGetText("", '', $chkboxes[$i]) & ''
EndIf



;~ $sCheckedDrives = ''
;~ For $i = 1 To $drives[0]
If BitAND(GUICtrlRead($chkboxes), $GUI_CHECKED) = $GUI_CHECKED Then
;~ If BitAND(GUICtrlRead($sCheckedDrives), $GUI_CHECKED) = $GUI_CHECKED Then
;~ $sCheckedDrives &= ControlGetText("", '', $chkboxes[$i]) & ''
    MsgBox(64, 'Info', $sCheckedDrives & "\Datensicherung111_" & @UserName) , 60, $hGUI)
EndIf

;~ If GUICtrlRead($chkboxes[$i]), 1) = $GUI_CHECKED Then
;~ MsgBox(64, 'Info', $sCheckedDrives & "\Datensicherung_" & @UserName) ;;, 60, $hGUI)

;~ EndIf

Next

#Region Loop
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hStart

$sCheckedDrives = ''
For $i = 1 To $drives[0]
If BitAND(GUICtrlRead($chkboxes[$i]), 1) Then
$sCheckedDrives &= ControlGetText("", '', $chkboxes[$i]) & ''
EndIf
Next

If $sCheckedDrives <> '' Then 
                
MsgBox(64, 'Info', $sCheckedDrives & "\myBackup_" & @UserName, 60, $hGUI)
 
              Local Const $sFilePath = (@ScriptDir & "\myBackup.ini")
               IniWriteSection($sFilePath, "Ziel", "1=" & $sCheckedDrives & "\myBackup_" & @UserName & "\")
              Local $aArray = IniReadSection($sFilePath, "Ziel")
              If Not @error Then
              ShellExecute("myBackup.ini")
              EndIf
Else
MsgBox(64, 'Info', 'Keine Volumes ausgewählt', 60, $hGUI)
EndIf

Case $Outlook 
        _Outlook()

Case $btnIni 
        _edit_ini()
 
Case $btnBackup; If backup button is pressed.
        _Backup() ; Start backup
 
Case $btnRestore; If backup button is pressed.
        _CaptureScreen() ; Start backup
 

EndSwitch
WEnd
EndFunc  ;Ende - USB-Medium angeschlossen?
#EndRegion ### USB_Medium ####

#Region ### Edit Ini ####
Func _edit_ini()
    
    If Not FileExists(@ScriptDir & "\myBackup.ini") Then    
            _ini_create()
        Else
        ShellExecute("myBackup.ini")
    EndIf
EndFunc
#EndRegion ### Edit Ini ####

$sText = FileRead(@ScriptDir & "\Persönliche_Ordner.txt")

Global $text = ''
$a = _PathSplit1($sText)
;~ $a = _PathSplit1(@ScriptFullPath)
For $i = 0 To UBound($a) - 1
$text &= $a[$i] & @CRLF
Next
MsgBox(0, "", $text)

Func _PathSplit1($sPath)
If $sPath = "" Or StringRegExp($sPath, ('.*\\.*\/')) Then Return SetError(1, 0, -1)
Local $RetArray[8], $pDelim = ""
If StringRegExp($sPath, '^(?i)([A-Z]:|\\)(\\[^\\]+)+$') Then $pDelim = "\"
If StringRegExp($sPath, '(?i)(^.*:/)(/[^/]+)+$') Then $pDelim = "//"
If $pDelim = "" Then $pDelim = "/"
If Not StringInStr($sPath, $pDelim) Then Return $sPath
If $pDelim = "\" Then $pDelim &= "\"
;~ $RetArray[0] = $sPath ;; Alles
;~ $RetArray[1] = StringRegExpReplace($sPath, $pDelim & '.*', $pDelim)     ;;  Laufwerk
$RetArray[2] = StringRegExpReplace($sPath, $pDelim & '[^' & $pDelim & ']*$', '')  ;;  Laufwerk + Pfad
;~ $RetArray[3] = StringRegExpReplace($sPath, '\.[^.]*$', '')    ;;  Laufwerk + Pfad + Dateiename ohne Endung
;~ $RetArray[4] = StringRegExpReplace($sPath, '(?i)([A-Z]:' & $pDelim & ')', '')  ;;  Voller Pfad ohne Laufwerksbuchstaben
;~ $RetArray[5] = StringRegExpReplace($sPath, '^.*' & $pDelim, '')  ;; Dateiename + Endung
;~ $RetArray[6] = StringRegExpReplace($RetArray[5], '\.[^.]*$', '') ;; Dateiename
;~ $RetArray[7] = StringRegExpReplace($sPath, '^.*\.', '') ;; Dateiendung
Return $RetArray
EndFunc ;==>_PathSplit1