Beiträge von casi4712

casi4712

Das hat funktioniert, recht herzlichen Dank, also schaut jetzt so aus:

AutoIt

Func ActiveWindow()
$sTimestamp = @YEAR & @MON & @MDAY & "-" & @HOUR & @MIN & @SEC ; ggf. noch & @MSEC
$sFileName= $targetdirPath & "ActiveWindow.jpg"
$ActiveWindow = WinGetHandle("[active]")
  ; If GUICtrlRead ( $Mouse ) = $GUI_CHECKED Then
                            ; $CaptureMouse = True
                        ; Else
                            ; $CaptureMouse = False
                        ; EndIf
                        $Image = _ScreenCapture_CaptureWnd ( "", $ActiveWindow, 0, 0, -1, -1, True )
                        $fFreeBmp = True
                        _ScreenCapture_SaveImage ( $sFilename & "PictuRec.jpg", $Image, $fFreeBmp )    
EndFunc

Alles anzeigen

schöne Woche noch

lg

casi4712

Das wäre eine Idee ja, probiere ich mal aus, vielen Dank

eine schöne Woche

casi4712

hallo und danke für die Hinweise ,

ja die Funjtion Ganzer Screen geht auch wenn das Spezielle Fenster sichtbar ist. Ich schau mit mal das Script von Mobas an. Um es noch mal zu sagebn, ich möchte dass er mir den vorherigen Snapshot erhält und nicht überschreibt, so dass ich quasi eine Art History erhalte, als Bild.jpg, Bild01.jpg etc. Das mit den ggf überlagernden Fenstern kann ich ja so verhindern, indem ich das spezielle Programm automatisch minimieren lasse, dass geht ja mit autoit.

Übrigens das zweite Scrupt von Mombbaas hatte ich auch probiert, ich erhalte dort auch nur einen kleinen Auschnitt ohne Inhalt:(

lg und schönen SonntaG NOCH

casi4712

jop hallo und recht herzlichen Dank erst mal Moombas. Also bezüglich der Frage mit den überlagerten Fenstern wäre es mir unverständlich warum es nicht gehen sollte, sofern dass gesnapschotete Fensster im Hintergrund ist geht es ja auch, obwohl nicht sichtbar.

Das erste Script von Dir habe ich mir mal angesehen, er macht zwar eine Reihe von Snapshots, aber jweils alles nur weisse quadartische Flächen. Also um es mal genauer zu beschreiben, es soll von einem bestimmten Programm Fenster, in dem bestimmte Gebäudeinformationen dargestellt sind, auf Klick ein Snapshot angefrtig werden, und auf einem anderen Server abgelegt werden (in meinem Miniscript noch testweise lokal. Ich hoffe es ist nicht ganz zu unübersichtlich.

C

#include <Constants.au3>
#include <ScreenCapture.au3>
#include <File.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",-325)
TraySetClick(8) ;only show the menu when right clicking

#Tray Tip
TraySetToolTip ("ClippingTool -  Bitte klicken für Screenshot")

;Variablen--------------------------------------------------------------------------------------------------
$Folderitem = TrayCreateItem("Clip Ordner")
$Holeitem = TrayCreateItem("Ganzer Bildschirm")
TrayCreateItem("") ; Create a separator line.
$aboutitem = TrayCreateItem("Über")
$infoitem = TrayCreateItem("Info")
$Supportitem = TrayCreateItem("Support-Mail")    
TrayCreateItem("") ; Create a separator line.
$autostartitem = TrayCreateItem("mit Windows starten")
  TrayItemSetState($autostartitem,$TRAY_CHECKED)
$exititem = TrayCreateItem("Exit")
  
$appPath = _PathFull("Microsoft\Windows\Start Menu\Programs\Startup\ClippingTool.exe", @AppDataDir)
$clipPath = ("c:\clips")
$checkPath = ("c:\check.txt")
$checkPath = _PathFull("Microsoft\check.txt", @AppDataDir)


;Mehrere Instanzen vermeiden---------------------------------------------------------------------------------
  $g_szVersion = "My Somewhat Unique Window Title"
    If WinExists($g_szVersion) Then
     Exit
    EndIf
      AutoItWinSetTitle($g_szVersion)
;------------------------------------------------------------------------------------------------------------      

;Clipverzeichnis anlegen-------------------------------------------------------------------------------------
    If FileExists ($clipPath) = 1 Then
    ;MsgBox(0,"info", "File exists" , 10)
    Else
    ;MsgBox(0,"info", "File does not exist" , 10)
    DirCreate ( "c:\clips" ) 
    EndIf
;------------------------------------------------------------------------------------------------------------
    
;Prüfen ob Tool zum ersten mal gestartet mit check.txt
    If FileExists ($checkPath) = 1 Then
    ;MsgBox(0,"info", "File exists" , 10)
    Else
    ;MsgBox(0,"info", "check does not exist" , 10)
    SplashTextOn("Achtung", "Clipping Tool residiert ab jetz hier unten im Traymenu ⇲ !", 450, 60, 1400, 950, 1, "Verdana")
    sleep(5000)
     SplashOff()
      _FileCreate($checkPath) 
    ;erster Splash once
    EndIf
    
    
       
;AutostartLink erzeugen--------------------------------------------------------------------------------------
    If FileExists ($AppPath) = 1 Then
        Else
      FileCreateShortcut(@ScriptFullPath, @StartupDir &"\ClipingTool.lnk")
    EndIf 
    
;MAIN LOOP---------------------------------------------------------------------------------------------------
While 1
 Switch TrayGetMsg() 
 Case 0
     ContinueLoop
    Case $TRAY_EVENT_PRIMARYDOWN ;LinksClick
     ;Msgbox(64,"","left click!")
      SHOT()
           ;WinSetState($hWnd, "", @SW_Restore)
      
Case $holeitem
     TrayItemSetState($holeitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
      HoleScreen()
      
Case $aboutitem
     TrayItemSetState($aboutitem,$TRAY_UNCHECKED) 
     Msgbox(64, "Über", "Mit diesem Tool wird per Doppelklick ein Snapshot von der Anwendung ... erzeugt, diese wird anschliessend auf Rechner ..., in Verzeuichnis ... abgelegt.")

 Case $Folderitem
     TrayItemSetState($Folderitem,$TRAY_UNCHECKED) 
     Run("Explorer.exe " & "C:\clips")

 Case $supportitem
     ;TrayItemSetState($supportitem,$TRAY_UNCHECKED) 
     ShellExecute("mailto:xyz@xyz.de")
     
 Case $infoitem
     TrayItemSetState($infoitem,$TRAY_UNCHECKED) 
     Msgbox(64, "About", "Bei Fragen und Anregungen, sowie Problemen kontaktieren Sie bitte mich!") 

 Case $autostartitem
 ; if unchecked  -> chekced  else
      TrayItemSetState($autostartitem,$TRAY_UNCHECKED)
      TraySetState()
     
 Case $exititem
     ExitLoop
 EndSwitch
WEnd
Exit
;------------------------------------------------------------------------------------------------------------



;------------------------------------------------------------------------------------------------------------
Func Shot()
 $title = "Unbenannt - Editor" ;Beispiel mit Notepad
$list = WinList() ;liste alle Fenster
   If $list[0][0] > 0 Then ;wenn Liste nicht leer, dann weiter
      $i = 1
    Do
   If StringInStr($list[$i][0], $title) > 0 Then ;finde erstes Notepad Fenster
    $hWnd = $list[$i][1] ;merke Handel vom Fenster
      WinSetState($hWnd, "", @SW_RESTORE) ;stelle wieder das Notepad Fenster her, da minimiert der Screenshot sonst schwarz wäre
      Sleep(250) ;warte auf das Notepad Fenster
       _ScreenCapture_CaptureWnd("c:\clips\notepad.jpg", $hWnd) ;mache ein Foto und speichere das Bild ab
      WinSetState($hWnd, "", @SW_MINIMIZE) ;minimiere das Fenster wieder
    ExitLoop ;verlasse Schleife
   EndIf
    $i += 1
    Until $i >= $list[0][0] ;suche solange bis alle Fenster durchsucht sind!
   EndIf
EndFunc
;------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------
Func HoleScreen()
_ScreenCapture_Capture(@TempDir & "\1.jpg")
 Run(@TempDir)
EndFunc
;------------------------------------------------------------------------------------------------------------

Alles anzeigen

lg und schönes Wocheende noch

casi4712

Hallo Leudde,

mal eine Frage zur Screenshotfunktion von Autoit, bzw 2. Ist es möglich dass bei offenen Fenstern, von denen ein Screenshot gemacht werden soll, evtl. überlagerte Requester und Fenster weggefiltert werden?

AutoIt

_ScreenCapture_CaptureWnd("c:\clips\notepad.jpg", $hWnd) ;Scrennshot und save

zweite Frage: Ist es ggf möglich dass Overwrite abzustellen, dass beim erneuten Screenshot ein neues mit ggf. '1 ...2... usw. erstellt wird?

Ein schönes Wochenende

lg

Chris

casi4712

sehr schön, funktioniert

danke noch mal an alle

lg

Chris

casi4712

Ich habe jetzt keine weiteren Fragen gesehen, sonst hätte ich schon geantwortet, so lang sind die Pfade bei mir nicht, das ist schon in Ordnung jetzt so, und mit dem Trial and error hatte ich schon versucht, dass schluckt er so leider nicht

AutoIt

 SplashTextOn('', $sText, Ceiling($tRect.Width), Ceiling($tRect.Height) + 24, -1, -1, 20, $sFontname, $sFontSize, $DLG_NOTITLE)

Mache ich eigentlich immer, bevor ich eine Frage stelle.

lg

Chris

casi4712

ok na so lange Pfade werd ich nicht brauchen, aber es wäre klasse wenn man nun auch noch die den Parameter $DLG_NOTITLE für titelloses Fenster nutzen könnte. Das geht aber nicht oder?

lg und schönen Morgen

Chris

casi4712

Oscar , sehr cool, jetz ist es egal wie lang der Pfad ist, und er passt Text und Fenster an.

Vielen Dank noch mal

casi4712

okidoki, danke für die Tips, aber war ja auch nen Denkfehler von mir, wenn der Pfad ziemlich lang is, kann er ja nicht wissen wo er trennen soll, Oscar das werde ich auch mal probieren

Danke und schönen Abend noch

chris

casi4712

okidoki, wie gesagt ist 21:9

HJab das ganze Problem jetzt noch mal isoliert und die Variable $file gefakt. So sieht man das Problem deutlicher

AutoIt

#include <WinAPI.au3>

$file = "C:\Users\Administrator\Downloads\Aufgaben\Datei"

$TwipsX = _WinAPI_TwipsPerPixelX()
$FontHight = 14
;Korrekturfaktor damit der Text ins Fenster passt (experimentell ermitteln...)
$CF = 25
; Fenster z.B.: im 16:9 Kinoformat ;)
$SpW= 16 * $CF / $TwipsX * $FontHight
$SpH= 9 * $CF / $TwipsX * $FontHight

SplashTextOn("Bitte warten", "" & $file & " wurde geschieben ",$SpW,$SpH, -1, -1, 21, "", $FontHight)
sleep(5000)

Alles anzeigen

casi4712

Ja klar, gibbet überhaupt noch 4:3 Monitore

sag ja das es nicht funktioniert, zumnidest mit Variable

casi4712

Wie gesagt, wenn ich einen reinen langen Text reinhänge ohne &file dann macht er es, schaut natürlich nen bisl blöd aus

casi4712

Hallo , und danke erst einmal

Moombas, das siehht auf den ersten Blick gut aus, handelt es sich um einen statischen text, sobald da aber eine Pfad Varible mit verwurstet wird, ist das Problem wieder da

AutoIt

               local $TwipsX = _WinAPI_TwipsPerPixelX()
               local $FontHight = 10
               ;Korrekturfaktor damit der Text ins Fenster passt (experimentell ermitteln...)
               local $CF = 25
               ; Fenster z.B.: im 16:9 Kinoformat ;)
               local $SpW= 16 * $CF / $TwipsX * $FontHight
               local $SpH= 9 * $CF / $TwipsX * $FontHight   
                 SplashTextOn("", "Fertig" & $file_ & "wurde gespeichert! ",$SpW,$SpH, -1, -1, 21, "", $FontHight)     
               Sleep(4000)
               SplashOff()

casi4712

Hallo allerseit,

ich habe mal eine Frage zu Splashtext Boxen. Ist es möglich die Fontgrösse des angezeigten Textes so anzupassen, dass der Text in jedem Falle hineinpasst. Problem, sofern hier vriable Texte, zB Pfade angezeigt werden, wird immer abgeschnitten.

AutoIt

SplashTextOn('', '"Fertig!,"' & $file_ & '"wurde gespeichert!"', 370, 65, -1, -1, $DLG_NOTITLE)
 Sleep(4000)
 SplashOff()

Leider konnte ich nichts finden, würde mich über einen Tip sehr freuen

lg

Chris

casi4712

Ok war jetz doch simpler als ich dachte, auch wenn ich meine hatte das auch schon ohne Erfolg probiert. Jedoch sehe ich nicht so ganz den Sinn dahinter, wenn ich doch schon Adlib Register nehme, dass ich sämtliche Variablen noch mal neu setzen muss. Ich nehme es jetzt mal so hin;)

AutoIt

Func CheckAcState()
global $col
_IfWinActivated()
  if _IfWinActivated() = "True" Then
      $ac = "Der PC ist dauerhaft aktiviert"
        global $col = "0xFFFFFF"
        GUICtrlSetData($acLabel, $ac)
        GUICtrlSetColor($acLabel, $col)
                 Else
              $ac = "Der PC ist nicht aktiviert !!!"
       global $col = "0xF00404"
        GUICtrlSetData($acLabel, $ac)
        GUICtrlSetColor($acLabel, $col)
EndIf
EndFunc;==> $ac

Alles anzeigen

Also Danke noch mal und ein wunderschönes Wochenende

casi4712

also ich weiss jetzt nicht so ganz worauf du hinauswillst, oder magst du mir sagen das ich $col auch jeweils mir GUICtrlSetData setzen muss?

lg und schönen Abend

casi4712

Danke erstmal,

ok dann schau ich mal, wegebn der Variablen, die hatte ich erst lokal, und erst testweise geändert.

lg

chris

casi4712

Hallo liebe Scripter,

heute mal ein hoffe ich doch eher kleineres Problem. Ich bekomme es irgendwie, trotz Adlib Registering nicht hin, einen Farbwechsel des Labels zu realisieren. Grundsätzlich geht es ja, aber nur wenn ich das Script neu starte, also er soll bei nicht Aktivierung rot sein, ansonsten weiss. Den Farbwert scheint er nicht zu aktualisieren. was mache ich falsch?

Schaut so aus:

AutoIt

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

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

; 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

;System Variables
Global $acLabel
Global $ac = ""

;AdLibRegistering;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AdlibRegister('CheckAcState', 3000)

; processing --------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Test", 840, 610)

;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------
CheckAcState()
_createLabels()

;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('CheckAcState')
            Exit
    EndSwitch
WEnd

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


;-------------------------------------------------------------------------------------------------------------------------------------------------
Func _createLabels()
    $ACLabel = GUICtrlCreateLabel($ac, 600, 560, 250, 20)
      GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
      GUICtrlSetFont(-1, 11, 800) ; bold
      GUICtrlSetColor(-1, $col) ; red 
EndFunc
;-------------------------------------------------------------------------------------------------------------------------------------------------

;-------------------------------------------------------------------------------------------------------------------------------------------------
; AktivierungsStatus----------------------------------------------------------------------------------------------------------------------------------------------
Func CheckAcState()
global $col
_IfWinActivated()
  if _IfWinActivated() = "True" Then
      $ac = "Der PC ist dauerhaft aktiviert"
        global $col = "0xFFFFFF"
        GUICtrlSetData($acLabel, $ac)
                 Else
              $ac = "Der PC ist nicht aktiviert !!!"
       global $col = "0xF00404"
        GUICtrlSetData($acLabel, $ac)
        
EndIf
EndFunc;==> $ac


Func _IfWinActivated()
    Local $sCommand, $iPID, $sData
     $sCommand = @ComSpec & ' /c WMIC /NAMESPACE:\\root\CIMV2 PATH SoftwareLicensingProduct WHERE LicenseStatus=1 GET Description, LicenseStatus|findstr "Operating System"'
     $iPID = Run($sCommand, @ScriptDir, @SW_HIDE, 0x2)
      ProcessWaitClose($iPID)
      $sData = StringStripWS(StdoutRead($iPID), $STR_STRIPTRAILING)
    Return StringRight($sData, 1) == '1'
EndFunc   ;==>_IfWinActivated
;-------------------------------------------------------------------------------------------------------------------------------------------------


;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.jpg', 0, 25, 920, 660)
         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)
    ;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
;-------------------------------------------------------------------------------------------------------------------------------------------------

Alles anzeigen

Was mache ich falsch, Danke schon mal

lg

Chris

casi4712

ok habs gefunden

Local $rFree = Round($free, 2)

Vielen DXank noch Mal

Beiträge von casi4712

Frage zur Screenshotfunktion

Frage zur Screenshotfunktion

Frage zur Screenshotfunktion

Frage zur Screenshotfunktion

Frage zur Screenshotfunktion

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Splash Font automatisch anpassbar

Automatische DriveSpace Kontrolle

Farbänderung von Label bei AdlibRegistering

Farbänderung von Label bei AdlibRegistering

Farbänderung von Label bei AdlibRegistering

Automatische DriveSpace Kontrolle