' Find a position in Window based on Image
' using Vbsedit's free Toolkit

Set toolkit = CreateObject("Vbsedit.Toolkit")

ForEach window In toolkit.TopLevelWindows
  If InStr(1,window.WindowTitle,"vbsedit",vbTextCompare)>0 Then
    window.Screenshot "c:\temp\vbsedit.png"
    
    Set image = CreateObject("Vbsedit.ImageProcessor")
    image.Load "c:\temp\vbsedit.png"

    Set position = image.FindImage("c:\temp\icon.png")

    WScript.Echo position.X
    WScript.Echo position.Y

    WScript.Quit
  EndIf
Next

search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft