Screenshot using mspaint

[VicTT]

Decided it's more visually pleasing to actually see the entire process unfold..All in "AutoIt native commands" ..

Global $root="E:\Screensaves\"
Func ScExit()
Exit
EndFunc
Func PrintScreen()
Send("{PRINTSCREEN}")
Run("C:\Windows\System32\mspaint.exe")
WinWaitActive("untitled - Paint")
Send("^v")
Send("!f")
Send("s")
Send($root&@HOUR&" "&@MIN&" "&@SEC&".jpg")
Send("{TAB}{DOWN 2}{ENTER}{TAB}{ENTER}")
Send("!{F4}")
EndFunc
HotKeySet("^!{F5}","PrintScreen")
HotKeySet("^!{F12}","ScExit")
while 1
wend

It can be easily modified to suit anyone's needs..

[peethebee]

Hi!

This is of course of possiblity, but in most cases, a dll solution is the better way (search for it in the forums).

But for learning from it, it is vey usefull.

Thanks for sharing it,

peethebee

[w0uter]

no offence but your code ... well ... sucks.

you didnt even use a sleep in-between your loop.

Edited October 16, 2005 by w0uter

[Michel Claveau]

Hi !

The idea is interesting.

I took again the principle, in the code below. Note: needs MS-Word, AutoIt-Beta, and the file (document) "cecrans.doc" in C: \

expandcollapse popup

Func ScExit()
    VW()
    Exit
EndFunc

Func PScreen()
    Send("!{PRINTSCREEN}")
    $w.Visible=True
    sleep(250)
    WinActivate("cecran2.doc")
    sleep(100)
    Send("{RIGHT}{DOWN}{ENTER}")
    Send("^v")
    Send("{RIGHT}{DOWN}{ENTER}{ENTER}")
    $w.Visible=False
EndFunc


Func VW()
    $w.Visible=True
    sleep(100)
EndFunc


$w=ObjCreate("Word.Application")
sleep(1000)
$w.Visible=False
$w.Documents.Open("C:\cecrans.doc")
sleep(250)
$w.Activedocument.SaveAs("C:\cecran2.doc")
sleep(100)

HotKeySet("^!{F5}","PScreen")
HotKeySet("^!{F12}","ScExit")
HotKeySet("^!{F11}","VW")

while 1
    sleep(50)
wend

Usage :

- Alt-Ctrl-F5 for capture-screen

- Alt-Ctrl-F11 for see the result, in Word

- Alt-Ctrl-F12 for exit

Target : capture multiple screen in MS-Word.

cecrans.doc

Edited October 17, 2005 by Michel Claveau