Hallo !
Ein weiteres Programm in Oscar-Qualität.
Das flackern der GUI ist in Version 1.1 abgestellt.
„Copyright“ bitte nur einmal, also „by Oscar“ eintragen.
Welche Autoit-Version wurde benutzt?
Bei mir gibt es viele Fehlermeldungen bei der au3-Datei?
Die Exe-Datei funktioniert tadellos !
PS: Oscar gute Arbeit, meine Bemerkungen sind gut gemeinte Hinweise – kein meckern.
Schönes WE und weiterhin
viel Erfolg !
...kommt die neue Version The Stick (USBv3553.exe) daher ! 
Viel Spaß!
Hallo WhiteLion,
ich gehe in Deinem Beispiel mal von einem Muster aus, sonst sollte die Groupbox neu justiert werden. 
Schönes WE
Hi micha_he,
vielleicht ist hier etwas für Dich dabei.
http://www.autoit.de/index.php?page=Thread&postID=45147#post45147
Ein Autostart für jeden Stick an jedem PC. 
Denn man kann ja nicht gleich überall sein Werkzeug auspacken oder Programme installieren.
Voraussetzung:
Eine spezielle Autorun.inf
[autorun]
label=RR04
ICON=System\images3.ico
open=PStart.exe
action=PStart.exe
UseAutoPlay=1
Weiterhin viel Erfolg !
Hallo Crazy-A
1. NeroCMD.exe ist bei Nero dabei und erfreut sich großer Beliebtheit und Verbreitung.
2. Mit Nero-Inc kann man RW-Medien, wie Festplatten behandeln.
3. Die Cdrtools for Win32 sind ebenfalls sehr bekannt.
!! Aber Vorsicht hier kann man mehr als nur einen Rohling und Freund verlieren !!
Hi @All !
Ich bin mir nicht sicher ob es weiterhilft, bei der Erstellung in TC gibt es doch eine Option "Automatisch Erkennen". Vielleicht hilft das ?
Bitte beachte auch, Windows unterscheidet bewegliche LW und statische LW´s !
USB-Stick und USB-HDD werden unterschieden.
Die Daten auch im Notfall immer parat haben. Ebenso bei Freunden und Bekannten immer den Zugriff haben!
TC ca. 6mb sollte eine Überlegung wert sein ! 
Hallo sc4ry,
bei meiner Arbeit an „The Stick“ (Scripte>The Stick) habe ich mich auch um eine Lösung für diesen Fall bemüht.
Ein Autostart für jeden Stick an jedem PC.
Denn man kann ja nicht überall gleich sein Werkzeug auspacken oder Programme installieren.
Voraussetzung:
TC sollte auf jeder externen HDD vorhanden sein.
Meine spezielle Autorun.inf
[autorun]
label=Dein_Ritzelrocker04
ICON=System\images3.ico
open=PStart.exe
action=PStart.exe
UseAutoPlay=1
Weiterhin viel Erfolg !
Oscar
Tolle Ausführungen in Post 7. Auch von mir Dank für die Erklärung!
Ich suche eine Lösung (Funktion), mit der ich nicht jede Checkbox abfragen muss. Mein Beispiel mit 8 mal read kommt etwas simpel daher auch mit BitAnd? 
Wie kann ich das verbessern oder geht es nicht Anders, wie würdest Du es machen?
If GUICtrlRead($ckbZeit) = 1 And GUICtrlRead($rbWoche) = 1 Then
$time = "_0" & @WDAY
EndIf
If GUICtrlRead($ckbZeit) = 1 And GUICtrlRead($rbMonat) = 1 Then
$time = "_" & @MDAY
EndIf
If GUICtrlRead($ckbZeit) = 1 And GUICtrlRead($rbJahr) = 1 Then
$time = "_" & @YEAR & "-" & @MON & "-" & @MDAY
EndIf
If GUICtrlRead($ckbFF) = 1 Then
$dest = $ziel & "\$Bookmarks$\Bookmarks" & $time & ".zip "
$src = '"' & @AppDataDir & '\Mozilla\Firefox\Profiles\rgcmygqc.default\bookmarkbackups"'
$ff = "Bookmarks - "
_sichernFunc()
EndIf
If GUICtrlRead($ckbIE) = 1 Then
$dest = $ziel & "\$Favoriten$\Favoriten" & $time & ".zip "
$src = '"' & @FavoritesDir & '"'
$ie = "Favoriten - "
_sichernFunc()
EndIf
If GUICtrlRead($ckbEDateien) = 1 Then
$dest = $ziel & "\$EigeneDateien$\EigeneDateien" & $time & ".zip "
$src = '"' & @MyDocumentsDir & '"'
$ed = "Eigene Dateien - "
_sichernFunc()
EndIf
If GUICtrlRead($ckbFF) = 4 And GUICtrlRead($ckbIE) = 4 And GUICtrlRead($ckbEDateien) = 4 Then
MsgBox(16, "Error", "Es sind keine Daten zur Sicherung ausgewählt ! ")
ExitLoop
EndIf
Danke
@BlitzBoy
Herzlich Willkommen,
hier im Forum habe ich etwas gefunden, was in Deine Richtung geht.
http://www.autoit.de/index.php?page=Thread&threadID=3136#top
@Crazy-A
hier im Forum habe ich etwas gefunden, was in Deine Richtung geht.
Hallo,
in der Regel geht es für Zeile 15-16 so und Zeile 17-18 fallen weg.
"Wenn Oben rechts das kl. X gedrückt wird oder der Button Beenden"
Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_1
ExitLoop
Hallo Gespenst,
vielleicht hilft Dir das Beispiel weiter. Es ist natürlich keine Msgbox.
#include <GuiConstants.au3>
$Gui = GUICreate("Test", 72, 90, -1, -1, -1)
$icon = GUICtrlCreateIcon("shell32.dll", -202, 19, 19, 32, 32, 0)
$button = GUICtrlCreateButton("Test", 10, 10, 52, 70, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetTip(-1, 'Gruss vom Gespenst...')
GUICtrlSetFont(-1, 8, 700)
GUISetState(@SW_SHOW, $Gui)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
EndSelect
WEnd
Schönes WE und weiterhin viel Erfolg !
habe ich weiterentwickelt und es sind zwei Funktionen hinzu gekommen.
PS: siehe Dummys
; by Ritzelrocker04 ==> siehe $title
#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include<String.au3>
$src_LW = StringLeft(@ScriptDir, 3); Quelle - The Stick
$dest_LW = StringLeft(@MyDocumentsDir, 2); Ziel - Eigene Dateien
$title = "The Stick v 3.2.30"
$uccess = "USBsound\Success.wav"
; - Start - GUI
$GUI = GUICreate($title, 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115, 0)
$gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60) ; open group $gb_Ziel
$pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group $gb_Ziel
$bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
GUICtrlSetImage(-1, "USBsys\images3.bmp", 22)
$bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 22, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 22, 0)
$bn_Autor = GUICtrlCreateButton("RR04", 8, 96, 30, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
; - The Stick - GUI
$GUI_Stick = GUICreate($title, 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115, 0)
$tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
$tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
$tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
$tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 68, 17, $ES_READONLY)
$pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
$bn_Return = GUICtrlCreateButton("zurück", 225, 80, 65, 22, 0)
GUISetState(@SW_SHOW, $GUI)
[/autoit] [autoit][/autoit] [autoit]; starten Func _infoLW()
_infoLW()
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, $GUI_Stick)
Case $GUI_EVENT_CLOSE
Exit
Case $bn_Close
Exit
Case $bn_Autor
$logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
Exit
EndIf
$line = FileReadLine($logfile)
MsgBox(64, 'About', $title & ' Build 2008-04-14 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
FileClose($logfile)
Case $bn_Sichern
If FileExists(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip') Then
$ExistsFileWahl = MsgBox(48 + 4, " Löschen", 'USB-Stick-0' & @WDAY & '.zip besteht bereits. ' & @CRLF & ' Möchten Sie sie ersetzen ? ')
If $ExistsFileWahl = 6 Then
FileDelete(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip')
EndIf
EndIf
$_Userwahlsich = MsgBox(32 + 4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
MsgBox(48, " OK", "Simulation des Kopiervorgangs (Dummys, siehe Script) ! ")
;==> RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
_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(64, " Sicherung fertig", "Sicherung vom " & @CRLF & @CRLF & @MDAY & "-" & @MON & "-" & @YEAR & " um " & @HOUR & ":" & @MIN & " Uhr " & @CRLF & @CRLF & "ist abgeschlossen ! ")
Exit
EndSwitch
Case $GUI_Stick
Switch $msg[0]
Case $bn_Return
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GUI_Stick)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GUI_Stick)
EndSwitch
EndSwitch
WEnd
; die Funktion _infoLW()
Func _infoLW()
; Quelle
$VOL_Quelle = _drive($src_LW)
GUICtrlSetData($pg_Quelle, $VOL_Quelle[0])
GUICtrlSetData($tb_src_Prozent, "Frei: " & 100 - $VOL_Quelle[0] & "%")
GUICtrlSetData($tb_src_Total, "Gesamt: " & $VOL_Quelle[3] & " MB")
GUICtrlSetData($tb_src_Free, "Frei: " & $VOL_Quelle[2] & " MB")
GUICtrlSetData($tb_src_Belegt, "Belegt: " & $VOL_Quelle[4] & " MB")
; Ziel
$VOL_Ziel = _drive($dest_LW)
GUICtrlSetData($pg_Ziel, $VOL_Ziel[0])
GUICtrlSetData($gb_Ziel, "(" & $VOL_Ziel[1] & ")" & " = " & $VOL_Ziel[2] & " MB = " & 100 - $VOL_Ziel[0] & "% frei ")
EndFunc ;==>_infoLW
; die Funktion _drive()
Func _drive($LW)
Local $aDrive[5]
$aDrive[1] = $LW
$TOTAL = DriveSpaceTotal($LW)
$FREE = DriveSpaceFree($LW)
$aDrive[2] = _StringAddComma(StringReplace(Round($FREE, 0), '.', ','), ".", ",")
$aDrive[0] = _StringAddComma(StringReplace(Round(($TOTAL - $FREE) / ($TOTAL / 100), 0), ".", ","), ".", ",")
$aDrive[3] = _StringAddComma(StringReplace(Round($TOTAL, 0), '.', ','), ".", ",")
$aDrive[4] = _StringAddComma(StringReplace(Round($TOTAL - $FREE, 0), '.', ','), ".", ",")
; ^ genauer als $VOL_Quelle[3] - $VOL_Quelle[2]
Return $aDrive
EndFunc ;==>_drive
; 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(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
Exit
EndIf
FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
FileClose($logfile)
EndFunc ;==>_Log_Write
Schönes WE und weiterhin viel Spaß !
Zur Ergänzung, das Script (als exe-Datei) läüft Super im Hauptpad (C:\) erst beim Einsatz in den Eigenen Dateien kommt es zu dieser Fehlermeldung. Also siehe RunWait und Punkt Punkt Komma Strich, wieder mal...
Dann muß ich doch auch die beiden Dateien unter C:\Programme\ haben, oder? Ja, das ist bei mir so.
Weiterhin viel Erfolg !
Hallo,
oder auch:
$size = FileGetSize("AutoIt.exe")
Viel Erfolg !
Hi (A)Lina,
ändere mal Deine Zeilen 6 & 7 so ab:
FileInstall("C:\Programme\7-Zip\7z.exe", @ScriptDir)
FileInstall("C:\Programme\7-Zip\7z.dll", @ScriptDir)
Weiterhin viel Erfolg !
