1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Eistee

Beiträge von Eistee

  • Gibts nicht geht nicht

    • Eistee
    • 27. Juni 2011 um 13:51

    Ähm es kan auch sein das ich mich irre, bin bisher noch nicht allzubewandert aber AutoIt ist nicht C++ !
    ein = zeichen reicht vollkommen aus um eine Variable zu Deklarieren.

    Mfg Eistee

    P.s.

    Zitat

    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    Da kann ich nur zustimmen ! das Wiki Tutorial, und das Buch von peethebee helfen dir weiter die allgemeine Funktion zu verstehen. Habe es leider selbst erst vor kurzem gelesen obwohl ich schon seit einiger Zeit AutoIt User bin, hatt mir wirklich sehr weitergeholfen.

  • Alle datein eines PC´s auflisten ?

    • Eistee
    • 24. Juni 2011 um 21:11

    jetzt weiß ich nur nicht wie ich das aus dem array rausbekommen und auflisten kann das einzige was ich in der Hilfe relevant finde wäre arraytostring allerdings wird es damit total unformatiert ausgegeben und ich wüsste nicht wie ich das ändern könnte... weiß da jemand weiter ?

    Spoiler anzeigen
    [autoit]

    ;Von Kenngott Marco (Eistee, AsusExcite)
    ;E-Mail : [email='marco.kenngott@live.de'][/email]
    ;
    ;
    ;
    #include <Array.au3>

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

    Global $i
    Global $var

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

    $var = DriveGetDrive( "fixed" )
    If NOT @error Then
    MsgBox(4096,"", "Es wurden " & $var[0] - 1& " Laufwerke gefunden")
    For $i = 2 to $var[0]
    MsgBox(1,"Laufwerke ausser C:\ Nr." & $i, $var[$i])
    Next
    EndIf

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

    $test1 = _RecursiveFileListToArray($var[2]& "\")
    _ArraySort($test1)

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

    $test2 =_ArrayToString($test1)

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

    FileWrite("test.txt",$test2)

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

    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ; und: AspirinJunkie (http://www.autoit.de)
    ;===============================================================================

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

    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
    Local $hSearch, $sFile, $sReturn = '', $aD
    Local Static $hDll
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    $aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
    If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $fOpenDLL Then DllClose($hDll)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]


    hmm.. ok hab es jetzt einigermaßen nur stimmt was nicht bei der ausgabe die datei ist total komisch formatiert ....


    Spoiler anzeigen
    [autoit]

    ;Von Kenngott Marco (Eistee, AsusExcite)
    ;E-Mail : [email='marco.kenngott@live.de'][/email]
    ;
    ;
    ;
    #include <Array.au3>

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

    Global $i
    Global $var

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

    $var = DriveGetDrive( "fixed" )
    If NOT @error Then
    MsgBox(4096,"", "Es wurden " & $var[0] - 1& " Laufwerke gefunden")
    For $i = 2 to $var[0]
    MsgBox(1,"Laufwerke ausser C:\ Nr." & $i, $var[$i])
    Next
    EndIf

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

    $test1 = _RecursiveFileListToArray($var[2]& "\")
    _ArraySort($test1)

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

    $test2 =_ArrayToString($test1)

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

    $test3 = StringSplit($test2, "|" & "{tab}")

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

    For $i2 = 1 to $test3[0]
    FileWriteLine("test.txt",$test3[$i2] & @CRLF)
    Next

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

    ;FileWrite("test.txt",$test2)

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

    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ; und: AspirinJunkie (http://www.autoit.de)
    ;===============================================================================

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

    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
    Local $hSearch, $sFile, $sReturn = '', $aD
    Local Static $hDll
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    $aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
    If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $fOpenDLL Then DllClose($hDll)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]
  • Alle datein eines PC´s auflisten ?

    • Eistee
    • 24. Juni 2011 um 20:57

    hmm... tatsache das läuft genial thx

  • Alle datein eines PC´s auflisten ?

    • Eistee
    • 24. Juni 2011 um 20:46

    Panikakrobat
    hmm.. vielen dank für die Tipps ;) ähm also der befehl tree gefällt mir sehr sehr gut jedoch scheint er nur ordner strukturen aufzulisten ? und wie ich diesen inhalt in eine .txt schreiben könnte ist mir ebenfalls schleierhaft.... sry hab noch nie wircklich mit cmd gearbeitet.
    Die sache mit drivegetspace usw. ist echt genial !! danke für den Tipp ;)

  • Alle datein eines PC´s auflisten ?

    • Eistee
    • 24. Juni 2011 um 19:29

    Hallo Gemeinde

    Ich habe vor für einen Bekannten ein Script zu schreiben welches alle Dateien (ausser die C:\ Platte) in eine Datei schreibt, und auch in eine weitere Datei zu erstellen in der stehen soll, wie es mit den verschiedenen Platten also besser gesagt deren Freien / Vollen Speicherplatz aussieht.
    Das ganze soll dann per Client abgefragt werden können.

    Jedoch bin ich scheinbar ein wenig zu beschränkt um schon mit dem eigentlich einfachsten Punkt dieser Sache anzufangen nähmlich dem auflisten der Verzeichnisinhalte.
    Mein erster Ansatz war eigentlich filefindfirstfile und filefindnextfile jedoch zeigt er mir nur die dateien des direkten verzeichnisses an, nicht jedoch die unterverzeichnisse / files.

    Vielleicht hatte ja schon mal jemand ähnliches vor (zumindest was die auflistungen anbelangt) und kann mir einen geeigneten Ansatz liefern... ich bin da gerade irgendwie am verzweifeln.


    MfG Eistee


    Das wäre mein bisheriger ansatz allerdings wird beim relevanten Array nur 0 zurückgegeben...


    Spoiler anzeigen
    [autoit]

    ;Von Kenngott Marco (Eistee, AsusExcite)
    ;E-Mail : [email='marco.kenngott@live.de'][/email]
    ;
    ;
    ;

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

    Global $i
    Global $var

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

    $var = DriveGetDrive( "fixed" )
    If NOT @error Then
    MsgBox(4096,"", "Es wurden " & $var[0] - 1& " Laufwerke gefunden")
    For $i = 2 to $var[0]
    MsgBox(1,"Laufwerke ausser C:\ Nr." & $i, $var[$i])
    Next
    EndIf

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

    $test1 = _RecursiveFileListToArray($var[2]& "\", "*.*")

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

    MsgBox(0,"test", $test1[0])

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

    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ; und: AspirinJunkie (http://www.autoit.de)
    ;===============================================================================

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

    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
    Local $hSearch, $sFile, $sReturn = '', $aD
    Local Static $hDll
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    $aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
    If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $fOpenDLL Then DllClose($hDll)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]


    hmm... hatte grade die Idee das ich evtl. das Array falsch auslese aber so:

    Spoiler anzeigen
    [autoit]

    ;Von Kenngott Marco (Eistee, AsusExcite)
    ;E-Mail : [email='marco.kenngott@live.de'][/email]
    ;
    ;
    ;
    #include <Array.au3>

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

    Global $i
    Global $var

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

    $var = DriveGetDrive( "fixed" )
    If NOT @error Then
    MsgBox(4096,"", "Es wurden " & $var[0] - 1& " Laufwerke gefunden")
    For $i = 2 to $var[0]
    MsgBox(1,"Laufwerke ausser C:\ Nr." & $i, $var[$i])
    Next
    EndIf

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

    $test1 = _RecursiveFileListToArray($var[1]& "\", "*.*")
    $test2 = _ArrayDisplay($test1)

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

    MsgBox(0,"test", $test2[1])

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

    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ; und: AspirinJunkie (http://www.autoit.de)
    ;===============================================================================

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

    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
    Local $hSearch, $sFile, $sReturn = '', $aD
    Local Static $hDll
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    $aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
    If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $fOpenDLL Then DllClose($hDll)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]


    funktioniert es ebenfalls nicht ich denke ich mache irgendwas falsch... und komm einfach nicht dahinter...

  • Wie sieht euer Desktop aus?

    • Eistee
    • 24. Juni 2011 um 02:49

    Und das wäre dann meiner ^^

    Dateien

    MyDesktop.jpg 888,83 kB – 0 Downloads
  • [Spiel] MicroTD

    • Eistee
    • 22. Juni 2011 um 21:37

    ok cool jetzt läufts thx

  • [Spiel] MicroTD

    • Eistee
    • 22. Juni 2011 um 21:10

    hmm.. jetzt lässt es sich starten aber wenn ich auf lvl 1 drücke :

    Dateien

    Fehler2.png 142,31 kB – 0 Downloads
  • [Spiel] MicroTD

    • Eistee
    • 22. Juni 2011 um 20:54

    hmm... kannste den script mal compiled hochladen ?
    ich denke des wird an meiner uhr uhr uhr uhr alten autoit version liegen die ich jedoch nicht upzudaten bereit bin da dann evtl. ander ältere scripts nicht mehr laufen

    MfG Eistee

  • [Spiel] MicroTD

    • Eistee
    • 22. Juni 2011 um 20:45

    ähm bei mir klappt das nicht , habe Win7 und bekomme beim start eine riesen fehlermeldung :

    Weiß einer worans liegt ?

    Dateien

    Fehler.jpg 893,21 kB – 0 Downloads Fehler.jpg 650,05 kB – 0 Downloads
  • ExciteClock

    • Eistee
    • 21. Juni 2011 um 23:24

    Excite Clock V2 Beta

    Hallo Gemeinde,
    Ich habe in der letzten Zeit an einer kleinen Uhr gearbeitet und würde mich freuen wenn ihr euch diese ansehen und mir Feedback
    geben könntet.

    MfG Eistee

    Download ExciteClock V2 Beta


    Funktionsumfang :

    • Grafische Oberfläche
    • Designs können gewechselt werden (Traymenu) (4 Designs bereits Inklusive)
    • Sprache des Traymenus wechselbar (Deutsch,Englisch,Spanisch)
    • Alarmfunktion (Alarmton wechselbar)
    • Standby Modus (passt sich dem gewählten Design an, Gibt an : Uhrzeit, Datum, Ping)
    • kann On Top gesetzt werden
    • Sounds können deaktiviert werden
    • usw.

    Ich hoffe auf viele Feedbacks danke euch schon mal ;)

  • Tacho/Uhr - Analogzeiger

    • Eistee
    • 21. Juni 2011 um 15:47

    oder halt etwas komplizierter du errechnest dir die positionen des zeigers abhängig von den werten die du anzeigen möchtest und machst dir für jeden wert ein bild mit der passenden zeiger position und ersetzt sie halt stets.

  • Mathematisches Problem

    • Eistee
    • 17. Juni 2011 um 22:34

    das gehört zu nem etwas größerem Ganzen und werde ich demnächt hier uppen ^^ dann könnt ihr euch gerne alles angucken ^^

  • Mathematisches Problem

    • Eistee
    • 16. Juni 2011 um 21:40

    naja da hatte ich mehrere fehler drinnen ^^ habe es mittlerweile anders gelöst die jeweiligen werte werden anderweitig zusammengerechnet.

    aber vielen dank für eure hilfe

  • Mathematisches Problem

    • Eistee
    • 16. Juni 2011 um 11:34

    Halle Gemeinde

    ich habe vor mit meinem script eine GUI zu erstellen die Coordinaten jedoch holt es sich aus jeweiligen txt dateien.
    anschließend sollen zu den coordinaten noch einige Pixel dazugerechnet bzw. abgezogen werden (das definiere ich durch eine weitere txt)

    allerdings scheint es nicht zu klappen. Er ließt alles richtig aus jedoch rechnet er scheinbar die coordinaten nicht zusammen
    hoffentlich war das einigermßen verständlich.

    MfG Eistee


    Scriptteil :


    Spoiler anzeigen
    [autoit]

    $Posi1 = FileReadLine("C:\Excite\Clock\Position.txt",1)
    $Posi2 = FileReadLine("C:\Excite\Clock\Position.txt",2)

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

    $PosiR1 = FileReadLine("C:\Excite\Clock\Position3.txt",1)
    $PosiR2 = FileReadLine("C:\Excite\Clock\Position3.txt",2)

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

    ;$Posit1 = $Posi1 +25
    ;$Posit2 = $Posi2 -99 ;+119

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

    $Posit11 = $Posi1 & " " & $PosiR1 ; $Posi11 beinhaltet die coordinaten $PosiR1 was zu den coordinaten gerechnet werden soll (in diesem fall 25 )
    $Posit22 = $Posi2 & " " & $PosiR2 ;+119

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

    $Positi1 =$Posit1

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

    $Style2 = FileReadLine("C:\Excite\Clock\Style.txt",1)
    $Style = "C:\Excite\Clock\" & $Style2 & "\BG1A.jpg"

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

    $Sound2 = FileReadLine("C:\Excite\Clock\AlertSound.txt",1)

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("AlertSoundChange", 250, 100, $Posit11, $Posit22,$WS_POPUP)
    $Input1 = GUICtrlCreateInput($Sound2, 30, 15, 152, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Choose", 150, 65, 70, 25, 0)
    $Button2 = GUICtrlCreateButton("Cancel", 30, 65, 70, 25, 0)
    $Button3 = GUICtrlCreateButton("...", 192, 15, 25, 25, 0)
    $Pic1 = GUICtrlCreatePic($Style, 0, 0, 250, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit]
  • Komme grade nicht weiter (AlarmFunktion)

    • Eistee
    • 15. Juni 2011 um 20:17

    lol ich bin blind... vielen dank !

  • Komme grade nicht weiter (AlarmFunktion)

    • Eistee
    • 15. Juni 2011 um 20:03

    Hallo Gemeinde ich hab erneut ein kleines Problemchen.... und zwar
    versuche ich ein script zu erstellen der die Aktuelle Uhrzeit mit einer anderen Uhrzeit aus einer txt zu vergleicht und wenn es die gleiche ist, soll ein Alarm ausgeführt werden, jedoch fällt mir selbst unter einbezug der helpfiles kein passender Lösungsweg ein.
    Ich denke mal das es gar nicht so schwierig ist aber ich komme nicht darauf.

    Vielen Dank schonmal ^^

    Mfg Eistee


    Script :

    Spoiler anzeigen
    [autoit]

    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    #Include <Constants.au3>
    #include <ModernMenu.au3>
    #include <GUIConstantsEx.au3>

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

    $Posi1 = FileReadLine("C:\Excite\Clock\Position.txt",1)
    $Posi2 = FileReadLine("C:\Excite\Clock\Position.txt",2)
    $Posit1 = $Posi1 + 25
    $Posit2 = $Posi2 - 99

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

    $Style2 = FileReadLine("C:\Excite\Clock\Style.txt",1)
    $Style = "C:\Excite\Clock\"& $Style2 & "\BG1A.jpg"

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

    $Time = FileReadLine("C:\Excite\Clock\AlertTime.txt",1)
    $ATime = @HOUR & ":" & @MIN & ":" & @SEC
    $SoundCH = FileReadLine("C:\Excite\Clock\AlertSound.txt",1)

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

    $Form1 = GUICreate("ExciteAlertActive", 250, 100, $Posit1, $Posit2,$WS_POPUP)
    $Button1 = GUICtrlCreateButton("Stop", 85, 37, 80, 26, 0)
    $Pic1 = GUICtrlCreatePic($Style, 0, 0, 250, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_Hide)

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

    _AlertTimer ()
    AdlibEnable("_AlertTimer",500)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _Stop ()
    EndSwitch
    WEnd

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

    Func _AlertTimer ()
    If $Time = $Atime Then
    GUISetState(@SW_SHOW)
    SoundPlay($SoundCH,1)
    Sleep(1000)
    FileDelete("C:\Excite\Clock\AlertTime.txt")
    Exit
    EndIf
    EndFunc

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

    Func _Stop ()
    SoundPlay("")
    Sleep(200)
    Exit
    EndFunc

    [/autoit]
  • Denkfehler bei IF ElseIf

    • Eistee
    • 15. Juni 2011 um 20:00

    ^^ Ok danke Bugfix ist gut zu wissen das man es evtl. noch anders lösen könnte ;)

  • Denkfehler bei IF ElseIf

    • Eistee
    • 15. Juni 2011 um 17:10

    danke Progandy vielen Dank mit :

    Spoiler anzeigen
    [autoit]

    If Number(Guictrlread(...)) < 10 then ; 0 davorhängen, sonst nicht.

    [/autoit]

    hatt es perfekt funktioniert jetzt passt es

  • Denkfehler bei IF ElseIf

    • Eistee
    • 15. Juni 2011 um 17:00

    danke name 22 aber selbst wenn ich in der Hilfe nachsehe verstehe ich gerade nicht was ich mit diesem Befehl anfangen soll / kann.
    wärst du evtl. so freundlich mir diesen befehl zu erklären ? Ich finde meinen Lösungsweg leichter verständlich (bis auf den Fehler natürlich) ^^ verstehe aber deinen nicht selbst nicht mit der Hilfe sorry....

    Mfg Eistee

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™