Button erstellt - While Schleife

  • Ich habe mir eine GUI erstellt, wo ein Button enthalten ist.

    Jetzt weis ich nicht weiter, denn ich habe 2 funktionen erstellt, wobei die 1. der klick auf den button ist und die 2. die ausführung vom eigentlichen tool.
    ich will hierbei eine progressbar (welche in der GUI eingebunden ist - nur mit balken) starten lassen und wenn das programm zu ende ist, soll alles enden...

    messageboxen habe ich nicht verwendet...

    lg

  • Hallo,

    ohne gepostetes Skript wird das ganze Rätselraterei.
    Die Progressbar kannst du auf jeden Fall mit

    [autoit]

    GuiCtrlSetData

    [/autoit]

    bedienen.
    Über den GuiOnEventMode (siehe Hilfe) kannst du definieren, welche Funktion bei welchem Buttonklick aufgerufen werden soll.

    Gruß stay

  • [autoit]


    #include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <SliderConstants.au3>#include <GuiSlider.au3>#include <WebTCP.au3>#include <INet.au3>#Include <GuiSlider.au3>#Include <Timers.au3>#include <EditConstants.au3>#include <StaticConstants.au3>#include <ListviewConstants.au3>#include <ProgressConstants.au3>#include <GUIConstantsEx.au3>
    Opt('MustDeclareVars', 1)
    Local $GUI, $BGimage, $label1, $labe2, $progress1, $button3, $nMsg, $click, $msg

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

    $GUI = GUICreate("Fritz!Box Reconnect",400,150,-1,-1,-1,-1)GUISetBkColor(0x8080FF,$GUI)$BGimage = GUICtrlCreatePic("\fritzbox.jpg",0,0,400,150)GuiCtrlSetState(-1,$GUI_DISABLE)

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

    $label1 = GUICtrlCreateLabel("Fritz!Box Reconnect",115,8,260,30,-1,-1)GUICtrlSetFont(-1,18,700,default,"MV Boli")GUICtrlSetColor(-1,"0x800000")GUICtrlSetBkColor(-1,"-2")$labe2 = GUICtrlCreateLabel("IP / HOST: http://fritz.box",175,45,210,13,-1,-1)GUICtrlSetFont(-1,12,400,default,"Twelve Ton Fishstick")GUICtrlSetBkColor(-1,"-2")$progress1 = GUICtrlCreateProgress(12,129,375,12,-1,131232)GUICtrlSetBkColor(-1,"-2")$button3 = GUICtrlCreateButton("Start",220,77,135,45,-1,-1)GUICtrlSetOnEvent(-36, "StartPressed")GUICtrlSetFont(-1,10,400,default,"discotech")GUICtrlSetImage(-1,"\Reconnect3G.ico")GUISetState(@SW_SHOW,$GUI)

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

    While 1$nMsg = GUIGetMsg()Switch $nMsgCase -3 ExitLoop Exit
    If $click Then=True Start("$install")

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

    Case $GUI_EVENT_CLOSEEndSwitchWEnd
    Func StartPressed($click)
    Sleep(500) WinWait("Fritz!Box Reconnect", "Start") WinActivate("Fritz!Box Reconnect", "Start") ControlClick("Fritz!Box Reconnect", "Start", "[CLASS:Button; INSTANCE:1]")Endfunc
    Func Installation($install)
    #include <WebTCP.au3> Sleep(500)_WebTcp_Startup()$oWebTCP = _WebTcp_Create()
    $sIP = _GetIP()
    $sPacket = '<?xml version="1.0" encoding="utf-8"?>' & @CRLF & _ '<s:Envelope s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">' & @CRLF & _ ' <s:Body>' & @CRLF & _ ' <u:ForceTermination xmlns:u="urn:schemas-upnp-org:service:WANIPConnection:1" />' & @CRLF & _ ' </s:Body>' & @CRLF & _ '</s:Envelope>'
    $oWebTCP.Navigate('http://fritz.box:49000/upnp/control/WANIPConn1', $sPacket, "text/xml", 49000, False, 'SOAPACTION: urn:schemas-upnp-org:service:WANIPConnection:1#ForceTermination')
    ConsoleWrite($sIP & @CRLF)ConsoleWrite(_GetIP())
    Endfunc

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
  • Hi,

    doch, Ideen sind vorhanden - und hab ich auch schon in meinem vorhergehenden Post geäußert.
    Eine Progressbar kannst du mit

    [autoit]

    GuiCtrlCreateProgress

    [/autoit]

    erstellen.
    Sieh dir dort mal die verschiedenen Styles an, da gibt es auch einen, der nur dieses "Balken-Marquee" fabriziert.

    Gruß stay