Chère communauté voici mon dernier script =)
l'idée m'est venue en voulant aidé Adry et son Nuzlocke Challenge
Alt + s pour prendre un screenshot
Ouvrez le script APRES avoir ouvert pkm gemme
Ne marche pas avec la touche Alt Gr (le alt de droite)
Le script ce ferme en même temps que pkm gemme
Mise a jour pour la 3.5++ICI
Télécharger (375 KB)
Pour les non-inscrit voici le lien mediafire.com/?1dc66q9wz42obii
Nombre de téléchargements :
Pour Windows 7, Vista et XP.
Fonctionne avec toute les version de pkm gemme... normalement.
Le script ne devrais pas fonctionné correctement en plein écran (a testé xD)
Quand vous lancer le script la 1er fois il crée un dossier "screenshot".
Puis, un fichier text "config.txt" dedans.
Les capture prises avec le script seront placées dans le dossier screenshot.
La config :
La config sert a bien cadré les screenshot avec des valeurs en pixel
Par défaut j'utilise 3 et 25
Exemple avec :
3
25
0
0
Ceci est une version beta, merci de la testé et de me tenir au courant si cela marche ou pas =)
Oubliez pas de précisez votre version de windows ^^ merci
Le code (Autoit)
l'idée m'est venue en voulant aidé Adry et son Nuzlocke Challenge
Alt + s pour prendre un screenshot
Ouvrez le script APRES avoir ouvert pkm gemme
Ne marche pas avec la touche Alt Gr (le alt de droite)
Le script ce ferme en même temps que pkm gemme
Mise a jour pour la 3.5++ICI
Télécharger (375 KB)
Pour les non-inscrit voici le lien mediafire.com/?1dc66q9wz42obii
Nombre de téléchargements :
- Spoiler:
- 2012/04/24 a 05h00 : 10 Téléchargements !
2012/04/28 a 09h20 : 18 Téléchargements !
2012/05/08 a 06h20 : 19 Téléchargements ! Ouai ! +1 xD
2012/05/20 a 02h00 : 20 Téléchargements ! Ouai ! +1 xD
2012/05/28 a 18h00 : 22 Téléchargements ! +1 !
2012/06/12 a 04h00 : 23 Téléchargements ! +1
2012/06/22 a 01h00 : 24 Téléchargements ! +1
Pour Windows 7, Vista et XP.
Fonctionne avec toute les version de pkm gemme... normalement.
Le script ne devrais pas fonctionné correctement en plein écran (a testé xD)
Quand vous lancer le script la 1er fois il crée un dossier "screenshot".
Puis, un fichier text "config.txt" dedans.
Les capture prises avec le script seront placées dans le dossier screenshot.
La config :
La config sert a bien cadré les screenshot avec des valeurs en pixel
Par défaut j'utilise 3 et 25
- Spoiler:
Pour mon windows 7 cela correspond bien :
Exemple avec :
3
25
- Spoiler:
0
0
- Spoiler:
Ceci est une version beta, merci de la testé et de me tenir au courant si cela marche ou pas =)
Oubliez pas de précisez votre version de windows ^^ merci
Le code (Autoit)
- Spoiler:
Version text
- Code:
#Include <File.au3>
#Include <String.au3>
#Include <Array.au3>
#Include <ScreenCapture.au3>
#include <GDIPlus.au3>
HotKeySet("!s", "screen"); Alt+s appel la fonction screen()
$nom_fenetre = "POKEMON-GEMME"; Nom de la fenetre
$dir = @ScriptDir&"\screenshot" ; Dossier screenshot
$config = @ScriptDir&"\screenchot\config.txt" ; Fichier config
;création du dossier et des fichier si ils n'existe pas
If FileExists($dir) <> 1 Then
DirCreate($dir)
EndIf
If FileExists($config) <> 1 Then
_FileCreate($config)
stock_data($config, "3"&Chr(10)&"25"); Chr(10) = \n (code ASCII 10)
EndIf
;Si le jeu est lancé
If WinExists($nom_fenetre) Then;
;On passe le jeux au 1er plan
WinActivate($nom_fenetre)
;While tant que le jeux est lancé
While WinExists($nom_fenetre)
Sleep(50);Boule principale , le cript attent des Alt+s
WEnd
Else
;le script na pas trouvé pkm gemme
MsgBox(1,"","PKM GEMME non trouvé",0.5); garlé le message 0.5s a l'ecran
EndIf
;fonction qui prend un screenshot
Func screen();
;récupération du contenue de config.txt
$datasave = get_data($config)
;on coupe la string par chaque \n puis on stock dans un tableau
$tabsave = _StringExplode($datasave, Chr(10))
;on passe le jeux au 1er plan (dans le doute)
WinActivate($nom_fenetre)
;on stock le "handle" de la fenetre du jeux
$master = WinActive($nom_fenetre);
$tab = WinGetPos($master);get possition de la fenetre
;possition en x
$x = $tab[0];
;possition en y
$y = $tab[1];
;taille de la fenetre (fonction en teste)
$size = WinGetClientSize($master)
$largeur = $size[0]
$hauteur = $size[1]
;unix time stamp
$nameimg = TimerInit()
;Screenchot
_ScreenCapture_Capture($dir&"\"&$nameimg&".png", $x+Int($tabsave[0]), $y+Int($tabsave[1]), $x+$largeur, $y+$hauteur)
;fonction de rezise
;_imageResizePercent($dir&"\"&$nameimg&".png", $dir&"\mini_"&$nameimg&".png", 50)
EndFunc
;fonction chopé sur le net
Func _imageResizePercent($oldImage, $newImage, $percent)
Local $img, $gContext, $newW, $newH, $newBmp, $gNewContext, $closeGDI = False
If $ghGDIPDll = 0 Then
_GDIPlus_Startup()
$closeGDI = True
EndIf
$img = _GDIPlus_ImageLoadFromFile($oldImage)
$gContext = _GDIPlus_ImageGetGraphicsContext($img)
$newW = (_GDIPlus_ImageGetWidth($img) * $percent) / 100
$newH = (_GDIPlus_ImageGetHeight($img) * $percent) / 100
$newBmp = _GDIPlus_BitmapCreateFromGraphics($newW, $newH, $gContext)
$gNewContext = _GDIPlus_ImageGetGraphicsContext($newBmp)
_GDIPlus_GraphicsDrawImageRect($gNewContext, $img, 0, 0, $newW, $newH)
_GDIPlus_ImageSaveToFile($newBmp, $newImage)
_GDIPlus_ImageDispose($img)
_GDIPlus_GraphicsDispose($gContext)
_GDIPlus_GraphicsDispose($gNewContext)
_GDIPlus_BitmapDispose($newBmp)
If Not FileExists($newImage) Then Return 0
Return SetError(0, FileGetSize($newImage), 1)
If $closeGDI Then _GDIPlus_Shutdown()
EndFunc
;mes fonctions de gestion de donnée.
Func stock_data($file_path, $txt);
$file = FileOpen($file_path, 2)
If $file = -1 Then
_FileCreate($file_path)
FileClose($file)
$file = FileOpen($file_path, 2)
EndIf
FileWrite($file, $txt)
FileClose($file)
EndFunc
Func get_data($file_path);
$file = FileOpen($file_path)
If $file = -1 Then
_FileCreate($file_path)
FileClose($file)
Return "";
EndIf
$chars = "";
While 1
$chars = $chars&FileRead($file, 1)
If @error = -1 Then ExitLoop
;MsgBox(0, "Char read:", $chars)
Wend
FileClose($file)
Return $chars
EndFunc
Func add_data($file_path, $txt);
$file = FileOpen($file_path, 1)
If $file = -1 Then
_FileCreate($file_path)
FileClose($file)
$file = FileOpen($file_path, 2)
EndIf
FileWrite($file, $txt)
FileClose($file)
EndFunc
Dernière édition par sinkir le Dim 24 Juin 2012 - 3:21, édité 13 fois