Discussion :

[Valarauko]

Bonjour
j'aimerais automatiser l'appui sur une la touche clavier "PrintScreen" à partir d'un fichier batch mais malgré mes recherches je n'ai pas trouvé la commande à exécuter.

Tout d'abord est-ce possible et si oui de quelle manière ?

merci d'avance

[I'm_HERE]

salut,

avec Nircmd:


:: sauvegarde le screenShot dans d:\fg.png

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nircmd savescreenshot "d:\fg.png"

:: sauvegardé la fenêtre en avant plan dans d:\bg.png:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nircmd savescreenshotwin "d:\bg.png"

[Valarauko]

Finalement j'ai trouvé la solution, par un .bat j'exécute un logiciel de capture d'écran(printkey) puis aprés 2 sec j'exécute un programme développé sous VB je vous mets la source pour ceux que ça intéressent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
   bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetVersionExA Lib "kernel32" _
      (lpVersionInformation As OSVERSIONINFO) As Integer

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Dim blnAboveVer4 As Boolean


Private Sub Form_Load()
    Dim osinfo As OSVERSIONINFO
    Dim retvalue As Integer
   
    osinfo.dwOSVersionInfoSize = 148
    osinfo.szCSDVersion = Space$(128)
    retvalue = GetVersionExA(osinfo)
    If osinfo.dwMajorVersion > 4 Then blnAboveVer4 = True

    If blnAboveVer4 Then
        keybd_event VK_SNAPSHOT, 0, 0, 0
    Else
        keybd_event VK_SNAPSHOT, 1, 0, 0
    End If

End Sub

[I'm_HERE]

merci de ton partage