Ankit_sw

Need to capture screen and mouse click when window locked

4 posts in this topic

#1 ·  Posted (edited)

Hello

I have created a script for capturing screenshot of windows task manager tabs. Script is working well but when I lock the window using Window + L key then it fails. I want script to be run properly when window is locked.

#include <MsgBoxConstants.au3>
#include <ScreenCapture.au3>


Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
  MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf

EndFunc

Func _WinWaitActivate($title,$text,$timeout)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

Func ScreenShot()
    ; Capture full screen
    Sleep(2000)
    _ScreenCapture_Capture("C:\Users\Common\Desktop\AutoIT\GDIPlus_Image"&@YEAR&"-"&@MON&"-"&@MDAY&" "&@HOUR&"-"&@MIN&"-"&@SEC&".jpg")
EndFunc 

Func ServerScript()

    ;ScreenShot()
    _WinWaitActivate("Windows Task Manager","",10)
    MouseClick("left",235,58,1)       ; Performance
    Sleep(2000)
    ScreenShot()
    MouseClick("left",28,58,1)         ; Application
    ScreenShot()
    MouseClick("left",356,60,1)    ;Users
    ScreenShot()
    Sleep(2000)
    MouseClick("left",278,58,1)    ; network
    ScreenShot()
    
EndFunc 


_AU3RecordSetup()

Send("{LWINDOWN}{LWINUP}")
_WinWaitActivate("Start menu","All Programs",10)
Send("task{SPACE}manager{ENTER}")
Local $hWnd = WinWait("Windows Task Manager","",10)
WinSetState($hWnd, "", @SW_MAXIMIZE)

$iMinutes = 15
$hTimer = TimerInit()
$counter = 0

While $counter < 32

    If TimerDiff($hTimer) > ($iMinutes * 60000) Then
    
        ServerScript()
        $hTimer = TimerInit()
        $counter = $counter +1
            
    EndIf

WEnd

WinClose($hWnd)

 

Edited by JLogan3o13

Share this post


Link to post
Share on other sites




If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Welcome to AutoIt and the forum!

I do not think it is sensible to collect performance data this way. Windows collects such data itself - you just need to write a script to analyze this data.:
Maybe something like this:


 

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

BTW: When posting code could you please use AutoIt code tags (the "<>" button in the editor)? That makes your code much easier to read ;)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now