Page 1 sur 1
[EX] ScreenCapteur
Posté : mer. 21 sept. 2011 20:20
par moi
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.
► Afficher le texteet pourquoi pas?
Code : Tout sélectionner
#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...
Re: [EX] ScreenCapteur
Posté : jeu. 22 sept. 2011 02:05
par matwachich
Code : Tout sélectionner
#include <ScreenCapture.au3>
$dir = @MyDocumentsDir & "\captures"
DirCreate($dir)
$base = "capt"
HotKeySet("{TAB}", "_Capt")
Func _Capt()
Local $file = _FileName()
; ---
ConsoleWrite("Capture: " & $file & @CRLF)
_ScreenCapture_Capture($file)
EndFunc
Func _FileName()
Local $i = 0, $file
Do
$file = $dir & "\" & $base & "_" & $i & ".jpg"
$i += 1
Until Not FileExists($file)
; ---
Return $file
EndFunc
While 1
Sleep(1000)
Wend
Re: [EX] ScreenCapteur
Posté : dim. 25 sept. 2011 14:12
par moi
bon je les un peu modifier :
► Afficher le texte
Code : Tout sélectionner
#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...