![[Script] touche K et P appuyée + screenshot - Page 7 Empty](https://2img.net/i/empty.gif)
par sinkir Sam 23 Juin 2012 - 7:09Rappel du premier message :
Script non compatible avec la version 3.9
Alt + k Pour garder K actif
Alt + p Pour garder P actif
Alt + s Pour un screenshot
Ne marche pas avec la touche Alt Gr (le alt de droite)
![[Script] touche K et P appuyée + screenshot - Page 7 1RuCF](https://i.imgur.com/1RuCF.png)
Télécharger (364 KB)
Pour les non-inscrits voici le lien mediafire.com/?098vmeqo5uu2yu5
Nombre de téléchargements :
Ouvrez le script , le jeu se lance.
Quand vous utilisez la fonction screenshot pour la 1er fois il crée un dossier "screenshot".
Puis, un fichier texte "config.txt" dedans.
Les capture prises avec le script seront placées dans le dossier screenshot.
La config des screenshot :
Pour Windows 7, Vista et XP.
Versions supportées :
3.2.1
3.3.0
3.5
3.5+
3.5++
3.5x Merci PoussinRaza! (Découvrez son Let's Play Gemme)
Version précédente ici
Idées :
Script non compatible avec la version 3.9
Alt + k Pour garder K actif
Alt + p Pour garder P actif
Alt + s Pour un screenshot
Ne marche pas avec la touche Alt Gr (le alt de droite)
Télécharger (364 KB)Pour les non-inscrits voici le lien mediafire.com/?098vmeqo5uu2yu5
Nombre de téléchargements :
- Spoiler:
- 2012/06/23 a 20h45 : 11 Téléchargements ! merci ^^
2012/06/23 a 21h21 : 22 Téléchargements !
2012/06/23 a 23h50 : 82 Téléchargements !
2012/06/24 a 14h15 : 226 Téléchargements !
2012/06/24 a 16h35 : 269 Téléchargements !
2012/06/25 a 02h10 : 400 Téléchargements !
2012/06/27 a 12h35 : 629 Téléchargements !
2012/07/03 a 03h30 : 964 Téléchargements !
2012/07/04 a 15h55 : 1028 Téléchargements ! =D
2012/07/13 a 03h55 : 1418 Téléchargements !
2012/07/18 a 03h50 : 1574 Téléchargements ! +de 1500 =) Merci a tous
2012/07/21 a 08h50 : 1675 Téléchargements !
2012/07/25 a 20h04 : 1788 Téléchargements !
2012/08/05 a 22h50 : 1958 Téléchargements !
2012/08/25 a 03h20 : 2239 Téléchargements !
2012/09/11 a 20h00 : 2350 Téléchargements !
2012/10/01 a 15h40 : 2504 Téléchargements !
2012/12/27 a 03h50 : 3001 Téléchargements ! 3000 ^^
2013/03/13 a 20h45 : 3465 Téléchargements !
2013/05/19 a 09h05 : 4361 Téléchargements !
2013/08/29 a 00h19 : 4677 Téléchargements !
Ouvrez le script , le jeu se lance.
Quand vous utilisez la fonction screenshot pour la 1er fois il crée un dossier "screenshot".
Puis, un fichier texte "config.txt" dedans.
Les capture prises avec le script seront placées dans le dossier screenshot.
La config des screenshot :
- Spoiler:
- La config sert a bien cadré les screenshot avec des valeurs en pixel
Par défaut j'utilise 3 et 25![[Script] touche K et P appuyée + screenshot - Page 7 LIFz6](https://i.imgur.com/lIFz6.png)
Pour mon windows 7 cela correspond bien :![[Script] touche K et P appuyée + screenshot - Page 7 No9Vq](https://i.imgur.com/no9Vq.png)
A vous de réglez ce qui vous conviens
Exemple avec :
3
25![[Script] touche K et P appuyée + screenshot - Page 7 NoXiw](https://i.imgur.com/noXiw.jpg)
Exemple avec :
0
0![[Script] touche K et P appuyée + screenshot - Page 7 1P5Mq](https://i.imgur.com/1P5Mq.jpg)
Pour Windows 7, Vista et XP.
Versions supportées :
3.2.1
3.3.0
3.5
3.5+
3.5++
3.5x Merci PoussinRaza! (Découvrez son Let's Play Gemme)
Version précédente ici
Idées :
- Spoiler:
- En développement :
- Alt+unetouche pour plusieurs "enter" jusque a la détection d'un oui/non et valide oui
- Alt+unetouche pour plusieurs "echap" jusque a la détection d'un oui/non et valide non
En attente car je vais demandé la permission x) :
- Alt+unetouche pour backup/chargé votre sauvegarde
- Spoiler:
![[Script] touche K et P appuyée + screenshot - Page 7 VoU44](https://i.imgur.com/voU44.png)
Version texte :
- Code:
;Crée par sinkir le 2012/06/24
#Include <File.au3>
#Include <String.au3>
#Include <Array.au3>
#Include <ScreenCapture.au3>
;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
;fonction qui retourne un Handle grace au PID
Func _GetHwndFromPID($PID)
$hWnd = 0
$stPID = DllStructCreate("int")
Do
$winlist2 = WinList()
For $i = 1 To $winlist2[0][0]
If $winlist2[$i][0] <> "" Then
DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $winlist2[$i][1], "ptr", DllStructGetPtr($stPID))
If DllStructGetData($stPID, 1) = $PID Then
$hWnd = $winlist2[$i][1]
ExitLoop
EndIf
EndIf
Next
Sleep(100)
Until $hWnd <> 0
Return $hWnd
EndFunc
$dir = @ScriptDir&"\screenshot" ; Dossier screenshot
$config = $dir&"\config.txt" ; Fichier config
Func k_func()
Sleep(600)
Send("{k down}");
EndFunc
Func p_func()
Sleep(600)
Send("{p down}");
EndFunc
;fonction qui prend un screenshot
Func screen();
;création du dossier et du fichier config 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
;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))
$master = _GetHwndFromPID($pid);
;on passe le jeu au 1er plan (dans le doute)
WinActivate($master)
Sleep(100)
$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)
EndFunc
HotKeySet("!k", "k_func");Alt-k
HotKeySet("!p", "p_func");Alt-p
HotKeySet("!s", "screen");Alt+s
If ProcessExists("game.exe") Then
Global $pid = ProcessExists("game.exe");
Else
Global $pid = Run("game.exe");
EndIf
While ProcessExists($pid);
Sleep(50)
WEnd
Send("{k up}");
Send("{p up}");
;idees:
;backup save
;gauche-droite haut-bas
;tourne en rond
;auto enter, detection oui/non
Dernière édition par sinkir le Mer 28 Aoû 2013 - 11:19, édité 50 fois
