' Take a screenshot (capture window) and save it to disk
' 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:\vbsedit.png"
    WScript.Quit
  EndIf
Next

search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2022 adersοft