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

Beiträge von autoBert

  • Ein Sound bei Connect

    • autoBert
    • 18. Oktober 2009 um 20:09

    Hallo Detroit49,

    Zitat von Detroit49

    also an das zertifikat komme ich nicht ran leider das ist abgeschirmt

    nein das ist nicht der ganze code aber der rest hat nen paar infos über meinen server

    wieso ist dein eigener Server gegn dich abgeschirmt. Zu WinGetText: einfach ausprobieren,

    Edit: muss aber funktionieren siehe Online-Hilfe

    mfg (Auto)Bert

  • Script funktioniert nicht mehr.

    • autoBert
    • 18. Oktober 2009 um 19:53

    Hallo slash,

    wie bereits gepostet: wenn ich eine LIED. MP3 manuell erstelle wird die LIED.FLV gelöscht, kannst du die EXE zum umwandeln bzw. den Link dazu hier einstellen, damit ich das Programm vollständig testen kann,

    PS.: die Ziel.MP3 hat bei mir immer 0 KB (Inetstörungen bei mobilem Download???)

    mfg (Auto)Bert

  • Script funktioniert nicht mehr.

    • autoBert
    • 18. Oktober 2009 um 18:56

    Hallo slash,

    die FLV wird bei mir gelöscht, nur die Ausgabe in der Console ist falsch (siehe meinen vorhegehenden Post).

    @Rubberducky die Variable wird in Zeile 48 deklariert, die Fehlermeldung mit der MsgBox resultiert wohl daraus, dass die Func _Start ausgeführt wird, du kannst aber trotzdem eine URL eingeben und danach die MsgBox wegklicken.

    Edit: Zeile 29

    [autoit]

    $dl_AND = GUICtrlCreatePic(@TempDir & "\ytbtn.jpg", 0, 62, 398, 41)

    [/autoit]

    löst den automatischen Start aus, wenn das JPG-File nicht existiert

    mfg (Auto)Bert

  • Script funktioniert nicht mehr.

    • autoBert
    • 18. Oktober 2009 um 17:37

    Hallo slash,

    das löschen der Datei funktioniert bei mir (musste zwar manuell eine Datei mit mp3 Endung erzeugen da ich die ytflv.exe nicht habe) aber die Anzeige ist verkehrt. Du musst die Zeilen 102 und 103 umtauschen, da immer die Meldung erfolgreich gelöscht kommt. Ausserdem wiederholt sich die Func _Start fortwährend, hierzu habe ich noch keine Lösung,

    mfg (Auto)Bert

  • Text von programminternem Fenster auslesen

    • autoBert
    • 18. Oktober 2009 um 16:48

    Hallo TinkyWinky,

    Zitat von TinkyWinky

    Gibt´s noch 'ne andere Möglichkeit, den Inhalt der Meldung auszulesen?
    Hilft mir eigentlich die HandleID oder wird die auf verschiedenen Rechnern unterschiedlich von Windows vergeben


    Mir ist keine andere Möglichkeit bekannt. Die Handles können sich von Programmstart zu Programmstart unterscheiden,

    mfg (Auto)Bert

  • Script funktioniert nicht mehr.

    • autoBert
    • 18. Oktober 2009 um 16:42

    Hallo slash,

    schau dir die Hilfe zu fileexists an,

    mfg (Auto)Bert

  • Lizenzcode

    • autoBert
    • 18. Oktober 2009 um 16:14

    Hallo slin,

    auf deine Frage perf PN zu

    Zitat von AutoBert

    Einfach ein Edit-Control zur Eingabe und einen Button zum Bestätigen, das ganze am besten in einer eigenen Gui vor dem eigentlichen Programmstart. Wenn der Code X-mal falsch eingeben wurde einfach Programm mit exit beenden, ansonsten bei richtiger Eingabe Programm starten.

    Hierbei hatte ich an eine Lösung wie diese gedacht:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <EditConstants.au3>
    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Opt("MustDeclareVars", 1)

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

    If _LicencePlease("TEST",5) = 1 Then _Main()

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

    Func _LicencePlease($sLic = "",$iTimes =0)
    Local $hfrmGui, $coords[4], $hedtLic, $hlblLic, $bLoop, $text, $btnOK, $msg, $sRet = 0
    $hfrmGui = GUICreate("Zugriff Verweigert!!!", 200, 140)
    ;GUISetBkColor(0xff5001, $hfrmGui)
    $hlblLic = GUICtrlCreateLabel("Zuerst den Lizenz-Code eingeben.", 10, 10, 180, 30)
    $hedtLic = GUICtrlCreateEdit("", 10, 80, 180, 20, BitOR($ES_UPPERCASE, $ES_PASSWORD))
    $btnOK = GUICtrlCreateButton("an&melden", 10, 110, 70)
    $bLoop = 0
    GUISetState()
    $coords = WinGetPos($hfrmGui)
    _MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])

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

    While $bLoop < $iTimes
    $msg = GUIGetMsg()
    Switch $msg
    Case $Gui_EVENT_CLOSE
    Exit
    Case $btnOK
    $bLoop += 1
    If $sLic = GUICtrlRead($hedtLic) Then;Fragt die eingegebene Lizenz ab
    ConsoleWrite($sLic & " = " & GUICtrlRead($hedtLic) & " ?" & @CRLF)
    MsgBox(4096, "Congratulation", "You typed in the Licence-Key word!")
    $sRet = 1
    ExitLoop
    Else
    If $bLoop = $iTimes Then
    MsgBox(4096, "Error", "You typed in the wrong Licence-Key for " & $iTimes & " Times =>EXIT!")
    ;Exit
    Else
    MsgBox(4096, "Error", "You typed in the wrong Licence-Key - try again!")
    EndIf
    EndIf
    EndSwitch
    WEnd
    _MouseTrap()
    GUIDelete($hfrmGui)
    Return $sRet
    EndFunc ;==>_LicencePlease

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

    Func _main()
    Local $hIE, $Form1, $Pic1, $Pic2, $Label1, $nMsg
    $hIE = _IECreateEmbedded()
    $Form1 = GUICreate("Updater/Programme", 987, 696, 108, 6)
    GUISetIcon("C:\Users\********\Documents\Dokumente\icons\Component.ico")
    $Pic1 = GUICtrlCreateObj($hIE, 0, 24, 985, 665)
    $Label1 = GUICtrlCreateLabel("Du weisst nicht welche Version du von ein bestimmten Programm hast? Links oben bei den Programm steht es!", 8, 0, 525, 17)
    $Pic2 = GUICtrlCreatePic("C:\Users\********\Videos\version.jpg", 552, 0, 129, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    _IENavigate($hIE, "http://**********.bplaced.net/")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $Gui_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd
    EndFunc ;==>_main

    [/autoit]


    mfg (Auto)Bert

  • Lizenzcode

    • autoBert
    • 18. Oktober 2009 um 03:26

    Hallo slin,

    Zitat von slin

    Hallo, wie mache ich es das ein bestimmter Lizenzcode [Den ich vorher bestimmt habe] eingegeben werden muss damit das Programm startet?

    Einfach ein Edit-Control zur Eingabe und einen Button zum Bestätigen, das ganze am besten in einer eigenen Gui vor dem eigentlichen Programmstart. Wenn der Code X-mal falsch eingeben wurde einfach Programm mit exit beenden, ansonsten bei richtiger Eingabe Programm starten.

    mfg (Auto)Bert

  • Progress starten automatisch

    • autoBert
    • 18. Oktober 2009 um 03:13

    Hallo slin,

    schau dir einmal dieses kleine Skript an, vielleicht hilft es dir ja weiter:

    Spoiler anzeigen
    [autoit]

    #INCLUDE <WINDOWSCONSTANTS.AU3>
    #INCLUDE <SENDMESSAGE.AU3>
    #INCLUDE <GUICONSTANTSEX.AU3>
    #INCLUDE <PROGRESSCONSTANTS.AU3>

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

    OPT("GUIONEVENTMODE", 1)

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

    $FORM1 = GUICREATE("FORM1", 545, 125,5,5);, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
    GUISETONEVENT($GUI_EVENT_CLOSE, "FORM1CLOSE")
    $BUTTON1 = GUICTRLCREATEBUTTON('STOP MARQUEE',5,5)
    GUISETONEVENT(-1, "STOPMARQUEE")
    $PROGRESS1 = GUICTRLCREATEPROGRESS(0, 95, 545, 25, $PBS_MARQUEE)
    $HPROGRESS = GUICTRLGETHANDLE($PROGRESS1)
    _SENDMESSAGE($HPROGRESS, $PBM_SETMARQUEE, TRUE, 10)
    GUISETSTATE(@SW_SHOW)

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

    WHILE 1
    SLEEP(100)
    WEND

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

    FUNC STOPMARQUEE()
    _SENDMESSAGE($HPROGRESS, $PBM_SETMARQUEE, FALSE, 10)
    ENDFUNC
    FUNC FORM1CLOSE()
    EXIT
    ENDFUNC ;==>FORM1CLOSE

    [/autoit]

    mfg (Auto)Bert

  • Komme nich weiter

    • autoBert
    • 18. Oktober 2009 um 01:43

    Hallo slin,

    benutze halt einfach einmal die SUchFUnktion (fast ganz rechts oben auf der Seite) mit dem Stichwort Update, dann bekommst du ca. 1000 Treffer. AFAIK hat Sen in Hastynotes eine eingebaut, die gut funktioniert,

    mfg (Auto)Bert

  • passwortmanager

    • autoBert
    • 17. Oktober 2009 um 19:13

    Hallo MiluBarakus,

    Zitat

    Die codes funktionieren zwar, aber eigentlich hatte ich geplant, das die maus nicht aus dem manager bewegt werden kann wie hier :

    na dann so:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <Misc.au3>

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

    Opt("MustDeclareVars", 1)

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

    _Main()

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

    Func _Main()
    Local $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
    $GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
    GUISetBkColor(0xff5001, $GUI)
    $label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 350, 40)
    $input1 = GUICtrlCreateInput("", 39, 80, 350, 20)
    $btnOK = GUICtrlCreateButton("an&melden", 39, 110, 70)
    $bLoop = 0
    GUISetState()

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

    While $bLoop < 3
    $coords = WinGetPos($GUI)
    _MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
    $msg = GUIGetMsg()
    Switch $msg
    case $GUI_EVENT_CLOSE
    Exit
    case $btnOK
    $bLoop += 1
    $text = GUICtrlRead($input1) ;Fragt das eingegebene Password ab
    If $text <> "test" Then
    If $bLoop = 3 Then
    ;WinWaitActive("Zugriff Verweigert!!!")
    MsgBox(4096, "Error", "You typed in the wrong thing for 3 Times =>EXIT!")
    ExitLoop
    Else
    MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
    EndIf
    Else
    MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")
    ExitLoop
    EndIf
    ;Sleep(10) ist beim Einsatz von GuiGetMsg nicht notwendig
    EndSwitch
    _MouseTrap()
    WEnd
    EndFunc ;==>_Main

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


    mfg (Auto)Bert

  • passwortmanager

    • autoBert
    • 17. Oktober 2009 um 18:20

    Hallo MiluBarakus,

    abgeändertes Skript:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <Misc.au3>

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

    Opt("MustDeclareVars", 1)

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

    Global $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg

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

    _Main()

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

    Func _Main()
    Local $input1, $label2, $bLoop, $text, $btnOK, $msg
    $GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
    GUISetBkColor(0xff5001, $GUI)
    $label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 350, 40)
    $input1 = GUICtrlCreateInput("", 39, 80, 350, 20)
    $btnOK = GUICtrlCreateButton("an&melden", 39, 110, 70)
    $bLoop = 0
    GUISetState()

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

    While $bLoop < 3
    $msg = GUIGetMsg()
    Switch $msg
    case $GUI_EVENT_CLOSE
    Exit
    case $btnOK
    $bLoop += 1
    $text = GUICtrlRead($input1) ;Fragt das eingegebene Password ab
    If $text <> "test" Then
    If $bLoop = 3 Then
    ;WinWaitActive("Zugriff Verweigert!!!")
    MsgBox(4096, "Error", "You typed in the wrong thing for 3 Times =>EXIT!")
    Exit
    Else
    MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
    EndIf
    Else
    _success()
    EndIf
    ;Sleep(10) ist beim Einsatz von GuiGetMsg nicht notwendig
    EndSwitch
    WEnd
    EndFunc ;==>_Main

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

    Func _success()
    Local $coords[4]
    ; Print the success message
    MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")

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

    While 1
    $coords = WinGetPos($GUI)
    _MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case Else
    ;;;
    EndSwitch
    WEnd
    _MouseTrap()
    Exit
    EndFunc ;==>_success

    [/autoit]

    mfg (Auto)Bert

  • Splashtext und Hotkey

    • autoBert
    • 17. Oktober 2009 um 17:44

    Hallo mille86,

    Zitat

    Im ersten Beispiel bleibt der Splashtext dauerhaft, statt nach 2 Sek. zu verschwinden

    mit adlib lässt sich auch dieses Problem lösen:

    Spoiler anzeigen
    [autoit]

    Global $hotkey_ende
    HotKeySet("{ESC}", "HotKey_Ende")

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

    While 1
    Sleep(125)
    WEnd

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

    Func HotKey_Ende()
    Local $time = TimerInit()
    if $hotkey_ende> 0 then SplashOff()
    If Mod($hotkey_ende, 2) = 0 Then
    SplashTextOn("Ausschalten", "Rechner wird anschließend heruntergefahren", 110, 70, Default, Default, 1, "", 9)
    Else
    SplashTextOn("Programm Beenden", "Rechner bleibt anschließend im Betrieb", 110, 70, Default, Default, 1, "", 9)
    EndIf
    $hotkey_ende += 1
    AdlibEnable('_SplashOFF',2000)
    EndFunc ;==>HotKey_Ende

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

    func _SplashOFF()
    SplashOff()
    AdlibDisable()
    EndFunc

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

    Func OnAutoItExit ( )
    HotKeySet("{Esc}")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
  • Splashtext und Hotkey

    • autoBert
    • 17. Oktober 2009 um 10:50

    Hallo mille86,

    hier das Skript:

    [autoit]

    Global $hotkey_ende
    HotKeySet("{ESC}", "HotKey_Ende")
    While 1
    Sleep(125)
    WEnd

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

    Func HotKey_Ende()
    if $hotkey_ende> 0 then SplashOff()
    If Mod($hotkey_ende, 2) = 0 Then
    SplashTextOn("Ausschalten", "Rechner wird anschließend heruntergefahren", 110, 70, Default, Default, 1, "", 9)
    Else
    SplashTextOn("Programm Beenden", "Rechner bleibt anschließend im Betrieb", 110, 70, Default, Default, 1, "", 9)
    EndIf
    ; Sleep(2000)
    ; SplashOff()
    $hotkey_ende += 1
    EndFunc ;==>HotKey_Ende

    [/autoit]

    viel Spaß damit ;) ,

    mfg (Auto)Bert

  • GuiCtrlRead

    • autoBert
    • 17. Oktober 2009 um 01:26

    Hallo RayRayatTorrex,

    mach es doch einfach so:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    #NoTrayIcon

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

    $sElect = "Bitte ein Laufwerk auswählen: "
    #Region ### START Koda GUI section ### Form=
    $Form4 = GUICreate("Select Driver", 250, 55, 208, 136)
    $Combo = GUICtrlCreateCombo($sElect, 8, 16, 145, 25)
    For $i = 65 To 90
    GUICtrlSetData($Combo, Chr($i))
    Next
    ;$Combo = GUICtrlSetData(-1, , "a")
    $go = GUICtrlCreateButton("Los!", 160, 16, 75, 17, $WS_GROUP)
    GUICtrlSetState($go, $GUI_DISABLE)
    GUISetState(@SW_SHOW, $Form4)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Combo
    If GUICtrlRead($Combo) = $sElect Then
    GUICtrlSetState($go, $GUI_DISABLE)
    Else
    GUICtrlSetState($go, $GUI_ENABLE)
    EndIf

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

    Case $go
    _comboread()

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

    EndSwitch
    WEnd

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

    Func _comboread()
    $read = GUICtrlRead($Combo)
    If StringLen($read) = 1 Then
    $read = $read & ":\Log\"
    ConsoleWrite("COMBOREad " & $read & " " & @CRLF)
    FileCopy("C:\*.html", $read, 9)
    EndIf
    EndFunc ;==>_comboread

    [/autoit]

    mfg (Auto)Bert

  • Wie führe ich zwei Scripte zusammen?

    • autoBert
    • 16. Oktober 2009 um 18:58

    Hallo ePole.

    Zitat von ePole

    ok...danke erstmal...ich mache dann im anderen post weiter, sonst werd ich total irre ;)

    dachtest du an soetwas?

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #Include <Timers.au3>

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

    HotKeySet("{ESC}","Kill")
    Global Const $WS_EX_COMPOSITED = 0x02000000
    ;$gui = GUICreate("",300,300,0,0, BitOR($WS_SIZEBOX, $WS_POPUPWINDOW, $WS_CLIPCHILDREN), BitOR($WS_EX_TOOLWINDOW, $WS_EX_COMPOSITED));Erstellt ein GUI
    $gui = GUICreate("",300,300,0,0, BitOR($WS_SIZEBOX,$WS_CAPTION,$WS_MINIMIZEBOX,$WS_MAXIMIZE,$WS_SYSMENU));Erstellt ein GUI
    GUISetState();Macht es sichtbar

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

    #cs
    $GUISize = WinGetPos($gui) ;fragt pos. und grösse deines Fensters ab
    ;~ $GUISize[0] wäre x-position
    ;~ $GUISize[1] wäre y-position
    ;~ $GUISize[2] wäre breite
    ;~ $GUISize[3] wäre höhe
    $eIE = _IECreateEmbedded()
    GUICtrlCreateObj($eIE, $GUISize[0], $GUISize[1], $GUISize[2], $GUISize[3])
    #ce

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

    $GUISize = WinGetClientSize($gui) ;fragt grösse deines Fensters ab
    ;~ $GUISize[0] wäre breite
    ;~ $GUISize[1] wäre höhe
    $eIE = _IECreateEmbedded()
    GUICtrlCreateObj($eIE, 0,0,$GUISize[0], $GUISize[1])
    _IENavigate($eIE,"www.google.de")

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

    $maxIdle_min = IniRead(@ScriptDir & "\shutdown.ini", "Tireconfig", "Time", "1" )
    $prog = IniRead(@ScriptDir & "\shutdown.ini", "Tireconfig", "Path", "calc.exe" )
    $pid = Run($prog)
    Do
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_Close
    Kill()
    EndSwitch
    $IdleTime = _Timer_GetIdleTime()
    ConsoleWrite($maxIdle_min & " " & $IdleTime & @CRLF)
    Until $IdleTime > $maxIdle_min*60*1000
    Kill()

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

    Func Kill()
    ProcessClose ($pid)
    Exit
    EndFunc

    [/autoit]


    mfg (Auto)Bert

  • Effektivzinsrechner - Was mache Ich faksch ?

    • autoBert
    • 16. Oktober 2009 um 09:58

    Hallo mongobongo,

    hier noch die Lösung mit Schleife (wenn man die Zinseszinsformel nicht kennt):

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Effektivzinsrechner | Lizenz: 4lph4", 346, 262, 284, 213)
    $Label1 = GUICtrlCreateLabel("Leihbetrag", 24, 24, 117, 29)
    GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
    $Label2 = GUICtrlCreateLabel("Leihdauer", 24, 64, 109, 29)
    GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
    $Label3 = GUICtrlCreateLabel("Prozentsatz", 24, 104, 127, 29)
    GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
    $hKapital = GUICtrlCreateInput("", 184, 32, 129, 21)
    $hZeit = GUICtrlCreateInput("", 184, 64, 129, 21)
    $hZinssatz = GUICtrlCreateInput("", 184, 104, 129, 21)
    $Button1 = GUICtrlCreateButton("Endsumme berechnen", 24, 136, 289, 33, 0)
    $Group1 = GUICtrlCreateGroup("", 8, 8, 329, 241)
    $Label4 = GUICtrlCreateLabel("Endsumme", 112, 176, 120, 29)
    GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
    $hErgebnis = GUICtrlCreateInput("", 56, 208, 225, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ;GUICtrlSetData($i, 0)
    $i = 0
    $Kapital = GUICtrlRead($hKapital)
    $Zinssatz = GUICtrlRead($hZinssatz)
    $Zeit = GUICtrlRead($hZeit)
    #cs
    While $i < $Zeit ;Lösung mit While Wend
    $Zins = $Kapital * $Zinssatz / 100
    ConsoleWrite(" nach " & $i & "Jahren: " & $Kapital & " " & $Zins & @CRLF)
    $Kapital = $Kapital + $Zins
    $i = $i + 1
    WEnd
    #ce
    For $i = 1 To $Zeit ;bessere Lösung mit For next
    $Zins = $Kapital * $Zinssatz / 100
    ConsoleWrite(" nach " & $i & "Jahren: " & $Kapital & " + Zins für Jahr " & $i & ": " & $Zins & @CRLF)
    $Kapital = $Kapital + $Zins
    Next
    GUICtrlSetData($hErgebnis, round($Kapital,2))
    #cs
    GUICtrlSetData($hKapital,"")
    GUICtrlSetData($Zeit,"")
    GUICtrlSetData($hZinssatz,"")
    #ce
    EndSwitch
    WEnd

    [/autoit]

    gleiches Ergebnis, nur mehr Rechenaufwand

    mfg (Auto)Bert

  • Taschenrechner

    • autoBert
    • 16. Oktober 2009 um 01:50

    Hallo Rubberducky,

    schau dir in der Hilfe GuiCtrlSetData und GuiCtrlRead an, hier das Skript

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    ;HotKeySet("{ESC}", "_schliessen") ; <=========================
    Opt('GUICloseOnESC',1) ; <=========================
    #Region ### START Koda GUI section ### Form=
    $Ausgabe = ""
    $Title = GUICreate("Taschenrechner", 210, 228, 200, 100)
    $menu1 = GUICtrlCreateMenu("Main")
    $menu11 = GUICtrlCreateMenuItem("About", $menu1)
    $menu12 = GUICtrlCreateMenuItem("Exit", $menu1)
    $Label1 = GUICtrlCreateLabel($Ausgabe, 8, 10, 193, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKHEIGHT)
    $zahl1 = GUICtrlCreateButton("1", 8, 120, 33, 33, $WS_GROUP)
    $zahl2 = GUICtrlCreateButton("2", 48, 120, 33, 33, $WS_GROUP)
    $zahl3 = GUICtrlCreateButton("3", 88, 120, 33, 33, $WS_GROUP)
    $zahl4 = GUICtrlCreateButton("4", 8, 80, 33, 33, $WS_GROUP)
    $zahl5 = GUICtrlCreateButton("5", 48, 80, 33, 33, $WS_GROUP)
    $zahl6 = GUICtrlCreateButton("6", 88, 80, 33, 33, $WS_GROUP)
    $zahl7 = GUICtrlCreateButton("7", 8, 40, 33, 33, $WS_GROUP)
    $zahl8 = GUICtrlCreateButton("8", 48, 40, 33, 33, $WS_GROUP)
    $zahl9 = GUICtrlCreateButton("9", 88, 40, 33, 33, $WS_GROUP)
    $Zahl0 = GUICtrlCreateButton("0", 8, 160, 73, 33, $WS_GROUP)
    $komma = GUICtrlCreateButton(",", 88, 160, 33, 33, $WS_GROUP)
    $plus = GUICtrlCreateButton("+", 128, 160, 33, 33, $WS_GROUP)
    $minus = GUICtrlCreateButton("-", 128, 120, 33, 33, $WS_GROUP)
    $mal = GUICtrlCreateButton("*", 128, 80, 33, 33, $WS_GROUP)
    $durch = GUICtrlCreateButton("/", 128, 40, 33, 33, $WS_GROUP)
    $gleich = GUICtrlCreateButton("=", 168, 120, 33, 73, $WS_GROUP)
    $Pi = GUICtrlCreateButton("Pi", 168, 80, 33, 33, $WS_GROUP)
    $clear = GUICtrlCreateButton("Clear", 168, 40, 33, 33, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg() ; <================
    Switch $nMsg ; <================

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

    Case $menu11
    MsgBox(1, "About", "")

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

    Case $menu12, $GUI_EVENT_CLOSE ; <================
    MsgBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
    Exit

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

    Case $clear
    $Ausgabe = "0"

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

    Case $Zahl0
    $Ausgabe = "0"

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

    Case $zahl1
    $Ausgabe = "1"

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

    Case $zahl2
    $Ausgabe = "2"

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

    Case $zahl3
    $Ausgabe = "3"

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

    Case $zahl4
    $Ausgabe = "4"

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

    Case $zahl5
    $Ausgabe = "5"

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

    Case $zahl6
    $Ausgabe = "6"

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

    Case $zahl7
    $Ausgabe = "7"

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

    Case $zahl8
    $Ausgabe = "8"

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

    Case $zahl9
    $Ausgabe = "9"

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

    Case $durch
    $Ausgabe = "/"

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

    Case $mal
    $Ausgabe = "*"

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

    Case $Pi
    $Ausgabe = "3,1415926535897932384626433832795"
    EndSwitch
    if GuiCtrlRead($Label1) <> $Ausgabe Then GUICtrlSetData($Label1, $Ausgabe) ; < ===============
    WEnd

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

    ;Func _schliessen()
    ; Exit
    ;EndFunc ;==>_schliessen

    [/autoit] [autoit][/autoit] [autoit][/autoit]
  • Textdatein durchsuchen

    • autoBert
    • 15. Oktober 2009 um 23:58

    Hallo xanicel,

    Zeile 10 muss so aussehen

    [autoit]

    If Not _FileReadToArray($dateiname, $aRecords) Then

    [/autoit]

    da in $dateiname ja bereits der komplette Pfad (siehe Zeile 7)

    mfg (Auto)Bert

  • Selektierter Text in einer Editbox

    • autoBert
    • 15. Oktober 2009 um 12:45

    Hallo LoVeOrHaTeMe,

    hier ein abgeändertes Beispiel aus der Hilfe zu _GUICtrlEdit_GetSel:

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GuiEdit.au3>
    #include <GuiStatusBar.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    $Debug_Ed = False ; Check ClassName being passed to Edit functions, set to True and use a handle to another control to see it work

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

    _Main()

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

    Func _Main()
    Local $StatusBar, $hEdit, $hGUI, $Text
    Local $sFile = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir") & "\include\changelog.txt"
    Local $aPartRightSide[3] = [190, 378, -1], $aSel

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

    ; Create GUI
    $hGUI = GUICreate("Edit Get Sel", 400, 300)
    $hEdit = GUICtrlCreateEdit("", 2, 2, 394, 268, BitOR($ES_WANTRETURN, $WS_VSCROLL))
    $StatusBar = _GUICtrlStatusBar_Create($hGUI, $aPartRightSide)
    _GUICtrlStatusBar_SetIcon($StatusBar, 2, 97, "shell32.dll")
    GUISetState()

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

    ; Set Margins
    _GUICtrlEdit_SetMargins($hEdit, BitOR($EC_LEFTMARGIN, $EC_RIGHTMARGIN), 10, 10)

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

    ; Set Text
    _GUICtrlEdit_SetText($hEdit, FileRead($sFile))

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

    ; Set Sel
    _GUICtrlEdit_SetSel($hEdit, 15, 20)

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

    ; Get Sel
    $aSel = _GUICtrlEdit_GetSel($hEdit)
    _GUICtrlStatusBar_SetText($StatusBar, "Start: " & $aSel[0])
    _GUICtrlStatusBar_SetText($StatusBar, "End: " & $aSel[1], 1)
    $Text = StringMid(GUICtrlRead($hEdit),$aSel[0]+1,$aSel[1]-$aSel[0])
    ConsoleWrite($Text & @CRLF)

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

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
    EndFunc ;==>_Main

    [/autoit]


    mfg (Auto)Bert

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™