Beiträge von Eistee

  • Denkfehler bei IF ElseIf

    Hallo liebe Gemeinde ^^

    ich schreibe gerade an einem kleinen script und versuche gerade zum ersten mal die "IF / ElseIf" Befehle zu verwenden aber mir scheint ich habe irgendwo einen kleinen denkfehler und zwar habe ich ein fenster in welchem ich eine Uhrzeit eintrage, Diese Uhrzeit wird anschließend einfach nur in eine Txt datei geschrieben jedoch möchte ich bevor das geschieht die Eingabe des ersten Inputs nocheinmal Überprüfen und sollte jemand nur z.B. eine "5" eingetragen haben das dann durch "05" zu ersetzen jedoch wird die "0" im moment auch bei zweistelligen Zahlen angefügt was ja nicht passieren sollte.
    Ich hoffe ihr könnt mir helfen vielen dank im voraus


    Gesamter Script :

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #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][/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][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $StandImp1 = @HOUR
    $StandImp2 = @MIN
    $StandImp3 = @SEC
    $Style2 = FileReadLine("C:\Excite\Clock\Style.txt",1)
    $Style = "C:\Excite\Clock\"& $Style2 & "\BG1A.jpg"

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

    $Form1 = GUICreate("ExciteAlert", 250, 100, $Posit1, $Posit2,$WS_POPUP)
    $Input1 = GUICtrlCreateInput($StandImp1, 90, 15, 20, 20)
    GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
    $Input2 = GUICtrlCreateInput($StandImp2, 115, 15, 20, 20)
    GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
    $Input3 = GUICtrlCreateInput($StandImp3, 140, 15, 20, 20)
    GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Activate", 150, 65, 70, 25, 0)
    $Button2 = GUICtrlCreateButton("Cancel", 30, 65, 70, 25, 0)
    $Pic1 = GUICtrlCreatePic($Style, 0, 0, 250, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    _Exit ()
    Case $Button1
    _Alert ()
    EndSwitch
    WEnd

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

    Func _Exit ()
    Exit
    EndFunc

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

    Func _Alert ()

    If GUICtrlRead($Input1) = 1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9 Then
    $inpt1 = 0 & GUICtrlRead($Input1)
    ElseIf GUICtrlRead($Input1) = 10 or 11 or 12 or 13 or 14 or 15 or 16 or 17 or 18 or 19 or 20 or 21 or 22 or 23 or 00 Then
    $inpt1 = GUICtrlRead($Input1)
    EndIf


    $AlertTime = $inpt1 & ":" & GUICtrlRead($Input2) & ":" & GUICtrlRead($Input3)
    FileDelete("C:\Excite\Clock\AlertTime.txt")
    Sleep(500)
    FileWrite("C:\Excite\Clock\AlertTime.txt", $AlertTime)
    Exit
    EndFunc

    [/autoit]


    Relevante Stelle im Script :

    Spoiler anzeigen
    [autoit]

    Func _Alert ()

    If GUICtrlRead($Input1) = 1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9 Then
    $inpt1 = 0 & GUICtrlRead($Input1)
    ElseIf GUICtrlRead($Input1) = 10 or 11 or 12 or 13 or 14 or 15 or 16 or 17 or 18 or 19 or 20 or 21 or 22 or 23 or 00 Then
    $inpt1 = GUICtrlRead($Input1)
    EndIf


    $AlertTime = $inpt1 & ":" & GUICtrlRead($Input2) & ":" & GUICtrlRead($Input3)
    FileDelete("C:\Excite\Clock\AlertTime.txt")
    Sleep(500)
    FileWrite("C:\Excite\Clock\AlertTime.txt", $AlertTime)
    Exit
    EndFunc

    [/autoit]

    MFG Eistee

  • Transparentes Label funktioniert nicht

    Hallo Leute ich hab mal wieder ne kleine frage bei der ich wohl den Wald nicht sehen kann vor lauter Bäumen xD

    und zwar hab ich mir ne kleine Uhr geschrieben problematisch ist nur das ich das transparente Label das ich darüber gelegt habe um die uhr verschieben zu können nicht zu existieren scheint... also das fenster lässt sich nicht verschieben aber ich komm nicht dahinter warum ich hoffe ihr könnt mir helfen danke schon mal ^^


    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 <GUIConstantsEx.au3>

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

    DirCreate("C:\Excite\Clock")
    FileInstall("00.jpg", "C:\Excite\Clock\00.jpg")
    FileInstall("01.jpg", "C:\Excite\Clock\01.jpg")
    FileInstall("02.jpg", "C:\Excite\Clock\02.jpg")
    FileInstall("03.jpg", "C:\Excite\Clock\03.jpg")
    FileInstall("04.jpg", "C:\Excite\Clock\04.jpg")
    FileInstall("05.jpg", "C:\Excite\Clock\05.jpg")
    FileInstall("06.jpg", "C:\Excite\Clock\06.jpg")
    FileInstall("07.jpg", "C:\Excite\Clock\07.jpg")
    FileInstall("08.jpg", "C:\Excite\Clock\08.jpg")
    FileInstall("09.jpg", "C:\Excite\Clock\09.jpg")
    FileInstall("10.jpg", "C:\Excite\Clock\10.jpg")
    FileInstall("11.jpg", "C:\Excite\Clock\11.jpg")
    FileInstall("12.jpg", "C:\Excite\Clock\12.jpg")
    FileInstall("13.jpg", "C:\Excite\Clock\13.jpg")
    FileInstall("14.jpg", "C:\Excite\Clock\14.jpg")
    FileInstall("15.jpg", "C:\Excite\Clock\15.jpg")
    FileInstall("16.jpg", "C:\Excite\Clock\16.jpg")
    FileInstall("17.jpg", "C:\Excite\Clock\17.jpg")
    FileInstall("18.jpg", "C:\Excite\Clock\18.jpg")
    FileInstall("19.jpg", "C:\Excite\Clock\19.jpg")
    FileInstall("20.jpg", "C:\Excite\Clock\20.jpg")
    FileInstall("21.jpg", "C:\Excite\Clock\21.jpg")
    FileInstall("22.jpg", "C:\Excite\Clock\22.jpg")
    FileInstall("23.jpg", "C:\Excite\Clock\23.jpg")
    FileInstall("24.jpg", "C:\Excite\Clock\24.jpg")

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

    FileInstall("00b.jpg", "C:\Excite\Clock\00b.jpg")
    FileInstall("01b.jpg", "C:\Excite\Clock\01b.jpg")
    FileInstall("02b.jpg", "C:\Excite\Clock\02b.jpg")
    FileInstall("03b.jpg", "C:\Excite\Clock\03b.jpg")
    FileInstall("04b.jpg", "C:\Excite\Clock\04b.jpg")
    FileInstall("05b.jpg", "C:\Excite\Clock\05b.jpg")
    FileInstall("06b.jpg", "C:\Excite\Clock\06b.jpg")
    FileInstall("07b.jpg", "C:\Excite\Clock\07b.jpg")
    FileInstall("08b.jpg", "C:\Excite\Clock\08b.jpg")
    FileInstall("09b.jpg", "C:\Excite\Clock\09b.jpg")
    FileInstall("10b.jpg", "C:\Excite\Clock\10b.jpg")
    FileInstall("11b.jpg", "C:\Excite\Clock\11b.jpg")
    FileInstall("12b.jpg", "C:\Excite\Clock\12b.jpg")
    FileInstall("13b.jpg", "C:\Excite\Clock\13b.jpg")
    FileInstall("14b.jpg", "C:\Excite\Clock\14b.jpg")
    FileInstall("15b.jpg", "C:\Excite\Clock\15b.jpg")
    FileInstall("16b.jpg", "C:\Excite\Clock\16b.jpg")
    FileInstall("17b.jpg", "C:\Excite\Clock\17b.jpg")
    FileInstall("18b.jpg", "C:\Excite\Clock\18b.jpg")
    FileInstall("19b.jpg", "C:\Excite\Clock\19b.jpg")
    FileInstall("20b.jpg", "C:\Excite\Clock\20b.jpg")
    FileInstall("21b.jpg", "C:\Excite\Clock\21b.jpg")
    FileInstall("22b.jpg", "C:\Excite\Clock\22b.jpg")
    FileInstall("23b.jpg", "C:\Excite\Clock\23b.jpg")
    FileInstall("24b.jpg", "C:\Excite\Clock\24b.jpg")
    FileInstall("25b.jpg", "C:\Excite\Clock\25b.jpg")
    FileInstall("26b.jpg", "C:\Excite\Clock\26b.jpg")
    FileInstall("27b.jpg", "C:\Excite\Clock\27b.jpg")
    FileInstall("28b.jpg", "C:\Excite\Clock\28b.jpg")
    FileInstall("29b.jpg", "C:\Excite\Clock\29b.jpg")
    FileInstall("30b.jpg", "C:\Excite\Clock\30b.jpg")
    FileInstall("31b.jpg", "C:\Excite\Clock\31b.jpg")
    FileInstall("32b.jpg", "C:\Excite\Clock\32b.jpg")
    FileInstall("33b.jpg", "C:\Excite\Clock\33b.jpg")
    FileInstall("34b.jpg", "C:\Excite\Clock\34b.jpg")
    FileInstall("35b.jpg", "C:\Excite\Clock\35b.jpg")
    FileInstall("36b.jpg", "C:\Excite\Clock\36b.jpg")
    FileInstall("37b.jpg", "C:\Excite\Clock\37b.jpg")
    FileInstall("38b.jpg", "C:\Excite\Clock\38b.jpg")
    FileInstall("39b.jpg", "C:\Excite\Clock\39b.jpg")
    FileInstall("40b.jpg", "C:\Excite\Clock\40b.jpg")
    FileInstall("41b.jpg", "C:\Excite\Clock\41b.jpg")
    FileInstall("42b.jpg", "C:\Excite\Clock\42b.jpg")
    FileInstall("43b.jpg", "C:\Excite\Clock\43b.jpg")
    FileInstall("44b.jpg", "C:\Excite\Clock\44b.jpg")
    FileInstall("45b.jpg", "C:\Excite\Clock\45b.jpg")
    FileInstall("46b.jpg", "C:\Excite\Clock\46b.jpg")
    FileInstall("47b.jpg", "C:\Excite\Clock\47b.jpg")
    FileInstall("48b.jpg", "C:\Excite\Clock\48b.jpg")
    FileInstall("49b.jpg", "C:\Excite\Clock\49b.jpg")
    FileInstall("50b.jpg", "C:\Excite\Clock\50b.jpg")
    FileInstall("51b.jpg", "C:\Excite\Clock\51b.jpg")
    FileInstall("52b.jpg", "C:\Excite\Clock\52b.jpg")
    FileInstall("53b.jpg", "C:\Excite\Clock\53b.jpg")
    FileInstall("54b.jpg", "C:\Excite\Clock\54b.jpg")
    FileInstall("55b.jpg", "C:\Excite\Clock\55b.jpg")
    FileInstall("56b.jpg", "C:\Excite\Clock\56b.jpg")
    FileInstall("57b.jpg", "C:\Excite\Clock\57b.jpg")
    FileInstall("58b.jpg", "C:\Excite\Clock\58b.jpg")
    FileInstall("59b.jpg", "C:\Excite\Clock\59b.jpg")
    FileInstall("00s.jpg", "C:\Excite\Clock\00s.jpg")
    FileInstall("01s.jpg", "C:\Excite\Clock\01s.jpg")
    FileInstall("02s.jpg", "C:\Excite\Clock\02s.jpg")
    FileInstall("03s.jpg", "C:\Excite\Clock\03s.jpg")
    FileInstall("04s.jpg", "C:\Excite\Clock\04s.jpg")
    FileInstall("05s.jpg", "C:\Excite\Clock\05s.jpg")
    FileInstall("06s.jpg", "C:\Excite\Clock\06s.jpg")
    FileInstall("07s.jpg", "C:\Excite\Clock\07s.jpg")
    FileInstall("08s.jpg", "C:\Excite\Clock\08s.jpg")
    FileInstall("09s.jpg", "C:\Excite\Clock\09s.jpg")
    FileInstall("10s.jpg", "C:\Excite\Clock\10s.jpg")
    FileInstall("11s.jpg", "C:\Excite\Clock\11s.jpg")
    FileInstall("12s.jpg", "C:\Excite\Clock\12s.jpg")
    FileInstall("13s.jpg", "C:\Excite\Clock\13s.jpg")
    FileInstall("14s.jpg", "C:\Excite\Clock\14s.jpg")
    FileInstall("15s.jpg", "C:\Excite\Clock\15s.jpg")
    FileInstall("16s.jpg", "C:\Excite\Clock\16s.jpg")
    FileInstall("17s.jpg", "C:\Excite\Clock\17s.jpg")
    FileInstall("18s.jpg", "C:\Excite\Clock\18s.jpg")
    FileInstall("19s.jpg", "C:\Excite\Clock\19s.jpg")
    FileInstall("20s.jpg", "C:\Excite\Clock\20s.jpg")
    FileInstall("21s.jpg", "C:\Excite\Clock\21s.jpg")
    FileInstall("22s.jpg", "C:\Excite\Clock\22s.jpg")
    FileInstall("23s.jpg", "C:\Excite\Clock\23s.jpg")
    FileInstall("24s.jpg", "C:\Excite\Clock\24s.jpg")
    FileInstall("25s.jpg", "C:\Excite\Clock\25s.jpg")
    FileInstall("26s.jpg", "C:\Excite\Clock\26s.jpg")
    FileInstall("27s.jpg", "C:\Excite\Clock\27s.jpg")
    FileInstall("28s.jpg", "C:\Excite\Clock\28s.jpg")
    FileInstall("29s.jpg", "C:\Excite\Clock\29s.jpg")
    FileInstall("30s.jpg", "C:\Excite\Clock\30s.jpg")
    FileInstall("31s.jpg", "C:\Excite\Clock\31s.jpg")
    FileInstall("32s.jpg", "C:\Excite\Clock\32s.jpg")
    FileInstall("33s.jpg", "C:\Excite\Clock\33s.jpg")
    FileInstall("34s.jpg", "C:\Excite\Clock\34s.jpg")
    FileInstall("35s.jpg", "C:\Excite\Clock\35s.jpg")
    FileInstall("36s.jpg", "C:\Excite\Clock\36s.jpg")
    FileInstall("37s.jpg", "C:\Excite\Clock\37s.jpg")
    FileInstall("38s.jpg", "C:\Excite\Clock\38s.jpg")
    FileInstall("39s.jpg", "C:\Excite\Clock\39s.jpg")
    FileInstall("40s.jpg", "C:\Excite\Clock\40s.jpg")
    FileInstall("41s.jpg", "C:\Excite\Clock\41s.jpg")
    FileInstall("42s.jpg", "C:\Excite\Clock\42s.jpg")
    FileInstall("43s.jpg", "C:\Excite\Clock\43s.jpg")
    FileInstall("44s.jpg", "C:\Excite\Clock\44s.jpg")
    FileInstall("45s.jpg", "C:\Excite\Clock\45s.jpg")
    FileInstall("46s.jpg", "C:\Excite\Clock\46s.jpg")
    FileInstall("47s.jpg", "C:\Excite\Clock\47s.jpg")
    FileInstall("48s.jpg", "C:\Excite\Clock\48s.jpg")
    FileInstall("49s.jpg", "C:\Excite\Clock\49s.jpg")
    FileInstall("50s.jpg", "C:\Excite\Clock\50s.jpg")
    FileInstall("51s.jpg", "C:\Excite\Clock\51s.jpg")
    FileInstall("52s.jpg", "C:\Excite\Clock\52s.jpg")
    FileInstall("53s.jpg", "C:\Excite\Clock\53s.jpg")
    FileInstall("54s.jpg", "C:\Excite\Clock\54s.jpg")
    FileInstall("55s.jpg", "C:\Excite\Clock\55s.jpg")
    FileInstall("56s.jpg", "C:\Excite\Clock\56s.jpg")
    FileInstall("57s.jpg", "C:\Excite\Clock\57s.jpg")
    FileInstall("58s.jpg", "C:\Excite\Clock\58s.jpg")
    FileInstall("59s.jpg", "C:\Excite\Clock\59s.jpg")
    FileInstall("BG1C.jpg", "C:\Excite\Clock\BG1C.jpg")

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

    $Form1 = GUICreate("ExciteClock", 300, 120, -1, -1,$WS_POPUP)
    $Pic2 = GUICtrlCreatePic("C:\Excite\Clock\00.jpg", 30, 12, 90, 96, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic3 = GUICtrlCreatePic("C:\Excite\Clock\00b.jpg", 180,12, 90, 96, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic4 = GUICtrlCreatePic("C:\Excite\Clock\00s.jpg", 120,84, 60, 24, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic1 = GUICtrlCreatePic("C:\Excite\Clock\BG1C.jpg", 0, 0, 300, 120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

    GUICtrlCreateLabel("",0,0,300,12,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)

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

    _UHR ()
    AdlibEnable("_UHR",1000)

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

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

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

    Func _UHR ()
    GUICtrlSetImage($Pic2, "C:\Excite\Clock\" & @Hour & ".jpg")
    GUICtrlSetImage($Pic3, "C:\Excite\Clock\" & @MIN & "b.jpg")
    GUICtrlSetImage($Pic4, "C:\Excite\Clock\" & @SEC & "s.jpg")
    Endfunc

    [/autoit]

    P.s. würde die bilder gerne beifügen aber mein archiv hatt 1,6 mb nicht nur 1,02 wie hier erlaubt sind danke

  • Festplatten ausblenden / Einblenden ?

    Danke Oscar für die schnelle Hilfe jedoch muss ich sagen das dein Script meinen Horizont bei weitem übersteigt !
    Habe zwar auch die entsprechende Zeile gefunden jedoch fällt mir keine möglichkeit ein wie ich das auf meine Situation anwenden könnte.

    Dennoch wollte ich mich bei dir bedanken. ^^

    MfG Eistee

  • Festplatten ausblenden / Einblenden ?

    Hallo an alle ich hab mal wieder ne Frage ist es möglich in meinem rechner verbaute Festplatten unsichtbar zu machen ? und nur wenn ich einen hotkey drücke bzw. einen script ausführe werden sie wieder sichtbar ?

    Und wenn ja inwiefern wäre das realisierbar ?

    Danke im Voraus MfG Eistee

  • Filewrite sendet statt einem tab nur {tab}

    Hallo leute wollte nur mal fragen warum wie schon in der Überschrift erwähnt mein script nur {tab} schreibt statt einem tatsächlichen tab ?


    Hier mal die zeile um die es geht :

    Spoiler anzeigen
    [autoit]

    Func _Save ()
    _AnimButton ($Form1, $Pic1)
    FileWrite(@DesktopDir &"\Stundenliste.txt", @CRLF & GUICtrlRead($Input1)&"{tab}"&"{tab}"&GUICtrlRead($Input2)&"{tab}"&GUICtrlRead($Input3)&"{tab}"&GUICtrlRead($Input4)&"{tab}"&GUICtrlRead($Input5))
    Sleep (100)
    MsgBox(1,"Saved"," Die Datei wurde Gespeichert.",1)
    Exit
    EndFunc

    [/autoit]


    Falls erwünscht hier das ganze script :

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #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 <GUIConstantsEx.au3>

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

    FileInstall("C:\Users\BlackShark\Desktop\User.txt","C:\User.txt")
    FileInstall("C:\Users\BlackShark\Desktop\Save.jpg","C:\Save.jpg")
    FileInstall("C:\Users\BlackShark\Desktop\Close.jpg","C:\Close.jpg")
    FileInstall("C:\Users\BlackShark\Desktop\Mini.jpg","C:\Mini.jpg")
    FileInstall("C:\Users\BlackShark\Desktop\winBG.jpg","C:\winBG.jpg")
    FileInstall("C:\Users\BlackShark\Desktop\BG.jpg","C:\BG.jpg")

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

    $User = FileReadLine("C:\User.txt" , 1)
    $Date = @MDAY & " . " & @MON & " . " & @YEAR

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

    $Form1 = GUICreate("Stunden Zettel", 700, 130, -1, -1,$WS_POPUP)
    $Input1 = GUICtrlCreateInput($User, 16, 35, 121, 21)
    $Input2 = GUICtrlCreateInput($Date, 152, 35, 121, 21)
    $Input3 = GUICtrlCreateInput("Ort", 288, 35, 121, 21)
    $Input4 = GUICtrlCreateInput("Stunden", 424, 35, 121, 21)
    $Input5 = GUICtrlCreateInput("Auftraggeber", 560, 35, 121, 21)

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

    $Pic1 = GUICtrlCreatePic("C:\Save.jpg", 273, 96, 154, 15, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic2 = GUICtrlCreatePic("C:\Close.jpg", 660, 0, 40, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic3 = GUICtrlCreatePic("C:\Mini.jpg", 602, 0, 58, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic4 = GUICtrlCreatePic("C:\winBG.jpg", 602, 0, 98, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Pic5 = GUICtrlCreatePic("C:\BG.jpg", 0, 0, 700, 130, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic2
    _Close ()
    Case $Pic3
    _Mini ()
    Case $Pic1
    _Save ()
    EndSwitch
    WEnd

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

    Func _Close ()
    _AnimButton ($Form1, $Pic2)
    Exit
    EndFunc

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

    Func _Mini ()
    _AnimButton ($Form1, $Pic3)
    GUISetState(@SW_MINIMIZE,$Form1)
    EndFunc

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

    Func _Save ()
    _AnimButton ($Form1, $Pic1)
    FileWrite(@DesktopDir &"\Stundenliste.txt", @CRLF & GUICtrlRead($Input1)&"{tab}"&"{tab}"&GUICtrlRead($Input2)&"{tab}"&GUICtrlRead($Input3)&"{tab}"&GUICtrlRead($Input4)&"{tab}"&GUICtrlRead($Input5))
    Sleep (100)
    MsgBox(1,"Saved"," Die Datei wurde Gespeichert.",1)
    Exit
    EndFunc

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

    Func _AnimButton($IDgui, $IDbtn, $delay=300)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]


    P.S. ich weiss es ist eine alte autoit version die ich allerdings gerne weiter benutzen würde ^^


    Mfg Eistee

  • Simulieren des NumPads

    ähm eine frage noch ich habe jetzt versucht da letzte beispiel umzusetzten jedoch kommen da fehler da ein for fehlt oder so ?


    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>

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

    $iTimer = TimerInit()

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

    While Sleep(20)
    For $i = 30 To 39
    If _IsPressed($i) And TimerDiff($iTimer) >= 150 Then
    Send("{NUMPAD" & $i - 30 & "}")
    $iTimer = TimerInit()
    EndIf
    Next
    If _IsPressed(70) And TimerDiff($iTimer) >= 150 Then
    Send("{NUMPADDIV}")
    $iTimer = TimerInit()
    EndIf
    Next
    If _IsPressed(71) And TimerDiff($iTimer) >= 150 Then
    Send("{NUMPADMULT}")
    $iTimer = TimerInit()
    EndIf
    Next
    If _IsPressed(733) And TimerDiff($iTimer) >= 150 Then
    Send("{NUMPADSUB}")
    $iTimer = TimerInit()
    EndIf
    WEnd

    [/autoit]

  • Simulieren des NumPads

    @ name22 das funktioniert perfekt kann mann noch irgendwie einbauen das der stern,das / und das - des numpads noch eingebaut werden ?
    also z.b. das ^^ is dann /, Das ? ist dann / und das daneben ist dann - wäre das möglich ?

  • Simulieren des NumPads

    Hallo Leute

    Ich habe ein problem und zwar habe ich ein program welches per numpad gesteuert wird. mein problem ist das ich an meinem notebook kein numpad habe...

    ich hatte die idee per hotkeyset die tastendrücke der normal zahlen abzufangen und stattdessen die zahlen des numpads zu senden dies scheint jedoch nicht zu klappen habt ihr jedwelche idee was ich da machen könnte
    mfg eistee


    bisheriger script :

    Spoiler anzeigen
    [autoit]

    ; Drücke Esc um das Script zu beenden, Pause um es zu pausieren

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

    HotKeySet("1", "1")

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

    ;;;; Hier ist der Hauptteil des Programms ;;;;
    While 1
    Sleep(100)
    WEnd
    ;;;;;;;;

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

    Func _1()
    Send ("{NUMPAD1}")
    EndFunc

    [/autoit]

  • Lange nicht mehr aktiv transparenz mittlerweile möglich ?

    Hallo autobert

    Methode 1 hatte ich schon ist nicht sehr genau

    methode 2 verstehe ich leider nicht
    und an Andy

    Hier hatte ich methode 1 auch schon jedoch hatten die runden ecken immer so nervige treppchen drinnen was nicht gerade mein ziel ist

    und methode 2 ist hier auch sehr unverständlich ich möchte eigentlich nur ein .png bild als hintergrund verwenden und den rest der gui transparent machen
    so das ich jegliche controls wie buttons und so weiter problemfrei verwenden kann

    MFG