by Xojo (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 17th January 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Simple and not to be taken seriously: Screenshot of application and pasting to paint automatically using SendKeys.
API Declarations
'Note: In Timer2 the SendKeys may either be "^+V" or "^V"
'I used my paint directory, it may vary. (C:\WINDOWS\System32\mspaint.exe)
'1 Command Button (Command1)
'2 Timers at (Timer1[Interval = 1], Timer2[Interval = 400])
VBcoders
Dim M
SendKeys "%{PRTSC}"
M = MsgBox("View screenshot in paint?", vbYesNo + vbInformation, "Screenshot")
If M = vbYes Then Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Shell ("C:\WINDOWS\System32\mspaint.exe")
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
AppActivate "Untitled - Paint"
SendKeys "^+V"
Timer2.Enabled = False
End Sub
No comments have been posted about Simple and not to be taken seriously: Screenshot of application and pasting to paint automatically . Why not be the first to post a comment about Simple and not to be taken seriously: Screenshot of application and pasting to paint automatically .