bon voila un script totalement inutile et sans intérêt mais qui peut servir
je l'ai écrit car j'utilise en ce moment zsnes un émulateur de snes sur pc et j'avais besoin de capture d'écran et la touche imprim system ne prenait pas de capture et quand j'essayais de copy-paste sur paint, word ou paint.net il s'afficher une erreur donc si ça ne marche pas c'est pratique. j'avais essayer avec plusieurs logiciel de capture mais nada.
#include <ScreenCapture.au3>
#include <Misc.au3>
$endroit = FileSelectFolder(" choisissez un endroit de sauvegarde", @MyDocumentsDir)
$i = 0
$nomimg = InputBox("entrer le nom de base de l'image","entrer le nom de base de l'image")
if $endroit = "" Then $endroit = @MyDocumentsDir
While 1
if _IsPressed("09") Then _capt()
if $i = 10 then Exit
WEnd
Func _capt()
Local $hBmp
; Capture full screen
$hBmp = _ScreenCapture_Capture ("")
; Save bitmap to file
_ScreenCapture_SaveImage ($endroit & "\" &$nomimg &"_" &$i &".jpg", $hBmp)
$i = $i + 1
Sleep(1500)
EndFunc
un script sert toujours a quelle que chose: faite en ce que vous voulait...
le problème ce n'est pas un problème, le seul problème ici c'est nous.
#include <ScreenCapture.au3>
#include <Misc.au3>
HotKeySet("{TAB}","_capt")
$dir = @MyDocumentsDir & "\captures\"
DirCreate($dir)
$i = 0
$nomimg = InputBox("entrer le nom de base de l'image","entrer le nom de base de l'image")
dircreate($dir& "\" & $nomimg)
While 1
WEnd
Func _capt()
Local $hBmp
While 1; Capture full screen
if _IsPressed("23")then Exit
$hBmp = _ScreenCapture_Capture ("")
if _IsPressed("23")then Exit
; Save bitmap to file
_ScreenCapture_SaveImage ($dir &$nomimg &"\"& $nomimg &"_" &$i &".jpg", $hBmp)
$i = $i + 1
Sleep(1000)
if _IsPressed("23")then Exit
WEnd
EndFunc ;==>_Main
tout est automatiser des que l'on appuie sur tab...
le problème ce n'est pas un problème, le seul problème ici c'est nous.