So Funktioniert es nun, kann geschlossen werden, vielen dank für die Hilfe und neuen ideen
Spoiler anzeigen
C
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>
#include <MsgBoxConstants.au3>
Opt("GUIOnEventMode",1)
WinWaitActive("Homework :") ; Aktiv werden dann
$pos_A = WinGetPos("Homework :"); Position besorgen
$hGui = GUICreate("", 110, 24, 0,0, $WS_POPUP)
$Button = GUICtrlCreateButton("Qualicheck Bilder", 0, 0, 110, 24) ; Erstelle Button
GUICtrlSetOnEvent(-1,"_GibTitle") ;Button aktion juhu
GUICtrlSetBkColor($Button, $COLOR_YELLOW) ; Farbe des Buttons
GUISetState(@SW_SHOW) ; will display an empty dialog box
AdlibRegister('_WinMove', 500)
AdlibRegister('_Showornot', 500)
WinSetOnTop($hGui,"",1) ; Overlay eigenschaft
$sString4 =""
Func _WinMove()
$p_A = WinGetPos("[ACTIVE]")
WinMove($hGui, "", $p_A[0]+$p_A[2] - 375, $p_A[1] + $p_A[3]-34)
$sString4 =""
EndFunc ;==>_WinMove
Func _Showornot()
If Winactive("Homework :")then
$title = WinGetTitle("[ACTIVE]") ;Speichere den Titel des Fensters
Local $sString1 = StringTrimLeft($title, 9) ; Lösche ersten 9 Zeichen
Local $sString2 = StringLeft($sString1, 14) ; Kopiere erste 14 Zeichen
Local $sString3 = StringReplace($sString2, "-", "") ; Ersetze -
Local $sString4 = StringReplace($sString3, "/", "") ; Ersetze -
$sOrdnerPfad = "C:\TEST\" & $sString4 ; Erstelle Ordnerpfad Variable
$iFileExists = FileExists($sOrdnerPfad) ; Prüfe ob es diesen Ordner gibt oder nicht
If $iFileExists Then
GUISetState(@SW_Show)
WinActivate("Homework :")
$sString4=""
Sleep(200)
Else
GUISetState(@SW_Hide)
EndIf
Else
GUISetState(@SW_Hide)
$sString4=""
EndIF
EndFunc
; Run the GUI until the dialog is closed
While Sleep(10)
WEnd
Func _GibTitle()
WinActivate("Homework :")
$test = WinGetTitle("[ACTIVE]")
$title = WinGetTitle("") ;Speichere den Titel des Fensters
Local $sString11 = StringTrimLeft($title, 9) ; Lösche ersten 9 Zeichen
Local $sString21 = StringLeft($sString11, 14) ; Kopiere erste 14 Zeichen
Local $sString31 = StringReplace($sString21, "-", "") ; Ersetze -
Local $sString41 = StringReplace($sString31, "/", "") ; Ersetze -
$sOrdnerPfad1 = "C:\TEST\" & $sString41 ; Erstelle Ordnerpfad Variable
Run("explorer.exe " & $sOrdnerPfad1)
;MsgBox($MB_SYSTEMMODAL, "", $sOrdnerPfad1)
EndFunc
Alles anzeigen