Beiträge von RR04

[autoit]

; mit Hilfe von Progandy und Greenhorn
#Region ### zweiter Test ###
$src_LW = StringLeft(@ScriptDir,2) & "\"
RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\Neu TestOrdner\Ritzelrocker-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir) ;FUNCTIONIERT AUCH
#Endregion
; erster Test
RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\Neu TestOrdner\Ritzelrocker-0"' & @WDAY & '".zip" "' & '"L:\"', @MyDocumentsDir) ;FUNCTIONIERT AUCH

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

RunWait(@ComSpec & ' /c ' & "7za.exe a -tzip " & "C:\Test-0" & @WDAY & ".zip " & _
"C:\AnfangsOrdner", @ScriptDir, @SW_MINIMIZE) ;FUNCTIONIERT

[/autoit] [autoit][/autoit] [autoit]

FileMove("C:\Test-0" & @WDAY & ".zip ", @MyDocumentsdir & "\My TestOrdner\", 1+8) ;FUNCTIONIERT AUCH

[/autoit]

[autoit]

; by Benjamin C. und Ritzelrocker04 ==> RDv2014.au3
#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate("Running Disk v 2.0.14", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
$bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
$bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
$rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 150, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
GUICtrlCreateGroup("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If $Sichern = 1 Then
$_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
_SichernFunc1()
MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
Exit
Else
$_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
If $_Userwahlout = 7 Then
MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
_SichernFunc1()
Shutdown(9)
EndIf
ExitLoop
EndSelect
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _SichernFunc1()

RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
SoundSetWaveVolume(50)
SoundPlay("RDsys\Success.wav", 1)

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=USBsys\compile.ico
#AutoIt3Wrapper_outfile=USBv3.8.exe
#AutoIt3Wrapper_Res_Description=The Stick
#AutoIt3Wrapper_Res_Fileversion=3.8.0.0
#AutoIt3Wrapper_Res_LegalCopyright=© 2010 by Ritzelrocker04
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=Compiled by|Ritzelrocker04
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Res_Field=Original Name|USBv3.8.exe
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit] [autoit][/autoit] [autoit]

#region ### include section ###
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#endregion ### include section ###

[/autoit] [autoit][/autoit] [autoit]

#region ### variablen section ###
$src_LW = StringLeft(@ScriptDir, 3); Quelle - The Stick
$dest_LW = StringLeft(@MyDocumentsDir, 2); Ziel - Eigene Dateien

[/autoit] [autoit][/autoit] [autoit]

Dim $VOL_Ziel[2], $VOL_Quelle[4]

[/autoit] [autoit][/autoit] [autoit]

$title = "The Stick v 3.8"
$build = " Build 2010-08-11 "
$uccess = "USBsound\Success.wav"
#endregion ### variablen section ###

[/autoit] [autoit][/autoit] [autoit]

#region ### START The Stick - GUI section ###
$GUI = GUICreate($title, 300, 147, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Yellow3.jpg", 0, 16, 300, 115, 0)
$bn_Up = GUICtrlCreateButton(" J J J J J J J J ", 0, 0, 300, 16)
GUICtrlSetFont(-1, 10, 400, 0, "Wingdings")
$gb_Ziel = GUICtrlCreateGroup("", 66, 24, 224, 70) ; create group $gb_Ziel
$tb_Ziel = GUICtrlCreateInput("", 78, 41, 200, 17, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
$ctrlProgBkgrnd1 = GUICtrlCreateLabel("", 78, 67, 200, 15, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0x00FF00) ; green background
$ctrlProgress1 = GUICtrlCreateLabel("", 78, 67, 1, 15, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFF0000) ; Red progress bar
GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group $gb_Ziel
$bn_Pic = GUICtrlCreateButton("PicBn", 10, 30, 55, 64, $BS_BITMAP)
GUICtrlSetImage(-1, "USBsys\img.bmp")
$bn_Sichern = GUICtrlCreateButton("&Sichern", 133, 101, 75, 22, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 213, 101, 75, 22, 0)
$bn_Autor = GUICtrlCreateButton("RR04", 10, 111, 34, 16)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetTip(-1, "UpdateCheck")
$bn_Down = GUICtrlCreateButton(" J J J J J J J J ", 0, 131, 300, 16)
GUICtrlSetFont(-1, 10, 400, 0, "Wingdings")
#endregion ### START The Stick - GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#region ### The Stick - GUI section ###
$GuiStick = GUICreate($title, 300, 115, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Dialo.jpg", 0, 0, 300, 115, 0)
$tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 68, 17, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$ctrlProgBkgrnd2 = GUICtrlCreateLabel("", 8, 45, 284, 15, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0x00FF00) ; green background
$ctrlProgress2 = GUICtrlCreateLabel("", 8, 45, 1, 15, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFF0000) ; Red progress bar
$bn_Return = GUICtrlCreateButton("zurück", 225, 85, 65, 22, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $GUI)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") ;i Funktion zum verschieben der Oberfläche
#endregion ### The Stick - GUI section ###

[/autoit] [autoit][/autoit] [autoit]

; starten Func _infoLW()
_infoLW()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; window-handle
Case $GUI
Switch $msg[0] ; event/control-handle
Case $bn_Pic
GUISetState(@SW_HIDE, $GUI)
GUISetState(@SW_SHOW, $GuiStick)
Case $bn_Close
Exit
Case $bn_Autor
ShellExecute("http://ritzelrocker04.bplaced.net/thema1.htm")
Case $bn_Up
_About() ; starten Func _About()
Case $bn_Down
_About() ; starten Func _About()
Case $bn_Sichern
If FileExists(@MyDocumentsDir & '\Eigene USB-Sticks\USB-Stick-0' & @WDAY & '.zip') Then
$ExistsFileWahl = MsgBox(262144 + 48 + 4, " Löschen", "Die Datei " & 'USB-Stick-0' & @WDAY & '.zip besteht bereits. ' & @CRLF & ' Möchten Sie sie ersetzen ? ')
If $ExistsFileWahl = 6 Then
FileDelete(@MyDocumentsDir & '\Eigene USB-Sticks\USB-Stick-0' & @WDAY & '.zip')
EndIf
EndIf
$_Userwahlsich = MsgBox(262144 + 32 + 4, " Sichern", $VOL_Ziel[2] & " MB frei " & @CRLF & $VOL_Quelle[4] & " MB ca. nötig " & @CRLF & "Die Daten werden in komprimierter Form abgespeichert." & @CRLF & "Dass kann, je nach Datenmenge des USB-Sticks, einige Minuten dauern." & @CRLF & "Bitte warten Sie die Erfolgsmeldungen ab !" & @CRLF & @CRLF & "Möchten Sie fortfahren ? ")
If $_Userwahlsich = 7 Then
MsgBox(262144 + 48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\Eigene USB-Sticks\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_HIDE)
_infoLW() ; starten Func _infoLW()
_Log_Write() ; starten Func _Log_Write()
;SoundSetWaveVolume(50) ; optional (50)Lautstärke in %
SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
MsgBox(262144 + 64, " Sicherung fertig", "Sicherung vom " & @CRLF & @CRLF & @MDAY & "-" & @MON & "-" & @YEAR & " um " & @HOUR & ":" & @MIN & " Uhr " & @CRLF & @CRLF & "ist abgeschlossen ! ")
Exit
EndSwitch
Case $GuiStick
Switch $msg[0]
Case $bn_Return
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GuiStick)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GuiStick)
EndSwitch
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _infoLW()
Func _infoLW()
; Quelle
$VOL_Quelle = _drive($src_LW)
$iProg2 = ($VOL_Quelle[0] / 100) * 284
GUICtrlSetPos($ctrlProgress2, 8, 45, $iProg2, 15)
GUICtrlSetData($tb_src_Prozent, "Free: " & 100 - $VOL_Quelle[0] & "%")
GUICtrlSetData($tb_src_Total, "Total: " & $VOL_Quelle[3] & " MB")
GUICtrlSetData($tb_src_Free, "Free: " & $VOL_Quelle[2] & " MB")
GUICtrlSetData($tb_src_Belegt, "Full: " & $VOL_Quelle[4] & " MB")
; Ziel
$VOL_Ziel = _drive($dest_LW)
$iProg1 = ($VOL_Ziel[0] / 100) * 200
GUICtrlSetPos($ctrlProgress1, 78, 67, $iProg1, 15)
GUICtrlSetData($tb_Ziel, "(" & $VOL_Ziel[1] & ")" & " = " & $VOL_Ziel[2] & " MB = " & 100 - $VOL_Ziel[0] & "% free ")
EndFunc ;==>_infoLW

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _drive()
Func _drive($LW)
Local $aDrive[5]
$aDrive[1] = $LW
$TOTAL = DriveSpaceTotal($LW)
$FREE = DriveSpaceFree($LW)
$aDrive[2] = _StringAddThousandsSep(StringReplace(Round($FREE, 0), '.', ','), ".", ",")
$aDrive[0] = _StringAddThousandsSep(StringReplace(Round(($TOTAL - $FREE) / ($TOTAL / 100), 0), ".", ","), ".", ",")
$aDrive[3] = _StringAddThousandsSep(StringReplace(Round($TOTAL, 0), '.', ','), ".", ",")
$aDrive[4] = _StringAddThousandsSep(StringReplace(Round($TOTAL - $FREE, 0), '.', ','), ".", ",")
; ^ genauer als $VOL_Quelle[3] - $VOL_Quelle[2]
Return $aDrive
EndFunc ;==>_drive

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _Log_Write()
Func _Log_Write()
$logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes
If $logfile = -1 Then
MsgBox(262144 + 48, "Error", " Die Datei " & @ScriptDir & "/TheStick.log" & @CRLF & " konnte nicht gefunden werden.", 9)
;Exit
EndIf
FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
FileClose($logfile)
EndFunc ;==>_Log_Write

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _About()
Func _About()
$logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
If $logfile = -1 Then
MsgBox(262144 + 48, "Error", " Die Datei " & @ScriptDir & "TheStick.log" & @CRLF & " konnte nicht gefunden werden. Diese Datei wird erstmals nach der ersten Sicherung erstellt ! ")
Exit
EndIf
$line = FileReadLine($logfile)
MsgBox(262144 + 64, 'About', $title & $build & @CRLF & '' & @CRLF & 'Copyright: 2010 by Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
FileClose($logfile)
EndFunc ;==>_About

[/autoit] [autoit][/autoit] [autoit]

Func _StringAddThousandsSep($SSTRING, $STHOUSANDS = ",", $SDECIMAL = ".")
Local $SRESULT = ""
Local $ANUMBER = StringRegExp($SSTRING, "(\d+)\D?(\d*)", 1)
If UBound($ANUMBER) = 2 Then
Local $SLEFT = $ANUMBER[0]
While StringLen($SLEFT)
$SRESULT = $STHOUSANDS & StringRight($SLEFT, 3) & $SRESULT
$SLEFT = StringTrimRight($SLEFT, 3)
WEnd
$SRESULT = StringTrimLeft($SRESULT, 1)
If $ANUMBER[1] <> "" Then $SRESULT &= $SDECIMAL & $ANUMBER[1]
EndIf
Return $SRESULT
EndFunc ;ehemals aus AutoIt ==>_StringAddThousandsSep

[/autoit] [autoit][/autoit] [autoit]

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Or ($hWnd = $GuiStick) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST
; Ende

[/autoit]

Hier mal eine Übersetzung der Beschreibung auf der offiziellen Auto IT-Website:

AutoIT v3 ist eine kostenlose, BASIC-ähnliche Scriptsprache. Sie wurde designed für die Automatisierung der Windows-Oberfläche und für allgemeines Programmieren. AutoIT nutzt eine Kombination aus simulierten Tastatureingaben, Maus Bewegungen und Window/Control Manipulationen um Abläufe zu automatisieren, wie es auf diese Weise mit keiner anderen Sprache möglich ist. Zudem ist die Sprache sehr klein und unterstützt Windows 95, 98, ME, NT4, 2000, XP, 2003 und Vista. Sie benötigt außerdem KEINE Runtime um auf Systemen ausgeführt zu werden.

AutoIT war anfangs designed für große PC-Rollouts, um tausende von PC's zu konfigurieren. Durch die Version v3 von AutoIT wurde es zu einer starken Sprache die die meisten, nötigen Befehle und Funktionen beherrscht.

Auto IT Features:

1. Bietet eine einfache Skriptsprache für alle Windows-Versionen
2. Simulieren von Tastatureingaben
3. Simulieren von Maus-Bewegungen und Klicks
4. Bewegen, Größe ändern und manipulieren von Fenstern
5. Direktes interagieren mit Controls eines Fensters (setzen/auslesen von text aus Edit-Controls, Check-Boxen, Radio-Buttons, usw.)
6. Erstellung komplexer grafischer Benutzerschnittstellen (GUIs)
7. Arbeiten mit der Zwischenablage, um Text auszuschneiden oder zu kopieren
8. Bietet eine skriptbare RunAs-Funktion für Windows 2000/XP/2003/Vista

Pro und Contra:

+ Kostenlos
+ Einfach zu erlernen, da...
+ BASIC-orientierte Skriptsprache
+ Bodenständige Usercommunity (= Schneller, hochwertiger Support)
+ Spezialisiert für Windows-Plattformen
+ Für PC-Rollouts und Automatisierung prädestiniert

- Funktionalität nur für Windows gegeben
- Begrenzungen für Dateitypen / Funktionen
- Nicht Multithreading-fähig
- Kein Objektorientierter Syntax

(Quelle: https://autoit.de/www.weilichskann.de)

[autoit]

RunWait(@ComSpec & ' /c ' & "7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)

[/autoit]