Hi!
Bitte Schön!
[autoit]#include <Date.au3>
[/autoit][autoit][/autoit][autoit]Dim $End = '2010/08/21 16:45:37'
[/autoit][autoit][/autoit][autoit]If _NowCalc() < $End Then MsgBox(0,0,'Noch darf ich laufen :-)')
[/autoit]LG Kleiner
Beiträge von Kleiner
-
-
Hi!
Gerne!
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>Global $Form = GUICreate('AU3', 400, 200, 10, 10)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()Global $Form_2 = GUICreate('AU3', 400, 200, 50, 50)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()While 1
[/autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndLG Kleiner
-
Hi !
Noch eine Beispiel!
Spoiler anzeigen
[autoit]Opt('GUIOnEventMode', 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Global $Form = GUICreate('AU3', 400, 200, 10, 10)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent(-3, 'Ende')
GUISetState()Global $Form_2 = GUICreate('AU3', 400, 200, 50, 50)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent(-3, 'Ende')
GUISetState()Func Ende()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Exit
EndFunc ;==>EndeWhile 1 * Sleep(10)
[/autoit]
WEndDas Exit beendet gleich beide Gui .
LG Kleiner
-
Hi!
Entweder du niemst das Bespiel von autoBert!
o. du drehst die Operatoren > um in wenn kleiner als!
Mit dem beispiel von autoBert wird die abfrage schneller sein!
LG Kleiner
-
Hi!
Setzt diese Prüfung doch in eine Func, daraus ein Return und Skript läuft weiter????
Edit:/
BeispielSpoiler anzeigen
[autoit]Opt('GUIOnEventMode', 1)
[/autoit] [autoit][/autoit] [autoit]
Waten_Warten_Warten()Global $Form = GUICreate('AU3', 400, 200, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent(-3, 'Ende')
GUISetState()Func Waten_Warten_Warten()
[/autoit] [autoit][/autoit] [autoit]
While Sleep(1000)
If @YEAR >= 2010 And @MON >= 08 And @MDAY >= 21 And @HOUR >= 16 And @MIN >= 00 Then ExitLoop
WEnd
MsgBox(0, "", "Ich bin Aktiv wenn das Datum und die Zeit existiert und auch wenn das Datum und die Zeit in der Vergangenheit ist")
EndFunc ;==>Waten_Warten_WartenFunc Ende()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFunc ;==>EndeWhile 1 * Sleep(10)
[/autoit]
WEndLG Kleienr
-
Hi!
L3viathan
Habe dir gerade meine Version geschick habe eine Automatisierte mail zurückbekommen das du gerade im Urlaub bist!
LG Kleienr
-
Hi!
Der autoBert, mal wieder was sehr feines!
LG Kleiner
-
Hi sondaschuela69!
Nette Idee!
Ich habe da ein paar anregungen für dich!
1.) bau mehr fehler prüfungen ein wie zB. bei $TreeStartPath wenn die Variable leer ist kommt ein Error.
2.) hängt sich deine funktion bei mir auf weil ich auf win7 alle rechte auf dem rechner habe schau dir zu diesem thema meine _File_List_S_Rekursiv an!
_File_List_S_Rekursiv
3.) Oscar hat die Idee von dir in seinem Treeview FileExplorer umgesetzt schau dir zu deisem thema den anderen link an!
Treeview FileExplorerAnsonsten weiter so!
LG Keiner
-
Super!
Ich habe vor kurzen was gebraucht daraus ist eine Verschlüsselung geword, mal sehen !
LG Kleiner
-
Hi L3viathan!
Wenn es sich noch einrichten läst
machen ich auch mit! Lg Kleiner
-
-
Hi Gummibaer!
Nette Idee!
Du kannst deine Funktion auch kürzer machen!
[autoit]Func bool($wert)
[/autoit]
If (IsBool($wert) Or IsNumber($wert) And $wert > 0 Or IsString($wert) And $wert <> '' Or IsArray($wert)) Then Return True
Return False
EndFunc ;==>boolLG Kleiner
-
Hi!
ein beispiel von @progandy
Spoiler anzeigen
[autoit]#include<WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode",1)$hGUI = GUICreate("Test", @DesktopWidth /2, @DesktopHeight / 2, -2, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_CLIPCHILDREN))
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent(-3,"_exit")
$hChildGUI = GUICreate("Test2", 300, 300, 10, 10, $WS_MAXIMIZEBOX)
GUISetOnEvent(-3,"_closeChild")$nExStyle = DllCall("user32.dll", "int", "GetWindowLong", "hwnd", $hChildGUI, "int", 0xEC)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SetWindowLong", "hwnd", $hChildGUI, "int", 0xEC, "int", BitOR($nExStyle[0], $WS_EX_MDICHILD))
DllCall("user32.dll", "int", "SetParent", "hwnd", $hChildGUI, "hwnd", $hGUI)
GUISetState()GUISetState(@SW_SHOW, $hGUI)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)WEnd
[/autoit] [autoit][/autoit] [autoit]Func _closeChild()
[/autoit] [autoit][/autoit] [autoit]
GUIDelete($hChildGUI)
EndFuncFunc _exit()
[/autoit]
Exit
EndFuncLG Kleiner
-
Hi Oscar!
Sehr sehr net, eine neuer bereich tut sich auf!
LG Kleiner
-
Hi Andy!
Auf jeden fall super umsetzung, ich habe das mit windows bortmittel gemacht!
LG Kleiner
-
-
Guten Motgen Greenhorn!
Sowit hat er seine Funktion schon, das was er möchte ist das, wenn zB. $Start = c:\Musik\Mp3\Album\Interpreter\Album\interpreter\01\.mp3 nach $Ziel = interpreter\01\.mp3 veschoben wird wenn kein Verzeichnis Exestirt und wenn ja Datei überprüfen, So wie mein Beispiel wehr das kein Problem da man ja weis wo die Verzeichnise zu finden sind, so jezt mal wie Volumeman sich das vorstellt zB. \\Cluster\...\..\..\..\.datei und dan das, erste beispiel anwenden ohne zu wissen wie die Verzeichnis struktur ist.
So habe ich es Verstanden.
LG Kleiner
-
Hi!
Kennst du denn die (alle) Ordner ?
[autoit]
Wenn nicht versuch diese Funktion einzubauen!Func UebergeordnetenOrdner($Path_uo_Datei)
[/autoit]
;Ausgabe: Übergeordneten Ordner
Local $FileUeO = ObjCreate('Scripting.FileSystemObject')
If @error Then Return SetError(1, 1, -1)
Return $FileUeO.GetParentFolderName($Path_uo_Datei)
EndFunc ;==>UebergeordnetenOrdnerSo kannst du auch zurück springen ohne zu wissen wie das verzeichniss heist!
Poste doch mal deine Versuche, wenn dann müssen wir hir auch gemeinsam das anligen lösen!
LG Kleiner
-
Hi!
Wenn du nicht weist wie die Struktur heist dann ist es schwer fast unmöglich ich würde sogar sagen unmöglich, den wenn das Algo nicht weiss was es machen soll macht es halt nicht!
Bedeutung: Mit viel viel aufwand kann man ein Algo Progen das soviel Faktoren berücksichtigt das es einen erlaubt dein wunsch von dir zu schaffen, also auf ein fremden system ohne zu wissen welche Verzeichnisse wo liegen!Was würdes du machen wenn man dich in ein Labyrinth steckt ohne logisches denken und Orientierung ... na ... na ... nichts weil du nicht weiss was du machen sollst.
Ich würde sagen wenn die Rechner in der Firma immer die gleichen namen nutzen ist dann übergebe der Funktionen hilfsmittel um arbeiten zu können.
LG Kleiner
-
Hi!
Ich habe mir überlegt was ich machen wil habe die Hilfe hoch und runter gelesen und wenn ich nicht mehr weiter wuste, weis habe und werde ich im Forum Fragen.!
LG Kleiner
