Buttons klickbar machen

**Musashi**

Zitat von Velted

Zum Editor: Beim zu AutoIt gehörenden SciTE werden Fehlermeldungen oder Ausgaben mit ConsoleWrite() beim Ausführen eines Skripts mit F5 im unteren Konsolenausgabebereich angezeigt. Ich habe den Eindruck, dass Du die nicht siehst.

siehe :

Zitat von casi4712

... ich benutze notepad++, wieso fragst du?

casi4712 :

Ich würde Dir empfehlen, die Vollversion des SciTE-Editors für AutoIt SciTE4AutoIt3.exe zu installieren.

AutoIt selbst installiert nur eine Lite-Version. Dort gibt es die von Velted angesprochene Konsolenausgabe zwar auch, die Vollversion liefert aber noch weitere hilfreiche Tools.

casi4712

Hallo,

wie schon erwähnt hatte ich das Script main aus dem Git Repsitory angepasst, nannte sich da main, ich habe es jetzt mal auf ein Minimum gekürzt, vielleicht fällt es da leichter den Fehler zu finden, Ich habe Adlib verwendet. Ich möchte lediglich oben rechts 2 zeilen haben SQL-Server: Status und Webserver: Status, und zwar in angegebenen Abstand aktualisiert, um es noch mal zu präzisieren. SCITE werde ich mir mal anschauen

AutoIt

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.5
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here


; includes ---------------------------------------------------------------------
#include-once
#include "GUIBkImage.au3"
#include "Services.au3"
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>



; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)



; declaration ------------------------------------------------------------------

Global $RBOX_EVENT_CLOSE  = 1
Global $ROUNDES           = 20
Global $LastHwnd          = 0
Global $PCName            = @ComputerName
Global $BeepFile          = 'C:\Windows\Temp\beep.wav'
Global $sTaskName         = '_07_DataCollect'
Global $sScriptRootFolder = "C:\Users\Administrator\Downloads\"
Global $GUIBKCOLOR        = 0x888888
Global $gMsg, $iPID, $prog
Global $idButton_32
Global $idButton_36
Global $iServiceStatusLabel = ""
Global Const $SQLLabel     = GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 1) & "Local SQL-Server: SERVICE_UNKNOWN_STATE"    , 400, 20, 980, 20)
Global Const $AppacheLabel = GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 1) & "Local Appache-Server: SERVICE_UNKNOWN_STATE", 400, 40, 980, 20)

AdlibRegister(Request_Services, 60000) ;Refresh jede Minute


; processing -------------------------------------------------------------------


Global $hGui = RBoxCreate("TEST GUI - Services", 840, 600)

_createLabels()
_createButtons()

While True
    CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")

    $gMsg = GUIGetMsg()
    ;$PID = 0
    Switch $gMsg
        Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
            GUIDelete($hGui)
            Exit

        Case $idButton_32
            Local $sServiceName = "Apache2.4"
            GUICtrlSetData($iServiceStatusLabel, $sServiceName & ": " & Request_Service($sServiceName))
            
        Case $idButton_36
            Local $sServiceName = "MSSQL$AUGIAS"
            GUICtrlSetData($iServiceStatusLabel, $sServiceName & ": " & Request_Service($sServiceName))
       
    EndSwitch
WEnd



; functions --------------------------------------------------------------------


Func _createLabels()
    $SQLLabel 
    $AppacheLabel
    
    $iServiceStatusLabel = GUICtrlCreateLabel("Service", 10, 440, 780, 20)
    $iServiceStatusLabel = GUICtrlCreateLabel("Service", 10, 465, 780, 20)
EndFunc



Func _createButtons()
    $idButton_32 = GUICtrlCreateButton("ggg", 10, 185, 100, 20)
    $idButton_36 = GUICtrlCreateButton("gfgf", 490, 185, 100, 20)
EndFunc



Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
    Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
    GUISetBkColor($GUIBKCOLOR, $GUI)
    $RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
    GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
    GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
    GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
    GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)

    $Title &= " "
    Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
    GUICtrlSetBkColor($hTitle, -2)
    Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
    GUICtrlSetState($Graphic, $Gui_DISABLE)
    ;~ GradientFill($Graphic, 0, 0, $width, 25, $ARRAY_COLOR_TOP_MIN, $ARRAY_COLOR_TOP_MAX)

    If $show = 1 Then GUISetState(@SW_SHOW, $GUI)

    Return $GUI
EndFunc



Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
    Local $cGui = GUIGetCursorInfo($hGui)

    If Not IsArray($cGui) Then
        Return 0
    EndIf

    If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
    If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc





Func Request_Service($Servicename)
    If _Service_Exists($Servicename) Then
        Return Status(_Service_QueryStatus($Servicename)[1])
    Else
        Return 'Service does not exist'
    EndIf
EndFunc


Func Request_Services()
Local $Services[][] = [['','',''], _
                       ['MSSQL$AUGIAS'    , $SQLLabel    , "CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: ", 'SERVICE_UNKNOWN_STATE'], _
                       ['Apache2.4', $AppacheLabel, "CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: ", 'SERVICE_UNKNOWN_STATE']]
    $Services[0][0] = UBound($Services, $UBOUND_ROWS) - 1
    For $Row = 1 to $Services[0][0] Step +1
        if _Service_Exists($Services[$Row][0]) then
            $Services[$Row][3] = Status(_Service_QueryStatus($Services[$Row][0])[1])
        else
            $Services[$Row][3] = 'SERVICE_NOT_FOUND'
        endif
        GUICtrlSetData($Services[$Row][1], $Services[$Row][2] & $Services[$Row][3])
    Next
endfunc



Func Status($Status)
    Switch $Status
        Case 1
            $Status = 'SERVICE_STOPPED'
        Case 2
            $Status = 'SERVICE_START_PENDING'
        Case 3
            $Status = 'SERVICE_STOP_PENDING'
        Case 4
            $Status = 'SERVICE_RUNNING'
        Case 5
            $Status = 'SERVICE_CONTINUE_PENDING'
        Case 6
            $Status = 'SERVICE_PAUSE_PENDING'
        Case 7
            $Status = 'SERVICE_PAUSED'
        Case Else
            $Status = 'SERVICE_UNKNOWN_STATE'
    EndSwitch

    Return ($Status)
EndFunc

Alles anzeigen

schönen Abend ncoh

lg

chris

**Moombas**

Vorab: deine "Func _createLabels()" kann nicht funktionieren, da dort die Labelnamen ohne weiteren Kontext benutzt werden. Zudem redefinierst du dort die Variable $iServiceStatusLabel und verlierst somit die ID des ersten zugewiesenen Labels.

Zusatzfrage: Deine Server laufen lokal und nicht auf einem anderen PC im Netzwerk!?

Tipp: Baue die Serverabfrage mal in ein eigenes Script mit minimaler GUI (Anzeige LAbel und ggf. einem Exit Button) um nur das zu troubleshooten.

Zum Thema Googlen: Wenn du einfach nur autoit + den Funktionsnamen eingibst (den hat dir Bugfix ja genannt) findest du asap den richtigen Eintrag

**SOLVE-SMART** · Poweruser seit 21.01.2023

Hi zusammen,

funktionierender Stand, Main.au3 und Abhängigkeiten (UDFs):

🔗 Dateien online oder alternativ

📂 Download zip oder alternativ

💾 git clone https://github.com/Sven-Seyfert/AutoIt-Forums-Help.git

Viele Grüße
Sven

**SOLVE-SMART** · Poweruser seit 21.01.2023

Hi nochmal,

ist es nicht sinnvoll dieses Thema zu schließen 💡 , da die Ursprungsfrage zu "Buttons klickbar machen" bereits längst geklärt und gelöst ist?

Wenn casi4712 weitere/andere Fragen hat, dann ist das öffnen eines separaten Themas sicherlich besser.
Denn dann interessieren sich dort ggf. wieder mehr User für das separate Thema und müssen sich nicht den Diskussionsverlauf anschauen um festzustellen das der Kontext längst nicht mehr die Buttons betrifft.

Was halten die Moderatoren wie bspw. BugFix oder Oscar davon?

Viele Grüße
Sven

casi4712

Ja dass sehe ich auch so Solve, ich werde ein entsprechendes Thema für die Serviceproblematik aufmachen. Aber ich sehe auch gerade Du hattest an dem main.au3 noch weiter gebastelt, und nun funktioniert es Heureka, Danke vielmals. So nun werd ich erst mal schauen was du da so gemacht hast.

Vielen Dank noch mal allen anderen, auch für eure Geduld

eine schöne Woche

lg chris

**Musashi**

Zitat von SOLVE-SMART

ist es nicht sinnvoll dieses Thema zu schließen 💡 , da die Ursprungsfrage zu "Buttons klickbar machen" bereits längst geklärt und gelöst ist?

Zitat von casi4712

Ja dass sehe ich auch so Solve, ich werde ein entsprechendes Thema für die Serviceproblematik aufmachen.

Ich habe das Thema mal als [Erledigt] markiert. Das ist der übliche Weg ein Thema abzuschließen, und kann vom jeweiligen Threadstarter auch selbst vorgenommen werden.

🌍	Au3Forums
🎲	AutoIt (de) Cheat Sheet / en
💎	Code Katas: Eins, Zwei, Drei
🔮	GitHub
🥳	Poweruser seit 21.01.2023
🎭	Sammlung von GitHub Benutzern mit AutoIt Projekten
🔭	Umgang mit Powershell-Output
🔭	Umgang mit SQLite
✂	VSCode-AutoItSnippets
🎬	WebDriver Crashkurs
📑	WebDriver FAQs
👨‍💻	WebDriver Beispiel (Login, Klicks, Daten eingeben, robustes Warteverhalten)
👨‍💻	WebDriver Beispiel (Texte von Website lesen, in CSV überführen)

🌍	Au3Forums
🎲	AutoIt (de) Cheat Sheet / en
💎	Code Katas: Eins, Zwei, Drei
🔮	GitHub
🥳	Poweruser seit 21.01.2023
🎭	Sammlung von GitHub Benutzern mit AutoIt Projekten
🔭	Umgang mit Powershell-Output
🔭	Umgang mit SQLite
✂	VSCode-AutoItSnippets
🎬	WebDriver Crashkurs
📑	WebDriver FAQs
👨‍💻	WebDriver Beispiel (Login, Klicks, Daten eingeben, robustes Warteverhalten)
👨‍💻	WebDriver Beispiel (Texte von Website lesen, in CSV überführen)