• Home
 · 
• Miscellaneous
 · 
• Simple and not to be taken seriously: Screenshot of application and pasting to paint automatically

Simple and not to be taken seriously: Screenshot of application and pasting to paint automatically

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])




Rate Simple and not to be taken seriously: Screenshot of application and pasting to paint automatically

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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