Version imprimable
Bonjour à tous
j'aimerais simuler l'exécution de la touche "PrintScreen" par un lien mais malgré mais tests et recherches je ne m'en sors pas vraiment.
En fait, lors du clic sur un lien "impression" j'exécute le lancement d'un programme de capture d'écran mais une fois démarré celui ci ne déclenche une impression que lors de la pression sur cette touche d'où ma requête.
Merci d'avance
si par exemple vous connaissez le code ascii de la touche qui génere cette fonction alors vous pouvez le redirigez dans un lien grace au gestionnaire d'evenements javascript .
moi je suis nul en javascript c'st pourquoi je ne vous propose pas de code mais demandez plutot sous cette forme et vous obtiendrez des reponses.
merci mais finalement j'ai trouvé une 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:
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
40Option 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