hey ja ich weis sind 2 jahre her als hier das letzte mal gepostet wurde aber ich wollt soeben mal den Script testen doch beim ausführen kam ein Fehler auf und zwar bei einem #Include und zwar das mit ModernSplash.au3..... diese Datei gibt es bei mir nicht, und deshalb kann ich das Script so nicht ausführen! kann mir jemand helfen, dass auch ich mal das script testen kann?
lg
Ququknife
Das ist echt mal eine super sache 
Also ich habe meinen Script bisschen verbessert
Folgende Fehler sind behoben:
- Bei Eingabe einer Null Schließt Programm und Gibt Desktop frei
- ist nicht mehr über TrayIcon zu beenden
- sinnlose #Includes sind weg
Zu Guter letzt habe ich noch eine Funktion von Chip übernommen und zwar den SplashTextOn mit Countdown von 10 Sekunden Danke Chip das war eine gute Idee.
Hier jetzt der überarbeitete Code:
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#Include <Date.au3>
#include <WindowsConstants.au3>
Global $Zeit = 0, $Timer
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PC Laufzeit", 459, 89, 340, 299, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS,$WS_EX_LAYERED))
$Label1 = GUICtrlCreateLabel("Bitte geben Sie hier die gewünschte PC laufzeit in Minuten ein!", 8, 8, 444, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$minuten = GUICtrlCreateInput("60", 16, 48, 145, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Button1 = GUICtrlCreateButton("Zeit Setzen", 168, 48, 75, 25, 0)
$input1 = GUICtrlCreateInput("", 260, 48, 180, 21, $ES_READONLY)
ControlDisable ($Form1,"",$input1)
GUICtrlSetState($Button1, $GUI_DEFBUTTON)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetState("[CLASS:Shell_TrayWnd]","",@SW_HIDE) ; Taskbar Verstecken
WinSetState("[TITLE:Start;CLASS:Button]","",@SW_HIDE) ; Versteckt Startbutton
WinSetState("[CLASS:Progman]","",@SW_HIDE) ; Versteckt Desktop Icons
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Close()
Case $Button1
$string = GUICtrlRead($minuten)
; Variablen
$titel = "Restlaufzeit" ; Titel, es wird auch ein Info Icon mit angezeigt
$DauerStd = 0 ; Dauer in Stunden
$DauerMin = $string ; Dauer in Minuten
$DauerSek = 0; Dauer in Sekunden
$DauerGesammt = (60*60*$DauerStd)+(60*$DauerMin)+$DauerSek ; Die Gesamtdauer
$Zeit = $DauerGesammt
$Timer = TimerInit()
AdlibRegister("Countdown", 1000)
If $string = 0 Then
WinSetState("[CLASS:Progman]","",@SW_SHOW) ; Macht Desktop Icons wieder sichtbar
WinSetState("[TITLE:Start;CLASS:Button]","",@SW_HIDE) ; Macht Startbutton wieder sichtbar
WinSetState("[CLASS:Shell_TrayWnd]","",@SW_SHOW) ; Taskabr sichtbar machen
Exit
EndIf
GUISetState(@SW_HIDE)
WinSetState("[CLASS:Progman]","",@SW_SHOW) ; Macht Desktop Icons wieder sichtbar
WinSetState("[TITLE:Start;CLASS:Button]","",@SW_HIDE) ; Macht Startbutton wieder sichtbar
WinSetState("[CLASS:Shell_TrayWnd]","",@SW_SHOW) ; Taskabr sichtbar machen
EndSwitch
Time()
WEnd
Func Countdown()
Local $x = $Zeit - TimerDiff($Timer)/1000
ToolTip("Restzeit: " & _Sek2StdMinSek($x),0,0,$titel,1)
;TrayTip($titel,"Restzeit: " & _Sek2StdMinSek($x),5,1) ;<-- Das ist eine weitere möglichkeit die ablaufende Zeit anzeigen zu lassen...
If ($x <= 0) Then AdlibUnRegister("Countdown")
;If ($x <= 0) Then MsgBox(0,"Schluss","Die Zeit ist abgelaufen Sie werden in einer Minute abgemeldet! Goodbye! Made by Ququknife ...")
;Sleep(60000)
;If ($x <= 0) Then Shutdown(0)
If ($x <= 0) Then
SplashTextOn("Abmelden in", "60", 80, 50)
For $x = 10 To 1 Step -1
ControlSetText("Abmelden in", "", "Static1", $x)
Sleep(1000)
Next
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "DisableTaskMgr", "REG_DWORD", 0)
Shutdown(0)
EndIf
EndFunc
;-----------------------------------------------------------------------------------------------------------------
; Funktion zum umrechnen von Sekunden in Stunden, Minuten, Sekunden
Func _Sek2StdMinSek($value)
; Hier eine kleine Auswahl von Formaten, diese bitte bei dem Return Befehl mit angeben.
$format1 = "%02d:%02d:%02d"
$format2 = "%02d:%02d"
$format3 = "%02d Std. %02d Min. %02d Sek."
$format4 = "%02d Std. %02d Min."
$std = Floor($value / (60*60)) ; Berechnung der Stunden
$value = $value - ((60*60) * $std) ; Berechnung des Restwertes der Sekunden
$min = Floor($value / (60)) ; Berechnung der Minuten
$sek = $value - ((60) * $min) ; Rest Sekunden
Return StringFormat($format3,$std,$min,$sek) ; Rückgabe des formatierten Strings
EndFunc
;===================== Datum / Zeit in Inputbox darstellen ==================================
Func Time()
$Time = _NowTime(5)
$Date = _NowDate()
GUICtrlSetData ($input1,"Time:"&" "&$Time&" 
"&"Date:"&" "&$Date)
EndFunc
;=============================================================================================
;==================== Programm kann nicht geschlossen werden =================================
Func Close()
ToolTip("Gesperrt")
Sleep(2000)
ToolTip("")
EndFunc
;===============================================================================================
[/autoit]Ich hoffe das Entspricht mehr euren Erwartungen... Kritik ist natürlich herzlich Willkommen hilft mir ja mein Programm zu verbessern
Lg
Ququknife
Misst kommt davon wenn man nen Rat befolgt jetzt funktioniert des Script nicht mehr.
Edit BugFix: Bitte Posts editieren, statt ständig im Minutentakt neu zu erstellen! Hab beide Folgeposts jetzt hier eingebunden.
Ja die Variable $Befehl hab ich wohl vergessen rauszumachen als ich dazu etwas geschrieben hatte mich aber doch umentschieden hatte
Also ich suche gerade nach einer Möglichkeit die einzelnen Fehler zu beheben, jede Hilfe ist willkommen!
Hallo Leute,
es ist endlich soweit ich habe nun nach einiger Arbeit und herumfragerei mein Script fertiggestellt.
Es heisst PC Laufzeit Creator, mit diesem Programm kann man dem PC eine eigene Laufzeit verpassen, nach ablauf der Zeit meldet sich das System selbstständig ab man wird vorher nochmal gewarnt und man kann Dinge speichern und schließen, Ich denke eine Minute dafür sollten reichen. Dieses Programm ist Hilfreich wenn man mal seinen Sohn/Tochter an den PC lässt, so lässt es sich besser Kontrolliern wie lange sie an dem PC bleiben dürfen.
Ich habe das Script so Programmiert, dass wenn man in das Inputfeld eine Null eingibt, dann wird das Programm beendet und der PC ist an keine Laufzeit gebunden. seht euch das Programm ruhig selbst an
#include <GUIConstants.au3>
#Include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Misc.au3>
#include <TabConstants.au3>
#Include <Date.au3>
#Include <WinAPI.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#Include <GUIMenu.au3>
#include <Process.au3>
Global $Zeit = 0, $Timer
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PC Laufzeit", 459, 89, 340, 299, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS,$WS_EX_LAYERED))
$Label1 = GUICtrlCreateLabel("Bitte geben Sie hier die gewünschte PC laufzeit in Minuten ein!", 8, 8, 444, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$minuten = GUICtrlCreateInput("60", 16, 48, 145, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Button1 = GUICtrlCreateButton("Zeit Setzen", 168, 48, 75, 25, 0)
$input1 = GUICtrlCreateInput("", 260, 48, 180, 21, $ES_READONLY)
ControlDisable ($Form1,"",$input1)
GUICtrlSetState($Button1, $GUI_DEFBUTTON)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetState("[CLASS:Shell_TrayWnd]","",@SW_HIDE) ; Taskbar Verstecken
WinSetState("[TITLE:Start;CLASS:Button]","",@SW_HIDE) ; Versteckt Startbutton
WinSetState("[CLASS:Progman]","",@SW_HIDE) ; Versteckt Desktop Icons
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Close()
Case $Button1
$string = GUICtrlRead($minuten)
; Variablen
$titel = "Restlaufzeit" ; Titel, es wird auch ein Info Icon mit angezeigt
$DauerStd = 0 ; Dauer in Stunden
$DauerMin = $string ; Dauer in Minuten
$DauerSek = 0; Dauer in Sekunden
$DauerGesammt = (60*60*$DauerStd)+(60*$DauerMin)+$DauerSek ; Die Gesamtdauer
$Befehl = "cmd" ; Der Befehl der ausgeführt werden soll, es kann auch die _toDo() Fuktion angepasst werden
$Zeit = $DauerGesammt
$Timer = TimerInit()
AdlibRegister("Countdown", 1000)
If $string = 0 Then Exit
GUISetState(@SW_HIDE)
WinSetState("[CLASS:Progman]","",@SW_SHOW) ; Macht Desktop Icons wieder sichtbar
WinSetState("[TITLE:Start;CLASS:Button]","",@SW_HIDE) ; Macht Startbutton wieder sichtbar
WinSetState("[CLASS:Shell_TrayWnd]","",@SW_SHOW) ; Taskabr sichtbar machen
EndSwitch
Time()
WEnd
Func Countdown()
Local $x = $Zeit - TimerDiff($Timer)/1000
ToolTip("Restzeit: " & _Sek2StdMinSek($x),0,0,$titel,1)
;TrayTip($titel,"Restzeit: " & _Sek2StdMinSek($x),5,1) ;<-- Das ist eine weitere möglichkeit die ablaufende Zeit anzeigen zu lassen...
If ($x <= 0) Then AdlibUnRegister("Countdown")
If ($x <= 0) Then MsgBox(0,"Schluss","Die Zeit ist abgelaufen Sie werden in einer Minute abgemeldet! Goodbye! Made by Ququknife ...")
Sleep(60000)
If ($x <= 0) Then Shutdown(0)
EndFunc
;-----------------------------------------------------------------------------------------------------------------
; Funktion zum umrechnen von Sekunden in Stunden, Minuten, Sekunden
Func _Sek2StdMinSek($value)
; Hier eine kleine Auswahl von Formaten, diese bitte bei dem Return Befehl mit angeben.
$format1 = "%02d:%02d:%02d"
$format2 = "%02d:%02d"
$format3 = "%02d Std. %02d Min. %02d Sek."
$format4 = "%02d Std. %02d Min."
$std = Floor($value / (60*60)) ; Berechnung der Stunden
$value = $value - ((60*60) * $std) ; Berechnung des Restwertes der Sekunden
$min = Floor($value / (60)) ; Berechnung der Minuten
$sek = $value - ((60) * $min) ; Rest Sekunden
Return StringFormat($format3,$std,$min,$sek) ; Rückgabe des formatierten Strings
EndFunc
;===================== Datum / Zeit in Inputbox darstellen ==================================
Func Time()
$Time = _NowTime(5)
$Date = _NowDate()
GUICtrlSetData ($input1,"Time:"&" "&$Time&" "&"Date:"&" "&$Date)
EndFunc
;=============================================================================================
;==================== Programm kann nicht geschlossen werden =================================
Func Close()
ToolTip("Gesperrt")
Sleep(2000)
ToolTip("")
EndFunc
;===============================================================================================
[/autoit]Lg
Ququknife
Super danke name22
das hat wohl gefehlt jetzt funktioniert das genau so hab ich mir das ganze vorgestellt
möchte mich bei allen bedanken, die mir geholfen haben dass mein Script funktioniert
Wie füge ich dann des $ES_NUMBER so ein dass wirklich nur noch Zahlen eingegeben werden können?
ich habs versucht aber es führt dann des programm nicht mehr aus sondern sagt da is ein Fehler bei dem Dollar Zeichen 
WOW danke für deine Hilfe jetzt funktioniert das genauso wie ich es mir vorgestellt habe, übrigens habe deinen Rat befolgt und aus dem TrayTip ein ToolTip gemacht.
Vielleicht kannst du mir noch in einer einzigen sache helfen und zwar möchte ich die eingabe beim Inputfeld auf Zahlen von 0-9 beschränken keine buchstaben und die max. eingabezahl z.B. 3 Zahlen ginge das? habe bisher immer programmiert ohne etwas zu beschränken
ja in tooltip hab ich schon einiges programmiert werde des wohl auch in tooltip machen ich hätte noch eine frage und zwar mit dieser programmierung wird ja alles noch in millisekunden angezeigt ich hätte gerne dass man daraus ganz einfach Std, Min, Sek, lesen kann dazu hätte ich diesen script
[autoit]
Func _Sek2StdMinSek($value)
; Hier eine kleine Auswahl von Formaten, diese bitte bei dem Return Befehl mit angeben.
$format1 = "%02d:%02d:%02d"
$format2 = "%02d:%02d"
$format3 = "%02d Std. %02d Min. %02d Sek."
$format4 = "%02d Std. %02d Min."
$std = Floor($value / (60*60)) ; Berechnung der Stunden
$value = $value - ((60*60) * $std) ; Berechnung des Restwertes der Sekunden
$min = Floor($value / (60)) ; Berechnung der Minuten
$sek = $value - ((60) * $min) ; Rest Sekunden
Return StringFormat($format3,$std,$min,$sek) ; Rückgabe des formatierten Strings
EndFunc
aber wenn ich versuche das einzubauen funktioniert es schon nicht mehr kannst du mir sagen wie ich diesen script in diesem TrayTip oder ToolTip wirksam machen kann?
danke für die antworten aber könntest du mir malbitte den ganzen code dazu schreiben dass ich genau weis wie du dir das vorstellst? weil das ganze bei mir grad nicht funktioniert leider
der countdown soll in einem traytip stattfinden!!
Danke ich habe es umgehend geändert
jetzt brauch ich nur noch die hilfe wie ich den ausgelesenen Inputfeld inhalt an die stelle einfügen kann wie ich es beschrieben habe
Hallo,
ich programmiere schon seid ein paar Jahren hatte eine pause von über einem Jahr und jetzt weis ich nicht mehr eine einfache Programmierung. Bitte könnt ihr mir helfen?
Und zwar möchte ich mit einem Button in einer GUI ein Inputfeld auslesen und den inhalt dann in einer Funktion wiedergeben. bevorzuge in dem Inputfeld zahlen da es ein script sein sollin dem ein Countdown läuft.
ich stelle mir das ungefähr so vor:
[autoit]
#include <GUIConstants.au3>
#Include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 403, 237, 443, 214, BitOR($WS_SYSMENU,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$minuten = GUICtrlCreateInput("Minuten", 120, 112, 145, 21)
$Label1 = GUICtrlCreateLabel("Bitte geben Sie hier die Gewünschte Laufzeit ein!", 8, 24, 374, 24)GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Zeit setzen", 152, 160, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$string = GUICtrlRead($minuten)
EndSwitch
WEnd
; Variablen
$titel = "Restlaufzeit" ; Titel, es wird auch ein Info Icon mit angezeigt
$DauerStd = 0 ; Dauer in Stunden
$DauerMin = $string ; Dauer in Minuten --- Hier soll der ausgelesene Inputfeldinhalt eingegeben werden funktioniert aber so leider nicht ----
$DauerSek = 0; Dauer in Sekunden
$DauerGesammt = (60*60*$DauerStd)+(60*$DauerMin)+$DauerSek ; Die Gesamtdauer
$Befehl = "cmd" ; Der Befehl der ausgeführt werden soll, es kann auch die _toDo() Fuktion angepasst werden
kann mir bitte jemand helfen? ich suche und suche nach einer Lösung doch leider bleibt sie versteckt.
wenn einer Helfen kann wäre es super
Mfg,
Ququknfe
