1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. casi4712

Beiträge von casi4712

  • paralleler CMD start mit schleife

    • casi4712
    • 13. August 2022 um 18:46

    cool, jetzt kommt langsam Licht ins Dunkel, aber wie gesagt ich mach nen Infofenster an den Anfang, zur Sicherheit:)

    recht herzlichen Dank erstmal für Deine Mühe, wie gesagt das mit den Arrys in Autoit werde ich noch vertiefen müssen

    lg und schönes WE noch

  • paralleler CMD start mit schleife

    • casi4712
    • 13. August 2022 um 17:06

    Hallo nochmal,

    zunächst noch mal zu AspirinJunkie

    das mit Run stimmt zumindest halb, er öffnet zwar bei SHOW beide CMD Fenster, aber er wartet mit dem formatieren schön ab bis das erste fertig ist.

    Run(@ComSpec & " /c " & "format " & $line & " /FS:FAT32 /y", "", @SW_SHOW)

    ich gehe davon aus dass nur an diedem Ausdruck noch was falsch ist

    @Musashi: So jetzt kommt ein Fenster, dort zeig ter an 2 gefundene und die beiden Buchstaben der gefundenen Sticks. Wo müsste ich denn in deinem Script die Formatanweisung einfügen und wie binde ich da das Array richtig ein?

  • paralleler CMD start mit schleife

    • casi4712
    • 13. August 2022 um 12:08

    Also ich habe das script jetzt mal getestet, ich seh schon Thema Autoit und Arays muss ich mich nich mit beschäftigen, nichtsdestotrotz, das Script erkennt bei mir keine Usb Sticks, eugentlich passiertt gar nichts.

    lg


    chris

  • paralleler CMD start mit schleife

    • casi4712
    • 13. August 2022 um 11:42

    okidoki, vielen Dank für die Antworten, werd edass jetzt erst mal testen, danke auch Racer, ich denke das Script kann man auch noch auf USB Sticks anpassen, vielleicht Ernennungsmerkmal Kapazität..

    lg und schönes Wochenende

  • paralleler CMD start mit schleife

    • casi4712
    • 13. August 2022 um 01:27

    hm aber nicht wenn ich die sticks nacheiander formatieren, bei meinem Script wartet er ja erst ab bis ein Vorgang fertig ist, dass kann man wohl nicht mit dem 10 maligen Starten von Notepad vergleichen;)

    lg und schönen Abend noch

  • paralleler CMD start mit schleife

    • casi4712
    • 12. August 2022 um 22:30

    Jo danke erst mal, also ich habe das eigentlich ausgiebig gestestet, auch mit anderen Datenträgern, ich habe nur Driveletters von USB Sticks bekommen. Ok laut MS ist 2 generell Rmovable Drive, da kommt eh aber noch ne Arnmeldung vorher rein. Aber für bessere Vorschläge, die Driveletter zu ermitteln, bin ich gern zu haben.

    Warum das parallel laufen soll, weil es bei meheren eingesteckten Sticks Zeit spart. Ein Kollege hat viele USB Sticks zu formatieren, das ist der Hintergund. Aber diese Formatprozesse parallel anzustarten geht wahrscheinlich nicht aus der Schleife raus.:( Und Autoit ist doch zum automatisieren, da lässt zumindest de Name drauf schliessen...:)

    lg

    Chris

  • paralleler CMD start mit schleife

    • casi4712
    • 12. August 2022 um 15:24

    Hallo liebe Scriptiggemeinde,

    ich habe ein kleines Miniscript gebastelt, das alle USB Sticks automatisch formatieren soll. Dazu ermittele ich per PS die entsorechenden Laufwerksbuchstaben:

    AutoIt
    $sticks = Get-WmiObject Win32_LogicalDisk  | Where-Object DriveType -eq 2
    $SticksLet = $sticks.DeviceID | Out-File -FilePath "c:\windows\temp\letters.txt"

    das eigentliche Script (ich weiss vielleicht nicht ganz so elegant) schaut so aus:

    AutoIt
    #include <File.au3>
    
    SplashTextOn("info", "UsBStick Letters werden ermittelt", 450, 60, 1400, 950, 1, "Verdana")
    $CmdPid = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe .\ListUsbStickLetters.ps1 -noexit" & 'Get-ChildItem',@ScriptDir, @SW_HIDE); GetStickLetters
    $file = "C:\Windows\Temp\letters.txt"
    
    Sleep ( 6000 )
    FileOpen($file, 0)
    
    For $i = 1 to _FileCountLines($file)
        $line = FileReadLine($file, $i)
        ; msgbox(0,'"Stickletter"',$line);Testing letters
    
    Run(@ComSpec & " /c " & "format " & $line & "/FS:FAT32 /q /v:" & "leer", "", @SW_SHOW)
    Next
    
    FileClose($file)
    Sleep ( 6000 )
    FileDelete($file)
    Alles anzeigen

    Wie bekomme ich es hin, dass bei meherern existeten Sticks, diese Prozesse quasi parallel gestartet werden, also nicht nacheinander?


    lg

    Chris

  • Scite for autoit

    • casi4712
    • 11. August 2022 um 22:36

    stimmt jetzt gehts, recht herzlichen Dank

  • Scite for autoit

    • casi4712
    • 11. August 2022 um 13:10

    Habe mal ne etwas dämliche Frage. Ich hatte mir ja auf Empfehlung von Euch den SCITE for autoit installiert. Da konnte man ja mal mit f5 oder via Tools die Konsolenausgabe einschalten. Eine ziemlich nützliche Funktion wie ich finde, wenn Sie denn auch immer da wäre. Nach der letzten Neuinstallation ist unter Tools kaum etwas drin und f5 geht auch nicht, bei Sprachen steht noch nicht mal autit, und ja ich habe den Scite for autoit genommen. Muss man noch irgendwo etwas anschalten?


    lg


    chris

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 20:54

    Ach doch, irgendwie scheint es jetzt doch zu funktionieren, Problem gelöst. Ich bedanke mich recht herzlichst bei allen Mithelfenden.


    lg und schönen Abend noch

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 20:43

    Also mit TrayItemSet sagt er , dass er die Funktion nicht finden kann, welche Include fehlt denn da wieder;)?

    AutoIt
    Func startcheck()
    
      If FileExists(@StartupDir & "\ACT.lnk") Then
      MsgBox(0,"Info","Text",1)
           TrayItemSet($autostartitem, $TRAY_CHECKED)
      Else
      MsgBox(0,"Info","Text",1)
           TrayItemSet($autostartitem, $TRAY_UNCHECKED)
      EndIf
    EndFunc    

    Gibt es TrayItemSet überhaupt? konnte darüber nichts finden

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 15:14

    da soll man drauf kommen, ok jetzt meckert er nicht mehr, aber wenn die datei da ist macht er keinen Hacken ran :(( da fehlt noch was

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 14:48

    So und dann habe ich logischerweise noch ne Startprüfung reinghauen, damit er den Hacken richtig setzt, da bemängelt er aber unchecked, gibbet das so nicht?

    (letzte Function)

    AutoIt
    #include <Constants.au3>
    #include <ScreenCapture.au3>
    #include <File.au3>
    #include <GuiButton.au3>
    #include <WinAPIError.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("Andis ClippingTool -  Bitte klicken für Screenshot")
    
    ;Variablen--------------------------------------------------------------------------------------------------
    $Folderitem = TrayCreateItem("Clip Ordner")
    $delitem = TrayCreateItem("Clip Ordner leeren")
    TrayCreateItem("") ; Create a separator line.
    $Spezitem = TrayCreateItem("Mess Bildschirm")
    TrayItemSetState($Spezitem, $TRAY_UNCHECKED)
    $Holeitem = TrayCreateItem("Ganzer Bildschirm")
    ;$Intervalitem = TrayCreateItem("Intervall-Shot")
    TrayCreateItem("") ; Create a separator line.
    $aboutitem = TrayCreateItem("Über")
    $infoitem = TrayCreateItem("Info")
    $Supportitem = TrayCreateItem("Support-Mail")
    TrayCreateItem("") ; Create a separator line.
    $Mailforwarditem = TrayCreateItem("weiterleiten per Mail (Newest)")
    ;TrayItemSetState($Mailforwarditem,$TRAY_CHECKED)
    $autostartitem = TrayCreateItem("mit Windows starten")
    ;TrayItemSetState($autostartitem,$TRAY_UNCHECKED)
    $exititem = TrayCreateItem("Exit")
    
    
    ;;;;;;;;;;;;;;;;
    startcheck()
    ;;;;;;;;;;;;;;;;
    
    TraySetState()
    ;MAIN LOOP---------------------------------------------------------------------------------------------------
    While 1
        Switch TrayGetMsg() ;switch seems nicer in this case
            Case $exititem
                Exit
            Case $autostartitem
                If BitAND(TrayItemGetState($autostartitem), $TRAY_CHECKED)  Then
                  ;If Not FileExists(@StartupDir & "\ACT.lnk") Then
                     FileCreateShortcut(@ScriptFullPath, @StartupDir & "\ACT.lnk", @ScriptDir, "", "AutoIT Script Description")
                      ConsoleWrite('Autostart-Item Checked' & @CR)
                      ;MsgBox(1, '', _WinAPI_GetLastErrorMessage())
                      
                Else
                ;MsgBox(1, '', _WinAPI_GetLastErrorMessage())
                    ConsoleWrite('Autostart-Item Unchecked' & @CR)
                    FileDelete(@StartupDir & "\ACT.lnk")
                    
                EndIf
                
        EndSwitch
    WEnd
    
    
    
    ;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
    
    
    Func startcheck()
    TraySetState()
      If FileExists(@StartupDir & "\ACT.lnk") Then
           GUICtrlSetState($autostartitem, $GUI_CHECKED)
      Else
      MsgBox(0,"Info","Text",1)
           GUICtrlSetState($autostartitem, $GUI_UNCHECKED) 
      EndIf
    EndFunc    
    Alles anzeigen
  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 14:28

    Okidoki, jetzt hat es geklappt Oscar, recht herzlichen Dank. Dann lag es also anscheinend an der if not Bedingung,

    AutoIt
    While 1
        Switch TrayGetMsg() ;switch seems nicer in this case
            Case $exititem
                Exit
            Case $autostartitem
                If BitAND(TrayItemGetState($autostartitem), $TRAY_CHECKED)  Then
                  If Not FileExists(@StartupDir & "\ACT.lnk") Then
                     FileCreateShortcut(@ScriptFullPath, @StartupDir & "\ACT.lnk", @ScriptDir, "", "AutoIT Script Description")
                      ConsoleWrite('Autostart-Item Checked' & @CR)
                      
                Else
                    ConsoleWrite('Autostart-Item Unchecked' & @CR)
                    FileDelete(@StartupDir & "\ACT.lnk")
                    
                EndIf
                 endif
        EndSwitch
    WEnd
    Alles anzeigen


    ok die ist vielleicht zwar überfüssig, aber schon komisch

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 14:01

    Das mit BN_Clicked hatte zumindest in Controlboxen funktioniert, das war ja auch meien Frtage, ob das hier anders heissen muss, ich probiere das mal aus und bedanke mich

    lg


    Chris

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 13:26

    So also noch mal detailiert, ich habe es jetzt hinter jeder Zeile in dem IF Kondtukt gehabt, kam immer nur Erolgreichausgeführt, erst nach der letzten Zeile dsagt er das mit dem Token im Lösch zweig:

    AutoIt
     Case $autostartitem
    
                            If BitAND(GUICtrlRead($autostartitem), $BN_CLICKED) = $BN_CLICKED Then
                                   ;MsgBox(0,"Info","Text",1)
                                MsgBox(1, '', _WinAPI_GetLastErrorMessage())
                                If Not FileExists(@StartupDir & "\ACT.lnk") Then
                                    FileCreateShortcut(@ScriptFullPath, @StartupDir & "\ACT.lnk", @ScriptDir, "", "AutoIT Script Description")
                                EndIf
                            ;MsgBox(1, '', _WinAPI_GetLastErrorMessage())    
                            Else
                                If FileExists(@StartupDir & "\ACT.lnk") Then
    
                                Endif
                            EndIf       
                       MsgBox(1, '', _WinAPI_GetLastErrorMessage())    
    Alles anzeigen
  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 13:12

    Dann kommt auch das mit dem Token nicht gefunden.

    Ohne BN_CLICKED schreibt er den Link nicht mal:(

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 13:10

    Hallo Mombas,

    danke für den Vorschlag, werde ich mal probieren

    PS: stimmt hatte ich vorher, ich schreibs mal nach Z150

    Danke

    lg

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 12:09

    Habe ich gemacht, da skommt nen Fenster: Es wurde versucht auf ein Token zuzugreifen, was nicht vorhanden ...


    Also grundsätzlichj ist das ok mit

    Code
    If BitAND(GUICtrlRead($autostartitem)

    das auszulesen? Hätte ja sein können, dass das nur mit chexboxes klappt

    lg und danke

  • Autostart in TrayTool

    • casi4712
    • 10. August 2022 um 11:39

    Hallo allerseits,

    also in einer GUI hatte ich das schon hinbekommen, aber in einem TrayTool scheint das so nicht zu funktionieren. Ich versuche einen Autostart einzubauen, den ich mit einem Hacken entsprechend an und abwählen kann. Eintragen geht gerade noch so , aber beim Abwählen löscht er den Link nicht, was mache ich bloss falsch? Hoffe ist nicht zu lang, poste das ma eben


    AutoIt
    #include <Constants.au3>
    #include <ScreenCapture.au3>
    #include <File.au3>
    #include <GuiButton.au3>
    
    FileInstall("C:\Users\Rickl\Music\kamera.mp3", "C:\Windows\Temp\kamera.mp3", 2)
    
    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 ("Andis ClippingTool -  Bitte klicken für Screenshot")
    
    ;HOTKEYS
    HotKeySet("+{F2}", "Shot") ;Screenshot spezielle Anwendung 
    HotKeySet("+{F3}", "ActiveWindow") ;Screnshot aktives Fenster 
    ;HotKeySet("{ESC}", "_Exit")
    ; Global $Terminate = False
    ; HotKeySet("{ESC}", "Terminate")
    ; HotKeySet("^s", Intervall()")
    
    
    ;Variablen--------------------------------------------------------------------------------------------------
    $Folderitem = TrayCreateItem("Clip Ordner")
    $delitem = TrayCreateItem("Clip Ordner leeren")
    TrayCreateItem("") ; Create a separator line.
    $Spezitem = TrayCreateItem("Mess Bildschirm")
     TrayItemSetState($spezitem,$TRAY_UNCHECKED)
    $Holeitem = TrayCreateItem("Ganzer Bildschirm")
    ;$Intervalitem = TrayCreateItem("Intervall-Shot")
    TrayCreateItem("") ; Create a separator line.
    $aboutitem = TrayCreateItem("Über")
    $infoitem = TrayCreateItem("Info")
    $Supportitem = TrayCreateItem("Support-Mail")    
    TrayCreateItem("") ; Create a separator line.
    $Mailforwarditem = TrayCreateItem("weiterleiten per Mail (Newest)")
      ;TrayItemSetState($Mailforwarditem,$TRAY_CHECKED)
    $autostartitem = TrayCreateItem("mit Windows starten")
      ;TrayItemSetState($autostartitem,$TRAY_CHECKED)
    $exititem = TrayCreateItem("Exit")
    
    $appPath = _PathFull("Microsoft\Windows\Start Menu\Programs\Startup\AndisClippingTool.exe", @AppDataDir)
    ;$clipPath = ("c:\clips")
    $checkPath = ("c:\check.txt")
    $checkPath = _PathFull("Microsoft\check.txt", @AppDataDir)
    $targetdirPath = _PathFull("clips\", @MyDocumentsDir )
    Global $BeepFile = 'C:\Windows\Temp\kamera.mp3'
    Global $sTimestamp
    Local $appPath
    $CmdPid = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe .\mailer.ps1 -noexit" & 'Get-ChildItem',@ScriptDir, @SW_HIDE); Starting PicMailer
    
    
    ;CHECKS------------------------------------------------------------------------------------------------------
    ;Mehrere Instanzen vermeiden---------------------------------------------------------------------------------
      $g_szVersion = "My Somewhat Unique Window Title"
        If WinExists($g_szVersion) Then
         Exit
        EndIf
          AutoItWinSetTitle($g_szVersion)
    ;------------------------------------------------------------------------------------------------------------      
    
    ;Clipverzeichnis anlegen-------------------------------------------------------------------------------------
        If FileExists ($targetdirPath) = 1 Then
        ;MsgBox(0,"info", "File exists" , 10)
        Else
        ;MsgBox(0,"info", "File does not exist" , 10)
        DirCreate ( $targetdirPath ) 
        DirCreate ( $targetdirPath & "app" )
        EndIf
    ;------------------------------------------------------------------------------------------------------------
    
    ;------------------------------------------------------------------------------------------------------------    
    ;Prüfen ob Tool zum ersten mal gestartet mit check.txt
        If FileExists ($checkPath) = 1 Then
        ;MsgBox(0,"info", "File exists" , 10)
        Else
         MakeShellmenu()
          SplashTextOn("Achtung", "Andis Clipping Tool residiert ab jetz hier unten im Traymenu ⇲ !", 450, 60, 1400, 950, 1, "Verdana")
           sleep(5000)
           SplashOff()
          _FileCreate($checkPath) 
        EndIf
    ;------------------------------------------------------------------------------------------------------------
    Func MakeShellmenu()
       RegWrite("HKEY_CLASSES_ROOT\Directory\Background\shell\WindowShot", "Icon", "REG_SZ", "Shell32.dll,325")
       RegWrite("HKEY_CLASSES_ROOT\Directory\Background\shell\WindowShot\command", "", "REG_SZ", "" & @Scriptdir & "\HOTKEYMakeShotActiveWindow.exe %W")
    EndFunc    
    
    
    ;MAIN LOOP---------------------------------------------------------------------------------------------------
    While 1
     Switch TrayGetMsg() ;switch seems nicer in this case
     Case 0
         ContinueLoop
        Case $TRAY_EVENT_PRIMARYDOWN ;reaction to left clicking
         ;Msgbox(64,"","left click!")
     checkapp() 
               ;WinSetState($hWnd, "", @SW_Restore)
    
    
     Case $delitem
         TrayItemSetState($delitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
         ProcessClose ($CmdPid)
         FileDelete($targetdirPath & "\*.*")
         FileDelete($targetdirPath & "\app\*.*")
         $CmdPid
         
    Case $spezitem
         TrayItemSetState($spezitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
            CheckApp()
         
    Case $holeitem
         TrayItemSetState($holeitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
         SoundPlay($BeepFile)      
         HoleScreen()
          
    ; Case $Intervalitem
         ; TrayItemSetState($Intervalitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
          ; Intervall()            
        
    Case $aboutitem
         TrayItemSetState($aboutitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
         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) ;stop the automated (un)checking when clicked
         Run("Explorer.exe " & $targetdirPath)
    
     Case $supportitem
         TrayItemSetState($supportitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
         ShellExecute("mailto:Rickl@landesarchiv.berlin.de")
         
     Case $infoitem
         TrayItemSetState($infoitem,$TRAY_UNCHECKED) ;stop the automated (un)checking when clicked
         Msgbox(64, "About", "Bei Fragen und Anregungen, sowie Problemen kontaktieren Sie bitte mich!") 
    
     Case $autostartitem
    
                            If BitAND(GUICtrlRead($autostartitem), $BN_CLICKED) = $BN_CLICKED Then
                                   ;MsgBox(0,"Info","Text",1)
                                
                                If Not FileExists(@StartupDir & "\ACT.lnk") Then
                                    FileCreateShortcut(@ScriptFullPath, @StartupDir & "\ACT.lnk", @ScriptDir, "", "AutoIT Script Description")
                                EndIf
                                
                            Else
                                If FileExists(@StartupDir & "\ACT.lnk") Then
                                    FileDelete(@StartupDir & "\ACT.lnk")
                                EndIf                            
                                ;Endif
                            EndIf       
                       
     Case $Mailforwarditem 
     ; if unchecked  -> chekced  else
          TrayItemSetState($Mailforwarditem ,$TRAY_UNCHECKED)
          TraySetState()
            
     Case $exititem
      ProcessClose ($CmdPid)
      
         ExitLoop
      EndSwitch
     WEnd
    Exit
    
    ;-----------------------------------------------------------------------------------------------------------
    Func CheckApp()
            If WinExists ( "Unbenannt - Editor" ) Then
                SoundPlay($BeepFile)     
                shot()
            Else
                Msgbox(64, "About", "Applikation läuft nicht!") 
            EndIf
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    
    ;------------------------------------------------------------------------------------------------------------
    Func Shot()
     $sTimestamp = @YEAR & @MON & @MDAY & "-" & @HOUR & @MIN & @SEC ; ggf. noch & @MSEC
     $sFileName= $targetdirPath & "app\" & "Notepad_" & $sTimestamp &".jpg"
     $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($sFileName, $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()
     $sTimestamp = @YEAR & @MON & @MDAY & "-" & @HOUR & @MIN & @SEC ; ggf. noch & @MSEC
     $sFileName= $targetdirPath & "FullScreen_" & $sTimestamp & ".jpg" 
      _ScreenCapture_Capture($sFileName,0,0,@DesktopWidth,@DesktopHeight)
       ShellExecute($sFileName)
    
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    
    ;------------------------------------------------------------------------------------------------------------
    Func ActiveWindow()
    $sTimestamp = @YEAR & @MON & @MDAY & "-" & @HOUR & @MIN & @SEC ; ggf. noch & @MSEC
    $sFileName= $targetdirPath & "ActiveWindow_" & $sTimestamp &".jpg"
    $ActiveWindow = WinGetHandle("[active]")
                            SoundPlay($BeepFile)
                            $Image = _ScreenCapture_CaptureWnd ( "", $ActiveWindow, 0, 0, -1, -1, True )
                            $fFreeBmp = True
                            _ScreenCapture_SaveImage ( $sFilename & "PictuRec.jpg", $Image, $fFreeBmp )    
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    
    ;------------------------------------------------------------------------------------------------------------
    Func Intervall()
     While 1
      Sleep(1000)
      Send("+{F2}")
    WEnd
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
    
    ;------------------------------------------------------------------------------------------------------------
    Func _Exit()
          MsgBox("Title", "", "Script wurde abgebrochen.", 2)
        Exit 0
    EndFunc
    ;------------------------------------------------------------------------------------------------------------
        
        
    Func Terminate()
     $Terminate = True
    EndFunc ;==>Terminate
    Alles anzeigen


    lg


    Chris

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™