würds so probieren 
$file='c:\temp\test.txt'
[/autoit][autoit][/autoit][autoit]$handle = fileopen($file,2)
filewriteline($handle,'zeile1')
filewriteline($handle,'zeile2')
filewriteline($handle,'zeile3')
fileclose($handle)
filesettime($file,'20020202020200',0)
filesettime($file,'20020202020202',1)
filesettime($file,'20020202020202',2)
is ja klar 
du kommst so nicht auf der While-Schleife in der Func raus.
Habs mal so gelöst.
Geht denke ich sicher noch anders 
#include<GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Explosion", 637, 30, 193, 125)
$Button1 = GUICtrlCreateButton("Start", 0, 0, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Ende", 560, 0, 75, 25, 0)
$Progress1 = GUICtrlCreateProgress(80, 0, 478, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$beep = "27"
ton()
Case $Button2
Exit
EndSwitch
WEnd
Func ton()
While 1
GUICtrlSetData( $Progress1, $beep/31766*100)
$beep = $beep + 10
If $beep > 31766 Then ExitLoop ;Frequenz
Beep($beep,10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
Exit
EndSwitch
WEnd
EndFunc
oder du nutzt die regedit ...
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\C\DefaultIcon]
@="C:\\Icons\\Laufwerke\\C Windows.ico,0"is ja einfach
Da du beim erstellen des Labels kein Inhalt ("") angibst, ist das Label sehr schmal, dies wird auch nach dem setzten der Daten nicht größer.
Deshalb mußt du beim erstellen des Labels die Länge mit angeben
$MetallproStunde = GUICtrlCreateLabel("", 125, 175, 100)
[/autoit]Respekt
Sehr sinnvoll wie ich finde 
Du kannst dem Kind das Recht die Systemuhr zu verändern per Windows POlicy entnehmen
OK danke, werde es in den Gruppenrichtlinien deaktivieren
Danke
Jo, momentan merke ich mir das Datum auch 
doch er ist sehr lernwillig und merkt sich genau, wenn jemand anderer was am PC macht wie das geht
sorry, hab ich vergessen, kein Internetzugang 
Hi,
ich muß ein Script schreiben, bei dem PC maximal 30 Minuten am Tag an sein darf.
Dies habe ich soweit auch fertig und es funktioniert auch.
Wenn der PC 20 Min an ist und dann neu gestartet wird, darf er noch 10 Min an sein - funktioniert soweit auch.
Nun habe ich allerdings ein Problem.
Wenn der PC 30 Min an ist, dann die Uhrzeit verstellt wird und neugestartet wird, darf der PC wieder 30 Min an sein.
Wie könnte ich dies verhindern???
PS: Es ist für ein 5 Jahre altes Kind
#include<Date.au3>
#include<File.au3>
#include<Misc.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("GUICloseOnESC", 0) ;beim drücken von ESC NICHT beenden
#NoTrayIcon ;kein TrayIcon
;genauer Pfad zu den einzubindenen Icons, Sounds und Grafiken
FileInstall("U:\_AutoIt\aktuelle Finals\Kindersicherung\start.mp3", @TempDir & "\" & "start.mp3", 1)
FileInstall("U:\_AutoIt\aktuelle Finals\Kindersicherung\wecker.mp3", @TempDir & "\" & "wecker.mp3", 1)
; Tool-Infos
$tool_version = "01 Test 10"
$tool_titel = "Kindersicherung"
;ini-Datei mit den Einstellungen
$ini_einstellungen = @ScriptDir & "\" & "Kindersicherung Einstellungen.ini"
$ini_zeit = @ScriptDir & "\" & "Kindersicherung Zeit.ini" ;wenn diese gelöscht wird, beginnt die Zeit von vorne zu laufen
$ini_beenden = @ScriptDir & "\" & "Kindersicherung Programm beenden.ini" ;wenn diese nicht mehr existiert, beendet sich das Script
;Sound-Datei Wecker
$sound_start = @TempDir & "\" & "start.mp3"
$sound_wecker = @TempDir & "\" & "wecker.mp3"
;Zeit um das Script vor Beginn wieder zu stoppen
$pause_scriptbeginn = 10 ;Sekunden
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "HideClock", "REG_DWORD", 1) ;Uhr rechts unten ausblenden (erst nach ab- und anmelden wirksam)
[/autoit] [autoit][/autoit] [autoit];Falls die Datei ... nicht existiert, diese erstellen (sonst läuft das Script nicht)
If Not FileExists($ini_beenden) Then _FileCreate($ini_beenden)
;Tool in den Autostart schreiben oder aus dem Autostart löschen
$autostart_wert = IniRead($ini_einstellungen, "Autostart", "eintragen", "")
If $autostart_wert = "ja" Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Kindersicherung", "REG_SZ", @ScriptFullPath)
Else
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Kindersicherung")
EndIf
;Hotkeys aktivieren
HotKeySet("{TAB}", "_tool_beenden") ; Taste: TAB
HotKeySet("{F7}", "_tool_beenden") ; Taste: F7
HotKeySet("{RIGHT}", "_tool_beenden"); Taste: Pfeil rechts
;Startsound spielen, damit man weiß wann das Script beginnt (ab hier hat man 10 Sekunden Zeit das Script zu beenden)
SoundPlay($sound_start, 1)
Sleep($pause_scriptbeginn*1000) ; 10 Sekunden um die Kindersicherung zu deaktivieren
[/autoit] [autoit][/autoit] [autoit];Hotkeys wieder deaktivieren
HotKeySet("{TAB}")
HotKeySet("{F7}")
HotKeySet("{RIGHT}")
;Wochentag als Zahl
$wochentag = _DateToDayOfWeek(@YEAR, @MON, @MDAY) ;1=Sonntag 2=Montag, ...
;Minuten, Datum auslesen
$max_zeit_unter_der_woche = IniRead($ini_einstellungen, "unter der Woche", "max Minuten", "")
$max_zeit_wochenende = IniRead($ini_einstellungen, "Wochenende", "max Minuten", "")
$heute_an = IniRead($ini_zeit, "heute an", "verbrauchte Minuten", "") +$pause_scriptbeginn/60
$letzter_start = IniRead($ini_zeit, "letzter start", "datum", "")
;prüfen, ob der PC heute schon an war
If $letzter_start = "" Or $letzter_start <> _NowDate() Then
IniWrite($ini_zeit, "letzter start", "datum", _NowDate()) ;heutiges Datum in ini schreiben
$heute_an = 0 ;heute verbrauchte Minuten auf 0 setzen
IniWrite($ini_zeit, "heute an", "verbrauchte Minuten", $heute_an)
EndIf
;sonstiger Tag oder Wochenende
If $wochentag >= 2 And $wochentag <= 6 Then
$max_zeit = $max_zeit_unter_der_woche
Else
$max_zeit = $max_zeit_wochenende
EndIf
;PC-Zeit bereits aufgebraucht?
If $heute_an < $max_zeit Then ;Zeit aufgebraucht >>> Sound abspielen
Do ;alle 10 Sekunden wird geprüft, ob die Zeit überschritten wurde (ini wird auch aktualisiert), falls ja >>> Sound abspielen
If Not FileExists($ini_beenden) Then Exit ;Script beenden, falls die Datei ... nicht existiert
$timer_beginn = TimerInit()
sleep(10000) ; 10 Sekunden
$heute_an = Round(TimerDiff($timer_beginn)/1000/60 + $heute_an, 2)
IniWrite($ini_zeit, "heute an", "verbrauchte Minuten", $heute_an)
Until $heute_an > $max_zeit
EndIf
If Not FileExists($ini_beenden) Then Exit ;Script beenden, falls die Datei ... nicht existiert
_shutdown()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _tool_beenden() ;Funktion um das Script nach dem Start direkt wieder zu beenden
If _IsPressed("09") And _IsPressed("76") And _IsPressed("27") Then Exit
EndFunc
Func _shutdown() ;was der PC nach der max Zeit machen soll
$meldung_pc_aus = IniRead($ini_einstellungen, "Meldung", "PC aus", "")
$meldung_sound = IniRead($ini_einstellungen, "Meldung", "Sound", "")
$meldung_minuten = IniRead($ini_einstellungen, "Meldung", "Minuten", "")
If $meldung_pc_aus = "ja" And $meldung_sound = "ja" Then ;PC aus: "ja" Sound: "ja"
$timer_beginn = TimerInit()
Do
SoundPlay($sound_wecker, 1)
$Zeitunterschied = TimerDiff($timer_beginn)/1000
Until $Zeitunterschied >= ($meldung_minuten*60) Or Not FileExists($ini_beenden) ;x Sekunden den Sound spielen, dann PC aus oder Script beenden, falls der Prozess oder die Datei ... nicht mehr existiert
If FileExists($ini_beenden) Then Shutdown(5)
Exit
ElseIf $meldung_pc_aus <> "ja" And $meldung_sound = "ja" Then ;PC aus: "nein" Sound: "ja"
Do
SoundPlay($sound_wecker, 1) ;Sound unendlich
Until Not ProcessExists(@ScriptName) Or Not FileExists($ini_beenden) ;Script beenden, falls der Prozess oder die Datei ... nicht mehr existiert
ElseIf $meldung_pc_aus = "ja" And $meldung_sound <> "ja" Then ;PC aus: "ja" Sound: "nein"
Shutdown(5)
Exit
EndIf
EndFunc
OK danke, habt recht ist echt viel besser
Hm, muß ich mal probieren.
PS: Wie kann ich ein Hintergrund anlegen, aber so, dass die Tabs noch zu sehen sind 
Habe eine Liste mit Spielern.
Ein Tab = ein Spieler.
Jedes Tab enthält Spielerdaten und Foto. 
Hoppla, da hab ich wohl was vergessen
#include<GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit];GUI erzeugen
$GUI_titel = "test"
$GUI = GUICreate($GUI_titel, 500, 500)
$tab = GUICtrlCreateTab(5, 5, 450, 500)
For $i = 0 to 700
GUICtrlCreateTabItem($i)
GUICtrlCreateLabel($i, 250, 30)
Next
GUICtrlCreateTabitem ("") ; beendet die Tab Definition
;GUI anzeigen
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
Hi,
ich habe versucht eine GUI mit 500 Tabs 
zu erstellen.
Die Tabs werden problemlos erstellt.
Jedoch habe ich folgende Fehler festgestellt:
Bis inklusive Tab 256 wird das Label korrekt erstellt
Bei Tab 257 verschwinden die Tabs alle
Bei 258 bis 500 fehlt das Label (dieses steht nun bei Tab 1, 2, 3, ...)
Ist das ein Bug oder eine gewünschte Begrenzung?
Wie kann man dies umgehen
Auch wenn nicht das passende zum übersetzen momentan online zum übersetzen verfügbar ist.
Wenn jemand einen bestimmten Teil / bestimmte Funktionen der Hilfe übersetzen will, würde peethebee dies denke ich gerne für euch bereitstellen
für jeden der sich die deutsch/englische Hilfe downloaded, sollte es ein Anreiz sein auch zu übersetzen.
Denn ohne Übersetzer und Reviewer keine deutsche Hilfe 
Denke es dürfte für jeden was passendes dabei sein
Danke McPoldy
So, weiter gehts,
sind wieder neue Pakete oben,
Viel Spaß
Hi,
also vom automatischen übersetzen halte ich nichts.
Denke, dass sich da zu viele Fehler einschleichen. Aber trotzdem gut, dass man sich darüber Gedanken macht
Danke, bei mir die gleiche Meldung 
Hi,
habe auch die neueste Version drauf, wo gibts denn den UpdateCheck?