로그인
Microsoft.com
 
Resources for IT Professionals
 
 
 
Resources for IT Professionals > 포럼 홈 > The Official Scripting Guys Forum! > Is this possible? Print screen script.
질문하기질문하기
포럼 검색:
 

질문Is this possible? Print screen script.

  • 2009년 7월 4일 토요일 오전 3:30Tgriepe 사용자 메달사용자 메달사용자 메달사용자 메달사용자 메달
     
    로그인하여 투표
    0
    로그인하여 투표
    Hello, I am new to scripting, as a matter of fact if what i am trying to do is possible, than i will have a reason to learn how to script! Any and all help will be appreciated!
    I am a refrigeration technician and i am trying to monitor an automated cook and chill system (made by armor Inox if any one is interested).

    This is in laymen term's what i will need my script to do.
    1. Initialize itself every 15 minutes.
    2. Bring the screen of the program that i want to monitor on top, this is a multiple screen program!
    3. Get a screen grab via the print screen function.
    4. Open the Paint program.
    5. Edit/paste.
    6. File/save as current date/time to a shared folder on a network drive. 
    7. Close Paint.

    The ability to disable this script would be desirable also! 

    I am not asking for a hand out here, if this is possible i will learn how to script!
    If i can learn how to make this work, i am pretty sure that this is some pretty powerful stuff that will come in handy down the road!

    I will be using Notepad and the computer is running XP. Thanks, Tim,
     

모든 응답

  • 2009년 7월 4일 토요일 오전 7:34AssafM 사용자 메달사용자 메달사용자 메달사용자 메달사용자 메달
     코드 있음
    로그인하여 투표
    0
    로그인하여 투표
    Hi Tim,

    You can use WSH to complete this script.

    Use the Run Command to open the Programs (like Paint and the Monitoring Program)

    Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, TRUE)

    Use the AppActive for getting focus on the Program You want
    Use the SendKeys to Paste and PrintScreen and Save in Paint

    set WshShell = CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500
    I think this should do it.
    Play with it a little you can find more explenations on all of it in the Web.

    Good Luck.
    Assaf Miron http://Assaf.Miron.googlepages.com
     
  • 2009년 7월 6일 월요일 오후 2:56AbqBill중재자사용자 메달사용자 메달사용자 메달사용자 메달사용자 메달
     
    로그인하여 투표
    0
    로그인하여 투표
    Hi Tgriepe,

    I recommend using a tool that's specifically designed for this purpose. I have used 'SnagIt' and it has a feature like this.

    Regards,

    Bill
     
  • 2009년 7월 8일 수요일 오전 1:53Tgriepe 사용자 메달사용자 메달사용자 메달사용자 메달사용자 메달
     
    로그인하여 투표
    0
    로그인하여 투표
    Thank you both for the quick replies! I actually found a solution using an Excel spread sheet. I am linking the data cells in my spread sheet directly to the temperature outputs in the programmable logic controller that is controlling the Armor Inox system that we are using.
    This is a more desirable solution because it will be in real time!

    Bill, It would take forever to get third party software approved, but thanks for the suggestion!

    Assaf, I think i am going to take a look at what you have put together as i am curious about how this works, and i would like to know more!

    Thanks, Tim,