Beiträge von casi4712

casi4712 · 18. Oktober 2022

Aber an welcher STelle sagt mein Script denn stelle den TextHintergrund, wenn auch nur für ein Flackern, auf schwarz, ich finde nichts.

lg und schöne Woche noch

casi4712 · 12. Oktober 2022

WIe gesagt, das niedrige Intervall hatte ich nur um es zu verdeutlichen, der schwarze Flackerbalken ist aber in jedem Falle vorhanden, auch bei einem MinutenIntervall. Mich stört es im Prinzip nicht, aber erfahrungsgemäß ist das das erste was den Leuten unangenehm auffält, oft noch vor funktionellen Fehlern. Aber ich gehe halt mal davon aus dass das noch ein Bug von Autoit ist und hoffe mal darauf dass es in der nächsten Version behoben sein wird. Viellen Dank noch mal füpr den Input, werde die Vorschläge bei weiteren Scripten gerne berücksichtigen

Vielen Dank und schöne Restwoche noch

casi4712 · 9. Oktober 2022

Hallo,

ja ich beziehe mich ja auch auf diesen Post, zumidest diese Zeile:

If Round($iFreeSpace, 1) <> Round($iFree, 1) Then ; Eine Stelle hinter dem Komma vergleichen

ist weder in deinem Vorschlag, noch in meinem Post, das hatte mich nur stutzig gemacht;)

Übrigens noch mal zu Deinem freundlcihen Umbau des Scripts, was ist in dieser Form denn nun der konkrete Vorteil, bzw. was hätte ich für Macken in der Ursprungsform erwarten dürfen? Also dass mit meinem Problem lassen wir mal aussen vor, das dieses Problem ja dadurch auch nicht behoben wurde. Will ja schliesslich auch etwas lernen;)

lg und schönen Sonntag noch

casi4712 · 8. Oktober 2022

HI,

also nun bin ich ein bisl verwirrt, welchje Zeilen muss ich denn nun ersetzen,

Code

  If $iFreeSpace <> $iFree Then ; Zwei Stellen hinter dem Komma vergleichen    If Int($iFre
;~     If Round($iFreeSpace, 1) <> Round($iFree, 1) Then ; Eine Stelle hinter dem Komma ve

Diese beiden Zeilen sind in dem Script nicht vorhanden, ich denke wir reden von 2 verschiednen Scripten

lg und schönes WE noch

casi4712 · 5. Oktober 2022

okay, danke Dir werde ich ausprobieren

lg und schönen Abend noch

casi4712 · 5. Oktober 2022

ich hatte Deinen Ansatz auch probiert Bit, ebenfalls das selbe. Ich hatte ja gesagt, die kurze Zeit war nur um es zu verdeutlichen, wenn ich die Zeit höher stelle ist der Effekt aber auch zu sehen. Ist jetzt nicht direkt ein Funktionsfehler, aber schaut halt blöd aus. Ich habe keinen schwatzen Hintegrund für das Lebel gesetzt.

lg

casi4712 · 5. Oktober 2022

hi und danke erstmal,

stimmt das mit dem weglassen war sehr effektiv. blinkt nicht mehr wenn Bedingung nicht erfüllt ist.

AutoIt

...
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
Local $rFree = Round($free, 2)

    if $rfree < $SW Then
        GUICtrlSetData($LabelSpace, "freier Speicher auf SystemDrive wird knapp!: ( " & $rfree & "GB)")
    else
        ;GUICtrlSetData($LabelSpace, "")
    endif
EndFunc

Alles anzeigen

Dafür is der schwarze Balken wieder da, wenn die BEdingung erfült ist und er das Label zeigen soll.

lgund schönen Abend

casi4712 · 4. Oktober 2022

okidoki, nicht in die Haare kriegen hier in meinem Post lach,, ok dann weiss ich erst mal Bescheid.

Mir ist noch ein ähnlicher Effekt aufgefallen, deswegen zeig ich dass gleich mal hier, denke passt hier gut rein. Bei einer Drive Abfrage soll nur ein Text erscheinen, wenn der Schwellwert unterschritten ist. Ich habe die Set Zeile für den Fall, das dies nicht der Fall ist transparent geschaltet, trotzdem kommt beim Aufruf der Adlib Funktion immer ein störender schwarzer Balken. Dieser Effekt entsteht wiederum nur mit einem Hintegrund. Leider konnte ich diesen Effekt mit der obigen Methode nicht beseitigen. Die AdlibRegister Zeit ist hier sehr kurz eingestellt, nur um diesen Effekt zu verdeutlichen.

AutoIt

; includes ---------------------------------------------------------------------
#include-once
#include "GUIBkImage.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
FileInstall("C:\Users\Riegert\Pictures\TufaSunset-1-2.bmp", "C:\Windows\Temp\hg.bmp", 1)

; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;Opt("TrayAutoPause", 0)

;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE  = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
Global $BG
Global $SW = 20
global $var_system_drive = StringLeft(@WindowsDir, 2); SystemDrive auslesen
Global Const $drive = StringLeft( $var_system_drive, 3)
global $iFreeSpace = ""
global $fslabel = ""
global $LabelSpace, $labelTemp, $temp

;AdLibRegistering--------------------------------------------------------------------------------------------------------------------------------------------
AdlibRegister('_Testspace', 100)



; processing ---------------------------------------------------------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Integrator 4 Release 076", 840, 625)
_createLabels()
;GUICtrlSetImage($BG, 'C:\Windows\Temp\hg.bmp')
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

;Main Logic-------------------------------------------------------------------------------------------------------------------------------------------------------
While True
    CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")

   local $gMsg = GUIGetMsg()
    Switch $gMsg

        Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
            GUIDelete($hGui)
            AdlibUnRegister('_Testspace')
            Exit
    EndSwitch
WEnd

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createLabels()
 GUICtrlSetState($hgui, $GUI_DISABLE)
    
    $labelSpace = GUICtrlCreateLabel($FSlabel, 10, 530, 350, 20)
      GUICtrlSetColor(-1, 0xF00404) ; red
      GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
      GUICtrlSetFont(-1, 10, 100) ; bold
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
Local $rFree = Round($free, 2)

    if $rfree < $SW Then
        GUICtrlSetData($LabelSpace, "freier Speicher auf SystemDrive wird knapp!: ( " & $rfree & "GB)")
    else
        GUICtrlSetData($LabelSpace, "")
    endif
EndFunc
;--------------------------------------------------------------------------------------------------------------------------------------------------------------------




;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
    Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)

$BG = GUICtrlCreatePic('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660)
 GUICtrlCreatePic ( $BG, 0, 25, 920, 660 )
    ;GUICtrlSetState($hGUI, $GUI_DISABLE)

     GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetBkColor($GUIBKCOLOR, $GUI)
     _GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
    $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)
    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 _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
    Dim $pos, $ret, $ret2
    $pos = WinGetPos($h_win)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
        If $ret[0] Then
            $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
        If $ret2[0] Then
        Return 1
        Else
           Return 0
        EndIf
        Else
           Return 0
        EndIf
EndFunc

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func GradientFill($im, $x1, $y1, $width, $height, $left_color, $right_color)
 Local $color0=($left_color[0]-$right_color[0])/$height, $color1=($left_color[1]-$right_color[1])/$height
 local $color2=($left_color[2]-$right_color[2])/$height
   For $Y=0 to $height-1
    local $red=$left_color[0]-floor($Y*$color0)
    local $green=$left_color[1]-floor($Y*$color1)
    local $blue=$left_color[2]-floor($Y*$color2)
    local $col = Dec(Hex($blue,2) & Hex($green,2) & Hex($red,2))
      GUICtrlSetGraphic($im,$GUI_GR_COLOR, $col)
      GUICtrlSetGraphic($im,$GUI_GR_MOVE,0,$Y)
      GUICtrlSetGraphic($im,$GUI_GR_LINE,$width,$Y)
    Next
      GUICtrlSetGraphic($im,$GUI_GR_COLOR, 0x000000)
      GUICtrlSetGraphic($im,$GUI_GR_MOVE,0,$height)
      GUICtrlSetGraphic($im,$GUI_GR_LINE,$width,$height)
      GUICtrlSetGraphic($im,$GUI_GR_REFRESH)
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

Alles anzeigen

casi4712 · 2. Oktober 2022

okidoki, dann fehlte das GUICtrlCreatePic, hatte mich schon gwundert. Jetzt schauts sauber aus.

Dann bedanke ich mich noch mal recht herzlich bei euch

lg und schöne Feiertage noch

casi4712 · 2. Oktober 2022

Hallo,

das lauffähige Beispiel hatte ich doch gepostet, ich habe es doch auch entsprechend den Vorschlägen von Mombass gepostet! Da er ja gesagt hatte, er konnte das Problem nachvollziehen, kann ich nun Deine Einlassung nicht ganz nachvollziehen. Soll ich den Inhalt von den UDFs posten, meinst Du das? Oder das Hintergrundbild? Ich hatte es mit meheren Bildern und Formaten probiert,

lg

casi4712 · 2. Oktober 2022

So, erst mal recht lieben Dank Moombas für die tattkräfrige Unterstützung. Ich habe deine Vorschläge entsprechend eiingarbeitet, er bemeckert aber aus irgend einem Grunde eine angeblich fehlende Klammer,, wahrscheinlich bin blind, daber sewhe da keine Klammer die fehlt. Das ganze schaut jetzt so aus:

AutoIt

#include-once

#include "GUIBkImage.au3"
#include "Services.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Constants.au3>
#include <FontConstants.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIGdiInternals.au3>
#include <WinAPIHObj.au3>
#include <WinAPISysInternals.au3>
#include <ComboConstants.au3>
FileInstall("C:\Users\user\Pictures\scr09082022-084252.bmp", "C:\Windows\Temp\hg.bmp", 1)

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


;declaration ------------------------------------------------------------------
;GUI Variables
Global $BG
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE  = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2


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

Global $hGui = RBoxCreate("Integrator 4 Release 076", 840, 625)

;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------

_createButtons()
;_createLabels()
GUICtrlSetImage($BG, 'C:\Windows\Temp\hg.bmp')
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------------------------------------------
While True
    CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
   local $gMsg = GUIGetMsg()
    Switch $gMsg

        Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
            GUIDelete($hGui)

        Case $Combo1 ; Combo fires <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            GUICtrlSetState($btnStart, $GUI_ENABLE) ; Button enabled <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

        Case $btnStart
          IF GUICtrlRead($combo1) = "key one" Then _fu1()
          IF GUICtrlRead($combo1) = "key two" Then _fu2()

    EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------



;BUTTONS----------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createButtons()
GUICtrlSetState($hgui, $GUI_DISABLE)

global $combo1 = GUICtrlCreateCombo ("Scripte", 300, 557, 150, 120)
global $btnStart = GUICtrlCreateButton("🟥", 450, 557, 23, 23)
Local $aTest[5][4] = [[4, 0], ["Key One", "V1"], ["Key Two", "V2"], ["Key three", "V3"], ["Key four", "V4"]]
Local $sTest = ""

;Inhalt Combobox
  For $i = 1 To $aTest[0][0]
    $sTest &= "|" & $aTest[$i][0]
  Next
    GUICtrlSetData($Combo1, $sTest)

EndFunc
;----------------------------------------------------------------------------------------------------------------------------------------------------------------



;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
    Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)

$BG = ('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660)
    GUICtrlCreatePic ($BG)
    ;GUICtrlSetState(-1, $GUI_DISABLE)

     GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetBkColor($GUIBKCOLOR, $GUI)
     _GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
    $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)
    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 _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
    Dim $pos, $ret, $ret2
    $pos = WinGetPos($h_win)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
        If $ret[0] Then
            $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
        If $ret2[0] Then
        Return 1
        Else
           Return 0
        EndIf
        Else
           Return 0
        EndIf
EndFunc

Alles anzeigen

lg und schönen Sonntag noch

casi4712 · 30. September 2022

Danke noch mal, also ich habs jetzt in 4 versionen gestestet, einmal direkt danach mit -1 und ein mal mit dem Handl $hGui jeweils bei der Button Definition und hinter dem Bildaufruf. Es bleibt immer der selbe Effekt.

AutoIt

; includes ---------------------------------------------------------------------
#include-once

#include "GUIBkImage.au3"
#include "Services.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Constants.au3>
#include <FontConstants.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIGdiInternals.au3>
#include <WinAPIHObj.au3>
#include <WinAPISysInternals.au3>
#include <ComboConstants.au3>
FileInstall("C:\Users\user\Pictures\scr09082022-084252.bmp", "C:\Windows\Temp\hg.bmp", 1)

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


;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE  = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2


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

Global $hGui = RBoxCreate("Integrator 4 Release 076", 840, 625)

;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------

_createButtons()
;_createLabels()

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------------------------------------------
While True
    CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
   local $gMsg = GUIGetMsg()
    Switch $gMsg

        Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
            GUIDelete($hGui)

        Case $Combo1 ; Combo fires <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            GUICtrlSetState($btnStart, $GUI_ENABLE) ; Button enabled <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

        Case $btnStart
          IF GUICtrlRead($combo1) = "key one" Then _fu1()
          IF GUICtrlRead($combo1) = "key two" Then _fu2()
          
    EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------



;BUTTONS----------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createButtons()
GUICtrlSetState($hgui, $GUI_DISABLE)

global $combo1 = GUICtrlCreateCombo ("Scripte", 300, 557, 150, 120)
global $btnStart = GUICtrlCreateButton("🟥", 450, 557, 23, 23)
Local $aTest[5][4] = [[4, 0], ["Key One", "V1"], ["Key Two", "V2"], ["Key three", "V3"], ["Key four", "V4"]]
Local $sTest = ""

;Inhalt Combobox
  For $i = 1 To $aTest[0][0]
    $sTest &= "|" & $aTest[$i][0]
  Next
    GUICtrlSetData($Combo1, $sTest)

EndFunc
;----------------------------------------------------------------------------------------------------------------------------------------------------------------



;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
    Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
    
    GUICtrlCreatePic('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660)
    ;GUICtrlSetState(-1, $GUI_DISABLE)
    
     GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetBkColor($GUIBKCOLOR, $GUI)
     _GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
    $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)
    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 _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
    Dim $pos, $ret, $ret2
    $pos = WinGetPos($h_win)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
        If $ret[0] Then
            $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
        If $ret2[0] Then
        Return 1
        Else
           Return 0
        EndIf
        Else
           Return 0
        EndIf
EndFunc

Alles anzeigen

Einen schönen Tag noch

lg

casi4712 · 30. September 2022

jo, danke Dir, gelesen hatte ich das auch schon, aber es funktioniert bloss nicht

AutoIt

Func _createButtons()
 GUICtrlSetState(-1, $GUI_DISABLE)


global $combo1 = GUICtrlCreateCombo ("Scripte", 300, 557, 150, 120)
global $btnStart = GUICtrlCreateButton("🟥", 450, 557, 23, 23)
Local $aTest[5][4] = [[4, 0], ["Key One", "V1"], ["Key Two", "V2"], ["Key three", "V3"], ["Key four", "V4"]]
Local $sTest = ""

;Inhalt Combobox
  For $i = 1 To $aTest[0][0]
    $sTest &= "|" & $aTest[$i][0]
  Next
    GUICtrlSetData($Combo1, $sTest)



EndFunc

Alles anzeigen

casi4712 · 29. September 2022

Hallo allerseits,

ich habe mal eine kleine Frage. Mir ist jetzt schon des öfteren aufgefallen, dass es bei der Verwendung von Hintergrundbildern, die via Fileinstall installiert werden zu Bildfehlern kommt. Dass sieht dann zB so aus, dass bspw. bei comboboxen zunächst nur das innere weisse dargestellt wird, machchmal ist sogar eine vertikale Einschnürung der Box zu sehen, auch der Arrow ist nicht da. Erst wenn mann mit der Maus über das Element streift, ist die Box dann vollständig zu sehen. Dass schaut natürlich ziemlich blöd aus, kennt jemand den Effekt? Ich habe es mit jpg und nmit bmp versucht

lg und schöne Restwoche noch

casi4712 · 20. September 2022

okidoki, ich muss leider erst mal warten bis der Kollege mit dem zu überwachenden Tool wieder im Hause ist, dann werde ich Eure Vorschläge mal durchtesten, bis dahin

vielen Dank erstmal für Euren Input

lg und eine schöne Woche noch

casi4712 · 15. September 2022

Du meinst so:

;MouseMove(23, -10, 10)

MouseClick(23, -10, 1)

Funzt leider nicht

Apropos der von dir genanten UDF, was heisst denn:

you can automate all applications/programs that support ui automation and/or accesibility api from microsoft

Die Applikation die beobachtet werden soll ist ziemlich alt, vielleicht sogar nicht mal dieses Jahrtausend

casi4712 · 15. September 2022

okidoki, danke, werde ich mir mal anschauen, ich habe festgestellt, dass der dritte Parameter der ja von 0 bis 10 gehen soll und die Geschwindigkeit steuern soll, keinen wirklichen Einfluss hat, egal ob 0 oder 10, ist immer gleich schnell. Ist das normal?

casi4712 · 14. September 2022

Das klingt ja ert mal schon sehr gut, hatte ich doch im Hinteropf, dass AI da was parat hat, dann scheint mein Projekt ja noch nicht verloren. Werde ich morgen mal mit experimentieren. Dumme Frage noch mal, gibt es bei MouseMove eigentlich auch ne Aert HIDE Modus, also zum unsichtbar machen des Pfeils?

lg und Danke noch mal

casi4712 · 14. September 2022

SO, hallo erstmal,

ich habe mal eine allgemeine Frage. Bezüglich meines Screenshot Projektes wurde mir nun zur Kenntniss gebracht, dass nicht beide Fenster gleichzeitig verfügbar gemacht werden können. Da das Programm, welchges observiert werden soll schon betagter ist , und über keinerlei Hotkey Steuerung verfügt, muss über ein grosses Menu mit grafischen Buttons erst 2 mal ein Klick ausgeführt werden um in die entsprechenden Fenster zu gelangen.

Nun die Frage, würde sich so etwas auch in Autoit simulieren lassen, vielleicht hab Ihr ja schon mal so etwas gesehen oder habt Beispiele dazu, ich denke mal AutoIt kann so etwas.

lg und Danke für entsprechenden Input

casi4712 · 14. September 2022

jo manchmal hab ich sone Anwandlungen lach

Beiträge von casi4712

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Background Bild und GUI Elemente

Programm Maussteuerung

Programm Maussteuerung

Programm Maussteuerung

Programm Maussteuerung

Programm Maussteuerung

Variable an PS Script übergeben