Beiträge von casi4712

casi4712

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

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

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

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

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

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

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

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

jo manchmal hab ich sone Anwandlungen lach

casi4712

Ok hab nen bisl rumgetüftelt, für die die es interessiert, so klappt die Übergabe aus Autoit

AutoIt

$path1 = "\\Eintopf\c$\clips"

$command = @ComSpec & " /c " & "Powershell.exe" & " -NoProfile -ExecutionPolicy Bypass -File .\mailer.ps1 -Folder " & $Path1 & " -BooleanParameter $True"
 $pid = RunWait( $command, "", @SW_show)

casi4712

Tja, wäre zu schön gewesen wenn dass gehen würde, hatte das PS entsprechend so angepasst:

Code

Param(
    [string]$Folder
)

 
# Ordner der überwacht wird
$folder = $Folder + "\app"


# Ausgabe der Parameter
Write-host "ÜberwachungsFolder: $Folder"








# Dateifilter
$filter = '*.jpg'
# ---------
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}  

Unregister-Event -SourceIdentifier FileCreated -EA 0
$fsw = New-Object IO.FileSystemWatcher $folder, $filter -Property @{IncludeSubdirectories = $false;NotifyFilter = [IO.NotifyFilters]'FileName, LastWrite'} 

Register-ObjectEvent $fsw Created -SourceIdentifier FileCreated -Action {
    $fullpath = $Event.SourceEventArgs.FullPath
    $timeStamp = $Event.TimeGenerated
    Write-Host "Die Datei '$fullpath' wurde um '$timeStamp' erstellt. Sende E-Mail mit Attachment ..." -fore green -NoNewline
    try{
      
    $credential = Import-CliXml -Path  ".\Credential.xml"    
 Send-MailMessage -From Riegert@landesarchiv.berlin.de -to Riegert@landesarchiv.berlin.de -Subject 'Neue Messwerte' -Body 'Musterbody' -SmtpServer mail01.larch.verwalt-berlin.de -Attachments $fullpath -EA Stop -Credential (
 New-Object PSCredential('riegert@landesarchiv.berlin.de',(ConvertTo-SecureString 'PASSWORD' -AsPlainText -Force)))  -UseSSL
        
        write-host "OK." -F Green
        # lösche Datei
      #remove-item $fullpath -Force
    }catch{
        write-host "Error: $($_.Exception.Message)" -f Red
    }
}
cls
write-host "Warte auf neue Dateien im Ordner ..."
while($true){sleep 1}

Alles anzeigen

Dann so in AI aufgerufen:

AutoIt

$path1 = "\\Eintopf\c$\clips"

 global $CmdPid = Run("C:\Windows\System32\WindowsPowerShell\v1.0\POWERSHELL.EXE -NoProfile -ExecutionPolicy Bypass -File .\mailer.ps1 -Folder $path1 -BooleanParameter $True",@ScriptDir, @SW_SHOW); Starting PicMailer

Code

casi4712

ok dass muss ich wohl übersehen haben, sollte ja doch sehr einfach gehen, ging ja aus Batch schliesslich auch schon, ich denke schon dass Du recht hast und es elegantere UDFS gibt, aber auf die Schnelle, wenn man schon das PS Script hat, dann soll mir dass hier mal reichen.

danke noch mal und eine nschönen Abend noch

casi4712

Hallo liebe Scripter,

ist es möglich, eine Pfad Variable aus einem Autoit Script ($path1) an ein PS Script zu übergeben, welches ich über folgenden Aufruf ausführe:

$CmdPid2 = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe .\mailer.ps1 -noexit" & 'Get-ChildItem',@ScriptDir, @SW_HIDE); Starting PicMailer

Das aufgerufene Script überwacht einen Ordner und mailt die neue Datei: Ich weiss, gibt wahrscheinlich in AI bessere Lösungen, aber denke wenn das gehen sollte ist es der einfachste Weg. Das PS Script schaut wie folgt aus:

AutoIt

Function Set-WindowSize {
Param([int]$x=$host.ui.rawui.windowsize.width,
      [int]$y=$host.ui.rawui.windowsize.heigth)

    $size=New-Object System.Management.Automation.Host.Size($x,$y)
    $host.ui.rawui.WindowSize=$size   
}
 
# Ordner der überwacht wird
$folder = "\\A100805\c$\clips\app" 


# Dateifilter
$filter = '*.jpg'
# ---------
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}  

Unregister-Event -SourceIdentifier FileCreated -EA 0
$fsw = New-Object IO.FileSystemWatcher $folder, $filter -Property @{IncludeSubdirectories = $false;NotifyFilter = [IO.NotifyFilters]'FileName, LastWrite'} 

Register-ObjectEvent $fsw Created -SourceIdentifier FileCreated -Action {
    $fullpath = $Event.SourceEventArgs.FullPath
    $timeStamp = $Event.TimeGenerated
    Write-Host "Die Datei '$fullpath' wurde um '$timeStamp' erstellt. Sende E-Mail mit Attachment ..." -fore green -NoNewline
    try{
  
    $credential = Import-CliXml -Path  ".\Credential.xml"    
    
 Send-MailMessage -From xxx@yz.berlin.de -to xxx@yz.berlin.de -Subject 'Neue Messwerte' -Body 'Musterbody' -SmtpServer mail01.xyz.de -Attachments $fullpath -EA Stop -Credential (New-Object PSCredential('xxx@yz.berlin.de',(ConvertTo-SecureString 'PASSWORD' -AsPlainText -Force)))  -UseSSL
        
        write-host "OK." -F Green
    }catch{
        
        write-host "Error: $($_.Exception.Message)" -f Red
    }
}
cls
write-host "Warte auf neue Dateien im Ordner ..."
while($true){sleep 1}

Alles anzeigen

$Path1 soll als $folder übergeben werden, geht das ?

lg und danke schon mal

Chris

casi4712

Jo mit setData funktioniert es jetzt

AutoIt

Func Settings()
    ;Create a GUI with various controls.
    Local $hGUI = GUICreate("SETTINGS", 400, 260)
    Local $idInputPath1 = GUICtrlCreateInput($Path1, 170, 90, 150, 20)
    local $idButton_Req1 = GUICtrlCreateButton("", 320, 90, 20, 20)
    
    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg($hGUI)
            Case $GUI_EVENT_CLOSE, $idOK

                startcheck()
                ExitLoop

             Case $idButton_Req1
                Local Const $sMessage = "Ordner wählen"
                Local $sFileSelectFolder = FileSelectFolder($sMessage, "")
                    If @error Then
                     MsgBox($MB_SYSTEMMODAL, "", "Kein ordner gewählt.")
                    Else
                     MsgBox($MB_SYSTEMMODAL, "", "Folgender Ordner wurde gewählt:" & @CRLF & $sFileSelectFolder)
                    EndIf
 GUICtrlSetData($idInputPath1, $sFileSelectFolder)
               
                  EndSwitch
    WEnd
 
    GUIDelete($hGUI)
EndFunc   ;==>Settings

Alles anzeigen

recht herzlichen DFank und eine schöne Woche

casi4712

ah okay Du meintest

Code

GuiCtrlSetData

, dann schaue ich mal

Danke schön

casi4712

damit setze ich nen Haacken im Traymenu, ich mächte aber ein in der Filebox ausgewähltes Verzeichnis in die Inputbox übernehmen, sorry wenn ich mich falsch ausgedrückt hatte.

casi4712

Hallo allerseis, ich habe noch mal eine ganz allgemeine Frage. Nehmen wir an, ich habe eine EinstellungsGUI und ich möchte mit einer Filebox einen standarmässig, per ini eingestellten Pfad ändern. Wie bekomme ich es hin, dass der Inhalt im Inputfeld auch entsprechend synchronisiert wird, nachdem eine Auswahl getroffen wurde. Das Scriptfragment schaut so aus:

AutoIt

#include <Array.au3>
#include <Constants.au3>
#include <ScreenCapture.au3>
#include <File.au3>
#include <GuiButton.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIError.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <StringSize.au3>
#include <InetConstants.au3>

Opt("TrayMenuMode",1) ; Hide default tray menu items
Opt("TrayAutoPause", 0); This will allow you to click on the TrayIcon without pause the script
TraySetIcon("Shell32.dll",-27)
TraySetClick(8) ;only show the menu when right clicking
#Tray Tip
TraySetToolTip ("Tomis USB FormaterTool")
Global $checkPathF = _PathFull("usf.ini", @ScriptDir)

;Traymenu 
$Settings= TrayCreateItem("Einstellungen")
$exititem = TrayCreateItem("Exit")

;Function CALLS
Firststartcheck()
startcheck()


;CHECKS------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------
;Erster Prgrammstart
Func Firststartcheck()
    If FileExists($checkPathF) = 1 Then  ;Checkdatei auf Existenz prüfen
        ; Nichts tun
    Else
        _FileCreate($checkPathF) ;ini Datei erstellen
        ;Standard Settings setzen
        $Path1 = "c:\"
        IniWrite("USF.ini", "settings", "Path1", $Path1) ; StandardSetting LangFormat
                FileCreateShortcut(@ScriptFullPath, @StartupDir & "\USB-Formatter.lnk", @ScriptDir, "", "AutoIT Script Description")
    EndIf
EndFunc   ;==>Firststartcheck
;------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------
Func startcheck();Auslesen Ini Datei
    ;Einlesen der Parameter aus IniDatei
  Global $Path1 = IniRead("USF.ini","settings","Path1", "")
EndFunc
;------------------------------------------------------------------------------------------------------------


;MAIN LOOP---------------------------------------------------------------------------------------------------
While 1
 Switch TrayGetMsg() ;switch seems nicer in this case
 Case 0
     ContinueLoop
    Case $TRAY_EVENT_PRIMARYDOWN ;reaction to left clicking

    Case $settings
      TrayItemSetState($settings,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
       Settings()
    
    Case $exititem
     ;GuiCtrlSetImage($exititem, "shell32.dll", 4)
     ExitLoop
 EndSwitch
WEnd

Exit
;------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------
Func Settings()
    ;Create a GUI with various controls.
    Local $hGUI = GUICreate("SETTINGS", 400, 260)
    Local $idInputPath1 = GUICtrlCreateInput($Path1, 170, 90, 150, 20)
    local $idButton_Req1 = GUICtrlCreateButton("", 320, 90, 20, 20)
    
    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg($hGUI)
            Case $GUI_EVENT_CLOSE, $idOK

                startcheck()
                ExitLoop

             Case $idButton_Req1
                Local Const $sMessage = "Ordner wählen"
                Local $sFileSelectFolder = FileSelectFolder($sMessage, "")
                    If @error Then
                     MsgBox($MB_SYSTEMMODAL, "", "NKein ordner gewählt.")
                    Else
                     MsgBox($MB_SYSTEMMODAL, "", "YFolgender Ordner wurde gewählt:" & @CRLF & $sFileSelectFolder)
                    EndIf

                  EndSwitch
    WEnd

    GUIDelete($hGUI)
EndFunc   ;==>Settings
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------

Alles anzeigen

casi4712

ok habs rausgefunden, die Funktion funktioniert nur mit nem Tiefstrich davor. Das mit dem anderen Vorschlag, bzgl. der anderen Frage werde ich morgen mal ausprobieren.

Danke noch mal

casi4712

jo, also dass hier, kann nicht so ganz stimmen

AutoIt

Start Func Break()
    $Break = True
EndFunc

Kommt jedenfalls ein Fehler: EndFunc without Func

casi4712

Aber was schreibe ich denn da als Bedingung, nehemen wir man an Escape Taste?

Beiträge von casi4712

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

Variable an PS Script übergeben

Variable an PS Script übergeben

Variable an PS Script übergeben

Variable an PS Script übergeben

Filebox Auswahl in Inputfeld übernehmen

Filebox Auswahl in Inputfeld übernehmen

Filebox Auswahl in Inputfeld übernehmen

Filebox Auswahl in Inputfeld übernehmen

Frage zur Screenshotfunktion

Frage zur Screenshotfunktion

Frage zur Screenshotfunktion