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. Schnuffel

Beiträge von Schnuffel

  • Herzlichen Glückwunsch Schnuffel

    • Schnuffel
    • 5. Juli 2011 um 20:50

    na dann sag ich nochmal an alle ein
    Herzliches Danke Schön :love:

  • [Abstimmung] über eine kleine feine Ergänzung zur Registration

    • Schnuffel
    • 3. Juli 2011 um 19:51

    der gedankliche Witz als Ansatz ist ja ganz nett.

    Aber...
    1. wird auf einer offiziellen Verlinkung von AutoIt nie ein Copyright eines Users oder sonst wem stehen.
    2. ist das überhaupt nicht übersichtlich, geschweige denn hilfreich.
    3. zielt das eher darauf ab, jemanden zu verar****** als Ihm wirklich zu helfen mit seinem Problem.
    4. Wenn mir so etwas beim Anmelden in einem Forum entgegnen würde, dann wäre ich wieder weg, bevor ich den ersten Thread auch nur gelesen hätte.

    Daher in der Form ein "No Go" ;)

    PS: über den Nutzen solcher Informationen beim Anmelden wurde bereits hinreichend diskutiert.
    Leider hat sich gezeigt, dass der Mehrwert eher gegen Null geht.

    Ach ja, bei "passendes Thema gefunden " gibt es 2 "Nein-Zweige". ...

  • Scrip endet nicht

    • Schnuffel
    • 3. Juli 2011 um 15:16

    Beispiel:

    Spoiler anzeigen
    [autoit]

    Local $hDownload = InetGet("http://ichart.finance.yahoo.com/table.csv?s=LIN.DE&d=6&e=3&f=2011&g=d&a=1&b=1&c=2003&ignore=.csv", @DesktopDir & "\update.csv", 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload) ; Close the handle to release resourcs.
    MsgBox(0, "", "Bytes read: " & $nBytes)

    [/autoit]
  • Trayicon Bereich updaten / refreshen

    • Schnuffel
    • 30. Juni 2011 um 17:32

    Hi Surfy,
    hier die Funktion:
    So wie die ist habe ich Sie compiliert und ohne Probleme laufen lassen
    läuft auch auf Win7 64-bit ;)

    Spoiler anzeigen
    [autoit]


    _UpdateTray() ; das ist der Aufruf zu der Funktion.

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

    Func _UpdateTray()
    Local $iMode = Opt("WinTitleMatchMode", 4)
    Local $hControl = ControlGetHandle("[CLASS:Shell_TrayWnd]", "", "[CLASSNN:ToolbarWindow321]")
    Local $acSize = WinGetClientSize($hControl)
    For $x = 0 To $acSize[0] Step 5
    For $Y = 0 To $acSize[1] Step 5
    DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hControl, "int", 0x0200, "wparam", 0, "lparam", BitOR($Y * 0x10000, BitAND($x, 0xFFFF)))
    Next
    Next
    Opt("WinTitleMatchMode", $iMode)
    EndFunc ;==>_UpdateTray

    [/autoit]
  • msgbox, wenn bild aufgerufen wird

    • Schnuffel
    • 29. Juni 2011 um 15:46

    ich bin für Thread close.
    Diese Idee kann in nichts vernünftiges/legales umgesetzt werden.

  • msgbox, wenn bild aufgerufen wird

    • Schnuffel
    • 29. Juni 2011 um 15:41

    nein das geht nicht.

  • Herzlichen Glückwunsch Schnuffel

    • Schnuffel
    • 28. Juni 2011 um 21:11

    Danke an alle für die Glückwünsche.

  • Datei wird nicht verschoben

    • Schnuffel
    • 27. Juni 2011 um 23:04

    könnte daran liegen,
    dass das mit dem anklicken von einem GuiCtrlCreatePic so eine Sache ist ...

    mein Fehler ...
    Kommentar gestrichen :D

  • Trayicon Doppelklick von einfachklick unterscheiden

    • Schnuffel
    • 27. Juni 2011 um 22:46

    also zum Einen ist dein Script-Ausschnitt nicht lauffähig.
    Ich habe keine Lust das erst zurecht zu biegen.

    Zum Anderen ist die Entscheidung über die Ansteuerung vielleicht schon das Problem.
    ich würde nie 2 unterschiedliche Funktionen nur durch die Unterscheidung 1-klick / doppelklick.
    Das ist schon aus Usersicht äußerst fehlerträchtig.

  • Zeit bis...

    • Schnuffel
    • 27. Juni 2011 um 15:09

    nochmal quick & dirty ...
    jetzt aber mal selber das Hirn ein wenig anstrengen ;)

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>

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

    FileInstall ("C:\Users\Tim\Desktop\ICrememberCFG.ini" , "ICrememberCFG.ini")

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

    $t_min = ''
    $t_hour = ''
    $t_day = ''
    $check1 = False
    $check2 = False
    $check3 = False
    $Form1 = GUICreate("IC Remember", 202, 138, 192, 124)
    $Label1 = GUICtrlCreateLabel("0", 24, 8, 25, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel(" h", 40, 8, 30, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("0", 70, 8, 46, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel( "min", 122, 8, 67, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("Bis zum Nächsten IC", 16, 64, 177, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Einstellungen", 24, 96, 155, 33)
    GUISetState(@SW_SHOW)

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

    $Form2 = GUICreate("Einstellungen", 200, 147, 205, 137)
    $Checkbox1 = GUICtrlCreateCheckbox("Erinnern", 8, 8, 65, 17)
    $Input1 = GUICtrlCreateInput("5", 72, 8, 25, 21)
    $Label6 = GUICtrlCreateLabel("Minute/n vor IC", 104, 8, 78, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Erinnern", 8, 32, 65, 17)
    $Label7 = GUICtrlCreateLabel("Minute/n vor IC", 104, 32, 78, 17)
    $Input2 = GUICtrlCreateInput("1", 72, 32, 25, 21)
    $Label8 = GUICtrlCreateLabel("Erinnerung für die Bossrunde:", 8, 56, 143, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Erinnern", 8, 80, 65, 17)
    $Input3 = GUICtrlCreateInput("10", 72, 80, 25, 21)
    $Label9 = GUICtrlCreateLabel("Minute/n nach IC", 104, 80, 87, 17)
    $Button2 = GUICtrlCreateButton("Speichern", 56, 112, 75, 25)

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

    ;Setzen des Statusses f?r Er1
    $Er1z = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , "5")
    GUICtrlSetData ($Input1 , $Er1z)
    $Er = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , "1" )
    If $Er = 1 Then
    GUICtrlSetState ($Checkbox1, $GUI_CHECKED)
    EndIf
    ;Er2
    $Er2z = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , "5")
    GUICtrlSetData ($Input2 , $Er2z)
    $Er2 = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , "1" )
    If $Er2 = 1 Then
    GUICtrlSetState ($Checkbox2, $GUI_CHECKED)
    EndIf
    ;Er3
    $Er3z = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , "5")
    GUICtrlSetData ($Input3 , $Er3z)
    $Er3 = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , "1" )
    If $Er3 = 1 Then
    GUICtrlSetState ($Checkbox3, $GUI_CHECKED)
    EndIf

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

    _TimerDiffShow()
    AdlibRegister('_TimerDiffShow', 1000)

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Switch $nMsg[1]
    Case $Form1
    Exit
    Case Else
    ;Speichern der Einstellungen Er1
    $Cb1 = GUICtrlRead ($Checkbox1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
    $Ip1 = GUICtrlRead ($Input1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
    ;Er2
    $Cb2 = GUICtrlRead ($Checkbox2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
    $Ip2 = GUICtrlRead ($Input2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
    ;Er3
    $Cb3 = GUICtrlRead ($Checkbox3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
    $Ip3 = GUICtrlRead ($Input3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $nMsg[1])
    GUISwitch($Form1)
    EndSwitch
    Case $Button1
    GUISetState(@SW_SHOW, $Form2)
    GUISetState(@SW_HIDE, $Form1)
    GUISwitch($Form2)
    Case $Button2
    ;Speichern der Einstellungen Er1
    $Cb1 = GUICtrlRead ($Checkbox1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
    $Ip1 = GUICtrlRead ($Input1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
    ;Er2
    $Cb2 = GUICtrlRead ($Checkbox2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
    $Ip2 = GUICtrlRead ($Input2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
    ;Er3
    $Cb3 = GUICtrlRead ($Checkbox3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
    $Ip3 = GUICtrlRead ($Input3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
    ;Switch des Fensters
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $Form2)
    GUISwitch($Form1)
    EndSwitch

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

    ;auslesen der daten
    $until1 = GUICtrlRead ($Input1)
    $until2 = GUICtrlRead ($Input2)
    $aft = GUICtrlRead ($Input3)
    $after = 60 - $aft
    ;Erinnerung 1
    If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $until1 and $check1 = False Then
    $check1 = Not $check1
    MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until1 & " Minuten!")
    EndIf
    ;Erinnerung 2
    If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $until2 and $check2 = False Then
    $check2 = Not $check2
    MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until2 & " Minuten!")
    EndIf
    ;Erinnerung 3
    If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $after and $check3 = False Then
    $check3 = Not $check3
    MsgBox (0, "Bossrunde" , "Die Bossrunde beginnt gleich!")
    EndIf
    If GUICtrlRead ($Label1) = 1 and $check1 = True Then $check1 = False
    If GUICtrlRead ($Label1) = 1 and $check2 = True Then $check2 = False
    If GUICtrlRead ($Label1) = 1 and $check3 = True Then $check3 = False
    WEnd

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

    Func _TimerDiffShow()
    $t_day = @MDAY
    $t_hour = Mod(1+Mod(@Hour,2),2)
    $t_min = 60 - @MIN
    If $t_hour >= 24 Then $t_hour = $t_hour - 24
    If GUICtrlRead($Label1) <> $t_hour Then GUICtrlSetData($Label1, $t_hour)
    If GUICtrlRead($Label3) <> $t_min Then GUICtrlSetData($Label3, $t_min)
    EndFunc

    [/autoit]
  • Zeit bis...

    • Schnuffel
    • 27. Juni 2011 um 14:16

    quick & dirty...

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>

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

    FileInstall ("C:\Users\Tim\Desktop\ICrememberCFG.ini" , "ICrememberCFG.ini")

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

    $t_min = ''
    $t_hour = ''
    $t_day = ''
    $check1 = False
    $Form1 = GUICreate("IC Remember", 202, 138, 192, 124)
    $Label1 = GUICtrlCreateLabel("0", 24, 8, 25, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel(" h", 40, 8, 30, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("0", 70, 8, 46, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel( "min", 122, 8, 67, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("Bis zum Nächsten IC", 16, 64, 177, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Einstellungen", 24, 96, 155, 33)
    GUISetState(@SW_SHOW)

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

    $Form2 = GUICreate("Einstellungen", 200, 147, 205, 137)
    $Checkbox1 = GUICtrlCreateCheckbox("Erinnern", 8, 8, 65, 17)
    $Input1 = GUICtrlCreateInput("5", 72, 8, 25, 21)
    $Label6 = GUICtrlCreateLabel("Minute/n vor IC", 104, 8, 78, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Erinnern", 8, 32, 65, 17)
    $Label7 = GUICtrlCreateLabel("Minute/n vor IC", 104, 32, 78, 17)
    $Input2 = GUICtrlCreateInput("1", 72, 32, 25, 21)
    $Label8 = GUICtrlCreateLabel("Erinnerung für die Bossrunde:", 8, 56, 143, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Erinnern", 8, 80, 65, 17)
    $Input3 = GUICtrlCreateInput("10", 72, 80, 25, 21)
    $Label9 = GUICtrlCreateLabel("Minute/n nach IC", 104, 80, 87, 17)
    $Button2 = GUICtrlCreateButton("Speichern", 56, 112, 75, 25)

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

    ;Setzen des Statusses f?r Er1
    $Er1z = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , "5")
    GUICtrlSetData ($Input1 , $Er1z)
    $Er = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , "1" )
    If $Er = 1 Then
    GUICtrlSetState ($Checkbox1, $GUI_CHECKED)
    EndIf
    ;Er2
    $Er2z = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , "5")
    GUICtrlSetData ($Input2 , $Er2z)
    $Er2 = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , "1" )
    If $Er2 = 1 Then
    GUICtrlSetState ($Checkbox2, $GUI_CHECKED)
    EndIf
    ;Er3
    $Er3z = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , "5")
    GUICtrlSetData ($Input3 , $Er3z)
    $Er3 = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , "1" )
    If $Er3 = 1 Then
    GUICtrlSetState ($Checkbox3, $GUI_CHECKED)
    EndIf

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

    _TimerDiffShow()
    AdlibRegister('_TimerDiffShow', 1000)

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Switch $nMsg[1]
    Case $Form1
    Exit
    Case Else
    ;Speichern der Einstellungen Er1
    $Cb1 = GUICtrlRead ($Checkbox1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
    $Ip1 = GUICtrlRead ($Input1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
    ;Er2
    $Cb2 = GUICtrlRead ($Checkbox2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
    $Ip2 = GUICtrlRead ($Input2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
    ;Er3
    $Cb3 = GUICtrlRead ($Checkbox3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
    $Ip3 = GUICtrlRead ($Input3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $nMsg[1])
    GUISwitch($Form1)
    EndSwitch
    Case $Button1
    GUISetState(@SW_SHOW, $Form2)
    GUISetState(@SW_HIDE, $Form1)
    GUISwitch($Form2)
    Case $Button2
    ;Speichern der Einstellungen Er1
    $Cb1 = GUICtrlRead ($Checkbox1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
    $Ip1 = GUICtrlRead ($Input1)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
    ;Er2
    $Cb2 = GUICtrlRead ($Checkbox2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
    $Ip2 = GUICtrlRead ($Input2)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
    ;Er3
    $Cb3 = GUICtrlRead ($Checkbox3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
    $Ip3 = GUICtrlRead ($Input3)
    IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
    ;Switch des Fensters
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $Form2)
    GUISwitch($Form1)
    EndSwitch

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

    ;auslesen der daten
    $until1 = GUICtrlRead ($Input1)
    $until2 = GUICtrlRead ($Input2)
    $aft = GUICtrlRead ($Input3)
    $after = 60 - $aft
    ;Erinnerung 1
    If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $until1 and $check1 = False Then
    $check1 = Not $check1 ; Schalter, damit die Meldung nur einmal kommt muss für weitere Erinnerungen zum richtigen Zeitpunkt dann wieder auf den anderen Status gesetzt werden
    MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until1 & " Minuten!")
    EndIf
    ;Erinnerung 2
    ;~ If $Checkbox2 = $GUI_CHECKED and $timeh = 0 and $timem = $until2 Then
    ;~ MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until2 & " Minuten!")
    ;~ EndIf
    ;~ ;Erinnerung 3
    ;~ If $Checkbox3 = $GUI_CHECKED and $timeh = 1 and $timem = $after Then
    ;~ MsgBox (0, "Bossrunde" , "Die Bossrunde beginnt gleich!")
    ;~ EndIf
    WEnd

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

    Func _TimerDiffShow()
    $t_day = @MDAY
    $t_hour = Mod(1+Mod(@Hour,2),2)
    $t_min = 60 - @MIN
    If $t_hour >= 24 Then $t_hour = $t_hour - 24
    If GUICtrlRead($Label1) <> $t_hour Then GUICtrlSetData($Label1, $t_hour)
    If GUICtrlRead($Label3) <> $t_min Then GUICtrlSetData($Label3, $t_min)
    EndFunc

    [/autoit]
  • Pic behindert Controls

    • Schnuffel
    • 26. Juni 2011 um 23:46

    du musst das pic disablen...

    Spoiler anzeigen
    [autoit]

    #include <GuiConstants.au3>

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

    Global $Dummy

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

    Global Const $Title = "Test"
    Global Const $Width = 580
    Global Const $Height = 230
    Global Const $BgColor = 0x000000
    Global Const $FontSize = 8.5
    Global Const $Font = "Tahoma"
    Global Const $FontColor = 0xFFFFFF
    Global Const $BG = @DesktopDir & "\background.bmp"

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

    $GUI = GUICreate ($Title, $Width, $Height, -1, -1)
    GUISetBkColor($BgColor)
    GUISetFont($FontSize, 400, 0, $Font)
    GUICtrlCreatePic ($BG, 0, 0, 580, 230)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlCreateInput ("Input 1", 30, 50, 190, 19)
    GUICtrlCreateInput ("Input 2", 30, 79, 190, 19)
    GUICtrlCreateInput ("Input 3", 30, 140, 190, 28)
    GUICtrlSetFont (-1, 13)
    $Button = GUICtrlCreateButton ("Button 1", 80, 180, 90, 20)

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

    GUISetState (@SW_SHOW)

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

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

    [/autoit]
  • Zeit bis...

    • Schnuffel
    • 26. Juni 2011 um 23:37

    mal als einfaches Beispiel ...

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>

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

    $t_hour = ''
    $t_day = ''
    $Form1 = GUICreate("IC Remember", 202, 138, 192, 124)
    $Label1 = GUICtrlCreateLabel("0", 24, 8, 25, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel(" h", 40, 8, 30, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("0", 70, 8, 46, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel( "min", 122, 8, 67, 52)
    GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("Bis zum Nächsten IC", 16, 64, 177, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Einstellungen", 24, 96, 155, 33)
    GUISetState(@SW_SHOW)

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

    $Form2 = GUICreate("Einstellungen", 200, 147, 205, 137)
    $Checkbox1 = GUICtrlCreateCheckbox("Erinnern", 8, 8, 65, 17)
    $Input1 = GUICtrlCreateInput("5", 72, 8, 25, 21)
    $Label6 = GUICtrlCreateLabel("Minute/n vor IC", 104, 8, 78, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Erinnern", 8, 32, 65, 17)
    $Label7 = GUICtrlCreateLabel("Minute/n vor IC", 104, 32, 78, 17)
    $Input2 = GUICtrlCreateInput("1", 72, 32, 25, 21)
    $Label8 = GUICtrlCreateLabel("Erinnerung für die Bossrunde:", 8, 56, 143, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Erinnern", 8, 80, 65, 17)
    $Input3 = GUICtrlCreateInput("10", 72, 80, 25, 21)
    $Label9 = GUICtrlCreateLabel("Minute/n nach IC", 104, 80, 87, 17)
    $Button2 = GUICtrlCreateButton("Speichern", 56, 112, 75, 25)

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

    _TimerDiffShow()
    AdlibRegister('_TimerDiffShow', 1000)

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Switch $nMsg[1]
    Case $Form1
    Exit
    Case Else
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $nMsg[1])
    GUISwitch($Form1)
    EndSwitch
    Case $Button1
    GUISetState(@SW_SHOW, $Form2)
    GUISetState(@SW_HIDE, $Form1)
    GUISwitch($Form2)
    Case $Button2
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $Form2)
    GUISwitch($Form1)
    EndSwitch
    WEnd

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

    Func _TimerDiffShow()
    $t_day = @MDAY
    $t_hour = Mod(1+Mod(@Hour,2),2)
    If $t_hour >= 24 Then
    $t_hour = $t_hour - 24
    EndIf
    If GUICtrlRead($Label1) <> $t_hour Then GUICtrlSetData($Label1, $t_hour)
    If GUICtrlRead($Label3) <> 60 - @MIN Then GUICtrlSetData($Label3, 60 - @MIN)
    EndFunc

    [/autoit]
  • Zeit bis...

    • Schnuffel
    • 26. Juni 2011 um 22:36
    Zitat

    Vielleicht können wir das einfach vergessen.

    schon vergessen ;)

  • Kev goes - Nikon Welt Gewinnspiel ?! o.O

    • Schnuffel
    • 26. Juni 2011 um 22:07

    Kev

    Zitat

    (Ich hab mir schon überlegt den Sessionkey auszulesen & bissl rumzuscripten, weiß nur leider nich wie ich den übergeben kann ;D)


    ich hoffe Du meinst das jetzt nicht Ernst ...

  • Zeit bis...

    • Schnuffel
    • 26. Juni 2011 um 22:03

    jetzt gibt es doch noch einen Kommentar:
    zu deinem Thread und meinem Verständnis dazu...

    Zitat

    Ich versuche gerade mir ein Programm zu erstellen, dass mir einen Countdown anzeigt, bis es 10/12/14/16 usw.. Uhr ist. Wie geht das?


    du schreibst zuerst, dass Du ein Programm schreibst... (wo ist das bisherige Script?)
    dann fragst Du wie das geht ... hmmm ...

    Zitat

    Ich wollte das ganze in eine Schleife setzen,
    die überprüft, welche Uhrzeit gerade ist, den Unterschied errechnen und dann 2 Label mit GuiCtrlSetState auf die verbleibenden Stunden/Minuten zu setzen.


    Du wirfst mit dem Begriff der "Schleife" um Dich, um zu suggerieren dass Du Dir echt viele Gedanken gemacht hast und ja eigentlich ein Profi bist ;)
    Erwähnst fasst nebenbei so Begriffe wie GuiCtrlSetState und Co. aber Dein Gedankengut behälst Du für Dich.

    Als ich Dir nahegelegt habe die Suche zu benutzen erwartest Du von mir einen funktionierenden Link, der Dir die Lösung präsentiert.
    Entschuldige, aber da kann ich dann richtig sauer werden.

    Zu Guter Letzt bist Du beleidigt und willst uns wieder verlassen, wobei Du es nicht lassen kannst auch noch auf mich zu schimpfen und mir die Schuld dafür zuschiebst.
    Nur weil Du Deine Lösung nicht auf so einfache Weise bekommen hast.
    Wenn Deine Einstellung zum Erlangen von Wissen nur darauf basiert, es sich von Anderen liefern zu lassen, dann bist Du ganz sicher falsch hier,
    oder ich muss meine Einstellung überdenken.

    Vielleicht bin ich ja überholt und Werte wie "seine Freizeit opfern um anderen zu helfen" sind nicht mehr up to date.
    Vielleicht haben wir uns aber auch nur auf dem falschen Fuß getroffen.

    Zitat von misterspeed

    Vielleicht hat er dir das nicht auf die netteste Art und Weise mitgeteillt,


    mag sein.
    Ich bin auch nur ein Mensch.
    Aber wer sich hier anmeldet und im ersten Post sich unklar ausdrückt und dann einen Willi macht -- da habe ich kein Mitleid.

  • Zeit bis...

    • Schnuffel
    • 26. Juni 2011 um 21:44

    no comment :D

  • Zeit bis...

    • Schnuffel
    • 26. Juni 2011 um 21:33

    misterspeed, das hab ich nicht bedacht. Danke.

    @Sakurion, ich finde etwas dreist, wenn Du daruaf hingewiesen wirst unsere Zeit zu verschwenden, weil du selber zu faul bist
    dann auch noch zu "fordern" ich hätte Dir einen funktionierenden Link zu liefern.

    Hier der Link: http://www.autoit.de/index.php?page=Thread&threadID=27228&highlight=countdown

    es war das erste Ergebnis in der SuFu bei der Eingabe des Wortes Countdown,

    Sorry, aber dafür habe ich nur wenig Verständnis.

  • Zeit bis...

    • Schnuffel
    • 26. Juni 2011 um 21:24

    würdest Du für Deine Frage die Suche benutzen
    wäre Deine Frage in 1 Minute geklärt gewesen, ohne jemanden damit zu beschäftigen.

    Soll heißen:
    1. - für ein Problem verwende zuerst die Hilfe und deren Beispiele.
    2. - versuche über die Suchfunktion in AutoIt oder über Google eine Antwort zu finden
    3. - stelle jetzt erst eine Frage im Forum

    nichts ist nervender, als für andere zu suchen was schon lange erfunden wurde ...

    http://www.autoit.de/index.php?form=Search&searchID=758837&highlight=countdown

  • Hilfe für einen NOOB

    • Schnuffel
    • 25. Juni 2011 um 22:31

    campweb hat Recht.
    Bitte nach H & U verschieben ;)

    PS: der Lacher kam vom Ü ;)

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™