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 GuiCtrlSetData bedienen.
    Über den GuiOnEventMode (siehe Hilfe) kannst du definieren, welche Funktion bei welchem Buttonklick aufgerufen werden soll.


    Gruß stay


  • #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


    $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)


    $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)


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



    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





  • Hi,


    doch, Ideen sind vorhanden - und hab ich auch schon in meinem vorhergehenden Post geäußert.
    Eine Progressbar kannst du mit GuiCtrlCreateProgress erstellen.
    Sieh dir dort mal die verschiedenen Styles an, da gibt es auch einen, der nur dieses "Balken-Marquee" fabriziert.


    Gruß stay