Page 1 sur 1

[R] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 11:42
par Dralloc
Bonjour,

J'ai problème... je cherche à réaliser un script qui me permettra de faire des Screenshots et de les enregistrer directement sur le disque dur
Le problème c'est que je ne sais absolument pas par où commencer..
J'ai essayer un petit bout de code mais qui ne pourrais pas marcher sur tous les PC car j'utilise paint et la simulation des touches {TAB} et {ENTER} ...

Code : Tout sélectionner

Send ("{PRINTSCREEN}")
$sRandom = StringFormat("%08u", Random(0,99999999,1))

run ("C:\Windows\System32\mspaint.exe")
WinWaitActive ( "Sans titre - Paint" )
send ( "^v" )
send("!F")
send("{q}")

send ("{ENTER}")
sleep(350)
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send ("{ENTER}")
send ("C:\test")
send("{TAB}")
send("{TAB}")
send ($sRandom)
send ("{ENTER}")
Alors voilà si quelqu'un pouvais m'aider sa serait sympa :)

Merci d'avance :P

Re: [...] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 12:43
par Yogui
commencez par ici :

Code : Tout sélectionner

#include <ScreenCapture.au3>

; Capture full screen
_ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image1.jpg")
exemple trouvé dans l'aide de la fonction : _ScreenCapture_Capture

yogui

Re: [...] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 12:46
par Dralloc
Mais qu'elle rapidité et qu'elle simplicité, Merci beaucoup ça marche !! :D

Re: [...] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 12:50
par Dralloc
Une dernière question :wink:

Pour modifier le nom de l'image et mettre un nombre Random à la place

Code : Tout sélectionner

#include <ScreenCapture.au3>

$sRandom = StringFormat("%08u", Random(0,99999999,1))

; Capture full screen
_ScreenCapture_Capture(@DesktopDir & "\$sRandom.jpg")
Comment faire pour donner à l'image le nom du chiffre donné au hasard ?

Re: [...] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 12:56
par Yogui
comme ça :

Code : Tout sélectionner

#include <ScreenCapture.au3>

$sRandom = StringFormat("%08u", Random(0,99999999,1))

; Capture full screen
_ScreenCapture_Capture(@DesktopDir & "\"&$sRandom&".jpg")
Pour concaténer une variable à une chaine il faut utiliser le concaténateur : &

petit exemple vite fait :

Code : Tout sélectionner

$variable = "Yogui"

$message = "Exemple proposé par "& $variable & " :)"
msgbox(0,"",$message)

Re: [...] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 12:57
par Dralloc
Ah d'accord ! Merci pour ton aide Yogui :P

Re: [...] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 13:40
par Yogui
Donc si tout fonctionne merci de mettre [R] à la place de [..] pour se topic (modifier le premier post)

Re: [R] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 13:42
par Dralloc
Une dernière petite question, comment démarrer un .bat en caché grâce au script

Re: [R] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 13:52
par Yogui
j'ai pas tester mais logiquement comme ça :

Code : Tout sélectionner

ShellExecute("truc.bat","","","",@SW_HIDE)

Re: [R] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 13:53
par Dralloc
Pourquoi tant de guillemets vide ? Je venais justement de trouver la solution :wink: Mais merci encore

Re: [R] Enregistrer un Screenshots

Posté : sam. 01 mai 2010 14:00
par Yogui
Pour expliquer les guillemet vide voir l'aide :)