Jump to content

Search the Community

Showing results for tags 'pressed keys'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • General
    • Announcements and Site News
    • Administration
  • AutoIt v3
    • AutoIt Help and Support
    • AutoIt Technical Discussion
    • AutoIt Example Scripts
  • Scripting and Development
    • Developer General Discussion
    • Language Specific Discussion
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • AutoIt Team
    • Beta
    • MVP
  • AutoIt
    • Automation
    • Databases and web connections
    • Data compression
    • Encryption and hash
    • Games
    • GUI Additions
    • Hardware
    • Information gathering
    • Internet protocol suite
    • Maths
    • Media
    • PDF
    • Security
    • Social Media and other Website API
    • Windows
  • Scripting and Development
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Member Title


Location


WWW


Interests

Found 1 result

  1. Works with ctrl+left mouse click, displays a traytip, balloon-like with the image resolution, if can be read. Not entirely mine, got help from forum, without you i couldn't have done it. thanks ppl. #include "image_get_info.au3" #include <Misc.au3> AutoItSetOption("TrayAutoPause", 0) Local $DLL = DllOpen("user32.dll") Local $file, $aInfo, $keyR1, $keyR2 RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced", "EnableBalloonTips", "REG_DWORD", "1") While 1 Sleep(50) If _IsPressed("11", $dll) Then ;CTRL $keyR1 = 1 CTRLkey() ElseIf $keyR1 + $keyR2 = 2 Then RES() EndIf WEnd DllClose($dll) Func CTRLkey() If _IsPressed("01", $dll) Then ;LMB $keyR2 = 1 EndIf EndFunc ;==>CTRLkey Func RES() $keyR1 = 0 $keyR2 = 0 Send("^c") Sleep(50) $file = ClipGet() $aInfo = _ImageGetInfo($file) TrayTip("Resolution", _ImageGetParam($aInfo, "Width") & "x" & _ImageGetParam($aInfo, "Height"), 2, 1) EndFunc ;==>RES EDIT: Required UDF attached, had to change code as it wasn't working flawlessly as it should, now it's good, press ctrl and click on the image, once you release ctrl, the traytip will show the resolution of the image. Got to investigate why it wasn't working well the other way. image_get_info.au3 AutoIt Res.au3
×
×
  • Create New...